
ワークシートは 2 つあります。
- 参照
- オペレーター
参照シートのセル d2 に値 $a$25 が含まれているとします。
Excel VBA を使用して、演算子シートのセル $a$25 の値を変更する方法 (参照シートの d2 からアドレスを参照) を教えてください。
私が試したこと:
- 変数を使用して d2 内の参照をキャプチャします。
Dim NewRNG as Range
NewRNG = Range(Range("d2").value).value
ここでは運がない。
- 演算子で参照セルを検索し、見つかったセルのアドレスを使用する
Sub Find_Cell()
Dim RNG As Range
Dim NewRNG as Range
With Sheets("Operator").Range("A:A")
Set RNG = .Find(What:=Sheets("Reference").Range("d2"), _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
End With
NewRNG = RNG.Address
NewRNG.select
End Sub
**この場合、rng.addressを変数に設定することはできません