【カテゴリー別】Excel VBA ベーシック 模擬問題　セルの操作

VBAでセルを指定する際に使用する用語として、適切ではないものを選択肢から1つ解答しなさい。

Valueプロパティについての記述として、適切ではないものを選択肢から１つ解答しなさい。  

セル内の値を表す記述として間違っているものを、選択肢から1つ解答しなさい。

セルのTextプロパティについての記述として、適切なものを選択肢から1つ解答しなさい。

セルに表示された文字列を読み取る記述として、正しいものを選択肢から1つ解答しなさい。

セルのFormulaプロパティについての記述として、適切なものを選択肢から1つ解答しなさい。

セル内の数式の取得や数式の代入をするプロパティとして、正しい記述を選択肢から解答しなさい。


1.Range("A1").Value

2.Range("A1").Formula

3.Range("A1").Text

4.Range("B1").Formula = "=Sum(A1:A3)"

次のマクロを実行したとき、メッセージボックスに表示される変数の値について、

正しいものを選択肢の中から１つ答えなさい。

Sub Exam1()

   Dim i As Long, A As Long

    For i = 2 To 11

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

            A = Cells(i, 1).Offset(2, 1)

        End If

    Next i

    MsgBox A

End Sub

次のコードは単一セルのセルA3を、セル範囲A3:B5に拡大し選択するコードである。空欄に入る語句として正しいものを１つ解答しなさい。

Range("A3").Resize【　①   】.Select

’指定のセルを3行２列にサイズ変更する。

次のコードは条件にあったセルが見つかった時に、指定のセルに入力されている値をクリアにするマクロである。

セル内の値がクリアになったセルはどこか選択肢の中から一つ解答しなさい。

Sub Exam1()

    Dim i As Long

    For i = 2 To 11

        If Cells(i, 2) = "Southeast Asia" Then

           Cells(i, 2).Resize(, 1).ClearContents

        End If

    Next i

   End Sub

次のコードは1列目をシートの一番下から上に進み、値がある最初のセル内をクリアにするマクロである。

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

Sub Exam1()

　Cells(Rows.【　①   】, 1).End(xlUp).ClearContents

End Sub

以下のコードは表のデータ部分のみを別のシートにコピーするマクロである。

適切な選択肢を2つ解答しなさい。

次のコードはセルA1を含む連続したセル範囲に、行が何行あるかを調べるマクロである。

選択肢の中から空欄に入る正しいものを１つ解答しなさい。

Sub Exam1()

    Dim N As Integer

   　 N = Range("A1").【　①    】.Rows.Count

    MsgBox N

End Sub

選択されている複数のセルの中で文字入力可能な、１つのセルにのみ値を入力するマクロとして、正しいものを１つ選択肢から選びなさい。

シート上で選択されている複数セルに「VBA」と代入するマクロとして、

空欄に入る適切な語句を選択肢より解答しなさい。

Sub Exam1()

【　 ① 　】.Value = "VBA"

End Sub

以下のマクロを実行したときに、最後にアクティブ状態のセルはどれか。選択肢より１つ解答しなさい。

Sub Exam1()

　Range("A2").Activate

  Range("D2:E3").Select

  　 Selection.Offset(2, 3).Select

End Sub

次のコードはシートから別のシートへセルをコピーするマクロである。なおアクティブシートはシートの一番左端にある「sheet1」である。

このマクロの説明として、正しいものを選択肢の中から１つ解答しなさい。

Sub Exam1()

　Sheets("sheet1").Range("A2").Copy _

Sheets("sheet3").Range("A2").Offset(1)

End Sub

ClearContentsメソッドに関する説明として、適切でないものを選択肢の中から一つ解答しなさい。

以下のマクロを実行時、セルを削除したあとに左方向にシフトする記述として空欄に入る語句を選択肢から１つ解答しなさい。  

Sub Exam1()

　Range("C3").Delete Shift:=【　①　】

End Sub

以下のマクロはB列が500より小さい場合、A列からC列までをE列に順にコピーするマクロである。

空欄を埋める適切なものを選択肢から１つ解答しなさい。

Sub Exam1()

   Dim i As Long, A As Long

      For i = 2 To 11

          If Cells(i, 2) < 500 Then

                A = A+1

               Range(Cells(i, 1), Cells(i, 3)).Copy 【　①   】

            End If

        Next i

   End Sub

B列の値が「Europe」である行のA列からD列までのセルの値を斜体にするマクロとして、

空欄に入る正しい語句を選択肢より１つ解答しなさい。

Sub Exam1()

  Dim i As Long

    For i = 2 To 11

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

       　【　①   】(Cells(i, 1), Cells(i, 1).End(xlToRight)).Font.Italic = True

        End If

    Next i

End Sub

次のVBAの行と列の指定の説明のうち、正しいものを２つ解答しなさい。

次のコードは表の最終行全体を削除するマクロである。

空欄に入る適切な選択肢を１つ解答しなさい。

Sub Exam1()

     Cells(Rows.Count, 1).End(xlUp).【　①    】.Delete     

End Sub