レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

発展編1 フォローメールセミナー

Takao Kanekoさんの投稿

(投稿ID: 4378) 添付ファイルのダウンロード権限がありません

小川先生、
Module18の下記の課題について質問があります。
[3]で見つけてきた曜日の背景色を調べてくる
[4]で調べた色で、[1]で取得したセル全体を塗りつぶす
土曜日に青色、日曜日に赤色となるはずが、
日曜日に青色、月曜日に赤色と一つズレた実行結果になります。

自分が書いていたマクロに問題があるのかと思いましたが、新しくダウンロードした回答も同じになりました。
実行した年度は、２００９年と２０１９年です。
さらに、「なんでだろう？」と自分で簡単なテストしました。
２０１９年１月１日（火）なので、Weekday関数の引数は３となるのですが、
なぜかWeekdayname関数だと、水曜日となります。
今朝から、この解けきれない問題のループにハマってしまってます。
どうかお教え頂けますでしょうか？
よろしくお願いします。

Takao

2019/02/11 14:20

小川慶一さんのコメント

(コメントID: 6014)

Takao Kanekoさん:

なるほど。興味深い現象ですね。

以下のプログラムを実行してください。どのような出力結果になるでしょうか。

Sub Test_ogawa()
    Dim d As Date
    d = Range("A2").Value
    Debug.Print Weekday(d)
    Debug.Print WeekdayName(Weekday(d))
End Sub

↓僕の環境では以下です。
3
火曜日

エクセルのバージョン（リージョン、地域）に依存するかもしれません。
引数 firstdayofweek を明示する必要があるかもしれませんね。

とりいそぎ。
もう少し調べてみます。まずは、 firstdayofweek を指定して結果をより安定制御できるか？試してみてください。

参考: MSDN
https://docs.microsoft.com/ja-jp/previous-versions/windows/scripting/cc392348(v=msdn.10)

> 小川先生、
> Module18の下記の課題について質問があります。
> [3]で見つけてきた曜日の背景色を調べてくる
> [4]で調べた色で、[1]で取得したセル全体を塗りつぶす
> 土曜日に青色、日曜日に赤色となるはずが、
> 日曜日に青色、月曜日に赤色と一つズレた実行結果になります。
>
> 自分が書いていたマクロに問題があるのかと思いましたが、新しくダウンロードした回答も同じになりました。
> 実行した年度は、２００９年と２０１９年です。
> さらに、「なんでだろう？」と自分で簡単なテストしました。
> ２０１９年１月１日（火）なので、Weekday関数の引数は３となるのですが、
> なぜかWeekdayname関数だと、水曜日となります。
> 今朝から、この解けきれない問題のループにハマってしまってます。
> どうかお教え頂けますでしょうか？
> よろしくお願いします。
>
> Takao

2019/02/12 03:42

Takao Kanekoさんのコメント

(コメントID: 6018)

小川先生、

私の環境では以下になりました。
Range("A1")に何もいれない場合。
7
Sunday

Range("A1")に1/01/2019と入れた場合。
3
Wednesday

> まずは、 firstdayofweek を指定して結果をより安定制御できるか？試してみてください。
調べながら、求める結果になるか試してみます。

取り急ぎ失礼します。

2019/02/12 05:10

小川慶一さんのコメント

(コメントID: 6026)

Takao Kanekoさん:

やはり、weekday関数の第2引数で明示的に firstdayofweek を指定するのが良さそうですね。

デフォルトでは、

[Ctrl] + [R] → intl.cpl → [Enter] で表示される「地域」ダイアログ「形式」タブの、「週の最初の曜日」の設定に依存するようです。

なので、こちらの設定を変えるのも、ありと言えばありです。

【参考】
「weekday関数」の上にカーソルを置いて [F1] を押すとMSDNにある以下のヘルプが表示されます。
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/weekday-function?f1url=https%3A%2F%2Fmsdn.microsoft.com%2Fquery%2Fdev11.query%3FappId%3DDev11IDEF1%26l%3Dja-JP%26k%3Dk(vblr6.chm1009058)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv16)%26rd%3Dtrue%26f%3D255%26MSPPError%3D-2147217396

> 小川先生、
>
> 私の環境では以下になりました。
> Range("A1")に何もいれない場合。
> 7
> Sunday
>
> Range("A1")に1/01/2019と入れた場合。
> 3
> Wednesday
>
> > まずは、 firstdayofweek を指定して結果をより安定制御できるか？試してみてください。
> 調べながら、求める結果になるか試してみます。
>
> 取り急ぎ失礼します。

2019/02/14 06:30

Takao Kanekoさんのコメント

(コメントID: 6043)

小川先生

firstdayofweek 引数の設定を１にしたところ、土曜日は青く、日曜日は赤く色を付けることが出来ました。

[Ctrl] + [R]で動かなかったので、 [Win] + [R]で試しました ^-^
firstdayofweekのところが、月曜日になってましたので、日曜日に設定しました。
こちらも、動作確認し意図通りに動きました。

私のパソコンだけデフォルトでは、設定は月曜日なのでしょうか。不思議ですね。

Weekday関数を使うたびに、firstdayofweekを指定しなければならないので、ココの設定を日曜日にしておきました。

問題が解決して、スッキリしました。先生、ありがとうございました。

2019/02/16 15:07

小川慶一さんのコメント

(コメントID: 6048)

Takao Kanekoさん:

> [Ctrl] + [R]で動かなかったので、 [Win] + [R]で試しました ^-^

あ、すいません。
間違えました。

> 私のパソコンだけデフォルトでは、設定は月曜日なのでしょうか。不思議ですね。

どういう事情でそうなったのか？は、僕も断定はできません。

ともあれ、スッキリされたようでよかったです。
こういう調査をすると、スキルがグッと高まりますね (^^

> 小川先生
>
> firstdayofweek 引数の設定を１にしたところ、土曜日は青く、日曜日は赤く色を付けることが出来ました。
>
> [Ctrl] + [R]で動かなかったので、 [Win] + [R]で試しました ^-^
> firstdayofweekのところが、月曜日になってましたので、日曜日に設定しました。
> こちらも、動作確認し意図通りに動きました。
>
> 私のパソコンだけデフォルトでは、設定は月曜日なのでしょうか。不思議ですね。
>
> Weekday関数を使うたびに、firstdayofweekを指定しなければならないので、ココの設定を日曜日にしておきました。
>
> 問題が解決して、スッキリしました。先生、ありがとうございました。

2019/02/16 21:12