Wordを最近使う機会があって、毎回同じ名前を入力してエクスポートするのが面倒だったので書いてみた。 エクスポートのやり方 Sub ExportToPDF() ActiveDocument.ExportAsFixedFormat OutputFileName:="output.pdf", ExportFormat:=wdExportFormatPDF End Su…

こんなのがあった時に、 左上から、右下まで選択して、実行すると こんな風に埋めてくれるようなVBA。 Sub test() ' この場合、セルが空白なら0で埋める処理になる Call fillXtoY("", 0) End Sub Sub fillXtoY(x, y) For i = Selection(1).Row To Selection(…