Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6769 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【43333】Ａ１に翌月曜日の日付取得 kenちゃん 06/10/10(火) 10:48 質問[未読]
【43335】Re:Ａ１に翌月曜日の日付取得 ハチ 06/10/10(火) 11:10 回答[未読]
【43336】Re:Ａ１に翌月曜日の日付取得 kenちゃん 06/10/10(火) 11:39 発言[未読]
【43337】Re:Ａ１に翌月曜日の日付取得 ハチ 06/10/10(火) 12:00 発言[未読]
【43339】Re:Ａ１に翌月曜日の日付取得 kenちゃん 06/10/10(火) 13:03 お礼[未読]
【43338】Re:Ａ１に翌月曜日の日付取得 Jaka 06/10/10(火) 12:20 発言[未読]
【43333】Ａ１に翌月曜日の日付取得
質問  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:Ａ１に翌月曜日の日付取得
回答  ハチ  - 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:Ａ１に翌月曜日の日付取得
発言  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:Ａ１に翌月曜日の日付取得
発言  ハチ  - 06/10/10(火) 12:00 -
引用なし
パスワード
   ▼kenちゃん さん：
>▼ハチ さん：
>ありがとうございます。
>ちょっと確認できないのですが日付+1で月曜日が今日の場合は
>今日を取得できますかネ？

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

提示したコードの意味を調べればわかります。
ステップ実行してみてください。
【43338】Re:Ａ１に翌月曜日の日付取得
発言  Jaka  - 06/10/10(火) 12:20 -
引用なし
パスワード
   日曜だった場合の事を全く考えてないけど...。

=IF(WEEKDAY(TODAY())>2,TODAY()+7-WEEKDAY(TODAY())+2,TODAY())
【43339】Re:Ａ１に翌月曜日の日付取得
お礼  kenちゃん  - 06/10/10(火) 13:03 -
引用なし
パスワード
   ▼ハチ さん：
バッチリでしたありがとうございました。
今後ともよろしくお願いします。
解決です
Jakaさんありがとうございました。
数式だとbookを開くたびに変わってしまうんですよね。悪しからず・・

一度設定したあとは固定としたいのです。
>試してからにしましょう。
>Do Until Weekday(日付) = 2 '2が月曜日。詳しくはヘルプを
>ここを火曜日に替えて今試してみるとか。
>
>提示したコードの意味を調べればわかります。
>ステップ実行してみてください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6769 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free