ここから本文です

エクセルについて教えてください。 VBAを入力したのですが、エラーが表示され...

eku********さん

2011/1/506:58:50

エクセルについて教えてください。
VBAを入力したのですが、エラーが表示されます。
どこが間違っているのでしょうか?
すみませんどうか、ご教授ください。

Sub スロット()

Dim reel As Variant
reel = Worksheets("data").Range("B3:D18")

Dim reelv As Variant
reerv = Range("b4:d4")

Dim i As Long
Dim f As Long

For i = 1 To 3
If reelf(i) Then
n(i) = n(i) + 1
If n(i) > 16 Then
n (i)
End If

reelv(1, i) = reel(n(i), i)
End If
Next i
Range("B4:d4") = reelv

If getasynckeystate(90) <> 0 Then
reelf(1) = False
End If
If getasynckeystate(88) <> 0 Then
reelf(2) = False
End If
If getasynckeystate(67) <> 0 Then
reelf(3) = False
End If

'game終了判定
If Not (reelf(1)) Then
If Not (reelf(2)) Then
If Not (reelf(3)) Then
gameflag = False

End If
End If
End If

'同期Waitを入れるには
waittime = Worksheets("data").Range("g2").Value
Do While gameflag
starttime = gettickcount
'スロットの処理
Do While gettickcount - starttime < waittime
sleep 1
Loop
Loop

'当たり判定
If reelrange(1) = reelrange(2) And reelrange(1) = reelrange(3) Then
If reelrange(1) = "7" Then
tempval = "大当たり"
ElseIf reelrange(1) = "BAR" Then
tempval = "中当たり"
Else
tempval = "小当たり"
End If
Else
tempval "は・ず・れ"

End If
'メッセージを表示
MsgBox tempval



End Sub

閲覧数:
257
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

por********さん

2011/1/507:03:32

こんにちは。
Option explicit ' すべての変数を明示的に宣言するようにします。
これを、このコードの先頭に追加、

よく見てください。エラーの行は「使っていない変数名」がありますよ。

エクセルのバージョンの問題ではないです

質問した人からのコメント

2011/1/5 14:54:33

感謝 回答有難うございます。
ミスに気が付きました。
また、今後もよろしくお願いします。

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる