【カテゴリー別】Excel VBA スタンダード 模擬問題　テーブル操作

次のコードは、見出し行もふくめ全て選択後、行数を表示するマクロである。

空欄に入る適切な語句を解答しなさい。

なおテーブル名は"table1"である。

Sub Exam1()　

　With Sheets("sheet1").ListObjects (" ").Range.Select

　 MsgBox Selection.Rows.Count

　End With

End Sub

次のコードは見出し行も含めテーブル全体を選択し、その行数を表示するマクロである。

空欄に入る適切な語句を解答しなさい。

なおシート上にはテーブルは１つのみである。

Sub Exam1()

　With Sheets("sheet1").ListObjects ().Range.Select

　　MsgBox Selection.Rows.Count

　End With

End Sub

次のコードはシートの左側のテーブルが最初に作成され、右側のテーブルが2番目に作成されたマクロである。

この状態でマクロを実行したとき、下線が設定されたセルの値は である。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

  With ActiveSheet.ListObjects(2)

    .Range.AutoFilter 2, "Germany"

     .ListColumns(3).DataBodyRange.Font.Underline = True

  End With

End Sub 

次のコードは、テーブル内のセルよりテーブル全体を特定し、コピーを実行するマクロである。

以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Range("A1").  ..Copy Sheets("Sheet7").Range("B1")

End Sub

次のコードは、テーブル内のセルから別のシートにコピーをするマクロである。

実行後コピー先シートに反映された行数は 行である。

以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Range("A1").ListObject.HeaderRowRange.Copy Sheets("Sheet1").Range("B1")

End Sub

次のコードは、1列目を見出しごと選択し、選択した列数を表示するマクロである。

以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　 Range("A1").ListObject. .Range .Select

　MsgBox Selection.Columns.Count

End Sub

次のコードを実行した時に、表示されるメッセージは である。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　With Range("A1").ListObject.ListRows (2).Range.Select

　　MsgBox Selection.Row

　End With

End Sub

次のコードは、テーブルのすべてをSheet11のセルB2へコピーするマクロである。

以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Range("table1 ").Copy Sheets("Sheet11").Range("B2")

End Sub

次のコードはテーブル全体をコピーするマクロである。

空欄に入る適切な語句を解答しなさい。

なお、対象となるテーブルの名前は「table1」であるものとします。

Sub Exam1()

　　With Range(" [ ]")

　　　.Copy Sheets("Sheet12").Range("B2")

　　End With

End Sub

次のコードは、テーブルの見出し行のみを指定のシートへコピーするマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Range("table1 ").Copy Sheets("Sheet1").Range("B2")

End Sub

次のコードは、テーブルの集計行をコピーするマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Range("table1 ").Copy Range("E5")

End Sub

以下のコードは、テーブル内の"Data2"列のデータ部分を選択するマクロである。

空欄に入る適切な語句を入力しなさい。

Sub Exam1()

　Range("table1 ").Select

End Sub

次のコードは、テーブル内の見出しを含む3列目を指定するマクロである。

以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

  Range("table1[[ ],[]]").Select

End Sub

テーブル「Table1」の「DATA1」列において、見出しを除いた「データ部分のみ」を指定する構造化参照の記述として正しいものを解答しなさい。

Range("Table1[]")

あるいは

Range("Table1[[],[上記空欄と同じ]] ")

と記述します。

以下の文章はテーブルの部位「行」を指定する説明である。

空欄に入る適切な語句を解答しなさい。

・テーブルの「行」を指定する方法

構造化参照を使って(Rangeとテーブル名を使用して)、テーブルの行を指定することはできません。

テーブルの行を指定したいときは、ListObject. で行全体を表します。

以下のコードはフィルターで絞り込み後、テーブル内の見出し行ごとコピーし、

シート名「Sheet8」のセルC1に貼り付けるマクロである。

以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　With Range("A1").ListObject.

　　.AutoFilter 3, "700"

　　.Copy Sheets("Sheet8").Range("C1")

　End With

End Sub

次のコードはテーブルのすべてのセルを対象に3列目にオートフィルターをかけてデータを探すマクロである。

空欄に入る語句を解答しなさい。

Sub Exam1()

　Range("A1").ListObject. .AutoFilter 3, "600"

