The following two tabs change content below.
taka
あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪
最新記事 by taka (全て見る)
- VBAでATMのようなランダムキーを作ってみた - 2018年10月17日
- IT企業てどんな感じ？ブラックが多いの？実際に社長に聞いてきた！ - 2018年10月15日
- 【雑記】親知らずの抜糸してきました！意外と痛い！ - 2018年10月14日
- 【雑記】親知らず(水平埋没知歯)を抜きました！ - 2018年10月10日
- VBA SimpleAPIを使ってWikipediaの情報を簡単に取得してみた - 2018年10月3日
どうも、takaです(^^♪
さて、皆さん、カレンダーや一か月の勤務表などを作成するときに必要になってくるもの・・・
それは【曜日】ですよね(;^ω^)
正直、曜日の処理はめんどくさいと思いますが、「Weekday関数」を使えば対象の日付の曜日をすぐに返してくれるのですごく便利ですので是非覚えていおいてください(^^♪
VBAのWeekday関数とは？
今回は引数で指定された日付の曜日を「数値」で返す【Weekday関数】について解説したいと思います。
数値を曜日に変換することができる「WeekdayName関数」とは相性がいいのでそちらも一緒に使うといいと思います(^^♪
WeekdayName関数についてはこちら：【VBA 【WeekdayName関数】数値を曜日に変換する】
Weekday関数の書式
Weekday関数の書式は以下の通りです。
1 | 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等の定数でも可能ですのでご自由にお使いください。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | 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 |
ファイルやコードの利用、WEBサイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Sponsored Link
特別企画！IT企業の実情をIT企業の社長に聞いてみた！
独学者が多いVBAプログラマー「せっかくプログラム言語を覚えたし、IT企業に転職しようかな？でも、IT企業って良いイメージ聞かないし実際はどうなんだ？」という疑問にIT企業の社長に直に聞いてみました！！
使用OS：
コメントを残す