Excel
ブックを開いたときにい全てのシートに同じ余白を設定する 全てのドキュメントで常に同じ余白を自動設定したいときに。ファイルをいちいちマクロ付きで保存しなきゃいけないなどの面倒くささは残る。 また、BlackAndWhite(Boolean)を設定すれば白黒印刷も…
前に VBA で FileSystemObject を使った再帰的なファイル検索をした気がするけど、当時の記憶でネットワークドライブに対してファイル検索を行うコードを書いたら超絶遅い。マジで「こんなん使ってられませんわ!」レベル。 ふと、思い出して Dir 関数使って…
「Sheet1」と「Sheet2」を比較して差異によって背景色を変更するマクロ(かなり適当な)。シート比較くらい標準機能で用意しておいてくれればいいのに…。 sub SheetDiff() dim max_row, max_col max_row = 1024 max_col = 256 dim s1, s2 set s1 = worksheet…
個人で Excel ファイルを操作する場合、ファイルロックについてあまり気にすることは無いが、ネットワークサーバ上にあるものをグループで共有するとなるとしばしばファイルロックに遭遇する。 そこで、自分がファイルロックの原因とならないように閲覧目的…
対象のディレクトリを再帰的に調べ、各ディレクトリに含まれるファイルの作成日時と最終更新日時を比較するマクロ。差異があるファイルに関しては背景色を変更する。 Option Explicit Sub foo() Dim strFindroot strFindroot = "C:\WINDOWS\System32" ''' In…