エクセルVBAで実行時エラー13と2029が発生
- エクセルVBAでセルの内容が「=a」や「#NAME?」の場合に、その行を削除する処理を実行したいが、実行時エラー13と2029が発生する。
- 実行時エラー13は型が一致しない場合に発生し、エラー2029は配列の範囲外にアクセスした場合に発生する。
- Cells(1, 1)の値が文字列であることや、セルの値を別の変数に代入してから比較することで、エラーを回避できる可能性がある。
- ベストアンサー
実行時エラー13 型が一致しません。エラー2029
エクセルです。 A1に「=a」と文字が入っていて、 #NAME? となります。 その状態でvbaで セルA1に「=a」が入っているのなら としたい為、 Sub test() If Cells(1, 1) = "=a" Then End If End Sub こうしたのですが、 実行時エラー13 型が一致しません。 になります。 ｖｂａ中断中に、Cells(1, 1)の部分にマウスカーソルを当ててみると エラー 2029 となっています。 If Cells(1, 1) = "=a" Then が無理なら、 If Cells(1, 1) = "#NAME?" Then なら行けるかな？と思いましたが、 全く同じエラーになります。 最終的に何がやりたいかと言うと、 Sub test() If Cells(1, 1) = "=a" Then Rows(1).delele End If End Sub のように、#NAME?の場合は、その行を削除したいです。
- UGNTXHMTLKY
- お礼率98% (65/66)
- Excel（エクセル）
- 回答数3
- ありがとう数3
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
少し話がずれるかもしれませんが、 ＞A1に「=a」と文字が入っていて、 ＞#NAME? ＞となります。 このようになるのは、「=a」が文字列ではなくて、「aという名前のついたセルを参照して表示する」という計算式になっているからです。そして、aという名前のついたセルが存在しないため「#NAME?」と表示されるのです。 A1セルの表示形式を「文字列」にすれば、A1セルに「=a」と表示されます。
その他の回答 (2)
- keithin
- ベストアンサー率66% (5278/7940)
＞#NAME?の場合は、その行を削除したいです。 if range("A1").text = "#NAME?" then rows(1).delete とかで十分です。 #NAME?の識別にこだわらなければ if iserror(range("A1")) then でもイイと思いますが。
お礼
回答ありがとうございました。
- f272
- ベストアンサー率46% (8011/17123)
If Cells(1, 1).Formula = "=a" Then Rows(1).delele End If または If Cells(1, 1).Value = CVErr(xlErrName) Then Rows(1).delele End If とすればいいんじゃないかな？
お礼
回答ありがとうございました。
関連するQ&A
- 実行時エラー’13’ 型が一致しません VBA
セルに以下の文字列が入っています。 A1=10(451 A2=452 そしてVBAにて、以下のプログラムを実行すると、「実行時エラー’13’ 型が一致しません」というエラーになってしまいました。 原因はA1に「（ 」があるので文字列だからだと思うのですが、「IF 条件文」が成立しないことは満たすのでElse以下を実行されるのを期待していたのですが。 アドバイスをお願いします。 また、そもそも変数を宣言してないので「型が一致しない」というエラーの意味がわからないのですが。 If Cells(1, 1) - Cells(2, 1) = 1 Then Cells(3, 1) = 1 Else Cells(3, 1)="c" End If
- ベストアンサー
- Excel（エクセル）
- 型が一致しません
下記はセルが０の時、行全体を表示しないにするようにするＶＢＡですが、型が一致しませんとエラーになります、どこを直せばいいのですか。 Dim I As Integer Sub Macro4() For I = 4 To 76 If Cells(I, 8) = 0 Then Rows("I:I").Select Selection.EntireRow.Hidden = True End If Next I End Sub
- 締切済み
- Visual Basic
- 型が一致しません
いつもお世話になっております。 シートごとに元データの値でフィルタをかけ、 フィルタした各シートのD列の文字列を照らし合わせて整合性を確認したく、 下記のようなVBAをつくりましたが、ここで↓ If name_A <> name_B <> name_C <> name_D Then 型が一致しませんとエラーになります。 どなたかアドバイスをお願いいたします。 Sub 不整合チェック() 'フィルター Worksheets("Aリスト").Select If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter Range("B4").AutoFilter Selection.AutoFilter field:=1, Criteria1:=Worksheets("元データ").Range("C3") Worksheets("Bリスト").Select If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter Range("B4").AutoFilter Selection.AutoFilter field:=1, Criteria1:=Worksheets("元データ").Range("C3") Worksheets("Cリスト").Select If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter Range("B4").AutoFilter Selection.AutoFilter field:=1, Criteria1:=Worksheets("元データ").Range("C3") Worksheets("Dリスト").Select If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter Range("B4").AutoFilter Selection.AutoFilter field:=1, Criteria1:=Worksheets("元データ").Range("C3") '整合性チェック Dim name_A As String Dim name_B As String Dim name_C As String Dim name_D As String name_A = Worksheets("Aリスト").Cells(65536, 4).End(xlUp).Value name_B = Worksheets("Bリスト").Cells(65536, 4).End(xlUp).Value name_C = Worksheets("Cリスト").Cells(65536, 4).End(xlUp).Value name_D = Worksheets("Dリスト").Cells(65536, 4).End(xlUp).Value If name_A <> name_B <> name_C <> name_D Then MsgBox "データ不整合を発見しました。 処理を中断します。", vbCritical Exit Sub ElseIf mykouiji_kouji = name_nyukin = name_kokyaku = name_uriage Then MsgBox "問題なし。" End If End Sub
- ベストアンサー
- オフィス系ソフト
- VBA エクセル ＃N/Aで実行時エラー 13 型が一致しません
お世話になります。 あるマクロを実行しようとすると、＃N/Aのセルに来ると「実行時エラー 13 型が一致しません」とエラーが出てしまいますので、＃N/Aを？に書き換えようと下記のマクロを作りましたが結果は同じでした。たぶんとんでもなく初歩的なミスだと思うのですが、どう対処すればよいのでしょうか？よろしくご指導くださいませ。 セルの内容は縦にこんな感じで並んでいます。 755754 755754 #N/A #N/A 713512 713512 マクロは Sub reword() Dim i As Long i = 1 Do Until Cells(i, 1).Value = "" If Cells(i, 1).Value = "#N/A" Then Cells(i, 1).Value = "?" End If i = i + 1 Loop End Sub ＃N/AのところでLoopはとまり、エラーが出ます。
- ベストアンサー
- その他MS Office製品
- 型が一致しない というエラー
Private Sub Worksheet_Change(ByVal Target As Range) If Target = Range("B1") Then Range("B3:B8").Select Selection.ClearContents End If End Sub というコードを書いています。 Ｂ３～Ｂ８は「数字」という書式です。 型が一致しない１３番のエラーが出ます。 原因と対処法を教えてください。 宜しくお願いします。
- ベストアンサー
- Excel（エクセル）
- VBA Evaluate関数 型が一致しません
Excel2003 VBAのEvaluateで以下の数式を実行すると エラー「型が一致しません」となってしまいます。 類似の質問を検索していろいろ参考にしてみたのですが 解決できなかったので質問させてください。 Sub test() Dim aa, bb, cc As String Dim y As Byte y = 1 With Sheets("Sheet1") aa = ".Cells(y, 1) > 0" bb = Left(aa, InStr(aa, "y") - 1) cc = Mid(aa, InStr(aa, "y") + 1) If Evaluate(bb & y & cc) Then ←ここでエラーになります。 y = 2 End If End With End Sub .Cells(1, 1)には１０が入力されています。 宜しくお願い致します。
- ベストアンサー
- Excel（エクセル）
- VBA エクセル 実行時エラー13：型が一致しません
またまたお世話になります。 下記のマクロを走らせると、タイトルのようなエラーメッセージが出てしまいます。 Sub rows_hdn() Dim n As Integer Sheets("ABC").Select n = 3 Do Until Cells(n, 2).Value = "" n = n + 1 Loop Sheets("EFG").Select If n <> 3 Then Rows("3:n-1").Select Selection.EntireRow.Hidden = True End If End Sub シートABCに入力がされているライン数だけ、シートEFGの3行目から隠したいのですが、どのようにすればよろしいのでしょうか？ よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- VBAの「型が一致しません」の原因がわかりません
Excel２０１３でVBAを動かすと「型が一致しません」と表示され、 動作が中断されます。 解決方法がわからないので、教えてください。 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー Dim i As Long, k As Long, MaxRow As Long MaxRow = Range("H" & Rows. Count).End(xlUp).Row k = 2 For i = 2 To MaxRow If Month(Range("H" & i)) <> Month(Range("H" & i + 1)) Then ← ここで中断する Range(Cells(i, 8), Cells(i, 10)).Copy Cells(k, 1).PasteSpecial Paste:=xlPasteValues Else Range(Cells(i, 8), Cells(i, 10)).Copy Cells(k, 1).PasteSpecial Paste:=xlPasteValues k + 1 End if ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 「on Error Resume Next 」をエラー箇所の前に追加すると 最後まで動き、正しい結果になります。 しかし、こんな解決方法でいいのか不安なので、 別の解決方法がわかれば、教えてください。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- 連続するセルの比較をしたいのですが、（型が一致しません）のエラーが出ます。
下記のどの部分でエラーになるのか、お教えください よろしくお願いします。 Sub CellsSamp（） Sheets("sheet3").Select If Range(Cells(5, 1), Cells(5, 6)) = Range(Cells(5, 8), Cells(5, 25)).Value Then Range(Cells(6, 1), Cells(6, 6)) = Range(Cells(5, 1), Cells(5, 6)).Value End If End Sub
- ベストアンサー
- Visual Basic
- VBA「型が一致しません」とエラーが出ます
下記記事の関連質問です。 Excel 文字列抜き出しについて https://okwave.jp/qa/q9979633.html 記事を参考に複数行にマッチするように下記のようにコードを考えましたが msplit(mRng, " ", iii)で「型が一致しません」とエラーが出ます。 なぜでしょうか？ テスト用のA4セル 1 01 45124422 ミント 09/01～03/01 108 98 01/05～02/01 Option Explicit Sub test() Dim msplit As Variant Dim buf As String, i As Long, ii As Long, iii As Long, cnt As Long Dim mRng As Range For ii = 4 To Cells(Rows.Count, 1).End(xlUp).Row buf = Cells(ii, "A") For i = 1 To Len(Cells(ii, "A")) If Mid(buf, i, 1) = " " Then cnt = cnt + 1 Next For iii = 1 To cnt Set mRng = Cells(ii, "A") ’Stop Cells(iii + 1, ii) = msplit(mRng, " ", iii) Next Next Set mRng = Nothing End Sub Function msplit(ByRef mRng As Range, ByVal Spstr As String, ByVal num As Long) As Variant msplit = Split(mRng, Spstr)(num - 1) End Function
- ベストアンサー
- Excel（エクセル）
お礼
回答ありがとうございました。