End Sub

次のコードは、2列目が"Germany"であるデータを、見出し行も含め全てSheet6のセルB1へコピーするマクロである。

コードの実行結果 個分のセルがコピーされた。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　With Range("A1").ListObject.Range

　　.AutoFilter 2, "Germany"

　　.Copy Sheets("Sheet6").Range("B1")

　　.AutoFilter 2

　End With

End Sub

以下のコードを実行した時表示されるメッセージはである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Range("A1").ListObject.DataBodyRange.Copy Sheets("Sheet9").Range("A1")

　　MsgBox Sheets("Sheet9").Range("C1")

End Sub

次のコードはテーブルをオートフィルターで絞り込み、テーブル内の列を複数コピーするマクロである。

実行後メッセージに表示された数値は である。

Sub Exam1()

　With Range("A1").ListObject

　　.Range.AutoFilter 2, "Tennis"

　　.ListColumns(1).Range.Copy Sheets("Sheet2").Range("A1")

　　.ListColumns(3).Range.Copy Sheets("Sheet2").Range("B1")

　End With

　　MsgBox Sheets("Sheet2").Range("A3") * Sheets("Sheet2").Range("B3")

End Sub

次のコードは指定のセルを含むテーブルを絞り込み、テーブル内の2列目のみコピーするマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　With Range("A1").ListObject

　　.Range.AutoFilter 3, "800"

　　. (2).Range.Copy Sheets("Sheet10").Range("B2")

　End With

End Sub

次のコードを実行後、メッセージに表示される値は である。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim N As Long

　　With Range("A1").ListObject

　　　.DataBodyRange.AutoFilter 3, "800"

　　　.ListColumns(1).DataBodyRange.Value = "―"

　　　.DataBodyRange.AutoFilter 3

　　End With

　　　N = WorksheetFunction.SumIf(Range("A1:A10"), "1", Range("C1:C10"))

　　　　MsgBox N

End Sub

次のコードは、オートフィルターを実行し条件にあった箇所の文字列にアンダーラインつけるマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

  With ActiveSheet.ListObjects(2)

　  .Range.AutoFilter 2, "Spinach"

     .ListColumns(3).DataBodyRange. .Underline = True

  End With

End Sub 

以下のコードは、セルA１を含む表データ部の1列目を"2"で絞り込み後行を削除しメッセージを表示するマクロである。

メッセージに表示された値は   である。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　With Range("A1").ListObject.DataBodyRange

　.AutoFilter 1, "2"

　.EntireRow.Delete

　.AutoFilter 1

　　　MsgBox .Rows.Count

　End With

End Sub

次のコードはテーブルにオートフィルターをかけた後、

構造化参照でデータ部分から行を特定し、フィルターで特定したデータを含む行全体を削除するマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Range("table1").AutoFilter 3, "900"

　　Range("table1 ").EntireRow.Delete

　Range("table1").AutoFilter 3

End Sub

以下のコードは、セルA１を含む表データ部の1列目を"2"で絞り込み後行を削除しメッセージを表示するマクロである。

メッセージに表示された値は   である。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　With Range("A1").ListObject.DataBodyRange

　.AutoFilter 1, "2"

　.EntireRow.Delete

　.AutoFilter 1

　　　MsgBox.Rows.Count

　End With

End Sub

次のコードを実行した時に表示されるメッセージは である。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim A As Long

　With Range("A1").ListObject

　　.ListColumns.Add

　A = .ListColumns.Count

　　.ListColumns(A).DataBodyRange = "=[@Data3]*0.7"

　End With

　　MsgBox WorksheetFunction.Sum(Range("D2:D10"))

End Sub  

次のコードはテーブルの右側に列を追加し、セルに値を入力するコードである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim A As Long

　With Range("A1").ListObject

　　.ListColumns.  

　　　A = .ListColumns.Count

　　.ListColumns(A).DataBodyRange = "=[@Data3]*0.7"

　End With

End Sub

以下のコードはRangeと構造化参照で列を指定して、指定列の右側に列を挿入し、

挿入列の各セルに数式を代入するマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Range("table1[[#Data], [Data2]]"). (0, 1).Formula = "= []*1.5"

End Sub