vlookupのマクロで式vbaを計算する

Question

こんにちは、私はマクロをExcelに新しいです。私はvlookup用のマクロを作成して、多くのセルに適用できるようにしたかったが、うまくいきませんでした。

Sub haha() 

Dim wb As Workbook 
Dim ws, ws1 As Worksheet 
Set wb = ActiveWorkbook 
Set ws = ActiveWorkbook.Sheets(1) 
Set ws1 = ActiveWorkbook.Sheets(2) 
wb.Activate 

ws1.Select 

Range("E1").Formula = "=+VLOOKUP(" & ws1.Range("C6") & "," & ws.Range("c7:d10") & ",2,FALSE)" 

End sub 

現在のシートの値を別のシートの範囲にルックアップして一意の値を返したいと考えました。助けてください！ :)

Answer 1

ただ、これらの3行置き換える：セルがあるとしてsheetとaddressが、この場合には、必要とされていないws1.Range("C6")一部で

ws1.Range("E1").Formula = "=VLOOKUP(C6," & ws.Range("C7:D10").Address(External:=1) & ",2,FALSE)" 

：これで

wb.Activate 
ws1.Select 
Range("E1").Formula = "=+VLOOKUP(" & ws1.Range("C6") & "," & ws.Range("c7:d10") & ",2,FALSE)" 

を数式が同じになるシートにws1.Range("C6")は常にC6を返します。

ws.Range("c7:d10")については、別のシートを参照しているため「外部参照」が必要です。ファイルRange.Address PropertyのExternal参照にはファイル名が含まれていますが、数式が同じブックに入ると、ファイル名は削除されます。

Answer 2

これをチェックしてください。

Sub haha() 

Dim wb As Workbook 
Dim ws As Worksheet, ws1 As Worksheet 
Dim rng As Range 
Set wb = ActiveWorkbook 
Set ws = ActiveWorkbook.Sheets(1) 
Set ws1 = ActiveWorkbook.Sheets(2) 
wb.Activate 

Set rng = ws.Range("c7:d10") 
ws1.Range("E1").Formula = "=VLOOKUP(" & ws1.Range("C6").Address & "," & rng.Worksheet.Name & "!" & rng.Address & ",2,FALSE)" 

End Sub