Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


58185 / 76732 ←次へ | 前へ→

【23279】入力規則設定のセルに対してのFindメソッドの適用
質問  senna  - 05/3/18(金) 9:31 -

引用なし
パスワード
   はじめまして
VBA初心者の者です。

さて早速質問ですが、ワークシートのアクティブレンジ領域で青色の背景色のセルを検索し無色に設定することを目的にマクロを作成したところ入力規則の在る
セルに対しては検索対象外となる模様です。
どなたか、お分かりになる方がいらっしゃると助かるのですが・・・

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

1 hits

【23279】入力規則設定のセルに対してのFindメソッドの適用 senna 05/3/18(金) 9:31 質問
【23351】Re:入力規則設定のセルに対してのFind... G-Luck 05/3/19(土) 9:24 発言
【23415】Re:入力規則設定のセルに対してのFin... senna 05/3/22(火) 13:28 お礼

58185 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free