ウインドウ操作に必要になるウインドウハンドルを子ウインドウも含めて全て取得したい

以前こちらの記事で（https://officevba.info/window-list/）ウインドウの一覧を取得するコードをご紹介しました。

このコードは階層構造になっている最上段のウインドウのみを取得するものだったのですが、ウインドウの内部をクリックしたり操作したりする際は子ウインドウや孫ウインドウなど下層にあるウインドウを順に取得しないといけないことも多く、一回で必要なすべてのウインドウの情報を取得することができませんでした。

子ハンドルや孫ハンドルを含めてウインドウハンドルを取得できない理由はウインドウの階層が一律でなく一般的なループ処理では対応できないことなのですが、以前フォルダとファイルを全て取得する処理で学んだ再帰処理を使うことで様々な階層のウインドウハンドルを全て取得できるようになりました。

今回は再帰処理を用いて開いているウインドウのすべてのハンドルを取得するコードをご紹介します。

ウインドウハンドルとは？

Windowsは開いたウインドウや、ウインドウに配置されているパーツなどそれぞれに一つずつにハンドルという数値型の値を割り当てて制御しているらしいです。

「ウインドウ」ハンドルと言ってもVBAでいうところのオブジェクトのような感じで、エクスプローラーの開いた画面のような見た目がウインドウのものから、テキストボックスやアイコン、ステータスバーなど色々なものに割り当てられていて、理論上はウインドウハンドルさえ取得できればWindowsAPIを用いて対象を自由に操作できるらしいです。（私自身が何でもできるわけではありませんのでらしいと記載しましたがかなり機能は豊富そうです。）

上記の通りWindowsAPIを用いて操作対象のウインドウを指定する際、このウインドウハンドルを指定することが大事なのですが、ウインドウハンドルはウインドウを開くたびにランダムに新しい数値が割り当てられるため、プログラムを実行する過程でウインドウハンドルを取得する手段がないとWindowsAPIでは操作ができないということになります。

再帰処理とは？

再帰処理はプロシージャの中に自分自身を呼び出すコードを記載することで、ループ処理時の階層が一定でなくても各階層に同じ処理を行うことができることです。

よく使われるのはあるフォルダの中に様々な階層のフォルダが格納されていてそれぞれにファイルが格納されている際に、各階層を順に探ってファイルとフォルダの一覧を書き出したり、ファイルをコピーしたりするのに使われます。

ちなみに上記のような処理をしたい場合、Pythonの標準モジュールのglobを使えば引数を一つ指定するだけで再帰処理を実行することが可能です。
VBAではコードを書いて実装しないといけないですが書き方に慣れが必要なので、この辺りはPythonの方が新しい言語でより洗練されている気がします。

再帰処理を用いたウインドウハンドルを取得するVBAコードについて

ウインドウが階層構造になっていて、かつウインドウごとに一定の階層ではないというのが再帰で解決できるぴったりの環境で、以前ウインドウハンドルの一覧表を作成するコードを勉強していた時には再帰処理の書き方を知らなかったので実装できず、作成したコードはウインドウの最上位だけを取得するのみでした。

必要なウインドウハンドルを取得するため、必要な場合は一層下ったものを探る処理を何度も繰り返して取得していましたが、再帰処理を使えば一回で全部解決させることができますし、今回の以下のようなコードの書き方では階層の情報も把握できるのでかなり便利になります。

'ウインドウの中の次または前のウインドウハンドルを取得する
Declare Function GetNextWindow Lib "user32" _
    Alias "GetWindow" _
    (ByVal hWnd As Long, _
    ByVal wFlag As Long) As Long

'ウインドウのキャプションタイトルを取得する
Declare Function GetWindowText Lib "user32" _
    Alias "GetWindowTextA" _
    (ByVal hWnd As Long, ByVal lpString As String, _
    ByVal cch As Long) As Long

'ウインドウが可視かどうかを取得する
Declare Function IsWindowVisible Lib "user32" _
    (ByVal hWnd As Long) As Long

'ウインドウのクラス名を取得する
Declare Function GetClassName Lib "user32" _
    Alias "GetClassNameA" _
    (ByVal hWnd As Long, _
    ByVal lpClassName As String, _
    ByVal nMaxCount As Long) As Long
    
'ウインドウハンドルの子を取得する
Declare Function FindWindowEx Lib "User32.dll" _
    Alias "FindWindowExA" ( _
    ByVal hWndParent As Long, _
    ByVal hwndChildAfter As Long, _
    ByVal lpszClass As String, _
    ByVal lpszWindow As String) As Long
 
'ウインドウハンドルを取得する
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Const GW_HWNDLAST = 1
Public Const GW_HWNDNEXT = 2

Sub 再帰でWindow一覧のキャプションとクラスを取得する()
    
    With ActiveSheet
        .Cells(1, 1) = "ハンドル"
        .Cells(1, 2) = "クラス名"
        .Cells(1, 3) = "キャプション名"
    End With
    
    Dim k As Long: k = 2
    Dim hWnd As Long: hWnd = FindWindow(vbNullString, vbNullString) '引数をvbNullStringにすると1つめのウインドウを取得する

    Call ウインドウの取得recursion(hWnd, k)

End Sub

