Excel VBA質問箱 IV

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

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


57070 / 76732 ←次へ | 前へ→

【24402】背景色変更
質問  YY  - 05/4/21(木) 16:28 -

引用なし
パスワード
   縦方向に印刷されているカレンダーのような表があります。
その、曜日の欄(B6〜B36)が「土」または「日」の場合のみ
範囲設定されたセル(B6:AH6〜B36〜AH36)の背景色を変えようと
下記のように作ってみたのですが、うまくいきません。。
どこが違っているのか、わかる方がおられましたら、
ご返答ください。

Range("B6").Select
 
  For i =6 To 36
 
   If ActiveCell = "土" Then
  
    Range(Cells(i, 1), Cells(i, 34)).Select
    Selection.Interior.ColorIndex = 37
       
   ElseIf ActiveCell = "日" Then
    Range(Cells(i, 1), Cells(i, 34)).Select
    Selection.Interior.ColorIndex = 37
   
   End If
  
   ActiveCell.Offset(1, 0).Select
 
  Next i
   

0 hits

【24402】背景色変更 YY 05/4/21(木) 16:28 質問
【24403】Re:背景色変更 G-Luck 05/4/21(木) 16:52 発言
【24406】Re:背景色変更 YY 05/4/21(木) 17:32 お礼

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