Excel VBA質問箱 IV

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

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


27198 / 76732 ←次へ | 前へ→

【54857】Re:色のついているセルの値を消す方法
発言  ichinose@仕事中寄り道  - 08/4/2(水) 12:18 -

引用なし
パスワード
   ▼roxy さん:
こんにちは。

>RGB(255, 255, 153)という色がついているセルの値を消したいです。
>しかし、エラーで「型が一致しません」と表示されます。
>色を宣言するんですよね??
>このあたりが良く分かりません。
>ご指導いただけたらとおもいます。
まず、Range("C5:J15")このセル範囲は全て同じ色で塗りつぶされている
という前提ならば、

If Worksheets("Sheet1").Range("C5:J15").Interior.Color = RGB(255, 255, 153) Then
  Worksheets("Sheet1").Range("C5:J15").ClearContents
  End If

これでよいですが、

Range("C5:J15")このセル範囲内で塗りつぶし色がRGB(255, 255, 153)という色のセルの値をクリアしたいなら・・・、

Sub CommandButton1_Click()

  Dim rng As Range
  For Each rng In Worksheets("Sheet1").Range("C5:J15")
   If rng.Interior.Color = RGB(255, 255, 153) Then
     rng.ClearContents
     End If
   Next
End Sub

こんな感じですか?

2 hits

【54851】色のついているセルの値を消す方法 roxy 08/4/2(水) 11:46 質問
【54852】Re:色のついているセルの値を消す方法 ひげくま 08/4/2(水) 11:55 発言
【54853】Re:色のついているセルの値を消す方法 roxy 08/4/2(水) 11:57 発言
【54854】Re:色のついているセルの値を消す方法 roxy 08/4/2(水) 12:02 発言
【54856】Re:色のついているセルの値を消す方法 ひげくま 08/4/2(水) 12:11 発言
【54855】Re:色のついているセルの値を消す方法 ひげくま 08/4/2(水) 12:04 発言
【54859】Re:色のついているセルの値を消す方法 roxy 08/4/2(水) 13:15 回答
【54863】Re:色のついているセルの値を消す方法 BOTTA 08/4/2(水) 13:29 回答
【54866】Re:色のついているセルの値を消す方法 roxy 08/4/2(水) 13:38 発言
【54857】Re:色のついているセルの値を消す方法 ichinose@仕事中寄り道 08/4/2(水) 12:18 発言
【54861】Re:色のついているセルの値を消す方法 roxy 08/4/2(水) 13:27 お礼
【54862】Re:色のついているセルの値を消す方法 ひげくま 08/4/2(水) 13:27 回答
【54865】Re:色のついているセルの値を消す方法 roxy 08/4/2(水) 13:37 回答

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