Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2219 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【69364】土日に色をつける ぷんぷん 11/7/1(金) 11:15 質問[未読]
【69365】Re:土日に色をつける UO3 11/7/1(金) 11:58 発言[未読]
【69367】Re:土日に色をつける UO3 11/7/1(金) 12:10 発言[未読]
【69368】Re:土日に色をつける ぷんぷん 11/7/1(金) 12:58 お礼[未読]
【69383】Re:土日に色をつける 読解不能 11/7/3(日) 17:32 発言[未読]
【69364】土日に色をつける
質問  ぷんぷん  - 11/7/1(金) 11:15 -
引用なし
パスワード
   Ａ　Ｂ　Ｃ　Ｄ　Ｅ　Ｆ　列

　　　　　　　　Ｈ２３年７月
１
２
３
：
：
：
３１

上記のように、Ｅ列のセルに年・月を入力すると
Ａ列にある数字（日付）の土日の行（Ａ〜Ｆ列）に色がつく
ようなマクロはありますか？

よろしくお願いします！！
【69365】Re:土日に色をつける
発言  UO3  - 11/7/1(金) 11:58 -
引用なし
パスワード
   ▼ぷんぷん さん：

もちろんマクロでもできますが（この場合はChangeイベントを使うことになるでしょう）
そうしなくても

A1からA○　まで選んだ状態(A1がアクティブセル)で条件付書式。
数式が　=AND(WEEKDAY(C1,2)>5,C1<>"")　書式をお好きなものに。

こうしておくと、土曜日、日曜鋳の日付が入力されたらA列の、その行のセルが指定した書式になります。
【69367】Re:土日に色をつける
発言  UO3  - 11/7/1(金) 12:10 -
引用なし
パスワード
   ▼UO3 さん：

ＶＢＡがお好みならシートモジュールに。
（なお、書式はお好きに。ここでは文字色を赤にしています）

Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim r As Range, c As Range
　　Set r = Intersect(Target, Columns("C"))
　　If Not r Is Nothing Then
　　　　For Each c In r
　　　　　　c.Offset(, -2).Font.ColorIndex = xlAutomatic
　　　　　　If IsDate(c.Value) Then
　　　　　　　　If Weekday(c.Value, vbMonday) > 5 Then c.Offset(, -2).Font.Color = vbRed
　　　　　　End If
　　　　Next
　　　　Set r = Nothing
　　End If
End Sub
【69368】Re:土日に色をつける
お礼  ぷんぷん  - 11/7/1(金) 12:58 -
引用なし
パスワード
   UO3 さん

ご親切にどうもありがとうございました。
残念ながら、ＶＢＡやエクセルの意識がなくできませんでした。
せっかく教えて下さったのにすみません。
もう少し自分で調べてみます！！
本当にありがとうございました☆
【69383】Re:土日に色をつける
発言  読解不能  - 11/7/3(日) 17:32 -
引用なし
パスワード
   ▼ぷんぷん さん：
>UO3 さん
>
>ご親切にどうもありがとうございました。
>残念ながら、ＶＢＡやエクセルの意識がなくできませんでした。
>せっかく教えて下さったのにすみません。
>もう少し自分で調べてみます！！
>本当にありがとうございました☆

だめだこりゃ。
UO3さんがプンプン。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2219 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free