Excel VBA用のメモ
※Windows系 Microsoft Office Excel VBA 個人メモです。
 質問等はメール等で受け付けます。
処理向上関連
◆画面描画の停止・開始
Application.ScreenUpdating = False
Application.ScreenUpdating = True

◆自動計算の停止・自動
Application.Calculation = xlCalculationManual
Application.Calculation = xlCalculationAutomatic
イベント関連
◆アラートの停止・開始
Application.DisplayAlerts = False
Application.DisplayAlerts = True

◆イベントマクロ系の停止・開始
Application.EnableEvents = False
Application.EnableEvents = True
ファイル検索用_プロシージャ                        
Sub ファイル検索()
myRow = myRow + 1
myPath = ActiveWorkbook.Path
myFile = Dir(myPath & "\*")

Do Until DirFile = ""
    If InStr(1, myFile, ".xls") <> 0 Then
        Cells(myRow, 1).Value = myRow
        myRow = myRow + 1
    End If
    myFile = Dir()
Loop
End Sub
inserted by FC2 system