Excel VBA スニペット 全角半角のスペースを取り除く
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*'★ 全角半角のスペースを取り除く'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*Fun...
Excel VBA スニペット
Excel VBA スニペット Application イベント発生の抑制
'新たなイベント発生の抑制------Application.EnableEvents = False'元に戻す------Application.EnableEvents = True
Application 計算方法の設定
'手動計算Application.Calculation = xlCalculationManual'再計算の実行Application.Calculate '自動計算Application.Calculation = xlCalculat...
Excel VBA スニペット 処理時間の計測
'計測開始 Dim myspeed As Double Dim starttime As Double starttime = Timer'---------------------------'計測終了 myspeed = Timer -...
Excel VBA スニペット ファイルオブジェクト生成
Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")
Book ブックを閉じる
'上書き保存Workbooks("Dummy.xlsx").Close SaveChanges:=True'保存せずに保存Workbooks("Dummy.xlsx").Close SaveChanges:=False
Book ブックを開く
'指定したブックを開く(ドライブ名・・・拡張子)Workbooks.Open Filename:="C:\・・・\test.xlsx"'指定したブックを開き、オブジェクト指定Dim wb as As WorkbookSet wb1 = Wo...
Cell データの最終行を取得
'最終行を取得する(A列を基準)dim cnt as longcnt = Cells(Rows.Count, 1).End(xlUp).Row又はcnt = Cells(Rows.Count, "A").End(xlUp).Row
Application 警告メッセージの停止
'警告メッセージの停止Application.DisplayAlerts = False'警告メッセージを通常表示Application.DisplayAlerts = True
Application 処理を待たせる
'1秒間処理を中断するApplication.Wait Now + TimeValue("00:00:1")