Excel VBA質問箱 IV

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

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


39145 / 76732 ←次へ | 前へ→

【42706】プログラムミス??
質問  だいだい  - 06/9/19(火) 20:57 -

引用なし
パスワード
   全部一色で塗られてしまう・・・
どこが間違ってるかわからーーん(泣き

#############################################

曜日によって背景色を変える

#############################################

Sub InteriorColor()

Dim i As Integer 'カウント用

For i = 3 To 20

 Select Case Cells(i, "D").Value 'D列に曜日がリストしてある

  Case Is <> "SUN"
    Cells(i, "D").Interior.Color = RGB(23, 12, 132) '適当な色
    
  Case Is <> "MON"
    Cells(i, "D").Interior.Color = RGB(243, 123, 12) '適当な色
    
  Case Is <> "TUE"
    Cells(i, "D").Interior.Color = RGB(243, 12, 12) '適当な色
    
  Case Is <> "WED"
    Cells(i, "D").Interior.Color = RGB(23, 123, 132) '適当な色
      
  Case Is <> "THU"
    Cells(i, "D").Interior.Color = RGB(43, 123, 132) '適当な色
    
  Case Is <> "SUN"
    Cells(i, "D").Interior.Color = RGB(123, 123, 12) '適当な色
      
  Case Is <> "SUN"
    Cells(i, "D").Interior.Color = RGB(222, 123, 132) '適当な色
      
  Case Else
    Cells(i, "D").Interior.Color = RGB(132, 132, 243)
  
 End Select
 
Next
    
End Sub

1 hits

【42706】プログラムミス?? だいだい 06/9/19(火) 20:57 質問
【42710】Re:プログラムミス?? りん 06/9/19(火) 21:39 回答
【42711】Re:プログラムミス?? だいだい 06/9/19(火) 21:43 お礼

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