Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


70393 / 76732 ←次へ | 前へ→

【10849】Vlookupについて教えてください。
質問  ギン  - 04/2/16(月) 11:33 -

引用なし
パスワード
   りん さん、こんにちは。
有難うございました。
検索値自体が違っていました。
このように違う検索値がある場合の回避はどのようにしたら宜しいでしょうか?
For n = r To rEnd 'rは最初の行でrEndは最後の行です。
  c2 = ActiveCell.Column
  If ActiveCell.FormulaR1C1 = WorksheetFunction.IsError _
    (WorksheetFunction.VLookup(Cells(n, 2), Worksheets _
    ("区分").Range("A2:AZ700"), 2, 0)) Then
    ActiveCell.FormulaR1C1 = "#N/A"
    ActiveCell.Offset(1).Select
  Else
    ActiveCell.FormulaR1C1 = WorksheetFunction. _
    VLookup(Cells(n, 2), Worksheets("区分").Range("A2:AZ700"), 2, 0)
    ActiveCell.Offset(1).Select
  End If
Next n
とすると検索値が違うところで実行時エラー1004が出てしまいます。
エラー処理で回避するしか無いのでしょうか?
宜しく御願い致します。
0 hits

【10833】Vlookupについて教えてください。 ギン 04/2/15(日) 19:46 質問
【10834】Re:Vlookupについて教えてください。 りん 04/2/15(日) 21:12 質問
【10849】Vlookupについて教えてください。 ギン 04/2/16(月) 11:33 質問
【10859】Re:Vlookupについて教えてください。 りん 04/2/16(月) 23:55 回答
【10882】解決しました。 ギン 04/2/17(火) 20:14 お礼

70393 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free