|
▼かみちゃん さん:
いつもお世話になります。
すみません、が。
一寸お聞きしたいのですが。
SpecialCells(xlCellTypeVisible)に関して勉強させていただきました。
ただA1やB1がそれぞれ項目1、項目2の場合
C1にもD1にも「*」が入ります
また2行以降にもCとD列に「*」マークが並びますが
Cの2行目から下に一列だけ「*」マークを入れることは
出来ないでしょうか。
色々とトライしましたが出来ませんでしたので
教えていただきたくお願いします。
>こんにちは。かみちゃん です。
>
>>さて、フィルターで抽出された行に対して、あるセルに
>>一斉に値を代入しようとしています。
>>この際、その行(或いはセル)が、可視か否かを判別することはできるでしょうか。
>
>こんな感じでできるかと思います。
>
>Sub Macro1()
> With Range("A1").CurrentRegion
> .AutoFilter Field:=1, Criteria1:="2"
> '可視セルを選択する。
> .SpecialCells(xlCellTypeVisible).Select
> .SpecialCells(xlCellTypeVisible).Offset(, 1).Value = "*"
> End With
>End Sub
|
|