Sub ウインドウの取得recursion(ByRef hWnd As Long, ByRef k As Long)
    
    Dim strClassNameCh As String * 100
    Dim strCaptionCh As String * 80
    
    Do
        If IsWindowVisible(hWnd) Then
            
            GetWindowText hWnd, strCaptionCh, Len(strCaptionCh)
            GetClassName hWnd, strClassNameCh, Len(strClassNameCh)
            
            Dim i As Long: i = ActiveSheet.UsedRange.Rows.Count + 1
            
            With ActiveSheet
                .Cells(i, 1).Value = hWnd
                .Cells(i, k).Value = Left(strClassNameCh, InStr(strClassNameCh, vbNullChar) - 1)
                .Cells(i, k + 1).Value = Left(strCaptionCh, InStr(strCaptionCh, vbNullChar) - 1)
            End With
            
            DoEvents
            
            Dim hWndCh As Long: hWndCh = FindWindowEx(hWnd, 0, vbNullString, vbNullString)
            Call ウインドウの取得recursion(hWndCh, k + 2)
        
        End If
        
        hWnd = GetNextWindow(hWnd, GW_HWNDNEXT)
        
    Loop Until hWnd = GetNextWindow(hWnd, GW_HWNDLAST)
            
End Sub

VBAで再帰処理を実行

最近、ExcelVBAの再帰処理の方法を人から教えてもらったので、以前断念したフォルダ一覧の取得をVBAで試してみました。
使い方の基本さえわかっていればかなり便利に使用できますのでこちらでご紹介します。

再帰処理とは

再帰処理とはあるプログラムの中で自分自身を呼び出して繰り返し処理を行うことです。
繰り返しの数があらかじめ定まっていない、ネストの階層がわからない場合など一般的な繰り返しが適用しにくい場合に有効な処理となります。

再帰処理の実例

再帰処理はいつでもどこでも使うものというより特定の状況で知っておくとめちゃくちゃ便利なものだと思います。
今回は再帰処理を用いて「フォルダの一覧を取得」するコードをご紹介します。

Sub フォルダとファイル一覧を取得()

    '参照設定「MicrosoftScriptingRuntime」を有効にしておく
    Dim fso As New FileSystemObject
    '参照設定「Windows Script Host Object Model」を有効にしておく
    Dim wsh As New WshShell
    
    Dim tarPath As String: tarPath = wsh.SpecialFolders("Desktop") & "\マクロ"
    Dim tarFolder As Folder: Set tarFolder = fso.GetFolder(tarPath)
    Call recursion(tarFolder)
    
    Set fso = Nothing
    Set wsh = Nothing
    
End Sub

Sub recursion(ByRef f As Folder)

    Dim tarSubFolder As Folder
    
    For Each tarSubFolder In f.SubFolders
        Debug.Print tarSubFolder.Path
        Call recursion(tarSubFolder)
    Next

End Sub

デスクトップにある「マクロ」ファイルの下部にあるサブフォルダを全階層にわたり取得してイミディエイトに出力するコードになります。

Subプロシージャの「recursion」（再帰）の中で、 ①サブフォルダを取得して、②そのフォルダオブジェクトを引数にして自分自身をCallで呼び出す作りになっています。

Subプロシージャが自分自身を呼び出すことができることに自分では考えが至らず、教わったときに衝撃を受けました。

この処理は対象となるフォルダが多いと終了するまでに時間がかかるのでご注意ください。

普通にデスクトップのパスを文字列で指定してもいいのですが、Windowsのユーザー名に依存せずにデスクトップを指定するためにWSH(Windows Scripting Host)のSpecialFoldersを使用しています。

Debug.printでイミディエイトウィンドウに表示する代わりに、配列に入れたりワークシートに出力することでより高速に処理ができるようになります。

ちなみにPythonではglobというライブラリを使用すれば、以下の1行で再帰処理を実行して全フォルダを取得することができます。

print(glob.glob('C:/Users/<ユーザー名>/Desktop/マクロ/**', recursive=True))

この辺りはまた別の記事でご紹介できればと思います。
今回の目的だけならPythonを使った方が便利そうですが、VBAでも再帰処理ができるというのは大きな発見でした。

同僚からの依頼でzipファイル格納のVBA検討

最近社内でメールのシステムが変更になり、これまで外部への添付ファイルは自動で「①zipに格納→②パスワード生成→③別メールでパスワードを送付」ができていたのですが、手作業でzipを作成することになりました。

元々パスワード付きzipファイルをメールで送るフロー自体が色々と問題を引き起こす可能性も指摘されているので、その運用自体止めてしまえばよい気もするのですが、セキュリティ対策の主観部署がこれまで行っていたzip格納を止める判断をしなかったらしく上記のように手作業の負担が増えていました。

今回はパスワード付きzipファイルに必要なファイルを連続で圧縮するExcelVBAコードを考えてみました。

zip格納に「LhaPlus」を使用する

以前こちらの記事で紹介していますが、zip格納を安定して実行するためにLhaPlusというフリーソフトを使用します。

Windows標準の機能を呼び出してzip格納をする方法もあるのですが、公式なサポート外らしくエラーが起こるし動作が不安定でした。
LhaPlusはコマンドプロンプトから操作ができるようになっていて、それを利用することでVBAからも自動操作が可能になります。

今回考えた自動zip格納VBAツールの仕組み

今回私が考えたツールの動作と業務のフローは以下の通りです。

事前準備

①zipファイルに格納したいファイルをフォルダごとにまとめてあるフォルダに格納

②zip変換用フォルダをまとめて格納しているフォルダにツールファイルも一緒に格納（vba162_zip一括返還211219.xlsm）

詳細は以下の画像のような状態です。

ツールファイルの画面

ツールファイルは以下のような画面で作成しています。
まずzipを作成するためのフォルダ一覧を取得して、パスワードを手入力したあと、zipを作成するフローを想定しています。

ツール操作実行手順

