文法を無視して、とりあえず動けばいいという邪道ExcelVBA講座こと「速読VBA単語」に準拠した問題を出題します。

問題

A列に文字列が入力されている（図１）。いま、途中に空白セルはなく連続して文字列が入力されており、昇順(50音順)に並んでいることが分かっているものとする。このなかに「れもん」があれば何行目から何行目にあるかをMsgboxで表示し（図２）、無ければその旨を表示しなさい（図３）。ただし、セルA1から順に探すものとし、空白セルが1つでもあったら探すのをやめるものとする。

＜図１＞

＜図２＞

＜図３＞

わえなび式 正解例

（このページの下にあります）

目標回答時間

プロ3分以内、アマチュア10分以内に処理ができたら合格

この問題の出題範囲

「速読VBA単語」Program3-8まで

ご案内

ExcelVBAをなんとなく理解できればいいという初心者のための「速読VBA単語」を受講希望の方はカリキュラムをご覧ください。

正解例

Sub moshi()
    start_row = 0
    last_row = 0
    i = 1
    Do While Cells(i, 1) <> ""
        If Cells(i, 1) = "れもん" Then
            start_row = i
            last_row = i
            Do While Cells(last_row + 1, 1) = "れもん"
                last_row = last_row + 1
            Loop
            Exit Do
        End If
        i = i + 1
    Loop
    If start_row > 0 Then
        MsgBox start_row & "～" & last_row & "行目"
    Else
        MsgBox "Not Found"
    End If
End Sub

バックナンバー