20/04/28 02:18:31 wtscQEd50.net
Sub ループuntil()
Dim g As Long
g = 3
Do Until Cells(g, 2) = ""
Cells(g, 6) = Cells(g, 2) + Cells(g, 3) * 10
g = g + 1
Loop Dim ms As String
ms = MsgBox(g & "回ループ", vbYesNo, "どうやら")
If ms = vbYes Then
MsgBox "更に練習", vbYesonly, "じゃあ" Else
MsgBox "論外", vbYesonly, "てめーは"
End If
End Sub
何とか練習しつつ
ここにきてデータ型が逆に混乱してきましたわ
バリアントでごまかそうかな
おやすみなさい