|
▼kanabun さん:
>▼さとちぃ さん:
>
>>(1)
>>リンク先のセルにはあらかじめセルに色が塗ってありまして
>>教えていただいたプログラムですと、事前にセルに塗っていた
>>色が白色設定となり、ヒットしたセルのみ色が変わる形に
>>なっております。
>>
>>対象のセル以外は、色設定はそのままとするにはどのように
>>すればいいでしょうか?
>
>とりあえず、
>> r.Interior.ColorIndex = xlNone
>の行をコメントにしてください。
> 'r.Interior.ColorIndex = xlNone
>
>
>>(2)
>>
>>Interior.Color = vbCyan
>>
>>において、文字の大きさも変えたいのですが、Fontオブジェクトで
>>設定しようと試みましたが、うまく出来ません・・・。
>
>どう試してみたのかしら?
>
> Do
> 'ヒットしたセルがあれば 色を付け、Fontsizeを変更する
> c.Interior.Color = vbCyan
> c.Font.Size = 18 '←好きなサイズ
>
> Set c = r.FindNext(After:=c)
> Loop Until c.Address = Address1
|
|