| |
はじめまして
ＶＢＡ初心者の者です。
さて早速質問ですが、ワークシートのアクティブレンジ領域で青色の背景色のセルを検索し無色に設定することを目的にマクロを作成したところ入力規則の在る
セルに対しては検索対象外となる模様です。
どなたか、お分かりになる方がいらっしゃると助かるのですが・・・
Dim aaa As Range
Dim bbb As String
Dim ccc As Worksheet
Application.FindFormat.Clear
ActiveSheet.Unprotect
Application.FindFormat.Interior.ColorIndex = 8
Set aaa = Cells.Find(What:="*", SearchFormat:=True)
If Not aaa Is Nothing Then
bbb = aaa.Address
Do
aaa.Interior.ColorIndex = xlNone
aaa.Locked = True
Set aaa = Cells.FindNext(aaa)
Loop While Not aaa Is Nothing And aaa.Address <> bbb
End If
ActiveSheet.Protect
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
