|
▼ichinose さん:
>Sheet2!B2に「名前の定義」を使用して名前を付けると可能になります。
>
>'===========================================================
>Sub test()
> Application.Names.Add Name:="sheet2b2", RefersTo:="=sheet2!$b$2"
> With Range("B2").FormatConditions
> .Delete
> .Add Type:=xlCellValue, Operator:=xlEqual, _
> Formula1:="=sheet2B2"
> .Item(1).Interior.ColorIndex = 38
> End With
>End Sub
>
>確認してみて下さい。
早速有り難うございました。確かにshee2!B2からの読み込みができました。しかしながら、次の問題点が・・・、B2はsheet!B2と一致しない時色つけができたのですが、その書式をコピーしても、B3はsheet!B3とならないのです。2行目を相対参照にしても駄目みたいです。ご教授下さい。
その後に続く、マクロはこうなっています
Range("B2").Select
Selection.Copy
jjj = 1
For jj = jjj To 5
Range(Cells(2, jj * 2), Cells(3, jj * 2)).Activate
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone
Next jj
|
|