【ExcelVBA公開模試】何行目から始まり何行目で終わるか
文法を無視して、とりあえず動けばいいという邪道ExcelVBA講座こと「速読VBA単語」に準拠した問題を出題します。
問題
A列に文字列が入力されている(図1)。いま、途中に空白セルはなく連続して文字列が入力されており、昇順(50音順)に並んでいることが分かっているものとする。このなかに「れもん」があれば何行目から何行目にあるかをMsgboxで表示し(図2)、無ければその旨を表示しなさい(図3)。ただし、セルA1から順に探すものとし、空白セルが1つでもあったら探すのをやめるものとする。
<図1>
<図2>
<図3>
わえなび式 正解例
(このページの下にあります)
目標回答時間
プロ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
バックナンバー
この記事が気に入ったらサポートをしてみませんか?