保存する前に動作させたVBAがフリーズ

保存するのを忘れてVBAコードを実行した結果、Excelがフリーズしてもう一度コードを書きなおすのは多分あるあるだと思うのですが、この間も懲りずにやらかしました。

そこでコード実行時にバックアップを作成するコードを考えてみましたのでご紹介します。

通常のファイルの保存での問題点を解決するSaveCopyAsメソッド

ファイルをバックアップ用に保存することを考えた場合、通常の上書き保存（ThisWorkbook.Save）だと「保存前の状況に戻したい」場合に困ることがあります。

また、「名前を付けて保存（ThisWorkbook.SaveAs ○○）」だとコピーの動作後に名前をつけて保存したファイルが現在開いている状態になり、元のファイルは保存前の状態で閉じられた扱いになってしまいます。

理想的には①現在のファイルは保存前の状態で維持しつつ、②作成したツールをバックアップとして保存することで、この挙動をかなえてくれるのがSaveCopyAsメソッドです。
（FileSystemObjectのCopyFileだと以前の保存状態のものをバックアップに保存、今のファイルを新しく保存する運用でSaveCopyAsメソッドとはバックアップファイルと現在のファイルが逆になります。今回はSaveCopyAsメソッドの挙動が想定していたものでしたのでSaveCopyAsメソッドを利用します。）

実行前にマクロファイルをバックアップとして保存するコードの紹介

以下のコードをツールに組み込んでおいて、作成したコードの先頭に「Call 実行前にVBAを含むツールファイルを自動保存」の1行を入力しておくことでツールファイルが格納されているフォルダに「backUp」フォルダが作成され、ツールファイルのバックアップが保存されます。

元になるツールファイル自体は保存前の状態、バックアップファイルはツールの動作時の状態になりますので、フリーズしてしまったり、無限ループに陥って強制終了した場合などは「backUp」フォルダ内の直近で作成されたファイルを利用すればすぐに復旧可能です。

