Excel VBA質問箱 IV

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

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


9691 / 13644 ツリー ←次へ | 前へ→

【25955】vlookup の書式に関して たま 05/6/20(月) 0:06 質問[未読]
【25957】Re:vlookup の書式に関して かみちゃん 05/6/20(月) 7:03 回答[未読]
【25986】Re:vlookup の書式に関して たま 05/6/20(月) 22:40 お礼[未読]

【25955】vlookup の書式に関して
質問  たま  - 05/6/20(月) 0:06 -

引用なし
パスワード
   いつもお世話になっております。
また、行き詰ってしまったので教えてください。
下記のマクロを作成しました。

  With Range("a2", Range("a2000").End(xlUp)).Offset(0, 10).Resize(, 3)
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-5],納入場所データ!C[-10]:C[-9],2,0)"
  End With

これは、現在のシートのF列の数値を納入場所データとゆう
ワークシートより検索し、現在のシートのK列に貼り付けたいと
ゆう意味で作ったのですが、どうしてもA1のセルに結果が貼り付けられます。
しかもIR1のデータをIM:INより検索になってしまいます。
IR?って感じです。どこが間違っているのでしょうか?

よろしくお願いします。

【25957】Re:vlookup の書式に関して
回答  かみちゃん  - 05/6/20(月) 7:03 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>  With Range("a2", Range("a2000").End(xlUp)).Offset(0, 10).Resize(, 3)
>    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-5],納入場所データ!C[-10]:C[-9],2,0)"
>  End With
>これは、現在のシートのF列の数値を納入場所データとゆう
>ワークシートより検索し、現在のシートのK列に貼り付けたいと
>ゆう意味で作ったのですが、どうしてもA1のセルに結果が貼り付けられます。
>しかもIR1のデータをIM:INより検索になってしまいます。

ActiveCell プロパティのヘルプを見ると「単一セル」と書かれていますから、
A1(こちらで確認すると、A2でしたが)に数式が設定されていると思います。
あと、Resize(, 3)が何をしようとしているのかわかりません。

そこで、次のような感じでできるのではないかと思います。
With Range("a2", Range("a2000").End(xlUp)).Offset(0, 10)
 .FormulaR1C1 = "=VLOOKUP(RC[-5],C[-10]:C[-9],2,0)"
End With

【25986】Re:vlookup の書式に関して
お礼  たま  - 05/6/20(月) 22:40 -

引用なし
パスワード
   かみちゃんさんへ

返信ありがとうございます。
おかげ様で完成致しました。
ありがとうございました。

>あと、Resize(, 3)が何をしようとしているのかわかりません。
言われてみればそうですね・・(汗)
言われてから気がつきました。。

また、わからないところがあれば教えてください。
よろしくお願いします。。

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