tkhrsskの日記

技術ネタなど

EXCEL VBA

プロパティやシートのヘッダやフッタを出力するマクロ

エクセルのプロパティやシートの情報を取得するマクロを ガッと書きなぐってみた。 ほとんどChatGPTにベースは書いてもらっているけど。 Sub RecursiveGetExcelFileInfo(FolderPath As String, ByRef OutputRow As Long) Dim FileName As String Dim ExtName…

EXCEL VBA PFDの図形を書くマクロ

上記を固定で出力するマクロです。 これだけだとテンプレ用意するのと何の変わりもないけど、 GraphVizとかみたいに、必要な情報を表で埋めたら全部自動でオブジェクト作れるようにしたいとは思っている。 配置自動調整まではさすがにするつもりないけど。 S…

Excel VBAアドインの作り方 サンプル

ThisWorkBookに、ワークブック読み込み時の処理(Workbook_Open)追加。 Option Explicit Private Sub Workbook_Open() Dim bar As CommandBar Dim button As CommandBarButton DeleteCommandBar Set bar = Application.CommandBars.Add(Name:="ツールバー名",…

開いているブック一覧 & ワイルドカード判定

標題の通り。 Sub ブック一覧() Dim wb As Workbook Dim sheet As Worksheet Debug.Print "ThisBook :" & ThisWorkbook.Name For Each wb In Workbooks Debug.Print wb.Name If wb.Name Like "*探し物*" Then Debug.Print "探し物が見つかりました! :" & wb…

オートフィルタ状態の確認

またも深夜のVBA探索。。。 フィルタ状況を調べる Sub フィルタチェック() Dim i As Long, title As String Dim f As Filter Dim af As AutoFilter If ActiveSheet.AutoFilterMode Then For i = 1 To ActiveSheet.AutoFilter.Filters.Count Set f = ActiveSh…

VBAでWorkbook Close時に強制停止の回避方法

環境依存だったが、EXCEL VBAマクロで強制停止する現象が発生した。 ステップ実行していったところ、Workbook Close時に死んでいるっぽい。 いろいろと検証してみたところ、大きな領域をコピーしたままEXCELを閉じるときにでる "あの警告"がでる場合に問題ら…

複数ブックを集約して加工

EXCELと格闘する日々に効率化を。。 職場に役立ちそうな EXCEL VBA を深夜自宅で勉強中。。。眠い。 なんだか20年くらい前の仕事をしている気分。 Visual Basic for Applications - Wikipedia Sub OpenBookSheet(ByVal FilePath As String, ByVal Sheet As S…