Excel VBA質問箱 IV

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

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


67556 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   あれから、自分なりに色々やっていみたら一応出来ました。
以下がそれなんですが、知識が少なすぎてどうも邪道っぽい
ような気がします(-_-;)
変なところをご指摘して頂けないでしょうか?

実際はp列に項目名、x〜id列の3〜230行目のセルに数値が入ります。

Sub セルの色()

Dim i2, i3 As Integer
  For i3 = 3 To 230
  For i2 = 24 To 238
    
    If Cells(i3, i2).Value > 0 Then
    
      Select Case Cells(i3, 16)

        Case "A"
           Cells(i3, i2).Interior.ColorIndex = 5
           
         Case "B"
           Cells(i3, i2).Interior.ColorIndex = 10
  
         Case "C"
           Cells(i3, i2).Interior.ColorIndex = 35
  
         Case "D"
           Cells(i3, i2).Interior.ColorIndex = 36
           
         Case "E"
            Cells(i3, i2).Interior.ColorIndex = 38
            

      End Select
     
    Else

      Cells(i3, i2).Interior.ColorIndex = 0

    End If

  Next i2
  
  Next i3
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 お礼

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