|
Inputboxで作ってみました。
Sub Sample()
Dim myStr1 As String, myStr2 As String, myStr3 As String, _
myStr4 As String, myStr5 As String
myStr1 = Application.InputBox("?時?分~?時?分 :?分待ち", "1回目の入力", Type:=2)
myStr2 = Application.InputBox("?時?分~?時?分 :?分待ち", "2回目の入力", Type:=2)
myStr3 = Application.InputBox("?時?分~?時?分 :?分待ち", "3回目の入力", Type:=2)
myStr4 = Application.InputBox("?時?分~?時?分 :?分待ち", "4回目の入力", Type:=2)
myStr5 = Application.InputBox("?時?分~?時?分 :?分待ち", "5回目の入力", Type:=2)
Range("A1").Value = myStr1 & "時" & myStr2 & "分~" _
& myStr3 & "時" & myStr4 & "分 :" & myStr5 & "分待ち"
End Sub
|
|