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 |
|||||||||||||||||||||||||