Excel VBA ベーシック 模擬問題 模擬試験

Excel VBA ベーシック 模擬問題 第22問  8章-2

次のコードを実行するとB列にA列セル内の文字数が代入されるマクロとして、
空欄に入る適切な語句を解答しなさい。

Sub Exam1()

 Dim i As Long

 For i = 1 To 5

  Cells(i, 2) = 【 ① 】(Cells(i, 1))

 Next i

End Sub

VBAベーシック関数
正解

【 ① 】len

【8章 関数】

解説

指定した文字列の長さを返す関数はLen関数です。
スペースも1文字分としてカウントされます。

本問題では、A列のセルを引数に指定して文字列の長さ(文字数)をB列に代入しています。

【Len関数】
…指定した文字列の長さを返します。

構文
Len(文字列)

VBAベーシック関数

【コード解説】

Sub Exam1()

 Dim i As Long

 For i = 1 To 5

’① For…Nextステートメント 変数「i」へ1から5の間で代入し、繰り返し処理をする。

  Cells(i, 2) = Len(Cells(i, 1))

’ Len関数でA列のセルを引数に指定して文字数をB列に代入する。

 Next i

’For…Nextステートメント 終了値まで変数「i」の繰り返し処理①へもどる。

End Sub