Excel VBA質問箱 IV

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

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


67551 / 76732 ←次へ | 前へ→

【13735】Re:こんな条件に従ってセルの色を塗りつぶしたいのですが・・・
質問  くりりん  - 04/5/12(水) 11:56 -

引用なし
パスワード
   色番号に「0(白)」もしくは「xlNone」は指定してないのですが・・・
作った構文は以下の通りです。

Sub PaintColor()
   Dim rngTarget As Range
   Dim lngColorIndex As Long
  
   For Each rngTarget In Range("x3:id230") 
     With rngTarget
       If .Column = 16 Then  
         Select Case .Value
           '項目名ごとにカラーインデックスを指定
           Case Is = "A"
             lngColorIndex = 5
           Case Is = "B"
             lngColorIndex = 10
           Case Is = "C"
             lngColorIndex = 35
           Case Is = "D"
             lngColorIndex = 36
           Case Is = "E"
             lngColorIndex = 38
           Case Is = "F"
             lngColorIndex = 39
     
         End Select
       ElseIf .Column > 23 Then

         If .Value <> "" Then
           rngTarget.Interior.ColorIndex = lngColorIndex
         End If
       End If
     End With
   Next rngTarget
 End Sub

1 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 お礼

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