Excel VBA質問箱 IV

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

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


42796 / 76732 ←次へ | 前へ→

【38998】第○○曜日をyyyy/mm/ddに書き換えたい
質問  green  - 06/6/15(木) 18:15 -

引用なし
パスワード
   どなたか教えてください。

第○○曜日とセルに書いてあるデータを今月の日付に書き換えたいのですが、
行き詰まっています。


例えば
第3土曜 なら⇒ 2006/6/17
第3日曜 なら⇒ 2006/6/18
としたいのです。

プログラムを書いてみましたが、これでは何曜日という事と、土日の第○週というカウント
だけしか得られず、どう修正してよいか困っています。


Sub Main()

Dim yobi As Integer '曜日コード
Dim hi As Date '日付

Dim sta_cnt as integer '土曜○週
Dim sun_cnt as integer ’日曜○週

Dim cur_stdate As Date '初日
Dim sd As Integer
Dim cur_eddate As Date '月末
Dim ed As Integer
Dim lp As Integer 'ループ


cur_date = DateSerial(Year(Date), Month(Date), 1) '現在の月の初日
sd = Day(cur_date)
cur_eddate = DateSerial(Year(Date), Month(Date) + 1, 0) '現在の月の最後
ed = Day(cur_eddate)


For lp = sd To ed

   hi = DateSerial(Year(Date), Month(Date), lp) '現在の月の初日
   yobi = Format(hi, "w")
   Debug.Print "yobi="; yobi
   
   If yobi = 7 Then
    sta_cnt = sta_cnt + 1
   
  
   ElseIf yobi = 1 Then
    sun_cnt = sun_cnt + 1
   End If
Next

end sub


どなたか教えてください宜しくお願いいたします。
1 hits

【38998】第○○曜日をyyyy/mm/ddに書き換えたい green 06/6/15(木) 18:15 質問
【39002】Re:第○○曜日をyyyy/mm/ddに書き換えたい ハト 06/6/15(木) 19:06 回答
【39010】Re:第○○曜日をyyyy/mm/ddに書き換えたい green 06/6/15(木) 21:40 お礼
【39003】Re:第○○曜日をyyyy/mm/ddに書き換えたい Statis 06/6/15(木) 19:30 回答
【39009】Re:第○○曜日をyyyy/mm/ddに書き換えたい green 06/6/15(木) 21:38 質問
【39011】Re:第○○曜日をyyyy/mm/ddに書き換えたい green 06/6/15(木) 22:03 質問
【39013】Re:第○○曜日をyyyy/mm/ddに書き換えたい Statis 06/6/16(金) 8:08 回答
【39043】Re:第○○曜日をyyyy/mm/ddに書き換えたい green 06/6/16(金) 13:10 お礼
【39046】Re:第○○曜日をyyyy/mm/ddに書き換えたい Statis 06/6/16(金) 13:21 発言
【39016】Re:第○○曜日をyyyy/mm/ddに書き換えたい Jaka 06/6/16(金) 9:07 発言
【39045】Re:第○○曜日をyyyy/mm/ddに書き換えたい green 06/6/16(金) 13:11 お礼

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