Sub 実行前にVBAを含むツールファイルを自動保存()

    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
    '参照設定「Microsoft Scripting Runtime」を設定している場合
    'Dim fso As FileSystemObject: Set fso = New FileSystemObject
    
    If Not fso.folderExists(ThisWorkbook.Path & "\backUp") Then
        fso.createFolder (ThisWorkbook.Path & "\backUp")
    End If

    ThisWorkbook.SaveCopyAs (ThisWorkbook.Path & "\backUp\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & Format(Now, "yyyymmdd_hhmmss") & ".xlsm")

End Sub

同僚からの動作の重いブックについて相談

私の勤務先の同僚から「原因がよくわからないが、処理が重くなってしまったファイルを改良して使いやすくしたい」と相談を受けました。
その際ちょっと変わった状況になっていたので、備忘録と情報共有の目的で記事にしておきます。

セルの結合があるので動作が重い？

同僚が言うには、セルの結合が入っているので処理が重くなっていて、また修正に手間がかかるのが困るとのことでブックを確認しました。
ざっくりとした内容ですが、1つのブックの中にシートは一つで、その中には3種類の研修について1日のスケジュールが書かれた表になっていました。

5分刻みでスケジュールを調整したいらしく、コマ数に応じて行数を変更してセルを結合する書式で、確かにセルの結合は複数使われていました。
ただ感覚的な判断ですが、100行15列くらいの使用でセル結合を多用しただけで動作が重くなるのは考えにくい気がしました。

以前に新しいブックにシートの全セルをコピーしてそのままペーストすると動作が軽くなったことがあるとも同僚が言っていたこともセル結合が影響していないのではないかと思うきっかけでした。

原因の調査と特定

とりあえず、変なところに情報が残っていてそれが悪さをしている可能性を考慮して使用していない行列をいったん削除してみても動作は変わりませんでした。
また、他のブックへのリンクも多少含まれていたのでリンクを切断してみたものの動作の重さは変わらなかったです。

次に同僚が以前に多少解消できたと話していた通りコピペで新しいシートに貼り付けようとしたら、PCがフリーズして動かなくなりました。
使用しているセルを選択してコピーしたので、フリーズする原因は使用している範囲（Range）上にあるということがわかりました。

そこで、試しにセルに含まれているオブジェクトを確認してみたところ無茶苦茶な数のテキストボックスが含まれていました。
後でVBAで数を確認したところ28,000個くらい配置されていましたw

誰かが何かのタイミングで思いがけず背景色・枠線なしのテキストボックスを作成し、行か列のコピーの際にそのテキストボックスも含めたコピーを繰り返した結果
ゾンビのように増えたテキストボックスが動作を重くしていたようです。

解決方法について

背景色・枠線なしの見えないテキストボックスが悪さをしているのは確認できましたが、選択するだけでフリーズしてしまう状況で、手作業での良い解決方法が思いつかず、VBAを使用してテキストボックスをすべて削除して解決を図りました。

使用したコードは以下の通りです。

Sub シート上のオブジェクトすべて削除()
    
    Dim x As Long: x = ActiveSheet.Shapes.Count
    Dim i As Long: 
    For i = x To 1 Step -1
        ActiveSheet.Shapes(i).Delete
    Next i

End Sub

こちらのコードを実行した結果、無事にテキストボックスはすべて削除され、サクサク動作するようになりました。
テキストボックスなどのオブジェクトを見えない状態で作成した際、気づかずに増殖して動作に悪影響を及ぼすことがあるのは新しい発見でした。
共有するファイルの扱いには気を付けようと思いました。

その他の改善点

今回動作が重い原因は隠れたテキストボックスだったため不要なテキストボックスを削除することで動作は軽くなりました。
ただ、コマ数に応じてセルの結合を変更するのはかなり手間そうでした。

そこで以前こちらの記事で紹介したセルの結合を切り替えるVBAコードを組み込んでショートカットを割り当て、スムーズにコマの入力と時間の変更ができるようにして提案しました。

Sub セル結合とセル解除切替()
    
    If Selection.MergeCells = True Then
        Selection.MergeCells = False
    Else
        Selection.MergeCells = True
    End If

End Sub

そもそものフォーマットの問題点と改善方法について

今回のワークシートの使い方については「データの格納場所」と「配布・閲覧資料」を同時に1つのシートで完結させようとしている点が問題だと思います。
またセルの結合自体がそもそもその後の加工に向かないので使わないほうが良いという話もあります。
あるべき使い方としてはデータの格納場所としてテーブルの形式で構造化されたデータを用意し、それとは別に閲覧用シートに出力する形をとるのが望ましいと思います。

ただし、あるべき形でExcelファイルを運用しようとすると、フォーマットの作り方においてほかのセルの値を呼び出したりする知識が必要だったり、構造化データを格納する意識が必要になったり、難易度が上がります。

Excelは手軽に利用できる反面、使用する多くの方が関数などのExcelを便利に使う知識がないケースも多いです。
個人的にはどこまでデータ管理の知識を落とし込めるかは使用者（達）次第になるので今回の運用も致し方ないと思っています。

要するにデータと配布資料が1か所に集まっていて構造化データになっていないし、セルの結合を使用していて編集に時間がかかるフォーマットだったとしてもVBA
を用いてセルの結合などを効率化することで、編集を簡略化してしまえば実際の運用上で問題になることはないと考えています。
特に今回使用したコードはすごく簡単なのでメンテナンスも不要ですし、扱いが楽なのも問題ないと思う理由です。

逆に構造化データの概念とかをいきなり説明してフォーマットを強引に変更したり、運用を強制したりした方が使用者（達）の反感を買ってしまったり、なじめなかったりして実業務に悪影響になることも多い気がします。
（効率的な業務を推進したい身としては悩ましいですが。）

InternetExplorerが2022年6月13日以降使用できなくなる？

先日ネットの記事でInternetExplorerが使えなくなるとの話がありました。
どうやらサポート終了日以降はIEを起動しても強制的にMicrosoftEdgeにリダイレクトされるとのことでした。

以前からIEはセキュリティ上の問題が指摘されていていずれ使えなくなるという話はありましたが、サポート終了日以降も起動くらいは問題ないと思っていたので、この対応にかなり焦りました。

手作業の業務についてはMicrosoftEdgeのIEモードを使用すればほぼほぼ問題ないのですが、VBAを使用したDOM（DocumentObjectModel）を取得する方法が一切使えなくなるのがネックでした。

今回私が慌てて代替の方法を色々と検討した結果、先人が素晴らしいコードを作成してくれているのを見つけました。
また、それを活用することで今までのIE操作で使用していたコードをほぼそのまま使用できることがわかりましたのでお困りの方にお伝えしたくコードと使い方をご紹介します。

VBAでIEを操作する方法の代替手段

一般的なブラウザ操作の自動化手段について

VBAでIEを操作して情報を取得したり、ブラウザ上の操作を自動化する方法についての代替手段はこれまで以下のものが挙げられていました。
ただ後述するようにこれらの方法では色々な制約があり、これらの方法は試してみたものの私の行っている業務の代替手段としては使用できませんでした。

①SeleniumBasicを使う

Pythonや他のプログラムなどでも使用されるSeleniumのVBA版を使用してブラウザの操作を自動化する方法です。

IEからDOMを取得する方法と少し挙動は異なりますが、どちらかというとIEからDOMを取得する方法よりSeleniumを使う方法の方が主流のため、ネット上で情報も多く手に入ります。

ウェブサイトのHTMLから特定の要素を簡単に特定できるCSSセレクタを使えて、Seleniumに慣れているエンジニアの方が多いからか、色々なサイトでSeleniumをおすすめされています。

しかし私のようにエンジニアではなく普段会社で事務仕事をしている場合Seleniumを使用する場合以下のような壁に当たります。

1.VBAでDOMを取得してIEを操作する場合と異なり、ブラウザの起動から終了までをすべてプログラムで操作する必要がある。

開いていたページをそのまま操作することができないので、二段階認証が必要なログインの処理などが間に入ると操作ができないケースがあります。

2.Seleniumを使っていることがサーバー側に伝わるためにページの情報が取得できないことがある

例えばGoogleのサインインした後の個人のページなどはSeleniumでアクセスしようとすると拒否され、操作ができないことがあります。

3.私も詳細がわからないのですが、SeleniumとWebドライバでブラウザを開こうとすると拒否されるケースがありました。

おそらく会社の社内ネットワークセキュリティのどこかに引っかかっていると思うのですが、原因は特定できておりません。
とりあえず環境次第でSeleniumは使用できない場合があるようです。

4.そもそもSeleniumBasicをインストールすることが禁止されている。

会社からの貸与PCは自由にアプリケーションをインストールすることができない場合も多く、私もここが大きな問題となります。

また、そのほかVBAで使用するためのSeleniumBasicは少し前から更新されておらず、ドライバを手動で更新してから使用しないといけないなど今後の安定的な使用について若干の不安がありました。

②PowerAutomateDeskTopなどのRPAを使用する

Windows標準のRPAであるPowerAutomateDeskTopやその他のRPAツールで操作を代替する紹介をされている場合も多いです。

ただ、専門的な操作をしようとすると有料のサービスを使用する必要があることや、IEからDOMを取得するVBAを書く場合と異なる操作が多く、習熟するのに少し時間がかかる印象でした。

満を持してのEdgeを操作するVBAコードの登場

Seleniumは使えず、（作り慣れていないので）RPAを作るには時間がかかるうえに大掛かりな変更が必要になることから別の手段を検討していたところ、以下の2つの記事からEdgeでDOMを取得して操作する方法が紹介されていました。

〇https://www.ka-net.org/blog/?p=6033

〇https://social.msdn.microsoft.com/Forums/ja-JP/c0765a67-b8ba-40dc-ac52-aac7be9f1d6a/ie123981246912509125401248812364202224180626376152608512395320662?forum=vbajp

上の初心者備忘録は専門的な知識を使ったコードをたくさん紹介してくださっているサイトで、私も普段よく参考にさせていただいています。

この記事は以前のChromiumベースになる前のEdge操作について書かれていますが、新しいEdgeについてもIEモードではClass「InternetExplorer_Server」が存在していて、基本的に同じ処理ができるそうです。

MicrosoftEdgeのIEモードの操作サンプルコード

上記の2つの記事の情報を合わせて、かつ長くなるDOM取得部分を一個のコードで使いまわせるように以下の通りコードを書いてみました。

以下の「検索実行」のプロシージャを実行するとEdgeを開き、IEモードに切り替えた後、Googleで「VBA・GAS・Pythonで業務を楽しく効率化」を検索するという操作を自動化しています。

宣言部分

Option Explicit

#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If

Private Declare Function GetTopWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, lParam As Long) As Long
Private Const GW_HWNDNEXT = &H2
Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hWnd As Long, ByVal wFlag As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function IIDFromString Lib "ole32" (lpsz As Any, lpiid As Any) As Long
Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
Private Const SMTO_ABORTIFHUNG = &H2

