Excel VBA スニペット

全角半角のスペースを取り除く

'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*'★ 全角半角のスペースを取り除く'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*Fun...

イベント発生の抑制

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

計算方法の設定

'手動計算Application.Calculation = xlCalculationManual'再計算の実行Application.Calculate '自動計算Application.Calculation = xlCalculat...

処理時間の計測

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

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

Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")

ブックを閉じる

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

ブックを開く

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

データの最終行を取得

'最終行を取得する(A列を基準)dim cnt as longcnt = Cells(Rows.Count, 1).End(xlUp).Row又はcnt = Cells(Rows.Count, "A").End(xlUp).Row

警告メッセージの停止

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

処理を待たせる

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