VBM01#解答解説# indd

Size: px

Start display at page:

Download "VBM01#解答解説# indd"

ときこうい
5 years ago
Views:

1 業務を効率化! ExcelVBA 実践コースレポート問題集解答解説第 1 単位 VBM 問 2~ 問 5の解答はグレーのあみかけで示しています本レポート問題集ではテキストで学習したなかでも特に実務でよく使われる項目や注意が必要なポイントについて出題しています誤った設問については解答を確認する前に再度プロシージャを実行してみてくださいエラーが発生する場合はステップ実行をするなどしてまず自分でエラーの原因を探してみましょうそのうえでテキストの該当ページを参照し学習内容についての理解を徹底させてください

2 < 問 1> 設問 ⑴ ( イ ) 解説 :( テキスト10ページ参照 ) マクロを含むブックの拡張子は.xlsm です互換モード(.xls ) を使用することが多い場合はマクロを含むブックを保存するときにファイル形式に注意しましょう設問 ⑵ ( ア ) 解説 :( テキスト13ページ参照 ) Functionプロシージャは処理した結果を呼び出し元に返すプロシージャで自作の関数を作成することもできます設問 ⑶ ( ア ) 解説 :( テキスト14ページ参照 ) オブジェクトの階層構造を意識してコードを記述することでプログラムを作成する際のミスが減り思わぬエラーを避けることができます設問 ⑷ ( イ ) 解説 :( テキスト18 20ページ参照 ) データ型を指定しなかった場合エラーが起きた原因が見つけにくくなります変数を宣言するときにはあらかじめデータ型を指定するようにしましょう設問 ⑸ ( イ ) 解説 :( テキスト25 26ページ参照 ) 配列のインデックスは0から始まるため要素数は指定した値 + 1 になります

3 設問 ⑹ ( イ ) 解説 :( テキスト29 31ページ参照 ) 実際のプログラミングでミスしがちな点です条件式を指定する場合には = の有無をきちんと確認しましょう設問 ⑺ ( イ ) 解説 :( テキスト33ページ参照 ) Is 句や To 句を使用して値の範囲を指定することができますまた,( カンマ ) で区切って複数の条件を指定することもできます設問 ⑻ ( ア ) 解説 :( テキスト36ページ参照 ) Step 句には負の値を指定することもできます省略した場合は 1ずつ増加されます Step 句は単純な繰り返し処理では使用しないことも多いですが処理を逆順に行いたい場合などに使用する大切なキーワードです設問 ⑼ ( ア ) 解説 :( テキスト38ページ参照 ) For Each Nextステートメントは繰り返し処理の対象がグループであることが重要なポイントです設問 ⑽ ( ア ) 解説 :( テキスト42ページ参照 ) Do Loop ステートメントを使用する際には特に無限ループの状態にならないよう注意が必要です 3

4 < 問 2> 設問 ⑴ Sub Q_2_1() Rangeオブジェクトを使用してセルA2とC6を選択する Range("A2,C6").Select 解説 :( テキスト46 47ページ参照 ) 離れたセルを指定する場合は : ではなく, を使用しますなおテキストでは Range プロパティと表現していますが Range オブジェクトも同義ととらえてかまいませんより正確に表現すると Range プロパティを使用して取得できるセル ( オブジェクト ) が Range オブジェクトになります設問 ⑵ Sub Q_2_2() Sheet1 ワークシートにある社員名簿のセルB1からC6を Sheet1 ワークシートのセルA10 以降にコピーして貼り付ける (Pasteメソッドは使用しない ) Range("B1:C6").Copy Range("A10") 解説 :( テキスト53 56ページ参照 ) 単発のコピー処理であれば Pasteメソッドを使用するよりも Copyメソッドを使用したほうが効率的ですなおテキストでは触れていませんが引数名を明示してつぎのように記述しても正解となります Range("B1:C6").Copy Destination:= Range("A10") 4

5 設問 ⑶ Sub Q_2_3() セルA1をコピーする Range("A1").Copy セルB1からC1に書式のみ貼り付ける Range("B1:C1").PasteSpecial xlpasteformats 解説 :( テキスト53 56ページ参照 ) コピーしたセルを形式を選択して貼り付けするには PasteSpecialメソッドを使用します書式のみ貼り付ける場合には xlpasteformats を引数に指定します実務でもよく行う作業ですので指定のしかたを確認しておきましょう設問 ⑷ Sub Q_2_4() セルE1の値のみをコピーしてセルB8に貼り付ける (Copyメソッドは使用しない) Range("B8").Value = Range("E1").Value 解説 :( テキスト49 57ページ参照 ) 実務でも数式を入力したセルの結果だけを貼り付けたいという場合がよくあります Valueプロパティを使用した値の貼り付けは記述が簡単で便利ですので覚えておくとよいでしょうなおテキストでは触れていませんが Valueを省略しても同じように動作しますただし動作するというだけでよい記述のしかたとはいえない ( また現在では一般的ではない ) ため不正解とします 5

