求助!!Excel VBA 輸入日期問題

darigaaz

小弟用userform上面加了個textbox1之後寫了

Private Sub CommandButton1_Click()
ActiveSheet.Range("a8").End(xlDown).Offset(1, 0).Select
Selection = Me.TextBox1.Text
End Sub


當我在textbox1輸入 9/12/2014 然後按CommandButton1在excel的儲存格出現的是 12-Sep-2014而不是9-Dec-2014請問我應該如何處理?

liu-aguang

在"美国"的日期格式中,12-Sep-2014与9/12/2014是等价的.你可以在"控制面板"-区域与和语言中去修改默认项.或修改单元格的日期格式

darigaaz

单元格的日期格式是已經設定好為dd/mmm/yyyy的
但在textbox中輸入的日月到了儲蓄格還是會自動反過來

我又想請問下, 如果我用
Private Sub CommandButton1_Click()
ActiveSheet.Range("a8").End(xlDown).Offset(1t
Dim iDate() As String
iDate = Split(Me.TextBox1.Text, "/")
Selection = CDate(DateSerial(iDate(2), iDate(1), iDate(0)))
End Sub

要如何改才可以"/" 和 "-" 同時都可以作為分隔?
另一方面, 如果我在textbox輸入了非日期格調的文字/數字
會出現"執行階段錯誤'9' , 陣列索引超出範圍"
請問應該如何處理?
可以改為會出現msgbox嗎?

liu-aguang

darigaaz 发表于 2015-1-20 12:12
单元格的日期格式是已經設定好為dd/mmm/yyyy的
但在textbox中輸入的日月到了儲蓄格還是會自動反過來

单元格格式自定义:
m-d-yyyy
"/"与"-"都是认可的日期分隔符,不需要转换.

darigaaz

liu-aguang 发表于 2015-1-20 12:54
单元格格式自定义:
m-d-yyyy
"/"与"-"都是认可的日期分隔符,不需要转换.

我想日期出來的效果是 31-Dec-2014
所以用dd-mmm-yyy
而且之後日期還要用作篩選, 所以日和月都一定要是相應的值

我現在改用了
Private Sub CommandButton1_Click()
ActiveSheet.Range("a8").End(xlDown).Offset
Dim iDate() As String
iDate = Split(Me.TextBox1.Text, "/")
Selection = CDate(DateSerial(iDate(2), iDate(1), iDate(0)))
End Sub
但又有問題出現了
現在只可以用"/"作分隔, 但我想"/" 和 "-" 都可以作為分隔
但不知道如果改

另外如果我在textbox輸入了非日期格調的文字/數字
會出現"執行階段錯誤'9' , 陣列索引超出範圍"的這個問題我也還是解決不了
求高人指點