ページ数取得 Sub GetNSheetsNPages() Dim root As String, target As String, files As String, msg As String, filePath As String Dim wb As Workbook, ws As Worksheet Dim nSheets As Integer, nPages As Integer, wbPage As Integer nSheets = 0 nPage…

ArrayList (Collection) VBで使えるArrayListクラスモジュール Option Explicit Private arraylist As Object Private Sub Class_Initialize() 'コンストラクタ 'Debug.Print "Class_Initialize" Set arraylist = CreateObject("System.Collections.ArrayLis…

参照渡し OR 値渡し ◆参照渡し '参照渡し Sub ByRefTest() Dim counter As Integer counter = 1 test2 counter MsgBox counter End Sub Private Sub test2(ByRef counter) counter = counter + 1 End Sub ◆値渡し '値渡し Sub ByValTest() Dim counter As In…

保存方法 ブック（.xlsm）形式で保存 モジュール（.bas）形式で保存 Subプロシージャ プロシージャ：プログラムの呼び出し単位 Sub プロシージャ名() 'コード End Sub 変数宣言 '変数宣言 Dim 変数名 as データ型 Ex. '変数宣言 例 Dim tmp01 as String Dim …