ここから本文です

VBAで「subまたはfunctionが定義されていません。」と出てきてしまいます。 初歩...

dus********さん

2014/2/119:47:50

VBAで「subまたはfunctionが定義されていません。」と出てきてしまいます。
初歩的なことだと思うのですが、調べてみても解決方法がよくわかりませんでした。
問題のコードはこちらです。

Sub Macro1()
Dim j, i, k As String
Dim ryou, toi4, toi5 As String
Dim myCnt As Long

i = 1

For myCnt = 1 To 9
If Cells("BI", myCnt).Value = 1 Then
k = k + 1
break
End If
Next myCnt

For myCnt = 1 To 12
If k = "1" Then
If Cells("BR", myCnt).Value = 1 Then
ryou = ryou + 1
break
End If
End If
Next myCnt

toi4 = k
toi5 = toi5 + ryou
ryou = 0

Range("CE1").Value = toi4
Range("CE2").Value = toi5

End Sub

黄色くなるのは一番最初のSub Macro1()の部分です。
どなたかよろしくおねがいします。。

閲覧数:
29,265
回答数:
1
お礼:
500枚

違反報告

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

jet********さん

編集あり2014/2/120:32:15

"B1"をただの1にして、breakをexit forにしてみて下さい。

パソコンから追記
breakもう1か所ありましたね。
ループから抜けるためならExit Forですのでそちらに変更。

よく見たらB1じゃなくてBIだったんですね。
If Cells("BI", myCnt).Value = 1 Then
If Cells("BR", myCnt).Value = 1 Then
これひょっとしてcells(列数,行数).valueのつもりで書いてますか?だとしたら間違い。
cells(行数,列数)に直してください。
それとcellsの中は数字で表すことになっているのでcells(mycnt,61)という風にしてください。

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

2014/2/1 21:54:57

笑う 解決しました!親切で丁寧な説明、ありがとうございました!

あわせて知りたい

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

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

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

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

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

閉じる

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

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

閉じる