Q: イベント発生の抑制

'新たなイベント発生の抑制------ Application .EnableEvents = False '元に戻す------ Application .EnableEvents = True

Q: ファイルオブジェクト生成

Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject")

Q: ブックを保存

'上書き保存 Workbooks("Dummy.xlsx").Close SaveChanges:=True '保存せずに保存 Workbooks("Dummy.xlsx").Close SaveChanges:=False

Q: ブックを開く

'指定したブックを開く(ドライブ名・・・拡張子) Workbooks.Open Filename:="C:\・・・\test.xlsx" '指定したブックを開き、オブジェクト指定 Dim wb as As Workbook Set wb1 = Workbooks.Open(Filename:="C:\・・・\test.xlsx")

Q: データの最終行を取得

'最終行を取得する cnt = Cells(Rows.Count, 1).End(xlUp).Row

Q: 警告メッセージの停止

'警告メッセージの停止 Application.DisplayAlerts = False '警告メッセージを通常表示 Application.DisplayAlerts = True

Q: 処理を待たせる

'1秒間処理を中断する Application.Wait Now + TimeValue("00:00:1")

Q: 画面描画の停止

Application.ScreenUpdating = False Application.ScreenUpdating = True

Question 1

イベント発生の抑制

kazz · Accepted Answer

'新たなイベント発生の抑制------
Application.EnableEvents = False

'元に戻す------
Application.EnableEvents = True

Question 2

計算方法の設定

kazz · Accepted Answer

'手動計算
Application.Calculation = xlCalculationManual

'再計算の実行
Application.Calculate 

'自動計算
Application.Calculation = xlCalculationAutomatic

Question 3

処理時間の計測

kazz · Accepted Answer

'計測開始
    Dim myspeed As Double
    Dim starttime As Double
    starttime = Timer
'---------------------------

'計測終了
   myspeed = Timer - starttime
   Debug.Print "処理時間：" & myspeed & "秒"
'---------------------------

Question 4

ファイルオブジェクト生成

kazz · Accepted Answer

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Question 5

ブックを保存

kazz · Accepted Answer

'上書き保存
Workbooks("Dummy.xlsx").Close SaveChanges:=True

'保存せずに保存
Workbooks("Dummy.xlsx").Close SaveChanges:=False

Question 6

ブックを開く

kazz · Accepted Answer

'指定したブックを開く(ドライブ名・・・拡張子)
Workbooks.Open Filename:="C:\・・・	est.xlsx"

'指定したブックを開き、オブジェクト指定
Dim wb as As Workbook
Set wb1 = Workbooks.Open(Filename:="C:\・・・	est.xlsx")

Question 7

データの最終行を取得

kazz · Accepted Answer

'最終行を取得する
cnt = Cells(Rows.Count, 1).End(xlUp).Row

Question 8

警告メッセージの停止

kazz · Accepted Answer

'警告メッセージの停止
Application.DisplayAlerts = False

'警告メッセージを通常表示
Application.DisplayAlerts = True

Question 9

処理を待たせる

kazz · Accepted Answer

'1秒間処理を中断する
Application.Wait Now + TimeValue("00:00:1")

Question 10

画面描画の停止

mimito · Accepted Answer

Application.ScreenUpdating = False
Application.ScreenUpdating = True