![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
こんばんわ。
VBAでVLOOKUPを実施していますが値が見つからない場合#N/Aが表示されてしまいます。
これを表示させない良い方法ありますでしょうか?
以下のようにCells(1,i)がブランクになるまで別シート(日別商品別集計)の40列目の値を検索するロジックです。処理はうまくいっていますが値がない場合は” ”にしたいのですが”#N/A”が表示されてしまいます。
Do While Cells(1, j) <> ""
ActiveCell.Value = Application.VLookup(Cells(1, j), Worksheets("日別商品別集 計").Range("A2:AN533"), 40, False)
*エラーの場合
On Error GoTo ERR_1
ERR_1:
ActiveCell.Value = ""
j = j + 1
ActiveCell.Offset(0, 1).Select
Loop
どなたかご教授いただけませんでしょうか?
よろしくお願い致します。
No.2ベストアンサー
- 回答日時:
一例です。
エラーは文字列判定ではなくIsErrorで行いますので、一旦、別の変数で受ける方が良いと思う。
result = Application.VLookup~
If IsError(result) Then
エラー処理
mu2011さん、早速のご連絡ありがとうございます!
ご教授いただきました方法でうまく動作しました!!
この度は本当にありがとうございました!
No.1
- 回答日時:
この処理では、別にVBAとしてはエラーしません。
ActiveCell.Value は正常に処理され #N/A という値が
入力されただけなので、OnErrorに飛ばないんです。
ですので、
IF ActiveCell.Value = #N/A THEN ActiveCell.Value = ""
みたいな処理が(動作チェックしてませんが)必要です。
この回答への補足
FEX2053さん、早速のご連絡ありがとうございました!
ご教授いただきました通り下記のようにしてみましたが”型が一致しません”というエラーがでてしまいます・・。このActivecellの書式は”標準”になっています。
If ActiveCell.Value = "#N/A" Then
ActiveCell.Value = ""
End If
何がいけないのでしょうか?
度々申し訳ございませんがアドバイスお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。特にものすごく怒られたときとか、とんでもない損害を与えてしまったときとか…。
-
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
マクロで#N/A"のエラー行を削除したい"
Visual Basic(VBA)
-
#N/Aの文字を削除するには
Visual Basic(VBA)
-
-
4
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
5
エクセルVBAで列名が#N/Aとなった列を削除するプログラムはどのように組めばよいのでしょうか?
Excel(エクセル)
-
6
エクセル マクロ エラーのある行を削除
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
シグナル 6(SIGABRT)とは?
-
【C#/Java?】try-catchでcatch...
-
VBAでBook読み込み時の非表示方...
-
ドリブン??
-
vbaのエラー対応(実行時エラー...
-
途中で処理を中断させたい (ア...
-
VB.NET SPRED(チェックボック...
-
Functionで戻り値を複数返す方法
-
“try/catch”と“if/else”
-
VBAで困っています助けて下さい
-
ExcelのVBAで、選択したファイ...
-
【VBA】エラー処理で別プロシー...
-
VBA 複数の行を高速で削除する...
-
CImage::Loadの戻り値は何でし...
-
VBA For Each 〜 複数条件について
-
RaiseEventのメリット
-
private subモジュールを他のモ...
-
特定の名前のオートシェイプの...
-
特定のファイルを他のプロセス...
-
どう増強すべきか
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【C#/Java?】try-catchでcatch...
-
IF文に時間(何時から何時ま...
-
vbaのエラー対応(実行時エラー...
-
マクロで、次のコードへ行く前...
-
private subモジュールを他のモ...
-
特定の名前のオートシェイプの...
-
シグナル 6(SIGABRT)とは?
-
Excel VBA セルの名前があるか...
-
特定のファイルを他のプロセス...
-
どうやってもFor文を抜けてしま...
-
VBA For Each 〜 複数条件について
-
ドリブン??
-
VB6にてネットワーク上にある共...
-
【VBA】エラー処理で別プロシー...
-
VBA 複数の行を高速で削除する...
-
【C#】Page_Loadさせない方法に...
-
どう増強すべきか
-
UWSCのTHREADについて
-
エクセル VBAで複数セル選択時...
-
Functionで戻り値を複数返す方法
おすすめ情報