Excel VBA質問箱 IV

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

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


4734 / 13646 ツリー ←次へ | 前へ→

【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 回答[未読]

【54851】色のついているセルの値を消す方法
質問  roxy  - 08/4/2(水) 11:46 -

引用なし
パスワード
   RGB(255, 255, 153)という色がついているセルの値を消したいです。
しかし、エラーで「型が一致しません」と表示されます。
色を宣言するんですよね??
このあたりが良く分かりません。
ご指導いただけたらとおもいます。

記述内容▼


Private Sub CommandButton1_Click()


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

Worksheets(Sheet1).Range("C5:J15").ClearContents


End If

End Sub

【54852】Re:色のついているセルの値を消す方法
発言  ひげくま  - 08/4/2(水) 11:55 -

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

C5:J15の範囲内に、セルの色がRGB(255, 255, 153)のものとそうでないものが混在しているときに、Worksheets(Sheet1).Range("C5:J15").Interior.ColorIndex の値は何になると期待していますか?

【54853】Re:色のついているセルの値を消す方法
発言  roxy  - 08/4/2(水) 11:57 -

引用なし
パスワード
   ▼ひげくま さん:
回答早々ありがとうございます。

かならずその色が範囲に指定されてますので、
エラーは起きないようになってるのですが。。

【54854】Re:色のついているセルの値を消す方法
発言  roxy  - 08/4/2(水) 12:02 -

引用なし
パスワード
   *追記です*

&H0080FFFF&
という色が確かなのですが、これでも同じエラーです。。。

【54855】Re:色のついているセルの値を消す方法
発言  ひげくま  - 08/4/2(水) 12:04 -

引用なし
パスワード
   ▼roxy さん:
>かならずその色が範囲に指定されてますので、

ん???
であれば、色を見ないで消せば良いだけでは?

【54856】Re:色のついているセルの値を消す方法
発言  ひげくま  - 08/4/2(水) 12:11 -

引用なし
パスワード
   ▼roxy さん:
>&H0080FFFF&
>という色が確かなのですが、

えぇっと・・・どういう意味なのか解りません・・・

【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

こんな感じですか?

【54859】Re:色のついているセルの値を消す方法
回答  roxy  - 08/4/2(水) 13:15 -

引用なし
パスワード
   ▼ひげくま さん:
>▼roxy さん:
>>かならずその色が範囲に指定されてますので、
>
>ん???
>であれば、色を見ないで消せば良いだけでは?

→ためしなので、色がちゃんと全部ついているセルを
選択することにひとまずしています。
分かりにくくてすみません。

【54861】Re:色のついているセルの値を消す方法
お礼  roxy  - 08/4/2(水) 13:27 -

引用なし
パスワード
   皆さま

解決しました。
ご丁寧に有難うございました。

【54862】Re:色のついているセルの値を消す方法
回答  ひげくま  - 08/4/2(水) 13:27 -

引用なし
パスワード
   ちょっと勘違いしていました。すみません。

▼roxy さん:
>If Worksheets(Sheet1).Range("C5:J15").Interior.ColorIndex = RGB(255, 255, 153) Then
>
>Worksheets(Sheet1).Range("C5:J15").ClearContents
>
>
>End If

Worksheets(Sheet1)
ではなく、
Worksheets("Sheet1")
としてみましょう。

【54863】Re:色のついているセルの値を消す方法
回答  BOTTA  - 08/4/2(水) 13:29 -

引用なし
パスワード
   みなさん、こんにちは。
>前者の記述ですが、「型が一致しません」と出ます。
たぶん、
Worksheets(Sheet1).Range("C5:J15").Interior......

Worksheets("Sheet1").Range("C5:J15").Interior......
シート名は""(ダブルコーテーション)で囲む。

【54865】Re:色のついているセルの値を消す方法
回答  roxy  - 08/4/2(水) 13:37 -

引用なし
パスワード
   ▼ひげくま さん:

そうですね、後で気づきました。
どうもありがとうございます。

【54866】Re:色のついているセルの値を消す方法
発言  roxy  - 08/4/2(水) 13:38 -

引用なし
パスワード
   ▼BOTTA さん:
>みなさん、こんにちは。
>>前者の記述ですが、「型が一致しません」と出ます。
>たぶん、
>Worksheets(Sheet1).Range("C5:J15").Interior......
>↓
>Worksheets("Sheet1").Range("C5:J15").Interior......
>シート名は""(ダブルコーテーション)で囲む。


→THANKS!!

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