よろしくお願いします。 締切済み Visual Basic vbaのエラーを修正するコード(初心者です)?? シートの c1セルに =a1+5 という式があります。 a10からa14にそれぞれ1, 2, 3, 4, 5と数字が入っています。 Sub 計算() If Cells(1, 3) < 10 Then Cells(1, 4) = 100 Cells(3, 1) Sub エラー() For i = 1 To 5 Cells(1, 1) = Cells(10 + i, 1) "計算" Next i 以上のコードを書きます。 「Sub 計算」の4行目が不完全なのはあえてそうしています。 で、実行すると、当然ながらエラーが出ます。 そこで、実行時エラーを終了してa14に4.
お世話になります。 あるマクロを実行しようとすると、#N/Aのセルに来ると「実行時エラー 13 型が一致しません」とエラーが出てしまいますので、#N/Aを?に書き換えようと下記のマクロを作りましたが結果は同じでした。たぶんとんでもなく初歩的なミスだと思うのですが、どう対処すればよいのでしょうか?よろしくご指導くださいませ。 セルの内容は縦にこんな感じで並んでいます。 755754 #N/A 713512 マクロは Sub reword() Dim i As Long i = 1 Do Until Cells(i, 1) = "" If Cells(i, 1) = "#N/A" Then Cells(i, 1) = "? " End If i = i + 1 Loop End Sub #N/AのところでLoopはとまり、エラーが出ます。 カテゴリ パソコン・スマートフォン ソフトウェア その他MS Office製品 共感・応援の気持ちを伝えよう! 回答数 2 閲覧数 7972 ありがとう数 3 みんなの回答 (2) 専門家の回答 質問者が選んだベストアンサー ベストアンサー 2009/11/17 22:15 回答No. 2 okormazd ベストアンサー率50% (1224/2411) #N/Aを? に変えるのが目的ではないんですよね。 #N/Aで実行がとまらないようにしたいというなら、たとえば下記のようにするといいでしょう。 Dim i As Long, cvas Variant cv = Cells(i, 1) If IsError(cv) Then cv = "? " Do Until cv = "" MsgBox cv End Sub 共感・感謝の気持ちを伝えよう! 関連するQ&A VBA エクセル 実行時エラー13:型が一致しません またまたお世話になります。 下記のマクロを走らせると、タイトルのようなエラーメッセージが出てしまいます。 Sub rows_hdn() Dim n As Integer Sheets("ABC") n = 3 Do Until Cells(n, 2) = "" n = n + 1 Sheets("EFG") If n <> 3 Then Rows("3:n-1") = True シートABCに入力がされているライン数だけ、シートEFGの3行目から隠したいのですが、どのようにすればよろしいのでしょうか?