- ベストアンサー
もしセルが"#N/A"なら～をする・・・には？
Excel2002VBAで、 「指定セルにエラーの"#N/A"が出ている場合～の処理をする」という場合、 If range("a1")="#N/A" then としたら、型が一致しません エラー１３と出ました。 どのようにすればうまくいくのでしょうか？
- みんなの回答 （5）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- #N/Aの文字を削除するには
お世話になっております。 #N/Aの文字を含む行を削除するため以下のようなマクロ（Excel)を組みました。 Dim i As Long With Range("C1") For i = .CurrentRegion.Rows.Count To 1 Step -1 If .Offset(i, 2) = "#N/A" Then .Offset(i, 5).EntireRow.Delete Next i End With 当然かもしれませんが、IF文の ".offset(i,2)="#N/A""のところで「型が一致しません」とエラーが出てしまいます。 シート上で#N/Aは数式でなく値として記録されています。 どのようにすればエラーを回避できるでしょうか。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- VBA：結合されたセルに対する「Target」について
Private Sub Worksheet_Change(ByVal Target As Range) If Target = "" Then MsgBox "空欄です" End If End Sub 上記コードで、セルにカーソルを合わせてDeleteキーを押すと正常にメッセージが表示されます。 ただし、カーソルを合わせたセルが結合されていた場合、 「型が一致しません」というエラーで停止してしまいます。 結合されているセルに対しても同じ処理をするには、 If Target = "" Then の部分をどのように指定すればよいでしょうか。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAで＃N/Aのようなエラー値を含むセルの検出は
エクセルVBAでセルに＃N/Aのようなエラー値を含む場合Ifを使った構文で制御したいのですが、エラー値であるかどうかを調査するにはどうすれば良いでしょうか。教えてください。
- ベストアンサー
- Visual Basic
- セルの値が「#VALUE!」の場合 vba
セルの値が「#VALUE!」の場合、 VBAで If Cells(lastRow, Col_本体価格) = Empty Then とすると、 「実行時エラー 13 型が一致しません。」 となります。 セルの値が「#VALUE!」の場合でも、 VBAでifステートメントを使えるようにするには どうすればいいですか？
- ベストアンサー
- Excel（エクセル）
- 【VBA】改行されたセルの条件
VBAにてA1のセルが画像のように改行されたセルであっても条件式で処理を行うようにしたいのですがうまくできません。 ↓式のように作成はしてみました どうしたら改行されたセルでも処理が行えるのでしょうか？ Sub test() If Range("A1") = (行1行2の場合) Then 処理 End If End Sub
- ベストアンサー
- Excel（エクセル）
- VBA マクロで”＃N/A”のエラーに関する質問
Excel2003を使用してマクロを組んでる者です。 セル内の値をとって変数に格納し比較処理など行っています。 シート内のあるセルに「#N/A」などエラー算術が存在した場合マクロで宣言した変数型に合わず格納できずエラーがでます。 型はVariant型にしてます。。 いろんな型を試しましたがだめです。 質問はエラー算術に対応した型があるのでしょうか、またこのエラー算術を無視できるロジックってございますか？ よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 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製品
- 空白セルに●を入れたい
Excelのセル範囲（例：としてA1からC10）のセルを調べて、 空白のセルになにかの文字（例：●）を打ち込みたい場合のVBAの書き方を教えてください。 Sub セル埋め() Dim r As Range, i As Range Set r = Range("A1:C10") '範囲指定 If Intersect(r, Target) Is Nothing Then For Each i In r If i.Value = "" Then i.Value = "●" Next i End Sub この書き方にこだわっているわけではないので、もっと簡単なやり方でもけっこうです。
- ベストアンサー
- Visual Basic
- セルA1からA10の値を表示ができない
自分の無能さに腹が立ちます。 セルA1からA10の値を表示したいのですがうまくいきません。 Sub Macro6() MsgBox Range("A1:A10").Value End Sub 「型が一致しません」とエラーが出ます。 なぜでしょう？
- ベストアンサー
- Visual Basic
- VBAでセル指定するとき（"A1")←半角？
VBAでセルを指定するとき、 例えばA１のセルを選択するときにRange("A1")と書きますよね。 このときに「A」は半角で入力したのですが、これは全角の「Ａ」でもいいのでしょうか。 実際に全角にしてVBAを組んでも、問題なく処理できました。 ただ「全角にしても問題なく処理できたからいいや」というのではモヤモヤしてしまい、 全角でも問題なく処理できるという記述があるテキストやサイトを探しているのですが 見つかりません。 セル指定するときに全角、半角は関係ないのでしょうか。
- 締切済み
- Excel（エクセル）
お礼
ありがとうございます。これでもできました。 .Textにすればよかったんですね。