Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

42795 / 76735

←次へ　｜　前へ→


	【39002】Re:第○○曜日をyyyy/mm/ddに書き換えたい

ハト - 06/6/15(木) 19:06 -


	引用なし

	パスワード

こんばんは

↓のような感じですかね？
アレンジしてみてください

Sub D_CNT()

Dim ws As Worksheet
Dim SDate As String
Dim WName As String
Dim TDate As Date
Dim TD As Integer
Dim WD As Integer
Dim WC As Integer
Dim CNT As Integer
Dim i As Integer

　　Set ws = ThisWorkbook.Worksheets("Sheet1")
　　
　　SDate = ws.Range("A1").Text
　　
　　If SDate = "" Then
　　　　MsgBox "NODATA"
　　　　Exit Sub
　　End If
　　
　　If InStr(SDate, "土曜") <> 0 Then
　　　　WD = 7
　　　　i = InStr(SDate, "土曜")
　　ElseIf InStr(SDate, "日曜") <> 0 Then
　　　　WD = 1
　　　　i = InStr(SDate, "日曜")
　　Else
　　　　MsgBox "DATA ERROR"
　　　　Exit Sub
　　End If
　　
　　WC = CInt(Mid(SDate, i - 1, 1))
　　
　　If WC < 1 Or WC > 5 Then
　　　　MsgBox "DATA ERROR"
　　　　Exit Sub
　　End If
　　
　　TDate = DateSerial(Year(Date), Month(Date), 1)
　　
　　TD = Weekday(TDate)
　　
　　If WD > TD Then
　　　　CNT = WD - TD
　　ElseIf WD < TD Then
　　　　CNT = WD + 7 - TD
　　Else
　　　　CNT = 0
　　End If
　　
　　CNT = CNT + (WC - 1) * 7
　　TDate = DateAdd("d", CNT, TDate)
　　
　　ws.Range("B1") = TDate
　　
End Sub

0 hits

▼

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