シートの印刷枚数が２枚以上になる場合、１枚に収めてかつ中央寄せする処理 If Application.ExecuteExcel4Macro("get.document(50)") > 1 Then With ActiveSheet.PageSetup .Zoom = False .FitToPagesTall = 1 .FitToPagesWide = 1 .CenterHorizontally = Tr…

こんな書き方出来るんだ！って思ったVBAの構文 Sub WithTest() Range("A1").font.Color = RGB(0, 255, 0) Range("A1").font.Size = 10 Range("A1").font.Bold = True With Range("A2").font .Color = RGB(0, 255, 0) .Size = 10 .Bold = True End With Dim c…

はじめてVBAに触れたのでメモメモ やりたいこと 任意のファイルをエクスプローラーから開く そのファイルと同じフォルダにあるすべてのファイルの１シート目をファイルにコピーするあと細かい条件はいろいろあるけれど、ざっくりこんな感じです Sub joinButt…