Excel字符串不工作

Question

你好傢伙我完全難以理解爲什麼這段代碼不工作。任何人都可以幫忙嗎？

Sub test() 

Dim RpDate As Variant 
Dim x As String 

RpDate = InputBox("Enter Date", "Date") 
If RpDate = "" Then Exit Sub 

x = Day(RpDate) 

MsgBox x 

End Sub 

Answer 1

你可能會迫使InputBox只允許Date類型有效值，試試下面的代碼：

Option Explicit 

Sub InputBoxDateFormat() 

Dim RpDate As Date 
Dim x As Integer 

' InputBox that allows only dates 
RpDate = Application.InputBox("Enter Date", "Date", FormatDateTime(Date, vbShortDate), Type:=1) 

' "Cancel" was selected 
If RpDate = 0 Then Exit Sub 

x = Day(RpDate) 
MsgBox x 

End Sub