🐣基本編⓻基本で学んだことの確認

Dim S$

Sub サンプル()

Dim A#

Stop

A = 5
S = "テスト"
X = 1
Y = 1


'----------------------------------------------スコープの確認
Application.StatusBar = ("S=" & S)
MsgBox ("S=" & S)
Debug.Print ("サンプル1　A" & A & " X" & X & " Y" & Y & " S=" & S)

サブ
標準

Debug.Print ("サンプル2　A" & A & " X" & X & " Y" & Y & " S=" & S)
'----------------------------------------------ループ　If Thenの確認
For Y = 1 To 2
    For X = 1 To 2
        D(Y, X) = "Y" & Y & " X" & X '配列に格納
        Cells(Y, X) = D(Y, X)
    Next
Next

Y = 1
Do
    If Cells(Y, 1) = "" Then Exit Do ' ""←ヌル(0の文字列)でループを抜ける
    Y = Y + 1
Loop
Cells(Y, 1) = "ループを抜けました"

End Sub

Public D$(2, 2)
Public X#
Public Y#

Sub 標準()
'エラーがでたら'Dim S$のシングルクォーテーションを取る

Dim A#
'Dim S$

Debug.Print ("標準　　   A" & A & " X" & X & " Y" & Y & " S=" & S)

End Sub

お疲れ様でした😎