【カテゴリー別】Excel VBA スタンダード 模擬問題　変数

次のマクロはオブジェクト変数を使用したマクロである。 空欄に入る適切な語句を解答しなさい。

以下のコードは、ブックの最後のシートのセルD5に"Country"と入力するマクロである。 空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim ws As

　 Set ws = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

　ws.Range("D5").Value = "Country"

End Sub

次のマクロはオブジェクト変数を使用したマクロである。 空欄に入る適切な語句を解答しなさい。

以下のコードは、ブックの最後のシートのセルD5に"Country"と入力するマクロである。

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

Sub Exam1()

　Dim ws As Worksheet

　  ws = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

　ws.Range("D5").Value = "Country"

End Sub

以下のコードはプロシージャが終了すると、宣言したオブジェクト変数を破棄するマクロである。

以下のコードはオブジェクト変数を用いて、シートの追加やアクティブシートを指定するマクロである。

マクロ実行後のアクティブシートのシート名を解答しなさい。

・マクロ実行後のアクティブシートのシート名は である。

なおオブジェクト変数「ws1」に格納されたシートの名前は「Sheet1」である。

Sub Exam1() 　

　Dim ws1 As Worksheet , ws2 As Worksheet 　

　Set ws1= ActiveSheet 　

　Set ws2 = Worksheets.Add　　

　　ws1.Activate 　　

　　ws2.Name = "Total"

End Sub

次のコードは、１列目に入力されている"Japan"という文字列が入力されているセルの個数をカウントし、

メッセージボックスに個数を表示するマクロである。

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

Sub Exam1()

　Dim i As Long, count As Long

　For i = 2 To 11

　　If Cells(i, 1) = "Japan" Then

　　　count = count +

　End If

　Next i

　　MsgBox count

End Sub

次のコードは2列目から５列目まで、各列ごとの数値を合計し、その値を合計行に入力するマクロである。

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

Sub Exam1()

　Dim total As Long

　Dim i As Long, j As Long

　For j = 2 To 5

　　total =

　　　For i = 2 To 8

　　　　　total = total + Cells

　　　Next i

　Cells(9, j) = total

　Next j

End Sub

次のコードはB列が"Tomato"だった時の、C列の合計を表示するマクロである。

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

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

Sub Exam1()

　Dim i As Long, N As Long

　For i = 2 To 10

　　If Cells(i, 2) = "Tomato" Then

　　　N = N + Cells(i, 3)

　　End If

　Next i

　　MsgBox N

End Sub