Private Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" (ByVal hWnd As Long, ByVal msg As Long, _
                            ByVal wParam As Long, ByVal lParam As Long, ByVal fuFlags As Long, ByVal uTimeout As Long, lpdwResult As Long) As Long
Private Declare Function ObjectFromLresult Lib "oleacc" (ByVal lResult As Long, riid As Any, ByVal wParam As Long, ppvObject As Object) As Long
        
'オブジェクトの位置取得？
Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

Private Declare PtrSafe Function IUnknown_QueryService Lib "shlwapi.dll" _
    (ByVal punk As IUnknown, guidService As GUID, riid As GUID, ppvOut As IAccessible) _
        As Long

Private hIES As Long
Private IeEdge As Object
Private hWnd As Long

'EdgeをIEモードに切り替える場合に使用する
'対象ウインドウを最前面にする
Private Declare Sub SetForegroundWindow Lib "user32" (ByVal hWnd As Long)

'キーボード操作
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
                                                ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
Private Const fKEYDOWN = KEYEVENTF_EXTENDEDKEY
Private Const fKEYUP = KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP

Private Const VK_UP = &H26
Private Const VK_Alt = &H12
Private Const VK_F = &H46
Private Const VK_RETURN = &HD

Private Sub DOM取得()

    'Chromium版EdgeのIEモードをDOM操作(32ビット版Excel)
    
    Dim con As Object, items As Object
    Dim pId As Long
    Const ProcessName = "msedge.exe"

    Dim msg As Long
    Dim res As Long
    Dim IID_IHTMLDocument2 As GUID

    Dim Dom

    Set con = CreateObject("WbemScripting.SWbemLocator").ConnectServer
    hWnd = GetTopWindow(0)
        Do
            If GetParent(hWnd) = 0 Then
                'ウィンドウハンドルからプロセスIDを取得し、プロセス名を使用してEdgeのウィンドウかどうかを判別する
                GetWindowThreadProcessId hWnd, pId
                Set items = con.ExecQuery("Select * From Win32_Process Where (ProcessId = '" & pId & "') And (Name = '" & ProcessName & "')")
                If items.Count > 0 Then
                    'Edgeの子ウィンドウ列挙
                    EnumChildWindows hWnd, AddressOf EnumChildProcIES, 0 'Internet Explorer ServerのhWndをhIESに格納
                    If hIES <> 0 Then Exit Do
                End If
            End If
            hWnd = GetNextWindow(hWnd, GW_HWNDNEXT)
        Loop While hWnd <> 0

    If hIES = 0 Then Exit Sub

    'IHTMLDocument2取得
    msg = RegisterWindowMessage("WM_HTML_GETOBJECT")
    SendMessageTimeout hIES, msg, 0, 0, SMTO_ABORTIFHUNG, 1000, res
    If res Then
        With IID_IHTMLDocument2
            .Data1 = &H332C4425
            .Data2 = &H26CB
            .Data3 = &H11D0
            .Data4(0) = &HB4
            .Data4(1) = &H83
            .Data4(2) = &H0
            .Data4(3) = &HC0
            .Data4(4) = &H4F
            .Data4(5) = &HD9
            .Data4(6) = &H1
            .Data4(7) = &H19
        End With
        
        'IeEdgeを使いたいために適当にDomという変数を宣言して左辺に
        '正しくは「If ObjectFromLresult(res, IID_IHTMLDocument2, 0, IeEdge) = 0 Then」などの使用方法が望ましい？
        
        Dom = ObjectFromLresult(res, IID_IHTMLDocument2, 0, IeEdge)
    
    End If

