演習課題レッスン (1) '(1) ワークシートどうしのやりとり ' ワークシート 請求書 1 から ワークシート データ収集 にデータを転記しましょう Sub example01() ' 請求書番号 ( 請求書 1のE2からデータ収集のA2へ ) Worksheets(" データ収集 ").Range("A2").Value = Worksheets(" 請求書 1").Range("E2").Value ' 発行日 ( 請求書 1のE1からデータ収集のB2へ ) Worksheets(" データ収集 ").Range("B2").Value = Worksheets(" 請求書 1").Range("E1").Value ' 会社名 ( 請求書 1のB4からデータ収集のC2へ ) Worksheets(" データ収集 ").Range("C2").Value = Worksheets(" 請求書 1").Range("B4").Value ' 担当者名 ( 請求書 1のB5からデータ収集のD2へ ) Worksheets(" データ収集 ").Range("D2").Value = Worksheets(" 請求書 1").Range("B5").Value ' 請求金額 ( 請求書 1のE31からデータ収集のE2へ ) Worksheets(" データ収集 ").Range("E2").Value = Worksheets(" 請求書 1").Range("E31").Value
'(1) ワークシートどうしのやりとり ' ワークシート 請求書 1 から ワークシート データ収集 にデータを転記しましょう Sub example01() ' 請求書番号 ( 請求書 1 の E2 からデータ収集の A2 へ ) Worksheets(" データ収集 ").Range("A2").Value = Worksheets(" 請求書 1").Range("E2").Value ' 発行日 ( 請求書 1 の E1 からデータ収集の B2 へ ) Worksheets(" データ収集 ").Range("B2").Value = Worksheets(" 請求書 1").Range("E1").Value ' 会社名 ( 請求書 1 の B4 からデータ収集の C2 へ ) Worksheets(" データ収集 ").Range("C2").Value = Worksheets(" 請求書 1").Range("B4").Value ' 担当者名 ( 請求書 1 の B5 からデータ収集の D2 へ ) Worksheets(" データ収集 ").Range("D2").Value = Worksheets(" 請求書 1").Range("B5").Value ' 請求金額 ( 請求書 1 の E31 からデータ収集の E2 へ ) Worksheets(" データ収集 ").Range("E2").Value = Worksheets(" 請求書 1").Range("E31").Value
演習課題レッスン (2) '(2) 最終行に転記する ' データ収集 へデータを転記する際 必ず最終行へ転記するようにしましょう Sub example02() ' データ収集 の最終行を変数に取得 Dim MaxRow As Integer 修正 '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する Worksheets(" データ収集 ").Range("A2").Value = Worksheets(" 請求書 1").Range("E2").Value Worksheets(" データ収集 ").Range("B2").Value = Worksheets(" 請求書 1").Range("E1").Value Worksheets(" データ収集 ").Range("C2").Value = Worksheets(" 請求書 1").Range("B4").Value Worksheets(" データ収集 ").Range("D2").Value = Worksheets(" 請求書 1").Range("B5").Value Worksheets(" データ収集 ").Range("E2").Value = Worksheets(" 請求書 1").Range("E31").Value
'(2) 最終行に転記する ' データ収集 へデータを転記する際 必ず最終行へ転記するようにしましょう Sub example02() ' データ収集 の最終行を変数に取得 Dim MaxRow As Integer MaxRow = Worksheets(" データ収集 ").Cells(Rows.Count, 1).End(xlUp).Row + 1 '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する Worksheets(" データ収集 ").Range("A" & MaxRow).Value = Worksheets(" 請求書 1").Range("E2").Value Worksheets(" データ収集 ").Range("B" & MaxRow).Value = Worksheets(" 請求書 1").Range("E1").Value Worksheets(" データ収集 ").Range("C" & MaxRow).Value = Worksheets(" 請求書 1").Range("B4").Value Worksheets(" データ収集 ").Range("D" & MaxRow).Value = Worksheets(" 請求書 1").Range("B5").Value Worksheets(" データ収集 ").Range("E" & MaxRow).Value = Worksheets(" 請求書 1").Range("E31").Value
演習課題レッスン (3) '(3) データ収集結果を削除する ' 転記されたデータを削除するマクロを作っておきましょう Sub clear03() ' 最終行を変数に取得 Dim MaxRow As Integer MaxRow = Worksheets(" データ収集 ").Cells(Rows.Count, 1).End(xlUp).Row + 1 '2 行目から最終行までのデータを削除する
'(3) データ収集結果を削除する ' 転記されたデータを削除するマクロを作っておきましょう Sub clear03() ' 最終行を変数に取得 Dim MaxRow As Integer MaxRow = Worksheets(" データ収集 ").Cells(Rows.Count, 1).End(xlUp).Row + 1 '2 行目から最終行までのデータを削除する Worksheets(" データ収集 ").Range("2:" & MaxRow).Value = ""
演習課題レッスン (4) '(4)With 構文を使って省略する 'With 構文を使って ワークシート名を省略して入力しましょう Sub example04() ' 最終行を取得しておく Dim MaxRow As Integer MaxRow = Worksheets(" データ収集 ").Cells(Rows.Count, 1).End(xlUp).Row + 1 修正 '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する Worksheets(" データ収集 ").Range("A" & MaxRow).Value = Worksheets(" 請求書 1").Range("E2").Value Worksheets(" データ収集 ").Range("B" & MaxRow).Value = Worksheets(" 請求書 1").Range("E1").Value Worksheets(" データ収集 ").Range("C" & MaxRow).Value = Worksheets(" 請求書 1").Range("B4").Value Worksheets(" データ収集 ").Range("D" & MaxRow).Value = Worksheets(" 請求書 1").Range("B5").Value Worksheets(" データ収集 ").Range("E" & MaxRow).Value = Worksheets(" 請求書 1").Range("E31").Value
'(4)With 構文を使って省略する 'With 構文を使って ワークシート名を省略して入力しましょう Sub example04() ' 最終行を取得しておく Dim MaxRow As Integer MaxRow = Worksheets(" データ収集 ").Cells(Rows.Count, 1).End(xlUp).Row + 1 '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する With Worksheets(" データ収集 ").Range("A" & MaxRow).Value = Worksheets(" 請求書 1").Range("E2").Value.Range("B" & MaxRow).Value = Worksheets(" 請求書 1").Range("E1").Value.Range("C" & MaxRow).Value = Worksheets(" 請求書 1").Range("B4").Value.Range("D" & MaxRow).Value = Worksheets(" 請求書 1").Range("B5").Value.Range("E" & MaxRow).Value = Worksheets(" 請求書 1").Range("E31").Value End With
演習課題レッスン (5) '(5)Worksheet 変数を利用する 'Worksheet 変数を宣言して ワークシートを格納して利用しましょう Sub example05() 'Worksheet 変数を宣言する Dim wstotal As Worksheet Dim wsinv As Worksheet ' データ収集 と 請求書 1 を変数に格納する ' 最終行を取得しておく Dim MaxRow As Integer MaxRow = Worksheets(" データ収集 ").Cells(Rows.Count, 1).End(xlUp).Row + 1 '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する修正 Worksheets(" データ収集 ").Range("A" & MaxRow).Value = Worksheets(" 請求書 1").Range("E2").Value Worksheets(" データ収集 ").Range("B" & MaxRow).Value = Worksheets(" 請求書 1").Range("E1").Value Worksheets(" データ収集 ").Range("C" & MaxRow).Value = Worksheets(" 請求書 1").Range("B4").Value Worksheets(" データ収集 ").Range("D" & MaxRow).Value = Worksheets(" 請求書 1").Range("B5").Value Worksheets(" データ収集 ").Range("E" & MaxRow).Value = Worksheets(" 請求書 1").Range("E31").Value
'(5)Worksheet 変数を利用する 'Worksheet 変数を宣言して ワークシートを格納して利用しましょう Sub example05() 'Worksheet 変数を宣言する Dim wstotal As Worksheet Dim wsinv As Worksheet ' データ収集 と 請求書 1 を変数に格納する Set wstotal = Worksheets(" データ収集 ") Set wsinv = Worksheets(" 請求書 1") ' 最終行を取得しておく Dim MaxRow As Integer MaxRow = Worksheets(" データ収集 ").Cells(Rows.Count, 1).End(xlUp).Row + 1 '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する wstotal.range("a" & MaxRow).Value = wsinv.range("e2").value wstotal.range("b" & MaxRow).Value = wsinv.range("e1").value wstotal.range("c" & MaxRow).Value = wsinv.range("b4").value wstotal.range("d" & MaxRow).Value = wsinv.range("b5").value wstotal.range("e" & MaxRow).Value = wsinv.range("e31").value
演習課題レッスン (6) '(6)3 つのシートを順番に転記 ( ループなし ) ' 請求書 1 請求書 2 請求書 3 の順にデータを転記しましょう Sub example06() ' 変数にワークシートを格納する Dim wstotal As Worksheet Dim wsinv As Worksheet Set wstotal = Worksheets(" データ収集 ") Set wsinv = Worksheets(" 請求書 1") ' 最終行を取得しておく Dim MaxRow As Integer MaxRow = Worksheets(" データ収集 ").Cells(Rows.Count, 1).End(xlUp).Row + 1 '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する wstotal.range("a" & MaxRow).Value = wsinv.range("e2").value wstotal.range("b" & MaxRow).Value = wsinv.range("e1").value wstotal.range("c" & MaxRow).Value = wsinv.range("b4").value wstotal.range("d" & MaxRow).Value = wsinv.range("b5").value wstotal.range("e" & MaxRow).Value = wsinv.range("e31").value ' 次の処理のため 最終行を +1しておく MaxRow = MaxRow + 1 '( 次のページへ )
演習課題 つづき '--- 請求書 2 の処理 ---------------------------------- ' 請求書 2を変数に代入 Set wsinv = Worksheets(" 請求書 2") '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する wstotal.range("a" & MaxRow).Value = wsinv.range("e2").value wstotal.range("b" & MaxRow).Value = wsinv.range("e1").value wstotal.range("c" & MaxRow).Value = wsinv.range("b4").value wstotal.range("d" & MaxRow).Value = wsinv.range("b5").value wstotal.range("e" & MaxRow).Value = wsinv.range("e31").value ' 次の処理のため 最終行を +1しておく MaxRow = MaxRow + 1 '( 次のページへ )
演習課題 つづき '--- 請求書 3 の処理 ---------------------------------- ' 請求書 3を変数に代入 Set wsinv = Worksheets(" 請求書 3") '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する wstotal.range("a" & MaxRow).Value = wsinv.range("e2").value wstotal.range("b" & MaxRow).Value = wsinv.range("e1").value wstotal.range("c" & MaxRow).Value = wsinv.range("b4").value wstotal.range("d" & MaxRow).Value = wsinv.range("b5").value wstotal.range("e" & MaxRow).Value = wsinv.range("e31").value
'(6)3 つのシートを順番に転記 ( ループなし ) ' 請求書 1 請求書 2 請求書 3 の順にデータを転記しましょう Sub example06() ' 変数にワークシートを格納する Dim wstotal As Worksheet Dim wsinv As Worksheet Set wstotal = Worksheets(" データ収集 ") Set wsinv = Worksheets(" 請求書 1") ' 最終行を取得しておく Dim MaxRow As Integer MaxRow = Worksheets(" データ収集 ").Cells(Rows.Count, 1).End(xlUp).Row + 1 '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する wstotal.range("a" & MaxRow).Value = wsinv.range("e2").value wstotal.range("b" & MaxRow).Value = wsinv.range("e1").value wstotal.range("c" & MaxRow).Value = wsinv.range("b4").value wstotal.range("d" & MaxRow).Value = wsinv.range("b5").value wstotal.range("e" & MaxRow).Value = wsinv.range("e31").value ' 次の処理のため 最終行を +1 しておく MaxRow = MaxRow + 1 '( 次のページへ )
つづき '--- 請求書 2 の処理 ---------------------------------- ' 請求書 2 を変数に代入 Set wsinv = Worksheets(" 請求書 2") '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する wstotal.range("a" & MaxRow).Value = wsinv.range("e2").value wstotal.range("b" & MaxRow).Value = wsinv.range("e1").value wstotal.range("c" & MaxRow).Value = wsinv.range("b4").value wstotal.range("d" & MaxRow).Value = wsinv.range("b5").value wstotal.range("e" & MaxRow).Value = wsinv.range("e31").value ' 次の処理のため 最終行を +1 しておく MaxRow = MaxRow + 1 '( 次のページへ )
つづき '--- 請求書 3 の処理 ---------------------------------- ' 請求書 3 を変数に代入 Set wsinv = Worksheets(" 請求書 3") '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する wstotal.range("a" & MaxRow).Value = wsinv.range("e2").value wstotal.range("b" & MaxRow).Value = wsinv.range("e1").value wstotal.range("c" & MaxRow).Value = wsinv.range("b4").value wstotal.range("d" & MaxRow).Value = wsinv.range("b5").value wstotal.range("e" & MaxRow).Value = wsinv.range("e31").value
演習課題レッスン (7) '(7)3 つのシートを順番に転記 ( ループあり ) 'For ループを利用し 請求書 1~3 の順にデータを転記しましょう Sub example07() ~~~~~~~( 途中省略 )~~~~~~~~~~~~~~~~ ' ループ変数 iを宣言 Dim i As Integer 'Forループ(iが1~3まで繰り返す) For i = 1 To 3 Next i ' 請求書 iを変数に格納する Set wsinv = Worksheets(" 請求書 " & i) '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する wstotal.range("a" & MaxRow).Value = wsinv.range("e2").value wstotal.range("b" & MaxRow).Value = wsinv.range("e1").value wstotal.range("c" & MaxRow).Value = wsinv.range("b4").value wstotal.range("d" & MaxRow).Value = wsinv.range("b5").value wstotal.range("e" & MaxRow).Value = wsinv.range("e31").value ' 次のループのため 最終行を +1 しておく MaxRow = MaxRow + 1
'(7)3 つのシートを順番に転記 ( ループあり ) 'For ループを利用し 請求書 1~3 の順にデータを転記しましょう Sub example07() ~~~~~~~( 途中省略 )~~~~~~~~~~~~~~~~ ' ループ変数 i を宣言 Dim i As Integer 'For ループ (i が 1~3 まで繰り返す ) For i = 1 To 3 Next i ' 請求書 i を変数に格納する Set wsinv = Worksheets(" 請求書 " & i) '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する wstotal.range("a" & MaxRow).Value = wsinv.range("e2").value wstotal.range("b" & MaxRow).Value = wsinv.range("e1").value wstotal.range("c" & MaxRow).Value = wsinv.range("b4").value wstotal.range("d" & MaxRow).Value = wsinv.range("b5").value wstotal.range("e" & MaxRow).Value = wsinv.range("e31").value ' 次のループのため 最終行を +1 しておく MaxRow = MaxRow + 1
演習課題レッスン (8) '(8)For Each を使い 全シートを扱う 'For Each ループを使い 全シートのシート名を順番に出力してみましょう Sub example08() ' ワークシート変数を宣言 Dim wsinv As Worksheet ' すべてのワークシートから1つずつ取り出し wsinvに格納 ' ワークシート名を MsgBox で出力する MsgBox wsinv.name
'(8)For Each を使い 全シートを扱う 'For Each ループを使い 全シートのシート名を順番に出力してみましょう Sub example08() ' ワークシート変数を宣言 Dim wsinv As Worksheet ' すべてのワークシートから 1 つずつ取り出し wsinv に格納 For Each wsinv In Worksheets ' ワークシート名を MsgBox で出力する MsgBox wsinv.name Next wsinv
演習課題レッスン (9) '(9)For Eachを使い 全シートを順番に転記する 'For Eachループを使い 全シートから順番にデータを転記しましょう Sub example09() ~~~~~~~( 途中省略 )~~~~~~~~~~~~~~~~ ' すべてのワークシートから1つずつ取り出し wsinvに格納 ' もしワークシート名が データ収集 と一致しなければ '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する wstotal.range("a" & MaxRow).Value = wsinv.range("e2").value wstotal.range("b" & MaxRow).Value = wsinv.range("e1").value wstotal.range("c" & MaxRow).Value = wsinv.range("b4").value wstotal.range("d" & MaxRow).Value = wsinv.range("b5").value wstotal.range("e" & MaxRow).Value = wsinv.range("e31").value ' 次のループのため 最終行を +1 しておく MaxRow = MaxRow + 1
'(9)For Each を使い 全シートを順番に転記する 'For Each ループを使い 全シートから順番にデータを転記しましょう Sub example09() ~~~~~~~( 途中省略 )~~~~~~~~~~~~~~~~ ' すべてのワークシートから 1 つずつ取り出し wsinv に格納 For Each wsinv In Worksheets End If Next wsinv ' もしワークシート名が データ収集 と一致しなければ If wsinv.name <> wstotal.name Then '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する wstotal.range("a" & MaxRow).Value = wsinv.range("e2").value wstotal.range("b" & MaxRow).Value = wsinv.range("e1").value wstotal.range("c" & MaxRow).Value = wsinv.range("b4").value wstotal.range("d" & MaxRow).Value = wsinv.range("b5").value wstotal.range("e" & MaxRow).Value = wsinv.range("e31").value ' 次のループのため 最終行を +1 しておく MaxRow = MaxRow + 1
演習課題レッスン (10) '(10)Workbooks.Open でファイルを開く ' 特定のパスにある Excel ブックを開きましょう Sub example10() ' 特定のパスにあるExcelブックを開く Workbooks.Open (" ") 特定のパスを自分で調べて入力してください
演習課題レッスン (11) '(11) ダイアログで選んだブックを開く ( 単一 ) ' ダイアログ画面で選んだ Excel ブックを開きましょう Sub example11() ' パスを格納する変数を宣言 Dim openpath As String ' ダイアログからブックを選び そのパスを格納 openpath = ' パスにあるブックを開く Workbooks.Open (openpath)
'(11) ダイアログで選んだブックを開く ( 単一 ) ' ダイアログ画面で選んだ Excel ブックを開きましょう Sub example11() ' パスを格納する変数を宣言 Dim openpath As String ' ダイアログからブックを選び そのパスを格納 openpath = Application.GetOpenFilename("Microsoft Excel ブック,*.xls?") ' パスにあるブックを開く Workbooks.Open (openpath)
演習課題レッスン (12) '(12) ダイアログからブックを開き 操作する ( 単一 ) ' 開いたブックのプロパティやメソッドを利用してみましょう Sub example12() ' ダイアログからブックを選び パスを格納する Dim openpath As String openpath = Application.GetOpenFilename("Microsoft Excel ブック,*.xls?") 'Workbook 型の変数を宣言 Dim openbook As Workbook ' ファイルを開き 変数に格納する Set openbook = Workbooks.Open(openPath) ' ブックの名前をMsgboxで出力 (.Nameプロパティ) MsgBox openbook.name ' ブックのパスをMsgBoxで出力 (.Pathプロパティ) MsgBox openbook.path ' ブックを閉じる (.Closeメソッド) openbook.close
'(12) ダイアログからブックを開き 操作する ( 単一 ) ' 開いたブックのプロパティやメソッドを利用してみましょう Sub example12() ' ダイアログからブックを選び パスを格納する Dim openpath As String openpath = Application.GetOpenFilename("Microsoft Excel ブック,*.xls?") 'Workbook 型の変数を宣言 Dim openbook As Workbook ' ファイルを開き 変数に格納する Set openbook = Workbooks.Open(openPath) ' ブックの名前を Msgbox で出力 (.Name プロパティ ) MsgBox openbook.name ' ブックのパスを MsgBox で出力 (.Path プロパティ ) MsgBox openbook.path ' ブックを閉じる (.Close メソッド ) openbook.close
演習課題レッスン (13) '(13) ダイアログのキャンセルに対するエラー処理 ' ダイアログで キャンセル を押した場合のエラー対策をしましょう Sub example13() ' ダイアログからブックを選び パスを格納する Dim openpath As String openpath = Application.GetOpenFilename("Microsoft Excel ブック,*.xls?") ' もしパスが False でなければ処理を行う(Falseなら何もしない) If openpath <> "False" Then End If ' 変数を用意し ブックを開いて格納 Dim openbook As Workbook Set openbook = Workbooks.Open(openPath) ' ブックのプロパティやメソッドを利用 MsgBox openbook.name MsgBox openbook.path openbook.close
'(13) ダイアログのキャンセルに対するエラー処理 ' ダイアログで キャンセル を押した場合のエラー対策をしましょう Sub example13() ' ダイアログからブックを選び パスを格納する Dim openpath As String openpath = Application.GetOpenFilename("Microsoft Excel ブック,*.xls?") ' もしパスが False でなければ処理を行う (False なら何もしない ) If openpath <> "False" Then End If ' 変数を用意し ブックを開いて格納 Dim openbook As Workbook Set openbook = Workbooks.Open(openPath) ' ブックのプロパティやメソッドを利用 MsgBox openbook.name MsgBox openbook.path openbook.close
演習課題レッスン (14) '(14) 開いたブックからデータを転記 ( 単一 ) ' 開いたブックから請求データを転記しましょう Sub example14() ~~~~~~~( 途中省略 )~~~~~~~~~~~~~~~~ ' パスが False でなければ処理を行う If openpath <> "False" Then ' 変数を用意し ブックを開いて格納 Dim openbook As Workbook Set openbook = Workbooks.Open(openPath) '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する ' openbookの最初のワークシート(1) から wstotal.range("a" & MaxRow).Value = openbook.worksheets(1).range("e2").value wstotal.range("b" & MaxRow).Value = openbook.worksheets(1).range("e1").value wstotal.range("c" & MaxRow).Value = openbook.worksheets(1).range("b4").value wstotal.range("d" & MaxRow).Value = openbook.worksheets(1).range("b5").value wstotal.range("e" & MaxRow).Value = openbook.worksheets(1).range("e31").value 'openbook を閉じる openbook.close End If
'(14) 開いたブックからデータを転記 ( 単一 ) ' 開いたブックから請求データを転記しましょう Sub example14() ~~~~~~~( 途中省略 )~~~~~~~~~~~~~~~~ ' パスが False でなければ処理を行う If openpath <> "False" Then End If ' 変数を用意し ブックを開いて格納 Dim openbook As Workbook Set openbook = Workbooks.Open(openPath) '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する ' openbook の最初のワークシート (1) から wstotal.range("a" & MaxRow).Value = openbook.worksheets(1).range("e2").value wstotal.range("b" & MaxRow).Value = openbook.worksheets(1).range("e1").value wstotal.range("c" & MaxRow).Value = openbook.worksheets(1).range("b4").value wstotal.range("d" & MaxRow).Value = openbook.worksheets(1).range("b5").value wstotal.range("e" & MaxRow).Value = openbook.worksheets(1).range("e31").value 'openbook を閉じる openbook.close
演習課題レッスン (15) '(15) 複数のブックを次々に開く! ' 複数のブックのパスを配列に格納し 次々に開きましょう Sub example15() ' 配列のための変数を宣言 (Variant 型 ) Dim arraypath As Variant ' ダイアログから複数のブックを選び 配列にパスを格納する arraypath = Application.GetOpenFilename("Microsoft Excelブック,*.xls?", MultiSelect:=True) ' 配列の要素 (1)(2)(3) に格納されたパスからブックを順に開く Workbooks.Open (arraypath(1)) Workbooks.Open (arraypath(2)) Workbooks.Open (arraypath(3)) (1) (2) (3) 最後 Variant 型変数 配列になって受け取る
'(15) 複数のブックを次々に開く! ' 複数のブックのパスを配列に格納し 次々に開きましょう Sub example15() ' 配列のための変数を宣言 (Variant 型 ) Dim arraypath As Variant ' ダイアログから複数のブックを選び 配列にパスを格納する arraypath = Application.GetOpenFilename("Microsoft Excel ブック,*.xls?", MultiSelect:=True) ' 配列の要素 (1)(2)(3) に格納されたパスからブックを順に開く Workbooks.Open (arraypath(1)) Workbooks.Open (arraypath(2)) Workbooks.Open (arraypath(3)) (1) (2) (3) 最後 Variant 型変数 配列になって受け取る
演習課題レッスン (16) '(16) 複数のブックを最後まで全て順番に開く ' 配列の 1 番目から要素の最大数まで 順番に開きましょう Sub example16() ' ダイアログから複数のブックを選び 配列にパスを格納する Dim arraypath As Variant arraypath = Application.GetOpenFilename("Microsoft Excel ブック,*.xls?", MultiSelect:=True) ' ループ変数 iを宣言 Dim i As Integer 'Forループ(iが1から配列の要素数まで) For i = 1 To UBound(arrayPath) Next i ' 配列の要素 (i 番目 ) のパスからブックを開く Workbooks.Open (arraypath(i))
'(16) 複数のブックを最後まで全て順番に開く ' 配列の 1 番目から要素の最大数まで 順番に開きましょう Sub example16() ' ダイアログから複数のブックを選び 配列にパスを格納する Dim arraypath As Variant arraypath = Application.GetOpenFilename("Microsoft Excel ブック,*.xls?", MultiSelect:=True) ' ループ変数 i を宣言 Dim i As Integer 'For ループ (i が 1 から配列の要素数まで ) For i = 1 To UBound(arrayPath) Next i ' 配列の要素 (i 番目 ) のパスからブックを開く Workbooks.Open (arraypath(i))
演習課題レッスン (17) '(17) 複数のブックを開き 操作する ' 開いた複数ブックのプロパティやメソッドを利用してみましょう Sub example17() ' ダイアログから複数のブックを選び 配列にパスを格納する Dim arraypath As Variant arraypath = Application.GetOpenFilename("Microsoft Excel ブック,*.xls?", MultiSelect:=True) 'For ループ (i が 1 から配列の要素数まで ) Dim i As Integer For i = 1 To UBound(arrayPath) Next i ' 変数を用意し ブックを開いて格納 Dim openbook As Workbook Set openbook = Workbooks.Open(arrayPath(i)) ' ブックのプロパティやメソッドを利用 MsgBox openbook.name openbook.close
'(17) 複数のブックを開き 操作する ' 開いた複数ブックのプロパティやメソッドを利用してみましょう Sub example17() ' ダイアログから複数のブックを選び 配列にパスを格納する Dim arraypath As Variant arraypath = Application.GetOpenFilename("Microsoft Excel ブック,*.xls?", MultiSelect:=True) 'For ループ (i が 1 から配列の要素数まで ) Dim i As Integer For i = 1 To UBound(arrayPath) Next i ' 変数を用意し ブックを開いて格納 Dim openbook As Workbook Set openbook = Workbooks.Open(arrayPath(i)) ' ブックのプロパティやメソッドを利用 MsgBox openbook.name openbook.close
演習課題レッスン (18) '(18)[ 複数ブック版 ] ダイアログのキャンセルに対するエラー処理 ' ダイアログで キャンセル を押した場合のエラー対策をしましょう Sub example18() ' ダイアログから複数のブックを選び 配列にパスを格納する Dim arraypath As Variant arraypath = Application.GetOpenFilename("Microsoft Excel ブック,*.xls?", MultiSelect:=True) ' もしopenPathが配列ならば 処理をする ( そうでなければ何もしない ) If IsArray(arrayPath) Then End If 'For ループ (i が 1 から配列の要素数まで ) Dim i As Integer For i = 1 To UBound(arrayPath) ~~~~~~~( 途中省略 )~~~~~~~~~~~~~~~~ Next i
'(18)[ 複数ブック版 ] ダイアログのキャンセルに対するエラー処理 ' ダイアログで キャンセル を押した場合のエラー対策をしましょう Sub example18() ' ダイアログから複数のブックを選び 配列にパスを格納する Dim arraypath As Variant arraypath = Application.GetOpenFilename("Microsoft Excel ブック,*.xls?", MultiSelect:=True) ' もし openpath が配列ならば 処理をする ( そうでなければ何もしない ) If IsArray(arrayPath) Then End If 'For ループ (i が 1 から配列の要素数まで ) Dim i As Integer For i = 1 To UBound(arrayPath) ~~~~~~~( 途中省略 )~~~~~~~~~~~~~~~~ Next i
演習課題レッスン (19) '(19) 複数のブックを順番に開き データ収集 ' 次々に開いたブックから請求データを転記しましょう Sub example19() ~~~~~~~( 途中省略 )~~~~~~~~~~~~~~~~ 'Forループ(iが1から配列の要素数まで) Dim i As Integer For i = 1 To UBound(arrayPath) ' 変数を用意し ブックを開いて格納 Dim openbook As Workbook Set openbook = Workbooks.Open(arrayPath(i)) '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する ' openbookの最初のワークシート(1) から wstotal.range("a" & MaxRow).Value = openbook.worksheets(1).range("e2").value wstotal.range("b" & MaxRow).Value = openbook.worksheets(1).range("e1").value wstotal.range("c" & MaxRow).Value = openbook.worksheets(1).range("b4").value wstotal.range("d" & MaxRow).Value = openbook.worksheets(1).range("b5").value wstotal.range("e" & MaxRow).Value = openbook.worksheets(1).range("e31").value 'openbookを閉じる openbook.close ' 次のループのため 最終行を +1 しておく MaxRow = MaxRow + 1 Next i
'(19) 複数のブックを順番に開き データ収集 ' 次々に開いたブックから請求データを転記しましょう Sub example19() ~~~~~~~( 途中省略 )~~~~~~~~~~~~~~~~ 'For ループ (i が 1 から配列の要素数まで ) Dim i As Integer For i = 1 To UBound(arrayPath) ' 変数を用意し ブックを開いて格納 Dim openbook As Workbook Set openbook = Workbooks.Open(arrayPath(i)) '[ 請求書番号, 発行日, 会社名, 担当者名, 請求金額 ] をそれぞれ転記する ' openbook の最初のワークシート (1) から wstotal.range("a" & MaxRow).Value = openbook.worksheets(1).range("e2").value wstotal.range("b" & MaxRow).Value = openbook.worksheets(1).range("e1").value wstotal.range("c" & MaxRow).Value = openbook.worksheets(1).range("b4").value wstotal.range("d" & MaxRow).Value = openbook.worksheets(1).range("b5").value wstotal.range("e" & MaxRow).Value = openbook.worksheets(1).range("e31").value 'openbook を閉じる openbook.close ' 次のループのため 最終行を +1 しておく MaxRow = MaxRow + 1 Next i
演習課題レッスン (20) '(20) 画面のチラつきを防止する ' ブックの開閉のたびに画面がチラつくことを防止しましょう Sub example20() ~~~~~~~( 途中省略 )~~~~~~~~~~~~~~~~ ' もし openpath が配列ならば If IsArray(arrayPath) Then End If ' 画面の描画を停止する Application.ScreenUpdating = False 'For ループ (i が 1 から配列の要素数まで ) Dim i As Integer For i = 1 To UBound(openPath) Next i ~~~~~~~( 途中省略 )~~~~~~~~~~~~~~~~ ' 画面の描画を再開する Application.ScreenUpdating = True ' 処理が終わったことを MsgBox で出力 MsgBox " 全ブックからデータを抽出しました "
'(20) 画面のチラつきを防止する ' ブックの開閉のたびに画面がチラつくことを防止しましょう Sub example20() ~~~~~~~( 途中省略 )~~~~~~~~~~~~~~~~ ' もし openpath が配列ならば If IsArray(arrayPath) Then End If ' 画面の描画を停止する Application.ScreenUpdating = False 'For ループ (i が 1 から配列の要素数まで ) Dim i As Integer For i = 1 To UBound(openPath) ~~~~~~~( 途中省略 )~~~~~~~~~~~~~~~~ Next i ' 画面の描画を再開する Application.ScreenUpdating = True ' 処理が終わったことを MsgBox で出力 MsgBox " 全ブックからデータを抽出しました "