Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2016)
vlookupの検索値をR1C1で表記したい
投稿日時: 21/02/15 11:39:06
投稿者: ip8bk

vlookupの検索値をR1C1で表記したいのですが、下記のエラーが解消されません。
すみませんが、どなたかご存知の方いらっしゃいましたら、どこを変更したらよいか教えて下さい。
よろしくお願いいたします。
 
エラー内容:
実行時エラー'1004':
アプリケーション定義またはオブジェクト定義のエラーです。
 
コード:

    Rng = Range(Cells(3, 1), Cells(6, 2)).Address
    Range(Cells(3, 7), Cells(3, 8)).FormulaR1C1Local = "=vlookup(R[-1]c, " & Rng & ",2,0)"

 
ワークシートの内容:
  A B
1 1 1
2 10 2
3 15 3
4 20 4

回答
投稿日時: 21/02/15 13:53:30
投稿者: sk

引用:
vlookupの検索値をR1C1で表記したいのですが、下記のエラーが解消されません。

引用:
Rng = Range(Cells(3, 1), Cells(6, 2)).Address
Range(Cells(3, 7), Cells(3, 8)).FormulaR1C1Local = "=vlookup(R[-1]c, " & Rng & ",2,0)"

Rng = Range(Cells(3, 1), Cells(6, 2)).Address(ReferenceStyle:=xlR1C1)
Range(Cells(3, 7), Cells(3, 8)).FormulaR1C1Local = "=vlookup(R[-1]c, " & Rng & ",2,0)"
 
------------------------------------------------------------
 
Excel.Range オブジェクトの Address プロパティの
第 3 引数 ReferenceStyle を省略した際の既定値は
定数 xlA1(値 1 )です。
 
つまり R1C1 形式の数式に A1 形式のアドレスが含まれているために
発生している実行時エラー。

投稿日時: 21/02/16 11:49:50
投稿者: ip8bk

長年の悩みが解決いたしました。
大変ありがとうございました。(m_ _m)