End Sub

Private Function EnumChildProcIES(ByVal hWnd As Long, ByVal lParam As Long) As Long
  
    Dim buf As String * 255
    Dim ClassName As String

    GetClassName hWnd, buf, Len(buf)
    ClassName = Left(buf, InStr(buf, vbNullChar) - 1)
    If ClassName = "Internet Explorer_Server" Then
        hIES = hWnd
        EnumChildProcIES = False
        Exit Function
    End If
    EnumChildProcIES = True

End Function

実行部分

Sub 検索実行()

    Edge起動
    
    'GoogleのページをIEモードで開いた後に実行
    DOM取得 'IEモードのEdgeのDOMをIeEdgeに格納
    
    '最前面に持ってくるとIEモードのポップアップが消える
    Call SetForegroundWindow(hWnd)
    Sleep 3000
    
    IeEdge.getElementsByName("q")(0).Value = "VBA・GAS・Pythonで業務を楽しく効率化" '検索バーに文字を入力
    Sleep 1000
    IeEdge.getElementsByName("btnG")(0).Click '検索クリック

    While LCase(IeEdge.readyState) <> "complete"
        Sleep 1000
    Wend
    
End Sub

Private Sub Edge起動()

    'EdgeでGoogleのページを開く
    CreateObject("Shell.Application").ShellExecute "microsoft-edge:https://www.google.co.jp/"
    Sleep 3000

    'Alt+F
    keybd_event VK_Alt, 0, fKEYDOWN, 0   'Altを押す
    keybd_event VK_F, 0, fKEYDOWN, 0   'fを押す
    keybd_event VK_F, 0, fKEYUP, 0   'fを離す
    keybd_event VK_Alt, 0, fKEYUP, 0   'Altを離す

    Sleep 1000

    '上5回
    Dim i
    For i = 1 To 5
        keybd_event VK_UP, 0, fKEYDOWN, 0   'UPを押す
        keybd_event VK_UP, 0, fKEYUP, 0   'UPを離す
        Sleep 100
    Next i
        
    'Enter
    keybd_event VK_RETURN, 0, fKEYDOWN, 0   'Enterを押す
    keybd_event VK_RETURN, 0, fKEYUP, 0   'Enterを離す

    Sleep 1000

    'Enter
    keybd_event VK_RETURN, 0, fKEYDOWN, 0   'Enterを押す
    keybd_event VK_RETURN, 0, fKEYUP, 0   'Enterを離す

    Sleep 3000
    
