callmekohei's blog

はうあうあ はうあうあ

定時でカエルVBA - 2015-08-27

Summary

VBA (小ネタ)マリオをイミディエイトウィンドウにかいてみる! ちょっとしたネタですよ、というはなし

エクセルシートになんとなく描いてみて・・・

f:id:callmekohei00:20190121220432p:plain

デバッグウインドウ(イミディエイト ウインドウ)に出力する

f:id:callmekohei00:20190121220421p:plain

サンプルコード

''' draw mario
Sub Sample20150827()
    
    Dim inArr As Variant, s As Variant, str As String
    For Each inArr In Arr2DToJagArr(Worksheets("test").Range("A1:L16").Value)
        For Each s In inArr: str = IIf(s = 1, str & "●", str & " "): Next s
        Debug.Print str: str = ""
    Next inArr

End Sub

サンプルコードその2

Sub Sample20190211()
    
    ''' draw mario
    Dim inArr As Variant, s As Variant, str As String
    For Each inArr In Arr2DToJagArr(Worksheets("test").Range("A1:L16").Value)
        For Each s In inArr: str = IIf(s = 1, str & "●", str & " "): Next s
        Debug.Print str: str = ""
    Next inArr

End Sub