Excel VBA質問箱 IV

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

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


71989 / 76738 ←次へ | 前へ→

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

引用なし
パスワード
   試しに作ってみましたので、参考にして下さい。

Sub Sample()
Dim myYear As Long
Dim myMonth As Long
Dim myDay As Date
Dim i As Long

  Columns("A").ClearContents
  
  myYear = Application.InputBox("年を西暦4桁で入力して下さい。 例) 2003 ", Type:=1)
  
  If Len(CStr(myYear)) <> 4 Then
    MsgBox myYear & " : 入力が不正です。", 48
    Exit Sub
  End If
  
  myMonth = Application.InputBox("月を2桁で入力して下さい。 例) 01 ", Type:=1)

  If Len(CStr(myMonth)) <> 2 Then
    MsgBox myMonth & " : 入力が不正です。", 48
    Exit Sub
  End If
  
  i = 1
  
  Do
    myDay = CDate(myYear & "/" & myMonth & "/" & i)
    
    If Format(myDay, "aaa") = "月" Or _
      Format(myDay, "aaa") = "水" Or _
      Format(myDay, "aaa") = "金" Then
      
      Range("A65536").End(xlUp).Offset(1).Value = _
      Format(myDay, "mm月dd日") & "(" & Format(myDay, "aaa") & ")"
    End If
    
    i = i + 1
    If Day(myDay + 1) = 1 Then Exit Do
  Loop

  Range("A1").Value = "日付"
  Columns("A").AutoFit
  
End Sub

0 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 お礼

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