End Sub

あくまでIEモードの操作に限られますのでいずれ使えなくなるとは思いますが、これまでVBAでIEを操作していたコードをほぼそのまま転用できるのは大きなメリットです。

IEモードの切り替え部分が若干不安定なこともありますが、最初から特定のページをIEモードで開くように設定しておけば切り替えるコードを使う必要がなく、より安定した挙動になると思います。

このコードはWindowsAPIをたくさん使用していて私も意味が理解できていない部分が多くありますので、勉強してコードの意味が理解できるようになればまた紹介記事を記載します。

以前のVBAのコードをVBA未経験者でも自由に使えるように修正

以前こちらの記事で一つのフォルダに格納されたたくさんのファイルに同じ処理をするVBAコードをご紹介しました。

その際に紹介した内容は「ファイルに決まった文字を入力する」という内容だったのですが、今回は逆にファイルの中に「記載されている値を抜き出す」というものになります。

また、どこの値を抜き出すのかをコードの中で指定するのではなく、ワークシートの中に対象セルの情報を記載するようにし、コードを編集しなくても抽出対象のセルを変更できるようにしました。

用意したワークシート

今回はフォルダに含まれているすべてのファイル（ブック）について、ファイルを開いてすべてのシートからセルの値を取得するVBAです。

以前からの改良点として、どこのセルの値を抜き出すか、セルの番地（A1とかB8など）をあらかじめツールのワークシートに記載しておくことで、VBAを知らない人でも使いこなせるように作ってみました。