①フォルダ取得ツールでzipに格納したいフォルダ一覧を取得
「フォルダ取得」ボタンをクリックするとツールフォルダが格納されているフォルダをB1セルに表示し、その中のサブフォルダを一覧にしてA列に取得して入力

②作成するzipファイルのパスワードを入力（B列）
パスワードが規則性のあるものにするならVBAで自動化することもできますが、今回は手入力するフローにしています。

③zip格納ボタンをクリック
サブフォルダの中のファイルが同じ名前のzipに格納され、作成されたサブフォルダ「zip格納」の中にzipファイルが作成される

今回作成したVBAコード

①フォルダ取得

Sub フォルダ取得()
    
    Dim FSO As Object, WSH As Object
    
    Dim FoldPath As String
    Dim FolderName As String
    Dim ArrFolderName() As String
    
    Dim i As Long, k As Long
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FoldPath = ThisWorkbook.Path

    Cells(1, 2) = FoldPath
    i = 0
    FolderName = Dir(FoldPath & "\*", vbDirectory)
    Do While FolderName <> ""
        If InStr(FolderName, ".") = 0 And FolderName <> "zip格納" Then
            ReDim Preserve ArrFolderName(i)
            ArrFolderName(i) = FolderName
            Cells(i + 4, 1) = FolderName
            'Cells(i + 4, 2) = Left(Cells(i + 4, 1), 4)
            i = i + 1
        End If
    FolderName = Dir()
    Loop
    
End Sub

②zip格納

