Excel VBA質問箱 IV

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

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


13743 / 76732 ←次へ | 前へ→

【68492】Re:特定の色のセルを探して塗りつぶしなしに変更する方法
発言  UO3  - 11/3/10(木) 11:32 -

引用なし
パスワード
   ▼ゆかわ さん:

こんにちは

既にはーばーさんから適切な回答がありますので蛇足です。

少なくとも2003までは、書式検索におけるFindNextにバグがあり
検索系の定番、Find/FindNextの構文が使えませんので、むりやり
Findのみでまわすコードです。(お勧めはしません。ご参考程度に)

Sub Test2()
  Dim c As Range
  
  With ActiveSheet.UsedRange
    Set c = .Cells(1)
    Do
      Application.FindFormat.Interior.ColorIndex = 38
      Set c = .Find(What:="", after:=c, LookIn:=xlFormulas, LookAt:=xlPart, _
        SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
        MatchByte:=False, SearchFormat:=True)
      If c Is Nothing Then Exit Do
      c.Interior.ColorIndex = xlNone
    Loop
  End With
  
  Set c = Nothing
  
End Sub

1 hits

【68489】特定の色のセルを探して塗りつぶしなしに変更する方法 ゆかわ 11/3/10(木) 9:13 質問
【68491】Re:特定の色のセルを探して塗りつぶしなし... はーばー 11/3/10(木) 9:59 回答
【68492】Re:特定の色のセルを探して塗りつぶしなし... UO3 11/3/10(木) 11:32 発言
【68493】Re:特定の色のセルを探して塗りつぶしなし... n 11/3/10(木) 13:50 発言
【68494】Re:特定の色のセルを探して塗りつぶしなし... UO3 11/3/10(木) 16:07 発言
【68495】Re:特定の色のセルを探して塗りつぶしなし... UO3 11/3/10(木) 18:13 回答
【68559】Re:特定の色のセルを探して塗りつぶしなし... ゆかわ 11/3/24(木) 18:15 お礼

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