一覧として抽出後、どのファイルのどのシートから抜き出した値かを確認できるようにするため、ファイル名・シート名を記載する列も用意しています。

一つのフォルダに格納された複数のExcelファイルから特定のセルの値を抜き出し一覧にするExcelVBAコード

作成したコードは以下の通りです。

2行目の3列目以降にセルの番地を入力しておくことで、そのセルの値を対象シートから順に抜き出します。
1行目は何かメモを取ったりするために空けています。

Sub フォルダの中に含まれるファイルから値を順に取得する()

    Dim FolderName As String
    Dim FileName As String
    Dim Index As Integer
    Dim targetBook
    Dim targetSheet
    Dim i, k
    
    FolderName = Application.GetOpenFilename 'ダイアログを用いて選択したファイルのパスをFolderNameとする①
    
    If FolderName = "False" Then  'FolderNameが選択されていなければ作業を終了する
        Exit Sub
    End If
    
    '今のフォルダ名には選択したファイル名含まれているので、ファイル名の部分を切り取る作業。
    Index = InStrRev(FolderName, "\")  'フォルダ名部分の文字数をカウントする
    FolderName = Left(FolderName, Index) ' カウントした文字数までの部分を切り取ってフォルダ名とする
    FileName = Dir(FolderName & "*xls*")  ' フォルダの中に含まれるファイルを取り出す

    i = 3 '行の位置を設定するカウンタ
    Do While FileName <> ""  ' ファイルがなくなるまで繰り返す
        Set targetBook = Workbooks.Open(FolderName & FileName)  'ファイルを開く
        For Each targetSheet In targetBook.Worksheets
            With ThisWorkbook.ActiveSheet
                .Cells(i, 1) = targetBook.Name  '1列名はブック名
                .Cells(i, 2) = targetSheet.Name '2列名はシート名
                
                '3列目以降セルの値を抜き出す
                For k = 3 To .Cells(1, Columns.Count).End(xlToLeft).Column
                    .Cells(i, k) = targetSheet.Range(.Cells(2, k))  '2行目に書かれている番地を対象シートから抽出
                Next k
            End With
        
            i = i + 1
        Next
        targetBook.Close
        Set targetBook = Nothing
    FileName = Dir()
    Loop

End Sub

それほど複雑なコードでなく、行数も少ないわりにファイルが多いとめちゃくちゃ役に立つのでコスパが良いコードを作ることができました。
値の入力に関しても同じように作ったものをまたご紹介するようにします。

行数が多い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のコードは必要な場面も多いと思います。

行数が多い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などの代わりとしても使えるようになりますのでその方法については別の記事で紹介します。

Outlookの署名をVBAで自動追加する方法が案外難しい

以前OutlookでメールをExcelVBAで大量に作成するコードをこちらの記事でご紹介しました。

これは私が現在業務で最も使用しているコードの1つですが、使用した際に署名が反映されないという課題がありました。

この部分は手で付け足したり、もしくは本文に署名も付け加えていたりしたのですが、手で付け加えるのはそもそも面倒、本文に署名を付け加える場合、HTMLの仕様の問題だと思いますが、スペースの幅・数がずれることがありました。

そこで現在使用している署名を本文の下に追加した状態でメールを作成できるコードに改良してみました。

署名の内容の呼び出しと取り込み方法について

署名はC:\ユーザー\[ユーザー名]\AppData\Roaming\Microsoft\Signaturesというフォルダにテキスト形式で保存されています。
（AppDataが表示されない場合、隠しファイルを表示にチェックをして探してみてください。）

このファイルを読み込んで、内容を本文の下に追加するフローで署名を追加するコードを考えました。

署名を追加した状態でOutlookメールを作成するExcelVBA

今回署名つきのコードを作成するにあたり、こちらのページを参考にさせていただきました。

もしかしたら外国の方が作成されているのかもしれません。
少し日本語が変な気がするのでちょっと心配していましたが、きちんとした情報を提供してくださっていました。
（疑ってスミマセン…）

メールを作成する部分のコードは以前ご紹介したOutlookの差し込みメールを作成するExcelVBAを用いています。

テキストの内容を取得するためにはOpenAsTextStreamメソッドを使用しました。

引数の1つ目は「1」とすると読み取り専用で開きます。（2 = 書き込み用、8 = ファイルの末尾に書き込み用）
引数の1つ目は「-2」とするとシステムの規定の設定でファイルを開きます。（-1 = Unicode形式、0 = Ascii形式）

どちらも意識せずに、OpenAsTextStream(1 , -2)で入力して良い気がします。

上記のコードを実行するとメールが作成され、署名が追加されていることを確認できました。
下記に動作をキャプチャした動画を記載します。

Word→PDFの繰り返しを自動化して楽にする

以前にWordをPDFにするExcelVBAのコードをご紹介しましたが、その時のコードはWordファイルの全ページをPDFにするものでした。

今回は同僚から「300ページくらいあるWordの一つのファイルを3-4ページ位ごとに分割してPDFにするのに何か楽にする方法がないか」と相談があり、負担を軽くするためのコードをk考えてみました。

Wordファイルを分割してPDFにする手順

今回のツールもExcelVBAを使用して作成することにしました。
まず対象となるWordファイルを開いて、指定したページごとに区切ってPDF化していくのを繰り返すフローを想定しています。

全ページをPDF化してそこからPDFファイルを分割する方法も考えましたが、PDFを分割するソフトが必要なのと、VBAでの完全自動化が難しそうだったのでやめました。
（他のプログラムだと簡単にできるのかもしれませんが。）

作成したExcelワークシート

今回作成したツールを使用するために必要な情報は下記のようにワークシートに記載するようにしています。

①対象フォルダ名・対象ファイル名を取得し、②変更後のPDFファイル名を記入、③印刷の開始位置、終了位置を必要な行だけ記入して、④PDF出力すると元ファイルと同じフォルダに作成したPDFファイルが格納されるフローとなります。

作成したExcelVBAコード

1.対象ファイルの取得（①）

対象ファイルをパス含めて手入力しても良いのですが、手間なのでファイルを選択すると自動で記入されるようにしてみました。
下記のコードを実行すると、選択したファイルについて、A2セルにフォルダ名・A4セルにファイル名が入ります。

2.連続PDF化の実行（④）

連続PDF化のコードは下記の通りです。

実行前に②出力するファイル名を指定することと、③PDF化対象のページを指定しておく必要があります。

「ExportAsFixedFormat」の引数「Range」「From」「To」を指定することで印刷（PDF化）範囲を設定します。
設定内容は下記の通りです。

ファイルの数が多いと面倒な作業をVBAで自動化

最近仕事でWordのファイルを大量にPDFに変更する必要がありました。
1つ2つくらいのファイルなら手作業で済ませるのですが、今回は50件行う必要があり、また他のタイミングでも継続的に業務として発生することが決まっていました。

そこで、（サラリーマンらしくこの作業は本当に必要あるのかは考えるのをやめて）VBAで自動化の方法を考えてみました。

Excelのシートに対象のファイルを書き出す

WordのVBAは使いにくいですし、もともと大量のファイルを処理することが前提でしたので、ExcelのワークシートとExcelVBAを使用することにしています。

私の経験上この組み合わせはExcelのファイルを操作するだけでなく、色々な業務で使いやすいと思います。
手順は下記の3ステップを想定しています。

今回使用するワークシート

今回使用するワークシートは下記の通りです。
対象ファイルを特定のフォルダにまとめて格納しておけば一括でファイル名を取得できるようにしています。

作成したExcelVBAコードと実行手順について

①ファイル名一覧の取得

まず①Wordファイル一覧を一括取得するExcelVBAコードは下記の通りです。
実行するとファイルの選択ダイアログが開き、対象ファイルの一つを選択するとそのフォルダにあるWordファイルのパスとファイル名をA列に記入します。

②PDFとして出力する際のファイル名の記入

出力先フォルダとファイル名はC列に入力してから出力を開始します。
ExcelのSubstitute関数やVBAのReplace関数を使って自動で表記することも可能です。

一例ですが、デスクトップにある「Wordファイル」というフォルダから同じくデスクトップにある「PDFファイル」というフォルダに拡張子以外の部分を同じファイル名で出力する場合にはC2セルに下記のように関数を入力しておきます。
（「.docx」を「.pdf」に置換、「Wordファイル」を「PDFファイル」に置換しているだけです。）

③一覧に記載されているWordファイルを順にPDFとして出力する

WordファイルをPDFとして出力するコードは下記の通りです。
実行するとC列に記載したフォルダ・ファイル名でPDFが出力されます。

配布資料には印刷設定をしておくことが多い

私自身は紙でファイルを使う機会が少ないのですが、紙の文化が根強く残る業態のため取引先に送る資料には印刷設定をしておくことが多いです。

たくさんのファイルのたくさんのページに対して印刷設定をするのが面倒なのでExcelVBAで実行できる方法を調べてみました。

今回は印刷設定の機能のうち、私がよく使用するプロパティの部分をご紹介します。

私が印刷設定で必要なこと

私が印刷範囲を設定する際に必要な項目は下記の通りです。

他にも設定できるものはたくさんありますが、とりあえずこれだけ抑えていれば私の普段使いには十分です。

印刷設定を行うExcelVBAのサンプルコード

今回私が作成したExcelVBAコードは下記の通りです。

50行に1回改ページを入れる設定にしています。
数字を変更すると他の設定も可能です。

印刷設定を行うVBAコードのトラブル？エラーについて

印刷設定にはPrintCommunicationというプロパティがあり、これはプリンタとの通信を規定するものになります。

印刷設定を行う前に「Application.PrintCommunication = False」と記載しておいて、プリンタとの接続を切ってから印刷設定をし、最後に「Application.PrintCommunication = True」として印刷設定を戻すことで、処理が高速化されるとよく紹介されています。

私の普段業務を行っている環境で、このPrintCommunicationの設定をコードに入れていると、1つのファイルに印刷設定の処理をしているときは問題なかったのですが、フォルダの中に含まれているファイルにすべて印刷設定を行ったりするコードを記載すると印刷設定が反映されないトラブルがありました。

原因は特定できていませんが、PrintCommunicationのコードを削除することできちんと動作するようになりましたので、PrintCommunicationが影響しているのは間違いなさそうです。

今回の印刷設定のVBAコードはそもそも高速化が必要な処理ではないため、当面このコードについては使わないようにしていきたいと思います。