Excel VBA質問箱 IV

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

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


6760 / 13646 ツリー ←次へ | 前へ→

【43333】A1に翌月曜日の日付取得 kenちゃん 06/10/10(火) 10:48 質問[未読]
【43335】Re:A1に翌月曜日の日付取得 ハチ 06/10/10(火) 11:10 回答[未読]
【43336】Re:A1に翌月曜日の日付取得 kenちゃん 06/10/10(火) 11:39 発言[未読]
【43337】Re:A1に翌月曜日の日付取得 ハチ 06/10/10(火) 12:00 発言[未読]
【43339】Re:A1に翌月曜日の日付取得 kenちゃん 06/10/10(火) 13:03 お礼[未読]
【43338】Re:A1に翌月曜日の日付取得 Jaka 06/10/10(火) 12:20 発言[未読]

【43333】A1に翌月曜日の日付取得
質問  kenちゃん  - 06/10/10(火) 10:48 -

引用なし
パスワード
   みなさん 教えてください。
A1に翌月曜日の日付を取得したいのですが
お解りになる方よろしくお願いします。
例:今日が月曜日なら今日の日付火曜日から日曜日までなら
翌月曜日を取得したいのですが変数?がよくわかりません。
例:今日2006/10/09(月)なら 平成18年10月09日(月)
    2006/10/10(火)なら 平成18年10月16日(月)
    2006/10/12(木)なら 平成18年10月16日(月)
    2006/10/15(日)なら 平成18年10月16日(月)を取得
上記のように取得したいのですが出来ますでしょうか。?

Sub 日付取得()
Dim 日付 As String
日付 = Format(Now() + 5, "YYYY/MM/DD")

【43335】Re:A1に翌月曜日の日付取得
回答  ハチ  - 06/10/10(火) 11:10 -

引用なし
パスワード
   ▼kenちゃん さん:
>みなさん 教えてください。
>A1に翌月曜日の日付を取得したいのですが
>お解りになる方よろしくお願いします。

Weekdayで判定しながら、1日づつ足していってはどうでしょう?
Sub Test()
  Dim 日付 As Date
  
  日付 = Now()
  Do Until Weekday(日付) = 2 '2が月曜日。詳しくはヘルプを
    日付 = 日付 + 1
  Loop
  MsgBox "次の月曜は" & Format(日付, "yyyy/mm/dd")
  
End Sub

【43336】Re:A1に翌月曜日の日付取得
発言  kenちゃん  - 06/10/10(火) 11:39 -

引用なし
パスワード
   ▼ハチ さん:
ありがとうございます。
ちょっと確認できないのですが日付+1で月曜日が今日の場合は
今日を取得できますかネ?

>Weekdayで判定しながら、1日づつ足していってはどうでしょう?
>Sub Test()
>  Dim 日付 As Date
>  
>  日付 = Now()
>  Do Until Weekday(日付) = 2 '2が月曜日。詳しくはヘルプを
>    日付 = 日付 + 1
>  Loop
>  MsgBox "次の月曜は" & Format(日付, "yyyy/mm/dd")
>  
>End Sub

【43337】Re:A1に翌月曜日の日付取得
発言  ハチ  - 06/10/10(火) 12:00 -

引用なし
パスワード
   ▼kenちゃん さん:
>▼ハチ さん:
>ありがとうございます。
>ちょっと確認できないのですが日付+1で月曜日が今日の場合は
>今日を取得できますかネ?

試してからにしましょう。
Do Until Weekday(日付) = 2 '2が月曜日。詳しくはヘルプを
ここを火曜日に替えて今試してみるとか。

提示したコードの意味を調べればわかります。
ステップ実行してみてください。

【43338】Re:A1に翌月曜日の日付取得
発言  Jaka  - 06/10/10(火) 12:20 -

引用なし
パスワード
   日曜だった場合の事を全く考えてないけど...。

=IF(WEEKDAY(TODAY())>2,TODAY()+7-WEEKDAY(TODAY())+2,TODAY())

【43339】Re:A1に翌月曜日の日付取得
お礼  kenちゃん  - 06/10/10(火) 13:03 -

引用なし
パスワード
   ▼ハチ さん:
バッチリでしたありがとうございました。
今後ともよろしくお願いします。
解決です
Jakaさんありがとうございました。
数式だとbookを開くたびに変わってしまうんですよね。悪しからず・・

一度設定したあとは固定としたいのです。
>試してからにしましょう。
>Do Until Weekday(日付) = 2 '2が月曜日。詳しくはヘルプを
>ここを火曜日に替えて今試してみるとか。
>
>提示したコードの意味を調べればわかります。
>ステップ実行してみてください。

6760 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free