Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9153 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【29103】第3水曜日はどのようにして ぱぴよん 05/9/24(土) 21:33 質問[未読]
【29105】Re:第3水曜日はどのようにして りん 05/9/24(土) 21:56 発言[未読]
【29121】Re:第3水曜日はどのようにして ぱぴよん 05/9/25(日) 16:47 お礼[未読]
【29123】Re:第3水曜日はどのようにして りん 05/9/25(日) 17:15 発言[未読]
【29103】第3水曜日はどのようにして
質問  ぱぴよん  - 05/9/24(土) 21:33 -
引用なし
パスワード
   10/1　10/2　10/3 ･･･
と日付けが並んでいて、その月の第3水曜日の日付けが
書いてあるセルに色を付けたいのですがうまくいきません。
どのようにすればよいでしょうか？
【29105】Re:第3水曜日はどのようにして
発言  りん E-MAIL  - 05/9/24(土) 21:56 -
引用なし
パスワード
   ぱぴよん さん、こんばんわ。

>10/1　10/2　10/3 ･･･
>と日付けが並んでいて、その月の第3水曜日の日付けが
>書いてあるセルに色を付けたいのですがうまくいきません。
>どのようにすればよいでしょうか？
VBAではないですが。

A1から横方向に日付（数値）が入っているとして、

A1〜AE1(31日まで)を選択した状態で
書式　→　条件付書式
『数式が』　
『=AND(WEEKDAY(A1)=4,INT((DAY(A1)-1)/7)=2)』
お好みの書式を設定

WEEKDAY(A1)=4は水曜日を意味します（日月火水で４）。
INT((DAY(A1)-1)/7)=2　は何週目に割り振られているかを計算しています。
　１〜　７日は１週目（１引いて７で割ると０）
　８〜１４日は２週目（１引いて７で割ると１）
１５〜２１日は３週目（１引いて７で割ると２）
　何週目かを返す関数も分析ツールにはあるのですが、違うPCに持っていくとエラーになったりするので、今回は使っていません。
【29121】Re:第3水曜日はどのようにして
お礼  ぱぴよん  - 05/9/25(日) 16:47 -
引用なし
パスワード
   りんさんこんにちは。

7で割ればいいんですね。
大変参考になりました。
VBAでもできるか早速試してみます。

どうもありがとうございました！
【29123】Re:第3水曜日はどのようにして
発言  りん E-MAIL  - 05/9/25(日) 17:15 -
引用なし
パスワード
   ぱぴよん さん、こんにちわ。

>7で割ればいいんですね。
>VBAでもできるか早速試してみます。

正確にいうと、１ひいて７で割った整数部分です。
Int関数または\で出します。

または、７で割って 　2< 日/7 <=3　です。

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