|
▼kaeru144 さん:
おはようございます。
相対参照は、Names.AddでRefersToR1C1という引数使用しないと出来ないみたいですねえ。
'=========================================================
Sub test()
Range("b2").Select
Application.Names.Add Name:="sheet2b2", RefersToR1C1:="=Sheet2!RC"
With Range("B2").FormatConditions
.Delete
.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=sheet2B2"
.Item(1).Interior.ColorIndex = 38
End With
Range("B2").Copy
jjj = 1
For jj = jjj To 5
Range(Cells(2, jj * 2), Cells(3, jj * 2)). _
PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone
Next jj
End Sub
これで確認してみて下さい。
|
|