« ズンドコキヨシ with 秀丸マクロ | メイン | ズンドコキヨシ with AppleScript »

ズンドコキヨシ with Excel VBA

Javaの講義、試験が「自作関数を作り記述しなさい」って問題だったから
「ズン」「ドコ」のいずれかをランダムで出力し続けて「ズン」「ズン」「ズン」「ズン」「ドコ」の配列が出たら「キ・ヨ・シ!」って出力した後終了って関数作ったら満点で単位貰ってた
そこで、Excel VBAで作ってみた。
Sub Zundoko()
    Do While True
        If Rnd < 0.5 Then
            ActiveCell.Value = "ズン"
        Else
            ActiveCell.Value = "ドコ"
        End If
        Cells(ActiveCell.Row + 1, ActiveCell.Column).Activate
        Dim zd As String
        zd = ""
        For i = 5 To 1 Step -1
            If ActiveCell.Row - i > 0 Then
            zd = zd + Cells(ActiveCell.Row - i, ActiveCell.Column).Value
            End If
        Next
        If zd = "ズンズンズンズンドコ" Then
            Exit Do
        End If
    Loop
    ActiveCell.Value = "キ・ヨ・シ!"
End Sub
関連リンク

コメントを投稿

(いままで、ここでコメントしたことがないときは、コメントを表示する前にこのブログのオーナーの承認が必要になることがあります。承認されるまではコメントは表示されません。そのときはしばらく待ってください。)

Google

タグ クラウド