The following two tabs change content below.




taka
あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪



最新記事 by taka (全て見る)
- 『雑記』最近の私の話~ - 2019年9月26日
- 【動画】自作パソコン構成変更!ケースをNZXT H500に交換しました! - 2019年6月5日
- VBA 『Array関数』指定した要素で配列を作成する - 2019年5月23日
- 「動画」初完全ワイヤレスイヤホン『Jabra Elite Active 65t』 - 2019年5月17日
- VBA 日付で令和を簡単に判定してみよう - 2019年5月7日
どうも、taka(@takabou63)です(^^♪
さて、皆さん、カレンダーや一か月の勤務表などを作成するときに必要になってくるもの・・・
それは【曜日】ですよね(;^ω^)
正直、曜日の処理はめんどくさいと思いますが、「Weekday関数」を使えば対象の日付の曜日をすぐに返してくれるのですごく便利ですので是非覚えていおいてください(^^♪
VBAのWeekday関数とは?
今回は引数で指定された日付の曜日を「数値」で返す【Weekday関数】について解説したいと思います。
数値を曜日に変換することができる「WeekdayName関数」とは相性がいいのでそちらも一緒に使うといいと思います(^^♪
WeekdayName関数についてはこちら:【VBA 【WeekdayName関数】数値を曜日に変換する】
Weekday関数の書式
Weekday関数の書式は以下の通りです。
Weekday( date(対象の日付), firstdayofweek(オプション))
Weekday関数の引数は2つあります。
引数名 | 説明 |
---|---|
date(対象の日付) | 必ず指定します。日付を表すことができる数式、文字列式、またはその任意の組み合わせです。日付にに Null が含まれる場合は、Null が返されます。 |
firstdayofweek | オプション。週の最初の曜日を指定する定数です。指定しなかった場合は、vbSunday (日曜日)が使用されます。 |
firstdayofweekの設定
引数のfirstdayofweek の設定はこのようになります。基本はここの部分を変更することはないかもしれません。
定数 | 値 | 説明 |
---|---|---|
vbUseSystem | 0 | NLS API 設定を使用します。 |
vbSunday | 1 | 日曜日 (既定) |
vbMonday | 2 | 月曜日 |
vbTuesday | 3 | 火曜日 |
vbWednesday | 4 | 水曜日 |
vbThursday | 5 | 木曜日 |
vbFriday | 6 | 金曜日 |
vbSaturday | 7 | 土曜日 |
Weekday 関数の返り値
Weekday 関数は、次の値を返します。
定数 | 値 | 説明 |
---|---|---|
vbSunday | 1 | 日曜日 |
vbMonday | 2 | 月曜日 |
vbTuesday | 3 | 火曜日 |
vbWednesday | 4 | 水曜日 |
vbThursday | 5 | 木曜日 |
vbFriday | 6 | 金曜日 |
vbSaturday | 7 | 土曜日 |
Weekday関数の使用例
実際にWeekday関数を使用してみましょう(^^)/
次のコードはinputBoxを使って入力された日付の曜日を返すコードです、caseの部分が数字になっていますがvbSunday等の定数でも可能ですのでご自由にお使いください。
Sub WeekdaySample() Dim Inputdate As String Inputdate = InputBox("日付を入力してください 例:2017/01/01") If IsDate(Inputdate) Then Select Case Weekday(Inputdate, 2) Case 1 MsgBox Inputdate & "は日曜日です" Case 2 MsgBox Inputdate & "は月曜日です" Case 3 MsgBox Inputdate & "は火曜日です" Case 4 MsgBox Inputdate & "は水曜日です" Case 5 MsgBox Inputdate & "は木曜日です" Case 6 MsgBox Inputdate & "は金曜日です" Case 7 MsgBox Inputdate & "は土曜日です" End Select End If End Sub
フォロー・チャンネル登録お願いします
VBA以外についてのブログはこちら↓
https://yb-log.com/■Twitterフォロー
Follow @taka_pc1027■YouTubeチャンネル登録
コメントを残す