このVBAソースのどこが間違ってるか教えてください

質問

Dim csp As Integer 'ストップ
Dim css As Integer 'ストップorスタート

Sub Quest2()
If css = 0 Then
css = 1
Quest2a
Else
cstp = 1
css = 0
End If

End Sub

Sub Quest2a()
Sheets("Sheet1").Select
Range("B1:J10").Select
Selection.Interior.ColorIndex = x1None
Range("a1").Select

cstp = 0
Do
r = 1: c = 5
For i = 0 To 15
If i < 9 Then
Cells(r, c).Interior.ColorIndex = x1None
r = r + 1
If i < 5 Then
c = c + 1
Else
c = c - 1
End If
Cells(r, c).Interior.ColorIndex = 3
Else
Cells(r, c).Interior.ColorIndex = x1None
r = r - 1
If i < 13 Then
c = c - 1
Else
c = c + 1
End If
Cells().Interior.ColorIndex = 3
End If
'タイミング
For tm1 = 1 To 1000: For tm2 = 1 To 100: Next
If cstp = 1 Then
Exit For
End If
Next
DoEvents

If cstp = 1 Then
Exit For
End If
If r = 3 And c = 5 Then
Cells(r, c).Interior.ColorIndex = x1None

End If
Next
DoEvents
If cstp = 1 Then
Exit Do
End If
Loop
Cells(10, 9) = Cells(r, c)
Cells(10, 9).Interior.ColorIndex = 8
End Sub

回答No.2

wuyan · ベストアンサー

とりあえず明らかに間違っているのは

x1None (数字の一) ではなくて

xlNone (アルファベットのエル)

が正解。

お礼

有難うございますそうだったんですか・・・
色も動作もおかしなことになっているので、その点を修正確認してみます

回答No.1

taka451213

こんにちは。

まず、何をしたいのかがわからない・・・。
変数も突然出現している（エラーではないが、望ましくない）。
タイミングのところのFor文の意味が不明。

ソースだけ載せるのもどうかと・・・。
(^^ゞ

補足

申し訳ありません
送信完了してから補足文入れてなかったことに気がつきまして・・・
このVBAのソースは簡易ルーレット用のソースですよろしくお願いします。