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