開発環境は、Windows 10 Pro(64bit)。 ファイルが存在するかチェック If Dir("ファイルのフルパス") <> "" Then Debug.Print("ファイルは存在します") Else Debug.Print("ファイルは存在しません") End If ファイル一覧を取得する Dim buf As String '例えば…

開発環境は、Windows 10 Pro(64bit)。AutoFilterで指定する際に、Range("A1")で指定した場合、1行目を横に進んで空白の直前までがフィルターとして適用される。その場合、Range("A1:K1")のように指定すると、途中で空白があっても、A～K列までフィルターが適…

開発環境は、Windows 10 Pro(64bit)。動作検証はExcel 2019。Excelでテーブル形式のデータをVBAで処理する場合、完成したファイルの列の位置を変更するような修正をした場合、関係する部分をすべて修正しなければいけないので、非常に面倒くさく、保守性が悪…

開発環境は、Windows 10 Pro(64bit)。動作テストは、Excel 2019。 印刷範囲の設定 With ActiveSheet.PageSetup .PrintArea = "$A$1:$BT$37" End With タイトル行の設定 With ActiveSheet.PageSetup '1枚ごとに毎回、タイトル行が印刷される .PrintTitleRows …

開発環境は、Windows 10 Pro(64bit)。動作テストはExcel 2019。 アルファベット→数字 For文で処理しやすいように、アルファベットを数字にしたい場合があります。 そういう時は、以下のように、アルファベットから数字に変換して処理します。 Debug.Print(Co…

開発環境は、Windows 10 Pro(64bit)。ピボットキャッシュを作成する際に「型が一致しません」というエラーが出現することがある。 作成したExcel(Excel 2019)では問題なかったが、バージョンの古いExcel(Excel 2010)で動作させると、上記のようなエラーメッ…

開発環境は、Windows 10 Pro(64bit)。前提条件としてOutlookがパソコン内にあることVBA上でOutlookが使用できるように参照設定を行う Alt + F11で、VBAエディタを開いて、ヘッダー部分の[ツール] - [参照設定]をクリック Microsoft Outlook 14.0 Object Libr…

開発環境は、Windows10 Professional。Excel上の連続した行の場合、例えば、以下のように、 ActiveSheet.PageSetup.PrintArea = ("A1:F1,A2:F2,A3:F3") ActiveSheet.PrintPreview とすると、1ページに3行がまとめて入るような形になってしまいます。 こうい…