Sub サブフォルダzip格納()

    Dim Cmd As String
    Dim ArrFileName, FileName
    Dim FSO, WSH
    Dim 前FoldPath, 後FoldPath

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set WSH = CreateObject("Wscript.Shell")

    WSH.CurrentDirectory = "C:\Program Files (x86)\Lhaplus"

    '前FoldPathに格納されているサブフォルダをzip格納して後FoldPathに格納
    前FoldPath = Cells(1, 2)
    後FoldPath = Cells(1, 2) & "\zip格納"

    'zip格納用のフォルダ作成
    If FSO.FolderExists(後FoldPath) = False Then
        FSO.CreateFolder 後FoldPath 'フォルダ作成
    End If

    '後で使用する対象ファイル一覧表が残っていたら削除
    If FSO.FileExists(前FoldPath & "\圧縮リスト.txt") = True Then
        FSO.DeleteFile 前FoldPath & "\圧縮リスト.txt"
    End If

    Dim i
    i = 4
    Do Until Cells(i, 1) = ""
        ArrFileName = ""
        FileName = Dir(前FoldPath & "\" & Cells(i, 1) & "\*.*", vbNormal)
        Do While FileName <> ""
            If ArrFileName <> "" Then
                ArrFileName = ArrFileName & vbCrLf & 前FoldPath & "\" & Cells(i, 1) & "\" & FileName
            Else
                ArrFileName = 前FoldPath & "\" & Cells(i, 1) & "\" & FileName
            End If
        FileName = Dir()
        Loop

        'コマンドプロンプトは文字数の上限があるので、対象ファイル一覧を「圧縮リスト.txt」に入力
        With FSO.CreateTextFile(Cells(1, 2) & "\圧縮リスト.txt")
            .WriteLine ArrFileName
            .Close
        End With

        'cells(i,2)がPassword 空欄ならパスワード設定なしでzip格納
        Cmd = "Lhaplus.exe /c:zip /n:" & 後FoldPath & "\" & Cells(i, 1) & ".zip" & " /p:" & Cells(i, 2).Text & " /l:" & Cells(1, 2) & "\圧縮リスト.txt"

        WSH.Run "%ComSpec% /c " & Cmd, 7, True

        FSO.DeleteFile Cells(1, 2) & "\圧縮リスト.txt"

    i = i + 1
    Loop

    Set FSO = Nothing
    Set WSH = Nothing

End Sub

動作確認の動画とあとがき

今回作成したコードを実行した動画は以下の通りです。

パスワード付きzipファイルをメールで送る文化には賛否両論ありますが、私の会社含めまだまだ根強く残ると思います。
自動サービスがなくなっていってしまう中手作業でこの処理を続けるのは結構つらいと思うので自動処理を考えてみました。

今回ご紹介したコードはコマンドプロンプトを起動している時間PCを使えない（キャンセルしてしまう可能性がある）ので、大量のファイルをzipに格納する場合、別のPCを使うか休憩時間前などに実行だけして休憩時間中に作成することをおすすめします。

連想配列（Dictionary）で一つのキーに対して複数のアイテムを格納する方法を検討

事務仕事を行っているとVBAのほかExcelの関数も使用する機会が多いです。

中でもVlookup関数やSUMIFS関数の頻度が高いのですが、これらの関数は対象の行数が多いと結果の表示に時間がかかることがあります。
（Office2016からVlookup関数は高速化されましたが、VBAの中で組み込むと計算が終了する前に次の処理に移ってしまったり、速度が遅かったりします。）

以前から連想配列（Dictionary）を用いてこれらの関数と同様の処理を高速にする方法をご紹介していますが、Dictionary型はキーとアイテムが一対一の関係にあるので、複数のアイテムを参照したい場合、都度Dicrionaryを宣言するのが手間になります。

今回はこの問題を解消した、複数カラム（アイテム）を参照する方法をご紹介します。

連想配列（Dictionary）で一つのキーに対して複数のアイテムを格納するには配列を使う

手順の考え方を先にお伝えすると、配列を使用することで一つのキーに対して複数のアイテムを持つことができるようになります。
配列の使い方は以下2通りが想定されました。

①一つのDictionary型のオブジェクトを宣言して、一つのキーに対してアイテムにセル範囲を格納した配列を割り当てる

②Dictionary型のオブジェクトを配列として宣言して、一つのキーに対して一つのアイテムを格納する。

少しイメージがつきにくいと思いますので、サンプルシートを用いて具体的な手順を記載します。

連想配列を用いて集計をするためのサンプルシート

ある会社における店舗ごとの3か月ごとの売り上げ実績表のイメージになります。

A列に店固有のコード・B列は店舗名称になります。
C列には商品コードが入っていて、D列から後は3か月分の数量と原価・売価が書いてある表です。

サンプルで用意したこちらのシートは店舗数が77店舗、行数は約40,000行となっています。
Excelで加工するワークシートとしては容量が大きめかと思います。

こちらの数量・原価・売価について連想配列を用いて店舗ごとに集計するというのが今回ご紹介するコードの目的になります。

また、同じ処理はSUMIFS関数やピポットテーブルを使えば行うことができます。
ただし、SUMIFS関数は処理が遅い、ピポットテーブルはVBAで実行すると独特の挙動になるため、準備と後処理が面倒くさいのがネックになります。

その点連想配列を用いればスマートかつ高速に処理が可能です。

①一つのキーに対してアイテムにセル範囲を格納した配列を割り当てる

dict実績という連動配列を宣言し、店舗コードをキーに、その行に含まれている実績を配列に格納します。
重複されるデータは繰り返し処理を用いてアイテムの配列に値を追加していく流れになります。

こちらで処理を実行すると、なぜかよくわからないのですが、セルの値が更新される不具合（？）が生じました。
実績自体は別シートに出力するので、もともとのシートは別に保存しておけば大丈夫かとも思いますが少し不気味な結果です。

セルを配列に格納する場合はセルの値を格納するというよりは、セルオブジェクトを配列に格納していると思われます。
そのため、加算をしたものがダイレクトにセルの値に反映されたと推測されるのですが、通常セルを配列に格納してもこの事象は起こらない気がしますので、正しいかどうかは不明です。

どのような原因にせよ連想配列のアイテムにセルを格納した配列を用いるのはあまり良くなさそうです。

一応、セルの値を配列に格納して更新する方法も試したのですが、こちらはセルの値が加算されず、最初に格納されたアイテムだけが吐き出される結果になりました。

こちらも不具合かもしれませんが、私には判断がつきませんでした。連想配列の挙動は少し不思議な感じがします。
それにそもそも最初にArray関数を使うところの記述が面倒で、要素数が増えるとかなり辛いのでそもそも却下です。

②Dictionary型のオブジェクトを配列として宣言する

上記の2つの配列を使う方法がうまくいかなかったので、他に方法を検討して思いついたのがこちらの方法です。
若干手順が面倒ですが、繰り返し処理を付け加えるだけで上記①と似た手間になるので私としては現在この方法が最も現実的かと思います。

先ほどとは違いDictionary型を配列として宣言し、15個分の連想配列を繰り返し処理で準備します。

吐き出すときはdict実績(インデックス番号)(“キー”)で出力できるようにして、かつ列番号とインデックス番号を揃えておくことで見やすくもなります。
こちらの処理は問題なく動きました。

キー一覧を入力するのが面倒？

連想配列（Dictionary）を使用するようになって行数の多いデータの加工が楽になったのですが、連想配列を使用する際によく使う「キーの一覧を別シートに出力する方法」がないか調べてみたのでその手順についてご紹介します。

連想配列のキー一覧を出力するケースとしては、SUMIFS関数の代わりに連想配列を使用した場合などがあります。
キー一覧を別シートに出力して、その右に連想配列に格納されている集計結果を表示させることが多いと思います。

これを知らないとせっかく連想配列を用いていても、別シートを作成する際に元シートのキー部分をコピーして貼り付け後に重複削除をするという面倒な手順を踏むことになります。

サンプルシート

サンプルシートは前回こちらの記事で使ったものと同じものになります。
商品の売り上げ一覧表の中で商品ごとの金額の合計を別シートに出力する用途をイメージしたものです。

前回ご紹介したコードでは、すでに重複のないJANコードの一覧はすでに別シートに出力している状態でVBAを実行していましたが、今回はその重複のないJANコード一覧も出力するフローを想定しています。

連想配列のキー一覧を出力する方法①-Keysプロパティを使用-

まずオーソドックスな方法です。
連想配列に格納後、Keyプロパティでキーの一覧を取得します。

前回ご紹介したコードとほぼ同じですが、連想配列の宣言の時に参照設定を使用する方法にしないとKeyプロパティは参照できないようです。

この方法で当初コードを書いていたのですが、Keys一覧の出力がものすごく遅くて悲しくなります。
せっかく連想配列を使用しているのが台無しになるレベルでした。

そのため、次の方法を検討してみました。

連想配列のキー一覧を出力する方法②-通常の配列を使用する

連想配列を使用する一番の理由は重複を判定するメソッドがあることですので、こちらを活用してキーを別の配列に格納する方法を考えました。

具体的にはキーとアイテムを連想配列に格納するタイミングで、キーを別の配列に格納しておいて、後でキーを格納した配列を呼び出すというフローです。

こちらのコードを実行すると明らかに先ほどのコードよりも高速なことが確認できました。
連想配列のキーを取り出す必要がある場合、別の配列にキーの一覧を格納して取得するフローが一番高速になると思います。

連想配列を使用する際の最速の処理方法について

キーを取り出す場合以外に、①連想配列にキーとアイテムを格納する際や、②連想配列の一覧を出力する際も配列を使用することでより高速化することが可能です。

使用するのはセルを二次元配列に格納して一気に値を取得・値を入力する方法になります
興味がある方はこちらのページをご参照ください。

今回の処理においては1秒以下の実行時間まで短縮できました。
セルを配列に格納する方法は慣れればすごく有効な手段になりますので、使いこなせるならぜひ覚えていただくのをおすすめします。

行数が多いExcelシートを操作する際の集計作業の高速化

以前にVlookup関数の代わりにVBAでDictionaryオブジェクトを使用して高速化する手段をご紹介しました。
この方法はVlookup関数以外の他の関数についても適用することができ、使いこなせるようになるとかなり便利です。

今回はDictionaryオブジェクトを使用してSUMIFS関数で算出される計算の高速化をご紹介します。

SUMIFS関数とは

SUM関数・IF関数を使用される方にとってはSUMIFS関数を使ったことがなくても字面でイメージは湧きやすいと思いますが、SUMIFS関数は「範囲の中で特定の条件に一致するものを合計する」関数です。

私は売上一覧の明細の中から特定の商品の売上を抜き出したり、同じものが何行も含まれている一覧から商品カテゴリごとの売上を算出するのによく使用しています。

SUMIFS関数と似た関数でSUMIF関数というものもあります。
SUMIF関数はSUMIFS関数とよく似ていますが、合致する条件項目を1つしか設定できません。

SUMIFS関数の方が条件設定を複数設定できる分汎用性が高く、私は基本的に条件が1つでもSUMIFS関数を使用しています。

Dictionaryオブジェクト（連想配列）について

Dictionaryオブジェクトは特定のキーに対するアイテムを設定することで、該当のキーに対するアイテムを素早く呼び出す仕組みです。

通常のワークシート関数では行数が増えるごとに処理に時間がかかりますが、Dictionaryオブジェクトを用いた計算では処理時間が大幅に短縮されるのが特徴です。

また、キーは一意のものになりますので重複データから必要なものだけ取り出すときにも便利です。

Dictionaryオブジェクトを用いたSUMIFS関数と同様の処理の高速化

用意したサンプルシート

用意したシートは以下のようなものになります。
シート1はJANコードと品名・包装単位・金額（仮）を記載していて、品名は何度か重複しています。
全体の行数は約27万行、重複除いた品名の種類は約2万行で、重複の削除機能を使ってシート2にJANコードの一覧を用意しています。

処理内容について

今回私が作成したコードは以下のものになります。

まずシート1のJANコードと金額をDicrionaryオブジェクトに格納します。

Dictionary関数に格納する際、Vlookup関数の代わりの場合は重複分を無視することで同じ挙動になりますが、SUMIFS関数の代わりに使用する場合は以下の条件分岐を用います。

・①JANコードがキーとして登録されていない場合：キー（JANコード）とアイテム（金額）を追加
・②JANコードがキーとして登録されていない場合：キー（JANコード）に登録されているアイテム（金額）に現在の行の金額を追加

処理時間の比較

上記Dictionaryオブジェクトを用いた処理時間と通常通りSUMIFS関数を用いた場合の処理時間について比較してみました。
比較するのに用いたコードは以下の3通りです。

①VBAでWorkSheetFunctionのSUMIFS関数を使用する

②計算式としてSUMIFS関数をセルに格納する

③計算式としてSUMIFS関数をセルに格納するが、1つ目のみ関数を入力、下の行についてはコピペをする

処理時間の違いは以下の表の通りです。

Dictionaryオブジェクトを用いることで処理が圧倒的に高速になりました。

関数自体のコピペも遅くはないですが、もっと条件分岐を複雑にすれば差はより大きく広がります。
WorkSheetFunctionなどは行数が増えると処理にかなり時間がかかることから、ある程度たくさんの行を扱う業務では使いにくいと思います。

ピポットテーブルも方法としてはありですが、そのあとの加工がやりにくい、フォーマットが自由に設定できないなどがあるため、今回のように単純に関数の代わりに高速処理ができるVBAのコードは必要な場面も多いと思います。

決まった時間に実行することが決まっているVBAの完全自動化を目指す

今回はタスクスケジューラを用いて定期的にVBAを自動実行する方法についてご紹介します。

最初だけ設定・準備が少し面倒ですが、これを設定しておくことで面倒な操作を完全自動化することができるようになります。

ダブルクリックだけでVBAは実行できるので特に時短にならないのでは？と思う方もいるかと思いますが、このタスクスケジューラを用いての自動実行については完全自動化による「作業忘れの防止」と「頻回の操作」を目的としています。

例えば私が実際に使っているものとしては「1週間に1回あるサービスの利用状況を集計してメールで報告する」や「同僚のスケジュールを毎日全員に送信する」というような処理が完全に自動化されます。

処理にかかる時間がVBAを手動で実行したとして1週間に1回10分・毎日1回5分であったとしても、他にやらなければならないことがあったりするとつい忘れることもあると思います。

またこの小さな作業が積み重なるとそこそこ時間がとられることになります。
完全自動化することにより、まず作業忘れを完全になくすことが可能です。

さらに作業時間が0なので「毎日1時間おきに作業する」や、「1か月のうち1日だけの作業」などもあらかじめ登録しておけば手間も負担も全くありません。
以上のことから手作業でVBAを実行する自動化のレベルとは明らかに1ランク上の自動化が可能になります。

タスクスケジューラについて

タスクスケジューラはWindowsに標準の機能で、実行するための条件（トリガー）と実行内容（操作）を設定しておくことで、条件を満たした場合に特定の操作を行うことが可能です。

主にアプリケーションのアップデートの確認などに使用することが多いようですが、我々もこの機能を活用して自動処理の仕組みを作ることが可能です。

実行内容はBatファイルを開くという操作を指定しておくのが最も手間がかからないらしく、VBAを実行するためにはBatファイルとVBSファイルを用意して順に実行するというフローを使うことが多いようです。（詳細の手順は後で示します。）

タスクスケジューラでVBAを実行する手順の概要

タスクスケジューラでVBAを実行する方法としては①VBSファイルのみを使用する方法と②VBSファイルとBatファイルを使用する方法の2通りがあります。

私は汎用性と利便性を考慮して①VBSファイルのみを使用する方法をよく使っていますのでこちらを紹介します。

タスクスケジューラでVBAを実行する手順

(1)実行したいVBAコードを記載したファイル

(2)VBAを実行するためのVBSファイル

(3)VBAを描いたファイル・VBSファイルを同じフォルダに格納する

①タスクスケジューラでVBSファイルを起動

②VBSファイルでVBAを実行する

タスクスケジューラでVBSファイルを起動→VBSでVBAが実行されるというフローになります。

前回VBSを用いてVBAをダブルクリックで実行する方法をご紹介しましたが、VBSを用いてダブルクリックする方法は単体ではそこまで便利ではなく、今回ご紹介するタスクスケジューラを用いた自動実行と組み合わせて初めて本領を発揮します。

タスクスケジューラでVBAを実行する設定方法

1.VBSファイルの作成

先ほど概要をご説明した通り、VBAのコードを書いたファイルのほか、VBSファイルを作成してVBS起動→VBA実行のフローを構築します。

また、VBSの中でこの格納したフォルダのパスを取得しておくことで使いまわす際に便利なようにしています。

VBSファイルはテキストエディタなどでコードを書いた後、拡張子をそれぞれ「.vbs」に変更すればOKです。
今回例として下記の2つのファイルを作成して、デスクトップの「タスクスケジューラ」というフォルダに格納しています。

Dim ExApp:Set ExApp = CreateObject("Excel.Application")
Dim FSO:Set FSO = CreateObject("Scripting.FileSystemObject")
Dim WSH:Set WSH = CreateObject("Wscript.Shell")
'格納されているフォルダのパスを取得(ExcelVBAで言うところのThisWorkbook.Pathみたいなもの)
Dim objPath:objPath = FSO.GetParentFolderName(WScript.ScriptFullName)

ExApp.visible = true
WScript.Sleep 3000

'ファイル開く
ExApp.Workbooks.open objPath & "\" & "02_タスクスケジューラでVBA実行.xlsm"

'マクロ実行
ExApp.Application.Run "メッセージ表示"

'ファイルを閉じる
WScript.Sleep 3000
ExApp.Quit

set ExApp = Nothing
set objPath = Nothing
set WSH = Nothing
set FSO = Nothing

Sub メッセージ表示()
    MsgBox "実行しました"
End Sub

VBSファイルをダブルクリックした場合にExcelファイルが起動し、マクロが実行できればOKです。

今回の場合メッセージボックスが表示されるのでOKをクリックすると作業が次に進み、ファイルが閉じる仕様となります。

2.タスクスケジューラの設定

上記3つのファイルが作成できて、手動できちんと動作することが確認できたらタスクスケジューラでBatファイルを起動する準備をしていきます。

今回は1時間に1回毎日実行するように設定してみます。
設定項目の左側を毎日に指定、詳細設定の繰り返し間隔を1時間に設定してOKをクリックします。

プログラム/スクリプトの欄に作成したVBSファイルのフルパスを入力します。
「参照」ボタンをクリックしてファイルを選択すれば入力されます。

また、開始（オプション）に格納されているフォルダのパスを入力します。
詳しくは私も把握していませんが、これを忘れると起動しないので、忘れずに入力するようにしましょう。

右の実行ボタンをクリックしてきちんと起動すれば決まったタイミングから自動実行が開始されます。

これらのファイルは一回作っておくとあとはコピペをベースに少し設定を変更すればすぐに使えるようになるので、慣れてくると簡単に作れるようになります。

最初の設定だけ少し面倒ですが、そのあと勝手に仕事が進むので私はかなり重宝しています。
また便利な使い方など思いついたらアップするようにします。

マクロを実行するのが面倒な場合がある

ショートカットやボタンで実行できるように設定していたとしても、毎回ファイルを開いてマクロを実行するのが面倒に感じることがあります。

一日に何回も実行する必要がある場合、特に面倒に感じるのですが、イベントプロシージャのようにファイルを開くたびに毎回勝手に実行されるのも困るし…と悩んでいたところVBS（VBScript）を使う便利な方法がありましたのでご紹介します。

この方法を使えば作成したVBSファイルをダブルクリックするだけでマクロを実行できるようになります。

またこの方法を少し応用すれば「1日1回朝8時」や、「平日1時間おきに実行」などパソコンに登録したタイミングで自動実行することができるようになります。
まず今回はダブルクリックでファイルを開いて実行する処理ができるVBSファイルの作成方法についてご紹介します。

マクロ（VBA）をボタン一つで実行する方法について

VBAを実行するためにVBSファイルというものを作成します。
VBSファイルはマクロ（VBA）を実行するためのコードを記入したもので、テキストで簡単に作成できます。

VBSの基本的な文法はVBAとほぼ同じですし、マクロ（VBA）を実行するためのコードはすごく簡単なので、少しVBAを触っている人なら手間取らずに作成できると思います。

コードを書いた後のテキストファイルは保存後に拡張子を「.txt」から「.vbs」に変更することで、VBSファイルとしてパソコンからプログラムを実行することができるようになります。

拡張子が表示されていない方はどこかのフォルダを開いた際の表示タブの中にある「表示/非表示」項目の中の「ファイル名拡張子」にチェックを入れましょう。

Excelのマクロ（VBA）を実行するサンプルコード

Excelのマクロ（VBA）を実行するサンプルコードは下記の通りです。
下記は同じフォルダの中の「ファイル1.xlsm」ファイルの「マクロ1」というプロシージャ名のマクロを実行します。

Dim ExApp:Set ExApp = CreateObject("Excel.Application")
Dim FSO:Set FSO = CreateObject("Scripting.FileSystemObject")
Dim WSH:Set WSH = CreateObject("Wscript.Shell")
'格納されているフォルダのパスを取得(ExcelVBAで言うところのThisWorkbook.Pathみたいなもの)
Dim objPath:objPath = FSO.GetParentFolderName(WScript.ScriptFullName)

ExApp.visible = true
WScript.Sleep 3000

'ファイル開く
ExApp.Workbooks.open objPath & "\" & "ファイル1.xlsm"

'マクロ実行
ExApp.Application.Run "メッセージ表示"

'ファイルを閉じる
WScript.Sleep 3000
ExApp.Quit

set ExApp = Nothing
set objPath = Nothing
set WSH = Nothing
set FSO = Nothing

VBSファイルはプロシージャ名などを書いたり、Sub～End Subなどの記述は必要なく、書いたものを即座に実行してくれます。

ExcelVBAからほかのOfficeソフト（AccessとかOutlookなど）を呼び出すときと同じく、まずはExcelを呼び出す設定をします。
Excelをオブジェクト型の変数に格納したあと、対象のファイル名とマクロ名（プロシージャ名）を指定することで実行できるようになります。

ファイルを開いたり、マクロを実行したりする間には少し余裕を持って待機時間を設定しています。
最後に対象のファイルを閉じるように設定しておくとダブルクリックするだけで処理が完結します。

マクロを実行したExcelファイルそのものを使用したり確認したりする場合、最後の閉じる操作は不要ですので削除してください。
（VBAと同じくアポストロフィ「’」でコメントアウトも可能です。）

WSHを用いてデスクトップなどの特殊フォルダを取得したり、FSOでVBSの格納フォルダを指定してから相対パスなどを使って対象ファイルを指定することも可能ですが、別記事でお伝えする定期実行などをする際にうまく働かないことがあるようです。

ですので個人的にはフルパスで対象ファイルを指定することがおすすめです。

Accessのマクロ（VBA）を実行するサンプルコード

基本的にAccessについてもExcelとほぼ同じコードになります。
以下は同じフォルダの中の「データベース.accdb」ファイルの「マクロ1」というプロシージャ名のマクロを実行します。

Dim AcApp:Set AcApp = CreateObject("Access.Application")
Dim FSO:Set FSO = CreateObject("Scripting.FileSystemObject")
Dim WSH:Set WSH = CreateObject("Wscript.Shell")
'格納されているフォルダのパスを取得(AccessVBAで言うところのApplication.CurrentProject.Pathみたいなもの)
Dim objPath:objPath = FSO.GetParentFolderName(WScript.ScriptFullName)

AcApp.visible = true
WScript.Sleep 3000
'ファイル開く
AcApp.OpenCurrentDatabase objPath & "\" & "データベース.accdb"

'マクロ実行
AcApp.Application.Run "マクロ1"

'ファイルを閉じる
WScript.Sleep 3000
AcApp.Quit

set AcApp = Nothing
set objPath = Nothing
set WSH = Nothing
set FSO = Nothing

これらは手作業でマクロを何度も実行する際に役立ちます。
より自動化の幅を増やせるようにするため、次はこちらでマクロの定期実行の方法をご紹介します。

行数が多いExcelシートを操作するのにVBAで関数を使うと遅い

VlookUp関数をVBAで使うにあたって、対象となるデータが少ない場合は特に問題ないのですが、多くなるにつれてデータ処理に時間がかかります。

私は仕事で20万行のデータに10万行のマスタデータからコードを抽出する必要があり、VBAでWorkSteetFunctionのVlookUp関数を使用すると数時間単位で時間がかかってしまうことがありました。

行数の多いExcelについてはVBAの処理速度が遅くなってしまうことが多くの人にとって悩みになると思います。

私の事例では連想配列（Dictionaryオブジェクト）を使用してコードを書きなおすことで処理速度が格段に速くなりましたので、連想配列（Dictionary）オブジェクトの使い方について何回かに分けてご紹介します。

今回はVlookup関数の代用としてDictionaryオブジェクトを使用する方法についてご紹介します。

Dictionaryオブジェクトの使用するための事前準備

事前準備についてはこちらのページに記載しておりますので詳しく知りたい方はリンク先をご確認ください。

また、セルの値を取得するのにそのまま取得するのではなく、配列に一度格納する方法を使用しております。
これはVBAの高速化の手順で最も有効な手段の1つです。

詳細はこちらのページに記載しておりますので併せてご確認いただけるとありがたいです。

今回処理を行うワークシートについて

私が今回業務で行ったものの一部になるのですが、商品の仕入伝票一覧に商品マスタの「YJコード」というコードを結合するものです。
（データの内容は変更していますので、世の中に存在しない商品などが記載されています。）

商品の仕入一覧が約20万行、商品マスタが約10万行あり、VlookUpを使用するだけでは時間がかかっていました。
サンプルの伝票一覧と商品マスタは下記のようなイメージです。

VlookUp関数を使用した値の記載方法について

Dictionaryオブジェクトを使用したVBAコードがどれくらい高速になるかを検証するために、通常のVlookUp関数をWorkSheetFunctionで呼び出した場合と比較することにします。

配列に格納してからセルの値を変更するものも用意しています。

コードは「伝票一覧」の最後の列に「商品マスタ」に記載されている「YJコード」を追記するものになります。

こちらはセルに直接値を書き込むのではなく、配列に格納して変更を加えてから一括でセルに書き込むフローになります。
一般的な処理ではステップは増えますが処理速度が高速になります。

Dictionaryオブジェクトを使用したVBAの使用方法とサンプルコードについて

キーは商品固有の値「JANコード」としています。
キーに持ってくるのは重複のないものなら何でも大丈夫ですが、半角・全角・ひらがな・カタカナが全部揃えないといけないので日本語の名称などは使いにくいと思います。

こちらもそのままセルの値を取得するか、もしくはセルを配列に格納してから参照、書き込みをするかの2パターン用意しています。

処理速度の差について集計

①WorkSheetFunctionでVlookUp関数を呼び出して使用する方法、②今回の連想配列（Dictionaryオブジェクト）を使用する方法を比較してみました。

それぞれの方法において、VBA高速化で有名なのセル値を配列に格納して抽出・書き込む方法も試しています。

商品マスタシート・伝票シートいずれも行数は100,000行にして測定した速度結果は下記の通りです。

WorkSheetFunctionでVlookUp関数を用いた場合、配列をセルに格納することで逆に速度が著しく低下してしまったのは驚きでした。

原因としては私が実験した環境において、「セルの値を配列に格納することでメモリが上限に達してしまったこと」が推測されますが、詳細は不明です。

セルを配列に格納した際の速度アップはセルの参照・セルへの値の書き込みの部分が高速化されることによるのですが、WrorkSheetFunctionのVlookUp関数はそのものの処理が重く、セルの値の参照やセルへの書き込みが律速ではないようです。

そしていずれにしても①セルの値を配列に格納して②Dictionaryを使用するという両方のステップを行えば最も高速に処理が可能になることがわかりましたので、今後はこの方法を使っていこうと思います。
11分かかる処理が4秒になるのはものすごい改善だと思います。

今回はVlookUpの代わりになるDictionaryオブジェクトを使用する方法をご紹介しました。
最初のKeyとItemの値を格納する方法を変更すればSumIfsなどの代わりとしても使えるようになりますのでその方法については別の記事で紹介します。

行数の多いExcelシート操作の高速化テクニック

最近仕事で20数万行の商品の仕入伝票一覧に、4万行くらいの価格一覧表を当てはめて、平均値・最大値を算出したり、10万行の商品マスタから単価・売価などの情報を呼び出すという業務がありました。

その際、VBAの中でWorkSheetFunctionのVlookupを使ったり、ワークシートにVlookupを代入して計算したのですが、とてつもなく時間がかかる（全部の処理で10時間くらいかかったと思います。）ので高速化の手段を探ってみました。

その中で連想配列を使う手法が最も効果が高く、全体の処理が5分もかからずに完了するように高速化ができたので、今回は連想配列を使用した高速化の方法を何度かに分けてご紹介します。

Excelのバージョンが2016からはワークシートのVlookup関数も早くなっていますが、VBAのWorkSheetFumctionで呼び出したVlookupは速度が速くなっていないですし、Sumifs関数やCountifs関数はそもそも対応していなかったりします。
一方、連想配列を使用する方法は様々な用途に利用できて処理速度も高速なため、まだまだこれからも利用価値は高いと思います。

今回は連想配列を使う方法の概要と事前準備についてお伝えします。

連想配列とは

連想配列とは「キー」と「要素」が一つのセットになった配列のことです。

通常の配列はインデックスが通常0から始まる数値で割り振られますが、連想配列においては「キー」をインデックスとして「要素」を呼び出すことが可能になります。

連想配列の記載方法は後ほど記載しますが、イメージとしては下記のような違いになります。
普通の配列の場合、配列に格納された値はインデックスの番号で呼び出すことが可能です。

連想配列はキーを使用してItemの値を取得することができます。

連想配列に格納するにはキーと要素を両方記述しないといけないため、通常は繰り返しの処理を用いてセルの値などを取得します。

格納した連想配列から値をキーで呼び出すという手順はVlookup関数の使い方と似ているため、Vlookup関数を使ったことがあってVBAを使える人なら比較的なじみやすい気がします。

連想配列を使用する方法について

VBAで連想配列を作るためにはDictionaryオブジェクトというものを使用します。
Dictionaryオブジェクトを使用するためには参照設定をする方法としない方法があります。

参照設定をする方法

参照設定をする方法ではVBAのウインドウでメニューの中の「ツール」→「参照設定」を選択し、「Microsoft Scripting Runtime」にチェックをつけてOKをクリックします。

連想配列を宣言して使用開始するには下記のように宣言します。

配列名は何でもいいのですが、一般的にDictionaryオブジェクトをわかりやすいように「Dic〇〇」や「dic〇〇」とすることが多いようです。

参照設定をしない方法

参照設定をしない場合、CreateObjectで「Scripting.Dictionary」を指定します。

参照設定せずに使用できますが、ヒントとか予測のプロパティが表示されないため、慣れていない人は参照設定をしておく方が無難かもしれません。

私は慣れていないですが、ヒントを参考にすることが少ないのでこちらの方法をよく使っています。
（Scripting.Dictionaryではないと思いますが、参照設定がバージョンで異なっていて動かないトラブルも避けられますし。）

下記のリンクから実際に使う手順についてご紹介します。