ExcelVBAでズンドコキヨシ

煎じまくられたネタではありますが、投稿テストも兼ねてズンドコキヨシをしてみました。

Sub Zundoko()

Dim Kiyoshiarr(1) As String
Dim ZunDokostr As String
Dim Zuncnt As Integer
Dim i As Integer
Dim k As Integer

Kiyoshiarr(0) = "ズン"
Kiyoshiarr(1) = "ドコ"
i = 1

Do
    k = Int(2 * Rnd)
    ZunDokostr = ZunDokostr + Kiyoshiarr(k)
   
    If Kiyoshiarr(k) = "ズン" And Zuncnt < 4 Then
        Zuncnt = Zuncnt + 1
    ElseIf Kiyoshiarr(k) = "ドコ" And Zuncnt = 4 Then
        ThisWorkbook.Worksheets(1).Cells(i, 1).Value = ZunDokostr & "キ・ヨ・シ！"
        Exit Do '整ったので終わり！
    Else
        ThisWorkbook.Worksheets(1).Cells(i, 1).Value = ZunDokostr
        ZunDokostr = ""
        i = i + 1
        Zuncnt = 0
    End If
Loop

End Sub

VBAズンドコキヨシ記事、すでにたくさんあるんですけどいくつかみると１セル１ワードのものが多く、「やっぱりズンドコキヨシは１フレーズで収まらないと」と思って失敗/成功が確定するまでは書き出してないです。

作って見てから他の人のを見るともっと短いやり方とかあって、VBAでも奥が深いなあと思った次第。