Excel VBA質問箱 IV

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

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


10154 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

【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

【23351】Re:入力規則設定のセルに対してのFin...
発言  G-Luck  - 05/3/19(土) 9:24 -

引用なし
パスワード
   ▼senna さん:

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

私の環境では、入力規則があっても検索してくれるのですが?
セルの色は、どのような方法で設定していますか?
条件付書式でしょうか?
であるなら、条件付書式で設定した色は、検索しないようです。

【23415】Re:入力規則設定のセルに対してのFin...
お礼  senna  - 05/3/22(火) 13:28 -

引用なし
パスワード
   G-Luckさん

ありがとうございました。
私の勘違いでした。セルの入力規則は全く関係ないみたいです。
色々と、お手間を取らせました。
ただ、今回の検索については検索したい文字列は関係なく、
セルの書式による検索を行いたかった理由ですが・・
引数WHATのパターンも""だと当然何らかの文字が入力されていると対象外ですし
"*"だと逆に空白のセルは対象外となる模様です。
別の方法を考えて見ます。

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