| |
先日、初めてこちらを利用しました。
とても丁寧に教えていただき、解決したと思われたのですが
問題が起きましたので、再度、お願いにあがりました。
お忙しいところ、大変恐縮ではございますが、ご教授いただければと思います。
Ｈ列が「特価」という文字であれば、その行のフォントカラーと背景色を変えたい。
また、上記同様H列が「廃盤」であれば、その行のフォントカラーを背景色を変えたい。
と下記のようなコードを記述しました。
Sub 特価形態()
With Range("H:H")
.Interior.ColorIndex = xlColorIndexNone
.Font.ColorIndex = xlColorIndexAutomatic
End With
On Error Resume Next
With Range("H1", Range("H65536").End(xlUp)).Offset(, 248)
.Formula = "=IF($H1=""特価"",1)"
With .SpecialCells(3, 1).EntireRow
.Interior.ColorIndex = 36
.Font.ColorIndex = 3
End With
.ClearContents
End With
End Sub
Sub 廃盤形態()
With Range("H:H")
.Interior.ColorIndex = xlColorIndexNone
.Font.ColorIndex = xlColorIndexAutomatic
End With
On Error Resume Next
With Range("H1", Range("H65536").End(xlUp)).Offset(, 248)
.Formula = "=IF($H1=""廃盤"",1)"
With .SpecialCells(3, 1).EntireRow
.Interior.ColorIndex = 34
.Font.ColorIndex = 32
End With
.ClearContents
End With
End Sub
それぞれでは、うまく動作しますが、この二つを動作させるとうまくいきません。
例えば、「特価形態」というマクロを実行して、「廃盤形態」というマクロを実行すると、特価という文字が入ったセルの背景色が全体に設定している背景色に戻る（変わる？）という具合です。
希望としましては、これらの二つのコードをまとめて記述できればいいのですが
それだけの知識がありません。
本当に組みたいコードの内容は、下記の通りです。
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
H列に「特価」が入っていたら、そのセルを含む行をフォントカラーコード「3」背景カラーコード「36」にしたい。
また、H列に「廃盤」が入っていたら、そのセルを含む行をフォントカラーコード「32」背景カラーコード「34」にしたい。
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
以上です。
どうぞ宜しくお願いいたします。
|
|
りん
- 07/6/14(木) 13:38 -
