|
お世話になっております。
自分で都度選択する、”任意のセル範囲(例えば、A2:B10など)内において、1行置きにセルを選択する”方法を教えて頂きたいです。
”任意のセル範囲において、1行おきに”網掛けしたり、色を塗ったり、することはできるようになりました。
しかしながら、時に応じて、一行おきに網掛け、色塗り、文字の大きさを変えたりするなど、多岐に作業する必要ケースが多くなってきました。
従いまして、色塗り等まで、おこなってしまうのではなく、「”自分で都度選択する任意の範囲内において、1行置きにセルを選択する”ところまでにとどめる」ことを実現したいです。
ちなみに、1行おきに網掛けする場合は、下記のように記述致しました。
宜しくお願いいたします。
********
Sub 網掛け()
Dim i As Integer, S As Integer, E As Integer
S = Selection(1).Column
E = Selection(Selection.Count).Column
For i = Selection(1).Row To Selection(Selection.Count).Row Step 2
Range(Cells(i, S), Cells(i, E)).Interior.Pattern = xlGray16
Next i
End Sub
****************
|
|