6 設問 ⑸ Sub Q_2_5() 実線で格子の罫線をセルA1からC6の表全体に引く Range("A1:C6").Borders.LineStyle = xlcontinuous 二点鎖線の罫線を表の1 行め ( セルA1からC1) の下側に引く Range("A1:C1").Borders(xlEdgeBottom).LineStyle = xldashdotdot 解説 :( テキスト63 65ページ参照 ) Bordersプロパティでセルの個々の罫線を設定することができます引数を省略した場合は格子状に罫線が設定されます LineStyleプロパティで罫線の種類を指定します本設問のように表などに罫線を設定する場合はまず全体を指定しそのあと個別の設定を行うとよいでしょう < 問 3> 設問 ⑴ Sub Q_3_1() 削除後警告のメッセージを非表示にする Application.DisplayAlerts = False 3 月ワークシートを削除する Worksheets("3 月 ").Delete 削除後警告のメッセージを表示する Application.DisplayAlerts = True 解説 :( テキスト72 74ページ参照 ) ワークシートを削除する場合警告のメッセージを非表示にするコードも記述することが大切ですプロシージャの終了後もその設定は有効になるためワークシートを削除したあとに警告のメッセージを表示する設定に戻す必要がありますこの一連の処理はまとめて覚えておきましょう 6

7 設問 ⑵ Sub Q_3_2() 4 月ワークシートのコピーをブックの一番右端に作成する Worksheets("4 月 ").Copy After:=Worksheets(Worksheets.Count) コピーしたワークシートの名前を 6 月にする Worksheets(Worksheets.Count).Name = "6 月 " After は大文字小文字を区別しません解説 :( テキスト75 76ページ参照 ) ワークシートをコピーするときの引数の指定方法について確認しました Countプロパティで取得した値を Worksheetsプロパティのインデックス番号として指定できる点がポイントですまたワークシート名の設定方法についてもあわせて確認しておきましょう 7

8 設問 ⑶ Sub Q_3_3() Dim FileName As String Dim Book As Workbook [ ファイルを開く ] ダイアログボックスを表示し選択されたブックのパスを変数 FileNameに代入するダイアログボックスに表示されるファイルの種類は Excelファイル ("Excelブック,*. xlsx") を指定する FileName = Application.GetOpenFilename("Excelブック,*.xlsx") 選択されたブックを開き変数 Bookに代入する Set Book = Workbooks.Open(FileName) MsgBox Book.Worksheets(1).Range("A1").Value Book.Close 解説 :( テキスト80 83ページ参照 ) ファイルを開くダイアログボックスを表示する処理は業務用のプログラムを作成する際にも頻出するため覚えておくとよいでしょうまたブックを開くと開いたブックがアクティブになりますそのためアクティブブックに対する処理を行うコードを記述してしまいがちですがこれはエラーの原因になりますブックを開く処理を行う際には開くと同時に変数に代入することが大切です 8

9 設問 ⑷ Sub Q_3_4() Dim Book As Workbook 新規ブックを追加して変数 Bookに代入する Set Book = Workbooks.Add 追加したブックを保存データ.xlsx という名前で 1-3.xlsm ブックと同じフォルダーに保存するなお 1-3.xlsm ブックが保存されているフォルダーは Pathプロパティを使用して取得すること Book.SaveAs ThisWorkbook.Path & " " & " 保存データ.xlsx" 解説 :( テキスト84 86ページ参照 ) ブックを追加したときに変数に代入していますこうすることでそのあとの処理を確実に行うことができます Addメソッドだけでなくこの一連の流れを確認しておきましょうまた名前を付けてブックを保存する処理もプログラム作成時に大切な処理です覚えておきましょうなお & " " & " 保存データ.xlsx" の部分は & " 保存データ.xlsx" と記述しても正解となりますまたテキストでは触れていませんが & " " & の部分をつぎのように記述することもできます & Application.PathSeparator & PathSeparatorプロパティは区切り文字( ) を表します 9

10 < 問 4> 設問 ⑴ Sub Q_4_1() Dim num As Long セルA2からA6に入力されているデータの個数をCOUNTAワークシート関数を用いて取得し変数 numに代入するなお引数にはRangeオブジェクトを使用し : を使った形式でセル範囲を指定すること num = Application.WorksheetFunction.CountA(Range("A2:A6")) MsgBox " 人数 :" & num 解説 :( テキスト96 97ページ参照 ) ワークシート関数をVBAで利用するには WorksheetFunctionオブジェクトのメソッドを使用します VBAでワークシート関数を利用できると Excelのワークシートを操作する感覚で関数を使うことができるためとても便利です 10

