ID非公開

2022/1/21 0:58

11回答

学校のExcelの課題でつまりました。

学校のExcelの課題でつまりました。 デバッグ（？）が駄目なようで… 「このコマンドを使うとデバッグは中断します」とでます。 何が間違えているんでしょうか…？ 課題の説明で書かれているものと全く同じに記入しているはずなのですが… Sub 例4VBAに挑戦2() Dim gyou As Integer Dim retu As Integer Dim basyo As String Set ws1 = Worksheets("例題") retu = 3 gyoy = 15 For retu = 3 To 6 Step 1 Do basyo = ws1.Cells(gyou, retu) If basyo = "日本" Then ws1.Cells(gyou, retu).Interior.ColorIndex = 8 MsgBox "日本発見" End If gyou = gyou + 1 Loop While basyo <> 0 gyou = 15 Next End Sub

補足

basyo = ws1.Cells(gyou, retu) に黄色のマーカーがでています。

Visual Basic・70閲覧

ベストアンサー

1
関数は苦手

カテゴリマスター

2022/1/21 7:15

原文からのコピペですか？ Dim gyou As Integer retu = 3 gyoy = 15 Cells(gyou, retu) gyoyは15かもしれませんが、gyouはゼロですね。 Cells(0, 3) は C0 セルという存在しないセルになります。

1人がナイス！しています

関数は苦手

2022/1/21 7:21

変数ws1が型宣言されてませんね。 Option Explicit を覚えましょう。 http://officetanaka.net/excel/vba/beginner/11.htm これを入れておけば、そのソースを実行した時に 変数ws1が定義されていません というエラーメッセージが出て、ws1を型宣言すると今度は 変数gyoyが定義されていません というエラーメッセージが出てスペルミスに気付けます。 ですが入れていないと「型宣言されてないけど変数なんやろなぁ」とVBEさんはアバウトに考えてしまい、 gyou? 何もセットされてないからゼロでしょきっと。 と勝手に処理を進めちゃいますよ。