mattintosh note

どこかのエンジニアモドキの備忘録

2024-06-05: 現在ホビー関連の記事を hobby.mattintosh-note.jp に移行しています。
現在掲載されている一部の画像と今後掲載される画像は特定の環境から閲覧できなくなります。

VBA

Excel VBA のメモ

ブックを開いたときにい全てのシートに同じ余白を設定する 全てのドキュメントで常に同じ余白を自動設定したいときに。ファイルをいちいちマクロ付きで保存しなきゃいけないなどの面倒くささは残る。 また、BlackAndWhite(Boolean)を設定すれば白黒印刷も…

FileSystemObject さんが遅い

前に VBA で FileSystemObject を使った再帰的なファイル検索をした気がするけど、当時の記憶でネットワークドライブに対してファイル検索を行うコードを書いたら超絶遅い。マジで「こんなん使ってられませんわ!」レベル。 ふと、思い出して Dir 関数使って…

Excel でシートを比較する

「Sheet1」と「Sheet2」を比較して差異によって背景色を変更するマクロ(かなり適当な)。シート比較くらい標準機能で用意しておいてくれればいいのに…。 sub SheetDiff() dim max_row, max_col max_row = 1024 max_col = 256 dim s1, s2 set s1 = worksheet…

エクセルでファイルの作成日時と更新日時を調べて比較する

対象のディレクトリを再帰的に調べ、各ディレクトリに含まれるファイルの作成日時と最終更新日時を比較するマクロ。差異があるファイルに関しては背景色を変更する。 Option Explicit Sub foo() Dim strFindroot strFindroot = "C:\WINDOWS\System32" ''' In…