Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

54483 / 76732

←次へ　｜　前へ→


	【27039】Re:セルの色塗りを検出する方法

知ろう途 - 05/7/27(水) 0:14 -


	引用なし

	パスワード

agalinman さんこんばんわですます。

そんなに早く諦めなくともよいのでは？

色を塗る事ばかり気にせず次の流れでの処理は無理っぽいですかね？
あくまでも　A1:G10　の範囲を例として。。

まずは塗りたいセルに数字を入力。。といきたいところですが先に
セルに値があるかもしれないので

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

　　With Target
　　 If .Column <= 7 And .Row <= 10 Then
　　　[H1].Value = .Value
　　 Else: [H1].Value = ""
　　 End If
　　End With
　　
End Sub

でH1にでも値を逃がしておきそれから色を塗ります。

下記では、1,2,3を入力するとそれぞれ黒、赤、青とを塗るようにしています。

Private Sub Worksheet_Change(ByVal Target As Range)
　　
　　With Target
　　 If .Column <= 7 And .Row <= 10 Then
　　　Select Case .Value
　　　 Case "": [H1].Value = ""
　　　 Case "1", "１": .Interior.ColorIndex = 1
　　　　　　　　　　　 .Value = [H1].Value
　　　 Case "2", "２": .Interior.ColorIndex = 3
　　　　　　　　　　　 .Value = [H1].Value
　　　 Case "3", "３": .Interior.ColorIndex = 5
　　　　　　　　　　　 .Value = [H1].Value
　　　 Case Else: End
　　　End Select
　　 End If
　　End With

End Sub

んでもってこの続きに色の数を調べるコードをつなげてみたり
してみたりしてみたらどうでしょうか？

もし塗りたい色の種類が多い場合はインデックスそのものを入力
するように変更してみてください。

あ！それとエラー処理は未だに良くわからないのでおまかせします。

0 hits

▼

【27017】セルの色塗りを検出する方法 agalinman 05/7/26(火) 16:52