Excel VBA質問箱 IV

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

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


14825 / 76734 ←次へ | 前へ→

【67397】Re:該当月の月曜日と金曜日を表示する
回答  Hirofumi  - 10/11/30(火) 22:22 -

引用なし
パスワード
   こんなのでは

Option Explicit

Sub 曜日取得と一覧_2()

  Dim f As Long
  Dim myY As Variant
  Dim myD As Long
  Dim myL As Long
  
  Dim lngRowM As Long
  Dim lngRowF As Long
  
  myY = Range("A1").Value
  
  myD = DateSerial(Year(myY), Month(myY), 1)
  myL = DateSerial(Year(myY), Month(myY) + 1, 0)
  
  MsgBox Format(myD, "yyyy/m/d")
  MsgBox Format(myL, "yyyy/m/d")
  
  lngRowM = 3
  lngRowF = 3
  For f = myD To myL '←…ここで止まります。
    '月曜日なら
    If Weekday(f) = 2 Then
      Cells(lngRowM, "A").Value = Format(f, "yyyy/m/d")
      lngRowM = lngRowM + 1
    End If
    '金曜日なら
    If Weekday(f) = 6 Then
      Cells(lngRowF, "B").Value = Format(f, "yyyy/m/d")
      lngRowF = lngRowF + 1
    End If
  Next f

End Sub

0 hits

【67394】該当月の月曜日と金曜日を表示する Yoshim 10/11/30(火) 20:59 質問
【67396】Re:該当月の月曜日と金曜日を表示する UO3 10/11/30(火) 21:42 回答
【67397】Re:該当月の月曜日と金曜日を表示する Hirofumi 10/11/30(火) 22:22 回答
【67398】Re:該当月の月曜日と金曜日を表示する Yoshim 10/11/30(火) 22:34 お礼

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