PowerPoint プレゼンテーション

Size: px
Start display at page:

Download "PowerPoint プレゼンテーション"

Transcription

1 演習課題レッスン (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

2 '(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

3 演習課題レッスン (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

4 '(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

5 演習課題レッスン (3) '(3) データ収集結果を削除する ' 転記されたデータを削除するマクロを作っておきましょう Sub clear03() ' 最終行を変数に取得 Dim MaxRow As Integer MaxRow = Worksheets(" データ収集 ").Cells(Rows.Count, 1).End(xlUp).Row + 1 '2 行目から最終行までのデータを削除する

6 '(3) データ収集結果を削除する ' 転記されたデータを削除するマクロを作っておきましょう Sub clear03() ' 最終行を変数に取得 Dim MaxRow As Integer MaxRow = Worksheets(" データ収集 ").Cells(Rows.Count, 1).End(xlUp).Row + 1 '2 行目から最終行までのデータを削除する Worksheets(" データ収集 ").Range("2:" & MaxRow).Value = ""

7 演習課題レッスン (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

8 '(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

9 演習課題レッスン (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

10 '(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

11 演習課題レッスン (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 '( 次のページへ )

12 演習課題 つづき '--- 請求書 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 '( 次のページへ )

13 演習課題 つづき '--- 請求書 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

14 '(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 '( 次のページへ )

15 つづき '--- 請求書 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 '( 次のページへ )

16 つづき '--- 請求書 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

17 演習課題レッスン (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

18 '(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

19 演習課題レッスン (8) '(8)For Each を使い 全シートを扱う 'For Each ループを使い 全シートのシート名を順番に出力してみましょう Sub example08() ' ワークシート変数を宣言 Dim wsinv As Worksheet ' すべてのワークシートから1つずつ取り出し wsinvに格納 ' ワークシート名を MsgBox で出力する MsgBox wsinv.name

20 '(8)For Each を使い 全シートを扱う 'For Each ループを使い 全シートのシート名を順番に出力してみましょう Sub example08() ' ワークシート変数を宣言 Dim wsinv As Worksheet ' すべてのワークシートから 1 つずつ取り出し wsinv に格納 For Each wsinv In Worksheets ' ワークシート名を MsgBox で出力する MsgBox wsinv.name Next wsinv

21 演習課題レッスン (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

22 '(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

23 演習課題レッスン (10) '(10)Workbooks.Open でファイルを開く ' 特定のパスにある Excel ブックを開きましょう Sub example10() ' 特定のパスにあるExcelブックを開く Workbooks.Open (" ") 特定のパスを自分で調べて入力してください

24 演習課題レッスン (11) '(11) ダイアログで選んだブックを開く ( 単一 ) ' ダイアログ画面で選んだ Excel ブックを開きましょう Sub example11() ' パスを格納する変数を宣言 Dim openpath As String ' ダイアログからブックを選び そのパスを格納 openpath = ' パスにあるブックを開く Workbooks.Open (openpath)

25 '(11) ダイアログで選んだブックを開く ( 単一 ) ' ダイアログ画面で選んだ Excel ブックを開きましょう Sub example11() ' パスを格納する変数を宣言 Dim openpath As String ' ダイアログからブックを選び そのパスを格納 openpath = Application.GetOpenFilename("Microsoft Excel ブック,*.xls?") ' パスにあるブックを開く Workbooks.Open (openpath)

26 演習課題レッスン (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

27 '(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

28 演習課題レッスン (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

29 '(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

30 演習課題レッスン (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

31 '(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

32 演習課題レッスン (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 型変数 配列になって受け取る

33 '(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 型変数 配列になって受け取る

34 演習課題レッスン (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))

35 '(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))

36 演習課題レッスン (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

37 '(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

38 演習課題レッスン (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

39 '(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

40 演習課題レッスン (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

41 '(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

42 演習課題レッスン (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 " 全ブックからデータを抽出しました "

43 '(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 " 全ブックからデータを抽出しました "

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション エクセルが自動化する マクロ VBA の魔法 4 大量ファイルを自動処理する! ブック & シートの処理入門 第 0 章 このコースの進め方 ゴール設定 サンプルマクロの体験 エクセル兄さんの マクロ VBA 講座シリーズでの位置づけ シリーズ 2,500 人以上が受講 ( 収録時点 ) 第 1 弾 超入門ショートマクロ編小さな作業を自動化 第 2 弾 脱入門請求書マクロ編一覧表 帳票作成 第 3

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション レッスン (1) あるワークシート中のあるセルを指定する Worksheets(" ワークシート名 ").Range(" セル ").Value ( 例 ) Worksheets(" データ収集 ").Range("A2").Value あるワークシートのセルから 別のワークシートのセルへ転記する Worksheets(" シート A").Range(" セル ").Value = Worksheets("

More information

[Excelが自動化するVBAの魔法2]購入者限定テキスト

[Excelが自動化するVBAの魔法2]購入者限定テキスト 第 0 章 全体像の把握 マクロの流れを整理する 法 第 0.5 章復習編 ( マクロ VBA の基礎を振り返る ) 第 1 章 第 2 章 第 3 章 セルとセル範囲の扱い (Range) 条件分岐 (If If Else If ElseIf) 変数に 番号を取得し のない表を作る [ Range("B" & r) のような記述 ] 第 4 章繰り返し (For Do While Do Until

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション [エクセルが自動化するVBAの魔法]購入 者限定テキスト カリキュラムの全体像 第0章 第0.5章 第章 第章 第章 講師 エクセル兄さん 全体像の把握 マクロの流れを整理する方法 復習編 マクロ VBAの基礎を振り返る セルとセル範囲の扱い Range 条件分岐 If If Else If ElseIf 変数に行番号を取得し 穴のない表を作る エクセル兄さん(IT講師の淳) YouTube約8,500名

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション Excel VBA の基本 2 はじめに 前回のおさらい 反復処理 (For...Next) ステップ実行 参考文献の 転記処理 VBA 関数 ( 引数と戻り値 ) 参考文献 立山秀利 入門者の ExcelVBA 講談社,2012. 1 ( はじめに )Excel でこんなこともできるよ! 1 開発 メニュー 挿入 から [ フォームコントロール ] [ スピンボタン ] を選択 2 ワークシート上でドラッグドロップする

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション Excel VBA の基本 1 VBA Visual Basic for Applications Office シリーズに搭載されているプログラミング言語 マクロを作成するために使われる 1 プログラミングとは 人間の意図した処理を行うようにコンピュータに指示を与えること セル A1 の内容をセル B1 にコピーしなさいセル A1 の背景色を赤色にしなさいあれをしなさいこれをしなさい 上から順番に実行

More information

Microsoft Word _VBAProg1.docx

Microsoft Word _VBAProg1.docx 1. VBA とマクロ 1.1 VBA とは VBA(Visual Basic for Applications) は 1997 年に Microsoft 社がマクロを作成するために開発された言語である Windows 対応のアプリケーションを開発するためのプログラミング言語 Visual Basic をもとにしているため 次のような特徴がある 1 VBA は Excel Word, Access,

More information

情報基礎A

情報基礎A 情報基礎 A 第 10 週 プログラミング入門 マクロ基本文法 4 1 配列 FOR~NEXT 全眞嬉 東北大学情報科学研究科システム情報科学専攻情報システム評価学分野 http://www.dais.is.tohoku.ac.jp/~jinhee/jyoho-19.html 6 人分の合計を計算 2 socre(0) socre(1) socre(2) socre(3) socre(4) socre(5)

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション 全コース Web フォロー付!! Excel VBA 初心者の方から始められる入門コースから 基本文法が学べるベーシックや 高度なプログラミングが学べるスタンダードまでしっかりと学習できます!! 学習の流れ Excel VBA 入門 VBA 初心者の方 Excel の基本知識をお持ちの方 Excel VBA ベーシック 基本文法を理解し 読解 ( 編集 ) 能力を身につけたい方 Exce lvba

More information

VBM01#解答解説# indd

VBM01#解答解説# indd 業務を効率化! ExcelVBA 実践コースレポート問題集解答 解説 第 1 単位 VBM-01-1 1406 問 2~ 問 5の解答は グレーのあみかけで示しています 本レポート問題集では テキストで学習したなかでも 特に 実務でよく使われる項目や 注意が必要なポイントについて出題しています 誤った設問については 解答を確認する前に 再度プロシージャを実行してみてください エラーが発生する場合は

More information

Microsoft Word - VBA基礎(3).docx

Microsoft Word - VBA基礎(3).docx 上に中和滴定のフローチャートを示しました この中で溶液の色を判断する部分があります このような判断はプログラムではどのように行うのでしょうか 判断に使う命令は IF 文を使います IF は英語で もし何々なら という意味になります 条件判断条件判断には次の命令を使います If 条件式 1 Then ElseIf 条件式 2 Then ElseIf 条件式 3 Then 実行文群 1 実行文群 2 実行文群

More information

ExcelVBA

ExcelVBA EXCEL VBA REGLECASSE YU SATO 目次 はじめに 開発タブの表示 拡張子 VBEの起動と初期設定 モジュールの挿入 削除 プロジェクト モジュール プロシージャ 変数の宣言 (Dim) If~Then For~Next 応用 :If~ThenとFor~Next ボタンの作成 最後に Subプロシージャ 基本説明 セルの指定 (Range) 変数とデータ型 (String,Long)

More information

ホームページ (URL) を開く 閉じる 益永八尋 VBA からホームページを開いたり 閉じたりします ホームページを開くはシート名 HP_Open で操作し ホームページを閉じるはシート名 "HP_Close" で操作します ホームページを開く方法はいくつかありますがここでは 1 例のみを表示します なお これは Web から入手したサンプルプログラムから使い勝手が良いように修正 追加したものです

More information

EXCEL VBA講座

EXCEL VBA講座 EXCEL VBA 講座 sheet 振り分け 目次 sheets の中身をデータによって分類する... 3 全行ループを作る... 3 各市のシートの行数を覚えておく連想配列を作る... 3 各シートにオートフィルタを掛ける... 4 変更が目に見えると遅くなる... 5 これらの処理をボタンから呼び出す... 5 現在のシートを印刷する... 6 sheets の中身をデータによって分類する 前回の練習で

More information

1. 入力画面

1. 入力画面 指定した時刻に指定したマクロ (VBA) を実行するプログラム (VBA) 益永八尋 様々な業務を行っている場合には 指定した時刻に指定したマクロ (Macro VBA) を実行したくなる場合がある たとえば 9:00 17: 00 や 1 時間 6 時間間隔に指定したマクロ (Macro VBA) を実行する この様な場合に対応できるように汎用性の高いプログラムを作成した この場合に注意する必要があるのは

More information

Microsoft PowerPoint - VBA解説1.ppt [互換モード]

Microsoft PowerPoint - VBA解説1.ppt [互換モード] 九州大学工学部地球環境工学科船舶海洋システム工学コース 計算工学演習第一 演習資料担当 : 木村 Excel 上のマクロを利用してプログラムを組む Visual Basic for Applications (VBA) のテクニック Excel のマクロとは? 一連の操作を自動的に行う機能 例 ) セル ( マス目 ) に数字を 1 から順番に埋めていく Excel のマクロでどんなプログラムが作れるのか?

More information

エクセルによる数値計算と化学への応用

エクセルによる数値計算と化学への応用 エクセルによる数値計算と化学への応用 群馬大学工学部 応用化学 生物化学科 平成 21 年 4 月 前期に PC を使った文書作成 表計算 プレゼンテーションを習得しました 後期には主に表計算を より高度に利用するための手法を勉強します 第 1 章計算の基礎 1.1 文字の表示 文字 ABC 1.2 四則計算 8 + 2 = 10 8-2 = 6 8 2 = 16 8 2 = 4 1.3 数列の和

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション 配列とコレクション 配列の使い方 固定配列 動的配列 コレクションの使い方 今日の目的 固定配列の宣言例 プロシージャレベル Dim arybuf(0 To 5) As Long モジュールレベル Private arybuf(0 To 5) As Long Public arybuf(0 To 5) As Long 固定配列の宣言例 プロシージャレベル Dim arybuf(0 To 5) As

More information

08‘͆i”O“Z†j

08‘͆i”O“Z†j 1 2 3 4 5 6 7 9 10 11 1 7 1 126 Microsoft Excel VBA Microsoft Excel VBA 127 Sub () ' ' []A2 A3A19 ' B19C19 ' ' []ABC ' DE ' ' ' [] ' ' [] ' ' Dim KaisyaName As String ' Dim TantouName As String ' Dim ShouhinName

More information

sinfI2005_VBA.doc

sinfI2005_VBA.doc sinfi2005_vba.doc MS-ExcelVBA 基礎 (Visual Basic for Application). 主な仕様一覧 () データ型 主なもの 型 型名 型宣言文字 長さ 内容 整数型 Integer % 2 バイト -32,768 32,767 長整数型 Long & 4 バイト -2,47,483,648 2,47,483,647 単精度浮動小数点数 Single 型!

More information

MS-ExcelVBA 基礎 (Visual Basic for Application)

MS-ExcelVBA 基礎 (Visual Basic for Application) MS-ExcelVBA 基礎 (Visual Basic for Application). 主な仕様一覧 () データ型 ( 主なもの ) 型型名型宣言文字長さ内容整数型 Integer % バイト -, ~, 長整数型 Long & バイト -,,, ~,,, 単精度浮動小数点数型倍精度浮動小数点数型 Single! バイト負値 : -.0E ~ -.0E- 正値 :.0E- ~.0E Double

More information

教科書原稿

教科書原稿 第 章配列変数とその宣言 変数の基本的な使い方は第 章で登場しました 変数は処理の途中の値を一時的に保存して, プログラム内で, 他の処理を行いたいときに使ってきました つの変数には一時的にはつのデータだけ保存できます この章では, 同じ目的で利用する複数の変数をまとめて扱うことのできるデータ構造の基本的な使い方について学びます VBA ではそのようなデータ構造を 配列 (Array) と呼びます

More information

カレンダー講座メモ

カレンダー講座メモ 万年カレンダー ( マクロの作成 ) 作成手順書 4 1. 編集準備 1 入力フォームの作成で作成した 万年カレンダー ( 第 3 版 ).xls をダブルクリック 2 < 名前を付けて保存 >と選択 3 万年カレンダー ( 完成版 ).xls と名付けて< 保存 >ボタンをクリック 2. マクロの作成 1 VBE(Visual Basic Editor) を開く 2 フォーム上のコントロールオブジェクトをダブルクリックして

More information

JavaプログラミングⅠ

JavaプログラミングⅠ Java プログラミング Ⅰ 12 回目クラス 今日の講義で学ぶ内容 クラスとは クラスの宣言と利用 クラスの応用 クラス クラスとは 異なる複数の型の変数を内部にもつ型です 直観的に表現すると int 型や double 型は 1 1 つの値を管理できます int 型の変数 配列型は 2 5 8 6 3 7 同じ型の複数の変数を管理できます 配列型の変数 ( 配列変数 ) クラスは double

More information

プレポスト【問題】

プレポスト【問題】 コース名 : 基礎から学ぶ!Excel VBA による業務の自動化 受講日 氏名 1 Excel VBA を使用するメリットとして誤っているものを 1 つ選びなさい 1. 手作業では手間のかかる作業も プログラムに記述した処理は一括して実行されるため 何段階ものメニュー操作を行う必要がなくなる 2. プログラムに書いた処理は記述どおりに実行されるため だれがいつ何回行っても確実な処理がなされ 誤動作を防ぐことができる

More information

上の図がプロジェクトエクスプローラです 通常 VisualBasicEditor 画面の左上に配置されています Microsoft Excel Objects( ワークシート ) フォーム 標準モジュール クラスモジュールなどに分かれていて それらの集まりをプロジェクトといいます Excel のワー

上の図がプロジェクトエクスプローラです 通常 VisualBasicEditor 画面の左上に配置されています Microsoft Excel Objects( ワークシート ) フォーム 標準モジュール クラスモジュールなどに分かれていて それらの集まりをプロジェクトといいます Excel のワー TextBox1 Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0 Beep なお 前回の記事で IF 条件式がわかりにくいとの指摘があったので そちらを再度 説明しましょう まず

More information

Microsoft Word - VBA基礎(6).docx

Microsoft Word - VBA基礎(6).docx あるクラスの算数の平均点と理科の平均点を読み込み 総点を計算するプログラムを考えてみましょう 一クラスだけ読み込む場合は test50 のようなプログラムになります プログラムの流れとしては非常に簡単です Sub test50() a = InputBox(" バナナ組の算数の平均点を入力してください ") b = InputBox(" バナナ組の理科の平均点を入力してください ") MsgBox

More information

C プログラミング演習 1( 再 ) 2 講義では C プログラミングの基本を学び 演習では やや実践的なプログラミングを通して学ぶ

C プログラミング演習 1( 再 ) 2 講義では C プログラミングの基本を学び 演習では やや実践的なプログラミングを通して学ぶ C プログラミング演習 1( 再 ) 2 講義では C プログラミングの基本を学び 演習では やや実践的なプログラミングを通して学ぶ 今回のプログラミングの課題 次のステップによって 徐々に難易度の高いプログラムを作成する ( 参照用の番号は よくわかる C 言語 のページ番号 ) 1. キーボード入力された整数 10 個の中から最大のものを答える 2. 整数を要素とする配列 (p.57-59) に初期値を与えておき

More information

Microsoft Word - VBA基礎(2).docx

Microsoft Word - VBA基礎(2).docx 変数 test1 を実行してみてください 結果はメッセージボックスに 100 と表示されるはずです Sub test1() a = 10 このプルグラムでは a という文字がつかわれています MsgBox の機能はこの命令に続くものを画面に表示することで MsgBox a * a す つまり a*a を表示しています プログラムでは * は掛け算を意味しますの で画面に 100 が表示されたということは

More information

94 expression True False expression FalseMSDN IsNumber WorksheetFunctionIsNumberexpression expression True Office support.office.com/ja-jp/ S

94 expression True False expression FalseMSDN IsNumber WorksheetFunctionIsNumberexpression expression True Office   support.office.com/ja-jp/ S Excel VBA a Excel VBA VBA IsNumeric IsNumber SpecialCells SpecialCells MSDNMicrosoft Developer NetworkIsNumeric IsNumber SpecialCells IsNumeric VBA IsNumericexpression SpecialCells 94 expression True False

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション プロシージャ プロシージャの種類 Subプロシージャ Functionプロシージャ Propertyプロシージャ Sub プロシージャ Subステートメント~ステートメントで囲まれる 実行はするけど 値は返さない 途中で抜けたいときは Exit Sub を行なう Public Sub はマクロの実行候補に表示される Sub プロシージャの例 Public Sub TestSubProc() Call

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション ループ ループとは? ある条件を満たすまで 指定の命令を繰り返す Do... Loop For Next For Each Next While WEnd ループの種類 Do Loop Do While 条件 ステートメント Loop Do ステートメント Loop While 条件 Do Until 条件 ステートメント Loop Do ステートメント Until Loop 条件 Do Loop

More information

Microsoft PowerPoint - Visualプログラミング

Microsoft PowerPoint - Visualプログラミング 流れの制御構造 多方向分岐 プログラムの制御構造は下記の 6 つ (1) 連接 ( 連なり ) (2) 所定回数反復 ( 一定回数の繰り返し ) (3) 判断 ( 分かれ ) (4) 多方向分岐 (5) 前判定反復 (6) 後判定反復 上記以外は使ってはいけない. 141 if 文による多方向に分岐する処理 (1) Sub elseif2() Dim a As Integer a = Range("A1").Value

More information

VB実用⑦ エクセル操作Ⅰ

VB実用⑦ エクセル操作Ⅰ VB でエクセル操作 Ⅰ VB 2005 7 プログラムの概要 事務処理に於いて Microsoft 社のスプレッドシートソフトで有るエクセルは データベースソフトで有るアクセスと共に 業界標準 (De Facto Standard) で有ると謂う事が出来る 此処では 其のエクセルを Visual Basic から操作する方法を 重点的に学ぶ 今回は Visual Basic でエクセルを利用する基本と成るオブジェクト生成と

More information

情報資源組織演習B:

情報資源組織演習B: 情報資源組織演習 A( 書誌の作成 ) 第 13 回書誌データ管理 検索システムの構築 第 14 回ネットワーク情報資源のメタデータ作成の実際 第 15 回まとめ 2013 年度跡見学園女子大学文学部准教授福田博同 検索システムの構築 ( 静的データベース ) 第 12 回で HTML ファイルに Google 検索窓を埋め込む方法は理解した 今回 :Excel の VBA を使い データベース的検索処理を行う

More information

第 1 章 VBA について 1 イントロダクション 校務で生徒や先生方のデータの集計など,Excel を使用することが多くなっています 日常,Excel で作業をしていると 同じ操作 を繰り返し行わなければいけないことが多くありませんか? この 同じ操作 を VBA を利用し, より業務を効率化さ

第 1 章 VBA について 1 イントロダクション 校務で生徒や先生方のデータの集計など,Excel を使用することが多くなっています 日常,Excel で作業をしていると 同じ操作 を繰り返し行わなければいけないことが多くありませんか? この 同じ操作 を VBA を利用し, より業務を効率化さ 平成 29 年度 プログラミング研修講座 岩手県立総合教育センター 第 1 章 VBA について 1 イントロダクション 校務で生徒や先生方のデータの集計など,Excel を使用することが多くなっています 日常,Excel で作業をしていると 同じ操作 を繰り返し行わなければいけないことが多くありませんか? この 同じ操作 を VBA を利用し, より業務を効率化させていきましょう 2 VBA とは

More information

最初に VBA が使用できるように マクロ と呼ばれるエクセル上のアプリ ( のようなもの ) を準備します Excel メニューの ファイル オプション を選択 表示される Excel のオプション から リボンのユーザー設定 を選択 メインタブ 内の 開発 にチェックを付けて OK をクリック

最初に VBA が使用できるように マクロ と呼ばれるエクセル上のアプリ ( のようなもの ) を準備します Excel メニューの ファイル オプション を選択 表示される Excel のオプション から リボンのユーザー設定 を選択 メインタブ 内の 開発 にチェックを付けて OK をクリック ブログ自動投稿ツールの作り方 (Excel 2013 版 ) さとうちはる さんの無料レポート 超簡単! 誰にでも出来る ブログ記事自動投稿ツールを作成する方法をご紹介 アフィリエイトにはめんどくさい作業や退屈な作業がたくさんあります やりたくない作業はツールを使って自動化しよう 文末にはツールの無料プレゼントあります http://mailzou.com/get.php?r=82982&m=15301

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション エクセルが自動化する マクロ VBA の魔法 外伝 ゲームでわかる! マクロ VBA 超入門 エクセル兄さん (IT 講師の淳 ) はじめに オンラインセミナー エクセル兄さんLive にて Udemy受講者 メルマガ読者限定 2018.10 2019.2に配信した 映像の総集編 映像が乱れてしまうことがあります マウスが二重に表示するなど マクロの魔法 シリーズ ( 収録時点 ) 第 1 弾 超入門ショートマクロ編小さな作業を自動化

More information

表紙

表紙 三重大学教育学部研究紀要第 67 巻自然科学 (2016) 23-32 頁 EXCEL マクロを使ったアンケート収集方法 山守一徳 AColectionMethodofQuestionnairesUsingEXCELMacro KazunoriYAMAMORI 要 旨 大学ではアンケートを取らなければならない活動が増え そのための労力をかなり要している 特に 集計する作業は手間が掛かる そこで EXCEL

More information

アプリケーション

アプリケーション アプリケーション開発 お絵かきソフト 目次 お絵かきソフトを作ってみよう... 3 絵を書く枠と場所表示を作る... 3 マウスの動きを見てみよう... 4 絵を書く準備をします... 5 絵を書くとはどういうことか... 5 では線画を描いてみよう... 6 マウスをドラッグしたときだけ線を引くように改造する... 8 お絵かきソフトを作ってみよう 今回は お絵かきソフトを作ってみましょう マウスを動かして線画を書いてみましょう

More information

pp2018-pp9base

pp2018-pp9base プログラミング入門 Processing プログラミング第 9 回 九州産業大学理工学部情報科学科神屋郁子 ( pp@is.kyusan-u.ac.jp ) 時限 クラス 水 1 機械 ( クラス 3) 水 2 機械 ( クラス 1) 水 4 電気 (B1 B2) 後ろ 5 列は着席禁止 3 人掛けの中央は着席禁止 今後の予定 第 9 回 : 複数の図形 (2) 繰り返しと座標変換第 回 : 画像の表示と音の再生

More information

ii

ii Excel VBA VBA 2002 ii CONTENTS 1 2 3 4 5 6 7 8 9 10 1 2 2 EXVBA2_2002 1-2 1-2.xls 12 Sub () Dim FstValue(6) As Integer Dim NextValue(6) As Integer Dim TtlValue(6) As Integer Dim i As Integer Set WS =

More information

よくわかる Microsoft Excel 2019/2016/2013 マクロ/VBA(FPT1910)

よくわかる Microsoft Excel 2019/2016/2013 マクロ/VBA(FPT1910) 練習問題 総合問題 解答 Microsoft Excel 209/206/203 マクロ /VBA 練習問題解答 2 総合問題解答 対象書籍 よくわかる Microsoft Excel 209/206/203 マクロ /VBA(FPT90) 練習問題解答 第 章練習問題 開発 タブを選択 2 コード グループの ( マクロの記録 ) をクリック 3 マクロ名 に 集計削除 と入力 4 マクロの保存先

More information

本サンプル問題の著作権は日本商工会議所に帰属します また 本サンプル問題の無断転載 無断営利利用を厳禁します 本サンプル問題の内容や解答等に関するお問 い合わせは 受け付けておりませんので ご了承ください 日商プログラミング検定 STANDARD(VBA) サンプル問題 知識科目 第 1 問 ( 知

本サンプル問題の著作権は日本商工会議所に帰属します また 本サンプル問題の無断転載 無断営利利用を厳禁します 本サンプル問題の内容や解答等に関するお問 い合わせは 受け付けておりませんので ご了承ください 日商プログラミング検定 STANDARD(VBA) サンプル問題 知識科目 第 1 問 ( 知 本サンプル問題の著作権は日本商工会議所に帰属します また 本サンプル問題の無断転載 無断営利利用を厳禁します 本サンプル問題の内容や解答等に関するお問 い合わせは 受け付けておりませんので ご了承ください 日商プログラミング検定 STANDARD(VBA) サンプル問題 知識科目 第 1 問 ( 知識 4 択 :20 問 ) 1. ユーザが行った操作を記録して同じ操作を自動で行うことができる機能を何というか

More information

DAOの利用

DAOの利用 DAO VB2005 で DAO を使用して Excel のデータを取得 Visual Basic 6.0 Dim DB As DAO.Database Dim RS As DAO.Recordset Dim xlfilename As String Dim xlsheetname As String xlfilename = Form1.StatusBar1.Panels(12) & Dir(Form1.StatusBar1.Panels(12)

More information

コンピュータ概論

コンピュータ概論 5.1 VBA VBA Check Point 1. 2. 5.1.1 ( bug : ) (debug) On Error On Error On Error GoTo line < line > 5.1.1 < line > Cells(i, j) i, j 5.1.1 MsgBox Err.Description Err1: GoTo 0 74 Visual Basic VBA VBA Project

More information

再利用して保存する場合は 新規登録 ボタン 1000 件まで登録できます 読み込んだ見積もりデータを 請求書に送るときは 請求へ複写 ボタン 2 請求書の作成 請求書 ボタンを押し 必要な項目を入力し 印刷 新規登録 ボタン data 読込 ボタンで作成済みデータを読みこめます 登録修正番号の数値の

再利用して保存する場合は 新規登録 ボタン 1000 件まで登録できます 読み込んだ見積もりデータを 請求書に送るときは 請求へ複写 ボタン 2 請求書の作成 請求書 ボタンを押し 必要な項目を入力し 印刷 新規登録 ボタン data 読込 ボタンで作成済みデータを読みこめます 登録修正番号の数値の 見積書請求書作成 V2.0 メニュー ( 表紙 ) このメニューにあるボタンのマクロはシートへの移動マクロです このファイルを 利用する場合には シートの保護を解除しないでください データの削除や移動はしないでください ファイルが壊れます 見積請求作成平成 25 年 7 月作業の流れは 1 見積書の作成 見積書 ボタンを押し 必要な項目を入力し 印刷 新規登録 ボタン data 読込 ボタンで作成済みデータを読みこめます

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション エクセルを用いて プログラミングを体験する p1 2 1. はじめに 1.1. 本の 1.2. プログラムの例 1.3. プログラムの考え方 1.4. 用語集 (1/2) 1.5. 用語集 (2/2) 1. はじめに 1 本の 3 本のを知る 本は プログラミングをはじめて学ぶ人のために エクセル上で動作するプログラムを解説するものである なお 使用環境や知識は 次の程度を想定している 対象とするソフト

More information

Microsoft Word - 206MSAccess2010

Microsoft Word - 206MSAccess2010 第 6 章データベース 6.1 MS-Access 2010 の起動 終了 1.Access2010 の起動 (1) マウスの左ボタンでスタートボタンをクリックします (2) 表示されるメニューの [ すべてのプログラム ] にマウスカーソルを移動します (3) 表示されるプログラム一覧から [Microsoft Office] [Microsoft Access 2010] の順にクリックすると

More information

情報処理概論(第二日目)

情報処理概論(第二日目) 情報処理概論 工学部物質科学工学科応用化学コース機能物質化学クラス 第 8 回 2005 年 6 月 9 日 前回の演習の解答例 多項式の計算 ( 前半 ): program poly implicit none integer, parameter :: number = 5 real(8), dimension(0:number) :: a real(8) :: x, total integer

More information

コンピュータの構成

コンピュータの構成 目録システム : 図書館関連 DB 例 1. 図書書誌テーブル. 著者名典拠テーブル 3. 統一書名典拠テーブル 4. 件名典拠テーブル 5. 図書所蔵テーブル 6. 業者テーブル 7. 利用者テーブル 8. 貸出用利用者テーブル 9. 貸出テーブル 11. 図書予約テーブル 1. 予算テーブル 13. 収書テーブル 14. 雑誌巻号テーブル 15. 継続発注テーブル 16. 電子図書館メタデータテーブル

More information

エクセル マクロ 言 語 とは エクセルのマクロとは 手 番 をあらかじめ 記 述 しておくことにより 通 常 手 操 作 している 処 理 を 自 動 化 すること 自 動 化 したものです マクロで 手 番 を 記 録 すれば 繰 り 返 し 作 業 を 自 動 化 できます また 連 続 的

エクセル マクロ 言 語 とは エクセルのマクロとは 手 番 をあらかじめ 記 述 しておくことにより 通 常 手 操 作 している 処 理 を 自 動 化 すること 自 動 化 したものです マクロで 手 番 を 記 録 すれば 繰 り 返 し 作 業 を 自 動 化 できます また 連 続 的 エクセルの マクロ 言 語 (VBA)に 慣 れるためのメモ 2014/1/31~ ~2015/12/31 作 成 : 縁 木 精 史 エクセル マクロ 言 語 とは エクセルのマクロとは 手 番 をあらかじめ 記 述 しておくことにより 通 常 手 操 作 している 処 理 を 自 動 化 すること 自 動 化 したものです マクロで 手 番 を 記 録 すれば 繰 り 返 し 作 業 を 自 動

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション はじめに エクセルが自動化する マクロVBAの 魔法 オンラインセミナー エクセル兄さんLive にて 外伝 Udemy受講者 メルマガ読者限定 2018.10 2019.2に配信した 映像の総集編 ゲームでわかる マクロVBA 超入門 映像が乱れてしまうことがあります マウスが二重に表示するなど エクセル兄さん(IT講師の淳) 1 2 マクロの魔法 シリーズ 収録時点 第2弾 脱入門 マクロの魔法

More information

ExcelVBA Excel VBA Microsoft Excel VBA Visual Basic for Applications Excel Excel VBA ExcelVBA Excel ExcelVBA Excel VBA Excel ExcelVBA ExcelVBA VBA Ran

ExcelVBA Excel VBA Microsoft Excel VBA Visual Basic for Applications Excel Excel VBA ExcelVBA Excel ExcelVBA Excel VBA Excel ExcelVBA ExcelVBA VBA Ran Excel VBA Microsoft Excel VBA Visual Basic for ApplicationsExcel Excel VBA Excel ExcelVBA Excel VBA Excel ExcelVBA VBA Range Excel 174 VBA VisualBasicforApplications Microsoft ExcelWordAccessPowerPoint

More information

各種パスワードについて マイナンバー管理票では 3 種のパスワードを使用します (1) 読み取りパスワード Excel 機能の読み取りパスワードです 任意に設定可能です (2) 管理者パスワード マイナンバー管理表 の管理者のパスワードです 管理者パスワード はパスワードの流出を防ぐ目的で この操作

各種パスワードについて マイナンバー管理票では 3 種のパスワードを使用します (1) 読み取りパスワード Excel 機能の読み取りパスワードです 任意に設定可能です (2) 管理者パスワード マイナンバー管理表 の管理者のパスワードです 管理者パスワード はパスワードの流出を防ぐ目的で この操作 マイナンバー管理表 操作説明書 管理者用 2015 年 11 月 30 日 ( 初版 ) 概要 マイナンバー管理表 の動作環境は以下の通りです 対象 OS バージョン Windows7 Windows8 Windows8.1 Windows10 対象 Excel バージョン Excel2010 Excel2013 対象ファイル形式 Microsoft Excel マクロ有効ワークシート (.xlsm)

More information

D0090.PDF

D0090.PDF 400. 1 1 1 3 500g 180cm A A 0g 500g 500g 500g 0.2 0.3 cm 500g 1kg 12 2 4 2 1 2 1 500g 500g 500g 2 A FreeFall 2 VBEditor 1 1 Option Explicit Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)

More information

前回の内容 山形大学 OIRE の HP で公開している Power BI レポート 出身高校の所在地県別入学者数 ( 学校基本調査 ) の 2 ページ目と 6 ページ目を作成し Web を通じて共有することができる そのために必要なステップ 1. 公開データを入手 2. データ変

前回の内容 山形大学 OIRE の HP で公開している Power BI レポート 出身高校の所在地県別入学者数 ( 学校基本調査 ) の 2 ページ目と 6 ページ目を作成し Web を通じて共有することができる そのために必要なステップ 1. 公開データを入手 2. データ変 RESHAPING DATA WIDE TO LONG ~ データマネジメント勉強会の趣旨説明 ~ 山形大学学術研究院 (IR 担当 ) 藤原宏司 kfujiwara@cc.yamagata-u.ac.jp February 26, 2018 データマネジメント に関する勉強会 ( 於 : 東京工業大学キャンパスイノベーションセンター (CIC)509 号室 ) 前回の内容 山形大学 OIRE の

More information

Microsoft Word - HowToConvertIdwToDwg.doc

Microsoft Word - HowToConvertIdwToDwg.doc IDW から DWG 形式への保存方法 1. 準備 Inventor で図面化したドキュメント (idw) を DWG 形式に変換する手順について紹介します Inventor の コピーに名前を付けて保存 の機能だけでは 画層や寸法スタイル 文字スタイルの設定が 一般的に AutoCAD Mechanical( 以下 ACM) で使われる設定と異なるため そのままでは AutoCAD や ACM で編集するには不便です

More information

Java KK-MAS チュートリアル

Java KK-MAS チュートリアル artisoc チュートリアル お問合せは創造工学部まで TEL : 03-5342-1125 E-mail : artisoc@kke.co.jp 株式会社 構造計画研究所 164-0012 東京都中野区本町 4-38-13 創造工学部 TEL:03-5342-1125 FAX:03-5342-1225 社会現象をシミュレーションしよう ユーザフレンドリーなマルチエージェント シミュレータ artisoc

More information

Excel2013 マクロ

Excel2013 マクロ OA スキルアップ Excel2013 マクロ 1 / 12 マクロ機能概要 マクロとは Excel2013 マクロ マクロとは Excel で行う一連の操作を自動実行させる機能です 毎日繰り返し行う業務はマクロとして登録しておけば 効率的に仕事を進めることができます マクロの作成方法 マクロは 次の 2 つの方法で作成できます 1. マクロの記憶機能を使う実際に操作した内容をそのまま記録してマクロを作成

More information

Microsoft Word - VB.doc

Microsoft Word - VB.doc 第 1 章 初めてのプログラミング 本章では カウントアップというボタンを押すと表示されている値が1ずつ増加し カウントダウンというボタンを押すと表示されている値が1ずつ減少する簡単な機能のプログラムを作り これを通して Visual Basic.NET によるプログラム開発の概要を学んでいきます 1.1 起動とプロジェクトの新規作成 Visual Studio.NET の起動とプロジェクトの新規作成の方法を

More information

Microsoft PowerPoint - vp演習課題

Microsoft PowerPoint - vp演習課題 演習課題 (1) 27 Nov., '18 katakan2hiragana.xlsm は, 下図のように 4~8 行目の B 列に漢字で表記した氏名,C 列にカタカナで表記したヨミガナ,D 列にひらがなで表記したよみがなを表示させることを意図している. このシートは, セル範囲 "B4:B8"( 図の赤枠内 ) に, キーボードから漢字で氏名を入力すると C 列にカタカナのヨミガナが自動的に表示されるようになっている.

More information

VBAfiüŒåŁÒver2

VBAfiüŒåŁÒver2 Microsoft Excel 1 2 3 4 5 Application.CommandBars("Stop Recording").Visible = True 6 Range("A1").Value = WorksheetFunction.RoundDown(9.27, 0) 7 modorichi = MsgBox(" ",, "") modorichi = MsgBox(prompt:="

More information

.NETプログラマー早期育成ドリル ~VB編 付録 文法早見表~

.NETプログラマー早期育成ドリル ~VB編 付録 文法早見表~ .NET プログラマー早期育成ドリル VB 編 付録文法早見表 本資料は UUM01W:.NET プログラマー早期育成ドリル VB 編コードリーディング もしくは UUM02W:.NET プログラマー早期育成ドリル VB 編コードライティング を ご購入頂いた方にのみ提供される資料です 資料内容の転載はご遠慮下さい VB プログラミング文法早見表 < 基本文法 > 名前空間の定義 Namespace

More information

マクロの実行許可設定をする方法 Excel2010 で 2010 でマクロを有効にする方法について説明します 参考 URL:

マクロの実行許可設定をする方法 Excel2010 で 2010 でマクロを有効にする方法について説明します 参考 URL: マクロの実行許可設定をする方法 Excel2010 で 2010 でマクロを有効にする方法について説明します 参考 URL: http://excel2010.kokodane.com/excel2010macro_01.htm http://span.jp/office2010_manual/excel_vba/basic/start-quit.html Excel2010 でマクロを有効にする

More information

D0020.PDF

D0020.PDF n 3 X n Y n = Z n 17 1995 300 n n 2 3 2 a b c c 2 a 2 b 2 600 2000 322 3 15 2 3 580 3 1 5 4 3 2 1 300 2 1 2 1 1 ExcelVBA 2 VBA 1 VBA 2 API Sleep ExcelVBA 2 100 60 80 50 ExcelVBA API Sleep 3 100 60 (80

More information

ii Excel Excel IF IF IF VLOOKUP HLOOKUP IF VLOOKUP HLOOKUP ExcelVBA Excel Excel Excel Web p Excel Excel Excel

ii Excel Excel IF IF IF VLOOKUP HLOOKUP IF VLOOKUP HLOOKUP ExcelVBA Excel Excel Excel Web p Excel Excel Excel Excel Excel Excel Excel Excel Excel Excel ii Excel Excel IF IF IF VLOOKUP HLOOKUP IF VLOOKUP HLOOKUP ExcelVBA Excel Excel Excel Web p Excel Excel Excel iii Excel Excel 1 Excel 3 6 11 15 18 19 24 26 28

More information

とします 後者は Excel 上の指定したセル範囲を R 上にデータフレームとして保存します たとえば セル A1 から B10 の範囲の値 ( 1 行目は変数名 それ以外はデータとする ) を R 上にデータフレーム mydf として保存するには Rinterface.PutDataframe m

とします 後者は Excel 上の指定したセル範囲を R 上にデータフレームとして保存します たとえば セル A1 から B10 の範囲の値 ( 1 行目は変数名 それ以外はデータとする ) を R 上にデータフレーム mydf として保存するには Rinterface.PutDataframe m ( 独 ) 農業 食品産業技術総合研究機構農村工学研究所農村計画部主任研究員 合崎英男 2000 年 3 月北海道大学大学院農学研究科博士後期課程修了 博士 ( 農学 ) 農林水産省農業研究センター研究員 農業工学研究所研究員 同主任研究官を経て 06 年 4 月より現職 専門分野は農業経済学 ( 主に環境配慮や食品安全性に関する意思決定分析 ) 1. はじめに RExcel シリーズ第 4 回では

More information

プログラミング入門1

プログラミング入門1 プログラミング入門 2 第 8 回表形式データ (1) 1 テーマ : 表形式データ (1) 配列と複合データを用いた表形式データ データの登録 データの検索 データの更新 実際的はソフトウェアでは 表形式データの ( 例えば データベースのデータ ) を利用する場面が非常に多く とても重要である そこで 表形式を扱うプログラミングを繰り返しとりあげる 2 テーマ : 表形式データ (1) 配列と複合データを用いた表形式データ

More information

連立方程式の解法

連立方程式の解法 連立方程式の解法連立方程式をエクセルを用いて解く方法は以下の 2 種類が考えられます 1) エクセルの行列関数を用いる 2) VBA でヤコビ法やガウスザイデル法を用いる ここでは両方について説明します 1) エクセルの行列関数を用いる方法エクセルは表計算ですから行と列に並んだ数値を扱うのは得意です 連立方程式は次のように行列を用いて表すことができます 連立方程式が行列形式で表されることを考慮して解法を考えてみます

More information

ファイル操作-インターネットキャッシュ

ファイル操作-インターネットキャッシュ ファイル操作 インターネット一時ファイルの保存場所 インターネットキャッシュ インターネット一時ファイルの保存場所は Internet Explorer の場合 下記の手順で確認する事が出来る 1.[ ツール ] [ インターネットオプション ] でインターネットオプション画面のダイアログを表示させる 2.[ 全般 ] タブで [ インターネット一時ファイル ] グループの [ 設定 ] をクリックすると

More information

Lesson 1 1 EXVBA2000 Lesson01 Lesson01.xls 2

Lesson 1 1 EXVBA2000 Lesson01 Lesson01.xls 2 Excel2000VBA L e a r n i n g S c h o o l 1 Lesson 1 1 EXVBA2000 Lesson01 Lesson01.xls 2 3 Module1:(General)- Public Sub () Dim WS As Object Dim DiffDate As Integer Dim MaxRows As Integer, CopyRows As Integer

More information

データアダプタ概要

データアダプタ概要 データベース TableAdapter クエリを実行する方法 TableAdapter クエリは アプリケーションがデータベースに対して実行出来る SQL ステートメントやストアドプロシージャで TableAdapter で型指定されたメソッドと仕て公開される TableAdapter クエリは 所有るオブジェクトのメソッドと同様に 関連付けられたメソッドを呼び出す事に依り実行出来る TableAdapter

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション No 区分実行版 dbsheetclient2013 リリースノート Project Editor 内容 2012/5/29 現在 管理 V 1 新機能 タスクタイプ 参照ブックを開く (62201) に以下の機能を追加しました 1 オープンしたブックのファイル名出力 指定したセルにオープンした Excel ブックのファイル名 ( パスを含む ) を出力します 2 オープンしたブックの上書き保存を許可する

More information

untitled

untitled ST0001-1- -2- -3- -4- BorderStyle ControlBox, MinButton, MaxButton True False True False Top Left Height,Width Caption Icon True/False -5- Basic Command1 Click MsgBox " " Command1 Click Command1 Click

More information

マクロ講座テキスト

マクロ講座テキスト エクセルが自動化するマクロ VBA の魔法 超入門編 ( エクセル兄さん ) テキスト ( 第 0 章 ~ 最終章 ) 内容 第 0 章 マクロはこんなに便利! サンプルマクロを使ってみよう... 3 サンプルを使ってみよう... 3 セキュリティの警告を解除してマクロ付きのブックを開く... 3 [ 補足 ] ファイルがどうしても開けない場合... 4 [ サンプルマクロ1] 一発で作業できる8つのボタン...

More information

情報C 実習プリント

情報C 実習プリント 高等学校 選択情報 実習プリント 8-1 < 基本操作 3> プログラムを体験しよう!1 ~アルゴロジック編 ~ 1コンピュータプログラムの基本となる思考 ( アルゴリズム ) について体験的に学ぶ 2プログラムの基本的な処理である 順次処理 繰り返し処理 分岐処理 を組み合わせた制御構造について体験的に学ぶ ELSE コマンド IF[ A ]ELSE[ B ]: もし であればA そうでなければB

More information

Microsoft Word - VBA基礎(1).docx

Microsoft Word - VBA基礎(1).docx エクセルやワードなどのオフィスプログラムには VBA(Visual Basic for Applications) で構成されるマクロという機能があります エクセルを使っていると同じ操作を何度も繰り返すことがあります. 例えば実験で得たデータを入力し, それをグラフにする操作は学生実験を行うと毎回のように行います. コンピュータを使った処理の便利な点は速い上に簡単に自分の望む結果が得られる点です.

More information

(Microsoft Word \203v\203\215\203O\203\211\203~\203\223\203O)

(Microsoft Word \203v\203\215\203O\203\211\203~\203\223\203O) 21113 Visual Basic を利用したフリーソフト開発 要旨 各自でフリーソフトを作成 インターネット上に公開することを目的とし Visual Basic2008 2010 を使い簡単なアプリの作成に成功した 1. 目的情報化が進んだ現代において 社会に出ていくためにはパソコンの一つや二つ 軽く扱えなければならない さらに 資源の乏しい日本においては今後 情報技術の発展することが望ましいと考える

More information

Microsoft PowerPoint - kakeibo-shiryo1.pptx

Microsoft PowerPoint - kakeibo-shiryo1.pptx 表計算ソフトを使って オリジナル家計簿を作ろう! < 基本編 > 午前の部 県立広島大学 経営情報学部経営情報学科 准教授小川仁士 2010/11/13 平成 22 年度県立広島大学公開講座 1-1 ガイダンス 使用するソフトウェア OS Microsoft Windows Vista 表計算ソフト Microsoft Office Excel 2007 オリジナル家計簿 ( 完成版 ) の基本仕様

More information

D0050.PDF

D0050.PDF Excel VBA 6 3 3 1 Excel BLOCKGAME.xls Excel 1 OK 2 StepA D B1 B4 C1 C2 StepA StepA Excel Workbook Open StepD BLOCKGAME.xls VBEditor ThisWorkbook 3 1 1 2 2 3 5 UserForm1 4 6 UsorForm2 StepB 3 StepC StepD

More information

方程式の解法

方程式の解法 方程式の解法 方程式 (f(x)) の解を求めるということはf(x)=0を意味し グラフ上では y=f(x) で X 軸との交点を求めることである ここではエクセルを用いて方程式の解を求める方法を3つ紹介する もちろん 前回教わったニュートンラフソン法も行う 1. グラフを確認しながら求める方法エクセルの便利な点は数値を簡単にグラフ化できる点である 中学校の数学でも教わったように方程式の解は X 軸と交差する点である

More information

テキストファイルの入出力1

テキストファイルの入出力1 テキストファイルの入出力 1 0. 今回の目的前回までは 2 回にわたって繰り返しについて学んできました 今回からテキストファイルの入出力について学ぶことにします 1. テキストファイルへの出力 1.1 テキストファイルについてテキストファイルとは コンピュータで扱うことが出来るファイルの中で最も基本的なファイルであり どの様な OS でもサポートされているファイル形式です Windows においては

More information

情報処理実習(工基3)

情報処理実習(工基3) 情報 ( 実習 )( 体育 4 班 ) 第 10 回エクセル篇 3 VBA を使ったプログラムによる関数のシミュレーション これまでの2 回で Excel の表計算ソフトとしての機能及び統計機能の初歩を実習しました Excel にはこれ以外にも大変有用な機能があります 今日はその中から VBA(Visual Basic Application) を使ったプログラムの初歩も習得しながら 関数のシミュレーションを行ってみたいと思います

More information

< 目次 > 1. 練習ファイルのダウンロード 表計算ソフト Excel の基本 Excel でできること Excel の画面 セル 行 列の選択 セルにデータを入力する ( 半角英数字の場合 )

< 目次 > 1. 練習ファイルのダウンロード 表計算ソフト Excel の基本 Excel でできること Excel の画面 セル 行 列の選択 セルにデータを入力する ( 半角英数字の場合 ) 2005 年度茅ヶ崎市情報教育研修会 < 目次 > 1. 練習ファイルのダウンロード... 2 2. 表計算ソフト Excel の基本... 3 2-1 Excel でできること... 3 2-2 Excel の画面... 3 2-3 セル 行 列の選択... 4 2-4 セルにデータを入力する ( 半角英数字の場合 )... 4 2-5 セルにデータを入力する ( 日本語の場合

More information

D:\Documents\Visual Studio 2015\Projects\MyHomePage 用サンプル \ExcelAndWord\ExcelAndWord\MainForm.cs 1 /* */ Excel や Word とやりとりする ~9,20 仕様 Excel

D:\Documents\Visual Studio 2015\Projects\MyHomePage 用サンプル \ExcelAndWord\ExcelAndWord\MainForm.cs 1 /* */ Excel や Word とやりとりする ~9,20 仕様 Excel D:\Documents\Visual Studio 2015\Projects\MyHomePage 用サンプル \ExcelAndWord\ExcelAndWord\MainForm.cs 1 /* */ Excel や Word とやりとりする 2015.9.19~9,20 仕様 Excel の場合は 処理メニュー選択用の新しいフォームを開き この実行ファイルと同じフォルダにある test.xlsb

More information

untitled

untitled StiLL StiLL Excel VBA IT Excel2000 2003 StiLL StiLL! Excel2007 StiLL -- -- Excel!!!! DB CSV VBA VBA ' VBA Public Sub SampleProgramDAO1() Dim SheetName As String Dim strname As String SheetName = "Sheet2"

More information

Base によるアプリケーション開発とサポート 鎌滝雅久 /OpenOffice.org 日本ユーザー会 OSC2007 Hokkaido 2007 年 6 月 30 日土曜日 10:55-11:40 北海道大学学術交流会館第 4 会議室

Base によるアプリケーション開発とサポート 鎌滝雅久 /OpenOffice.org 日本ユーザー会 OSC2007 Hokkaido 2007 年 6 月 30 日土曜日 10:55-11:40 北海道大学学術交流会館第 4 会議室 Base によるアプリケーション開発とサポート 鎌滝雅久 /OpenOffice.org 日本ユーザー会 OSC2007 Hokkaido 2007 年 6 月 30 日土曜日 10:55-11:40 北海道大学学術交流会館第 4 会議室 本日の予定 デモ ( どこでもPDF/ 見積書作成 ) Basicでプログラム~Visual Studioはいらない? Microsoft Officeからの移行

More information

目次 更新履歴... 1 はじめに... 3 レコードセット?... 3 準備... 5 SQL でデータを取得する... 6 データのループ処理... 7 列の値を取得する... 7 対象行を変更する (MoveFirst, MoveNext, MovePrevious, MoveLast)...

目次 更新履歴... 1 はじめに... 3 レコードセット?... 3 準備... 5 SQL でデータを取得する... 6 データのループ処理... 7 列の値を取得する... 7 対象行を変更する (MoveFirst, MoveNext, MovePrevious, MoveLast)... レコードセット (ADODB.Recordset) の使い方 作成日 : 2018/02/05 作成者 : 西村 更新履歴 更新日 更新概要 作業者 2018/02/05 新規作成 西村 1 目次 更新履歴... 1 はじめに... 3 レコードセット?... 3 準備... 5 SQL でデータを取得する... 6 データのループ処理... 7 列の値を取得する... 7 対象行を変更する (MoveFirst,

More information

プログラミング演習

プログラミング演習 プログラミング入門 Ⅰ (No.10) Ⅰ10-1 [1]Excel VBA を使ってみる VBA とは Visual Basic for Applications の略で Microsoft 社が自社の Office 製品 (Word, Excel PowerPoint Aceess, Outlook など ) で簡単にマクロを作れるように開発したプログラミング言語です 名前のとおり Visual

More information

フローチャート自動生成ツール yflowgen の使い方 目次 1 はじめに 本ツールの機能 yflowgen.exe の使い方 yflowgen.exe の実行方法 制限事項 生成したファイル (gml ファイル形式 ) の開

フローチャート自動生成ツール yflowgen の使い方 目次 1 はじめに 本ツールの機能 yflowgen.exe の使い方 yflowgen.exe の実行方法 制限事項 生成したファイル (gml ファイル形式 ) の開 フローチャート自動生成ツール yflowgen の使い方 目次 1 はじめに...2 2 本ツールの機能...2 3 yflowgen.exe の使い方...3 3.1 yflowgen.exe の実行方法...3 3.2 制限事項...3 3.3 生成したファイル (gml ファイル形式 ) の開き方...4 3.3.1 yed Graph Editor を使って開く...4 3.3.2 yed

More information

Microsoft PowerPoint - 第3回目.ppt [互換モード]

Microsoft PowerPoint - 第3回目.ppt [互換モード] 第 3 回プログラミング応用 目的ファイル入出力 1. ファイルの概念 2. ファイルの読み込み 3. ファイルの書き込み CPU 演算 判断 ファイルの概念 内部記憶装置 OS 機械語プログラム 入力装置 キーボード 出力装置 ディスプレイ ファイル 外部記憶装置ハードディスク CD-ROM CPU が外部とデータをやり取りするための媒介 printf 関数や scanf 関数でもうすでにファイルのやり取りの基本は学んでいる

More information

プログラミング演習

プログラミング演習 プログラミング入門 Ⅰ (No.11) Ⅰ11-1 [1] プログラムを修正する (1-1) 既にあるプログラムを開く 前回作ったプログラム prog1-10.xlsm を開いてみよう 既に保存してある VBA プログラムを開くには 以下のようにする ドキュメントから開く 1 Excel VBA のプログラムは Excel ファイルの中に入っているので Excel ファイルをダブルクリックする 2

More information

1. 入力画面

1. 入力画面 指定した時刻に指定したマクロ (VBA) を実行するプログラム (VBA) 益永八尋 様々な業務を行っている場合には 指定した時刻に指定したマクロ (Macro VBA) を実行したくなる場合がある たとえば 9:00 17: 00 や 1 時間 6 時間間隔に指定したマクロ (Macro VBA) を実行する また 月に 1 回 毎週 1 回定期的または不定期的にある時刻になれば指定したプログラムを実行させる

More information

次の病院 薬局欄は 氏名 欄に入力された値によって入力すべき値が変わります 太郎の行く病院と花子の行く病院が必ずしも同じではないからです このような違いを 設定 シートで定義しておきましょう 太郎の行く病院のリストを 太郎 花子の行く病院のリストを 花子 として 2 つのリストが定義されています こ

次の病院 薬局欄は 氏名 欄に入力された値によって入力すべき値が変わります 太郎の行く病院と花子の行く病院が必ずしも同じではないからです このような違いを 設定 シートで定義しておきましょう 太郎の行く病院のリストを 太郎 花子の行く病院のリストを 花子 として 2 つのリストが定義されています こ 医療費の入力と集計 まえがき 医療費は一年間の合計を計算し 10 万円を超えていれば税務申告に際して医療費控除を受けることができます そこで 医療費を記入するたびに自動集計される仕組みを考えてみましょう ここで紹介する 医療費の入力と集計 は 税務申告で必要となる医療費のデータを作成するのに使うものです 特徴は ドロップダウンリストから簡便に入力ができ 入力と同時に自動集計されるようにしてあることです

More information

ORの手法ゲームの理論3 (Excelによるゲーム理論実習)

ORの手法ゲームの理論3 (Excelによるゲーム理論実習) 統計科学第 4 回 ExcelVBA の基礎 2018/4/27 1 先週の感想から A 前回の授業では机上で学習を行い 次の授業で実際にエクセルを使って実習する流れがとてもよいと思いました 机上で解ったつもりでも エクセルの操作に躓いたりしたとき 先生に尋ねることができるので問題解決ができて良かったです テーマは面白かったのですが 先頭文字コードを 101 で割った余りが相性とは関連ないように思われるので

More information

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション FLEXSCHE Excel 帳票 入門ガイド 1 目次 2 EXCEL 帳票とは EDIF を用いて出力された一時データを元に それを EXCEL 形式の帳票として出力する機能です 利用するには FLEXSCHE EDIF の他 Microsoft Excel 2003 以降が必要です レイアウトデザインも EXCEL で行うので 多くの方に操作に抵抗なく編集していただけます この入門ガイドでは

More information

My関数の作成演習問題集

My関数の作成演習問題集 Excel Sum,Average,Max 330 BMI Excel My Excel VBA Visual BASIC Editor AltF11 Visual BASIC Editor My Function Function -1- Function ( As Single, As Single) As Double Function Funciton Funciton As Single

More information

2013 年 8 月 14 日 管理図作成マニュアル ( 案 ) 益永八尋 Ⅰ. プログラムの概要 品質管理において必要な QC7 道具の一つである管理図作成のプログラムを作成した このプログラムは 下記の管理図を作成するものである 1 BerX-R 管理図 2Me 管理図 3X 管理図 4np 管

2013 年 8 月 14 日 管理図作成マニュアル ( 案 ) 益永八尋 Ⅰ. プログラムの概要 品質管理において必要な QC7 道具の一つである管理図作成のプログラムを作成した このプログラムは 下記の管理図を作成するものである 1 BerX-R 管理図 2Me 管理図 3X 管理図 4np 管 管理図作成マニュアル ( 案 ) 益永八尋 Ⅰ. プログラムの概要 品質管理において必要な QC7 道具の一つである管理図作成のプログラムを作成した このプログラムは 下記の管理図を作成するものである 1 BerX-R 管理図 2Me 管理図 3X 管理図 4np 管理図 5p 管理図 6c 管理図 7u 管理図 プログラム作成に使用した文献は [ 新版 ]QC 入門講座 7 管理図の作り方と活用

More information

Prog1_6th

Prog1_6th 2019 年 10 月 31 日 ( 木 ) 実施配列同種のデータ型を有する複数のデータ ( 要素 ) を番号付けして, ひとまとまりの対象として扱うものを配列と呼ぶ 要素 point[0] point[1] point[2] point[3] point[4] 配列 配列の取り扱いに関して, 次のような特徴がある 1. プログラム中で用いる配列変数 ( 配列の本体を参照する参照型の変数 ) は必ず宣言しておく

More information