| |
Sub さん、こんにちわ。
>セルを反転させた範囲のみ対象とし，
>一括変換（計算式が入っているセルの色塗り）をしたいの
>ですがどうすれば良いでしょうか。
手動でする場合は、
(セルを選択) → 編集→ジャンプ→セル選択「数式」 → 色づけ
これを記録すると、
Sub Macro1()
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub
SpecialCellsは該当セルがないとエラーになるので、ちょっと手を加えて、
Sub Macro1()
Dim r1 As Range
'数式がないとエラーになるのでスキップを入れておく
On Error Resume Next
Set r1 = Selection.SpecialCells(xlCellTypeFormulas, 23)
On Error GoTo 0
'分岐
If r1 Is Nothing Then
MsgBox Selection.Address & "に数式なし", vbExclamation
Else
With r1.Interior
.ColorIndex = 6 '黄色
.Pattern = xlSolid
End With
End If
End Sub
こんな感じです。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 08/10/30(木) 11:18 -
