Excel VBA質問箱 IV

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

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


67581 / 76738 ←次へ | 前へ→

【13711】Re:こんな条件に従ってセルの色を塗りつぶしたいのですが・・・
回答  ちゃっぴ E-MAIL  - 04/5/11(火) 16:38 -

引用なし
パスワード
   こんな感じですか?

Sub PaintColor()
  Dim rngTarget As Range
  Dim lngColorIndex As Long
  
  For Each rngTarget In セル範囲 'セル範囲にはデータベース全体を指定
    With rngTarget
      If .Column = 1 Then   'A列の場合
        Select Case .Value
          '項目名ごとにカラーインデックスを指定
          Case Is = "項目名A"
            lngColorIndex = 色1
          Case Is = "項目名B"
            lngColorIndex = 色2
          '・・・・以下略
        End Select
      Else          '以外
        'セルに値が入力されている場合塗りつぶし
        If .vlaue <> "" Then
          .Interior.ColorIndex = lngColorIndex
        End If
      End If
    End With
  Next rngTarget
End Sub

ちなみに、エラーを防止するためにも項目名フィールドには
入力規則を設けておくほうがよいかと思います。
0 hits

【13710】こんな条件に従ってセルの色を塗りつぶしたいのですが・・・ くりりん 04/5/11(火) 16:05 質問
【13711】Re:こんな条件に従ってセルの色を塗りつぶ... ちゃっぴ 04/5/11(火) 16:38 回答
【13726】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 10:09 質問
【13729】Re:こんな条件に従ってセルの色を塗りつぶ... ちゃっぴ 04/5/12(水) 10:48 回答
【13731】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 11:16 質問
【13733】Re:こんな条件に従ってセルの色を塗りつぶ... [名前なし] 04/5/12(水) 11:26 回答
【13735】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 11:56 質問
【13736】Re:こんな条件に従ってセルの色を塗りつぶ... ちゃっぴ 04/5/12(水) 12:19 回答
【13739】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 13:15 質問
【13740】Re:こんな条件に従ってセルの色を塗りつぶ... ちゃっぴ 04/5/12(水) 13:34 回答
【13741】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 13:55 お礼
【13743】Re:こんな条件に従ってセルの色を塗りつぶ... ちゃっぴ 04/5/12(水) 14:08 回答
【13745】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 15:20 質問
【13746】Re:こんな条件に従ってセルの色を塗りつぶ... ちゃっぴ 04/5/12(水) 16:17 回答
【13747】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 16:28 お礼
【13713】Re:こんな条件に従ってセルの色を塗りつぶ... Jaka 04/5/11(火) 16:41 回答
【13728】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 10:21 質問
【13773】Re:こんな条件に従ってセルの色を塗りつぶ... Jaka 04/5/13(木) 9:52 回答
【13789】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/13(木) 15:43 お礼
【13730】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 10:53 質問
【13732】Re:こんな条件に従ってセルの色を塗りつぶ... ちゃっぴ 04/5/12(水) 11:20 回答
【13742】Re:こんな条件に従ってセルの色を塗りつぶ... くりりん 04/5/12(水) 14:03 お礼

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