Excel VBA質問箱 IV

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

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


71985 / 76733 ←次へ | 前へ→

【9238】Re:指定した年月の曜日を取得する
回答  ぴかる  - 03/11/25(火) 14:21 -

引用なし
パスワード
   サムライさん、こんにちは。

InputBoxでやってみました。どやろ?

Sub test()

Dim 年 As Long
Dim 年2 As Long
Dim 月 As Integer
Dim 月2 As Integer
Dim カウント As Integer

  With Range("A2:A17")
    .NumberFormatLocal = "m""月""d""日""(aaa)"
    .ClearContents
  End With
  
  年 = InputBox("年を入力して下さい。")
  月 = InputBox("月を入力して下さい。")
  カウント = 0
  
  If 月 = 12 Then
    月2 = 1
    年2 = 年 + 1
  Else
    月2 = 月 + 1
    年2 = 年
  End If
  
  For I = CDate(年 & "/" & 月 & "/1") To CDate(年2 & "/" & 月2 & "/1") - 1
    If (Weekday(I) = 2) Or (Weekday(I) = 4) Or (Weekday(I) = 6) Then
      Cells(カウント + 2, 1) = I
      カウント = カウント + 1
    End If
  Next

End Sub
5 hits

【9237】指定した年月の曜日を取得する サムライ 03/11/25(火) 13:27 質問
【9238】Re:指定した年月の曜日を取得する ぴかる 03/11/25(火) 14:21 回答
【9239】Re:指定した年月の曜日を取得する INA 03/11/25(火) 14:24 回答
【9240】Re:指定した年月の曜日を取得する サムライ 03/11/25(火) 14:59 質問
【9241】Re:指定した年月の曜日を取得する INA 03/11/25(火) 15:14 回答
【9242】Re:指定した年月の曜日を取得する サムライ 03/11/25(火) 15:28 お礼

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