11 設問 ⑵ Sub Q_4_2() Dim temp As String Dim pos As Long Dim vname As String Dim i As Long For i = 2 To 6 temp = Cells(i, 2).Value 半角スペースの位置をInStrRev 関数を使用して取得し変数 posに代入する pos = InStrRev(temp, " ") 氏名から名のみを取得して変数 vnameに代入する vname = Right(temp, Len(temp) - pos) Debug.Print vname Next 解説 :( テキストページ参照 ) テキストで紹介しているブックのフルパスからファイル名のみを取得するプロシージャの応用ですたとえば住所から県名のみを取り出すなどある文字を区切り文字としてその前後のいずれかの文字を取り出すという処理は実務でもよく登場しますコードの記述方法をきちんと理解しておきましょうなお InStrRev 関数を使用する指示が特になければ InStr 関数を使用してつぎのように記述することもできます pos = InStr(temp, " ") 11

12 設問 ⑶ Sub Q_4_3() Dim Target As Range Dim temp As String Dim i As Long For Each Target In Range("C2:C6") セルの値をすべて全角に置換して変数 tempに代入する変換する文字列は Valueプロパティを使って取得する temp = StrConv(Target.Value, vbwide) 置換後の値の全角スペースを半角スペースに変換し元のセルに入力する Target.Value = Replace(temp, " ", " ") Next 解説 :( テキストページ参照 ) 文字列の変換と置換を1つのプロシージャ内で行っています文字列を変換するには StrConv 関数を置換するにはReplace 関数を使用します文字列操作はこのように複数の処理を組み合わせて行うことがよくあります 12

13 設問 ⑷ Sub Q_4_4() Dim temp As Date Dim vstr As String 本日の日付から30 日後の日付を求め変数 tempに代入する temp = DateAdd("d", 30, Date) 変数 tempの値の書式を yyyy/mm/dd にして変数 vstrに代入する vstr = Format(temp, "yyyy/mm/dd") MsgBox "30 日後 :" & vstr 解説 :( テキストページ参照 ) 日付の処理は業務でも必須のものですそのため DateAdd 関数についてテキストとは少し異なる応用問題で確認しましたまたここで行っているように日付のフォーマットを整えることは書類を作成するうえで大切なことです Format 関数を使った表示形式の設定もできるようにしておきましょう < 問 5> 設問 ⑴ Private Sub Workbook_Open() With Worksheets("Sheet1").Activate A 列の入力行を取得する.Cells(.Rows.Count, 1).End(xlUp).Offset(1).Select End With 13

14 解説 :( テキストページ参照 ) [ プロジェクトエクスプローラ ] で ThisWorkbook ブックモジュールをクリックして [ コードウィンドウ ] を開き Openイベントプロシージャにコードを記述します Endプロパティを使用して表の最終行を取得する処理 Offsetプロパティを使用して最終行の1つ下のセルを取得する処理はプログラムで表を扱う際に必須の処理ですここでは Withステートメントを使用して記述を省略していることに注意しましょうなおテキストでは触れていませんがつぎのように記述しても正解となります.Range("A" &.Rows.Count).End(xlUp).Offset(1).Select.Cells(.Rows.Count,"A").End(xlUp).Offset(1).Select 設問 ⑵ Private Sub Worksheet_Change(ByVal Target As Range) With Range("A1").CurrentRegion If Not Intersect(Target,.Columns("A")) Is Nothing Then If Len(Target.Value) <> 5 Then MsgBox " 会員番号は5 桁の値です " イベント処理が発生しないようにする Application.EnableEvents = False 入力されたセルの値のみ削除する ( 書式は削除しない ) Target.ClearContents イベント処理が発生するようにする Application.EnableEvents = True End If End If End With 解説 :( テキストページ参照 ) [ プロジェクトエクスプローラ ] で Sheet1 シートモジュールをクリックして[ コードウィンドウ ] を開き Changeイベントプロシージャにコードを記述します 14

15 セルの内容だけを削除したい場合は ClearContentsメソッドを使用しますまた Changeイベント内でセルに対する処理を行うときにはイベントが発生しないようにすることが大切ですこの処理を行わなくてもプログラムが動作することはありますがその場合必ずムダな処理が発生しますイベントを有効に戻しておくことも忘れないようにしましょう設問 ⑶ Sub Q_5_3() Dim sh As Worksheet エラーが発生したときにラベル (ErrHdl) にジャンプして処理を行う On Error GoTo ErrHdl Set sh = Worksheets(" 名簿 ") sh.activate MsgBox " 処理を終了します " プロシージャを抜けて処理を終了する Exit Sub ErrHdl: MsgBox " エラーが発生しました " 解説 :( テキストページ参照 ) エラー処理の基本的な記述方法を確認しましたこのプロシージャは名簿という名前のワークシートがあればアクティブにして処理を終了しますというメッセージを表示しない場合にはラベルまでジャンプして処理を行います特に Exit Sub を記述して処理を終了することが大切ですこの記述を忘れてしまうとエラーが発生しなかった場合でもラベル以降の処理が行われてしまいます 15

16 16

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション演習課題レッスン (1) '(1) ワークシートどうしのやりとり ' ワークシート請求書 1 からワークシートデータ収集にデータを転記しましょう Sub example01() ' 請求書番号 ( 請求書 1のE2からデータ収集のA2へ ) Worksheets(" データ収集 ").Range("A2").Value = Worksheets(" 請求書 1").Range("E2").Value