Excel VBA質問箱 IV

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

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


42792 / 76732 ←次へ | 前へ→

【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 質問
【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 お礼

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