Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4732 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4732 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free