| |
集計(日計)に使用するシート指定の件で質問です
シート名は1から31まであります
Sub 日付のシート指定()
Dim strHiduke As String
Dim strDate As String
strDate = Date
INP_COL:
strHiduke = Application.InputBox("入力したい日付を入力してください。", "日付", Day(strDate), 2, -80)
If strHiduke = "False" Then
End
End If
strHiduke = StrConv(strHiduke, vbNarrow)
strHiduke = Str(strHiduke) strHiduke = Trim(strHiduke)
If "1" > strHiduke Or strHiduke > "31" Then
MsgBox ("日付を入力してください")
GoTo INP_COL
End If
Worksheets(strHiduke).Activate
End Sub
この文章で起動すると、1から3と10以上(31以下)は反応して対応したシートが開かれるのですが、4から9までのシートが開いてくれず、「MsgBox ("日付を入力してください") 」が帰ってきてしまいます。
何がいけないのでしょうか？ご教示お願い致します。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
