ここから本文です

ExcelでVBAをやっているのですが、実行できないのでどこが間違っているか教えてく...

abc********さん

2012/11/1923:44:31

ExcelでVBAをやっているのですが、実行できないのでどこが間違っているか教えてください。

1~10000のなかで13又は17又は19で割れる数の個数をVBAで実行させたいのですが、コードが合っていないので実行できません。
実行するために、どこが間違っているのか原因を探求してください。

Private Sub UserForm_Initialize()
Dim i As Integer
Dim cnt As Integer
cnt = 0
For i = 1 To 10000
If (i - (i / 13) * 13) = 0 Then
cnt = cnt + 1
ElseIf (i - (i / 17) * 17) = 0 Then
cnt = cnt + 1
ElseIf (i - (i + 19) * 19) = 0 Then
cnt = cnt + 1
End If
Next i
Label3.Caption = cnt
End Sub

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

違反報告

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

kyo********さん

2012/11/2000:15:17

VBA

『 実行できない 』 場合は、【Label3】のオブジェクト名を確認する必要があります。
計算が相違している場合は下記を参考に。


Private Sub UserForm_Initialize()
Dim i As Long
Dim Cnt As Long
For i = 1 To 10000
If i Mod 13 = 0 Or i Mod 17 = 0 Or _
i Mod 19 = 0 Then Cnt = Cnt + 1
Next i
Label3.Caption = Cnt
End Sub

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

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

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

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

閉じる

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

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

閉じる