[發問] 請系統輸出日期的日~卻出現資料型態錯誤?

av8d

D = Day(TextBox1)
MsgBox D

出現資料型態錯誤
年月都沒問題~日不知道為什麼卻出現問題?

附上原檔案 icash.rar (25.35 KB)

下載次數: 6

2011-9-28 09:28

GBKEE

回復 1# av8d
要傳上程式碼看看

oobird

TextBox為文字型態
你無法Day(TextBox1)
許多朋友總是不願說清楚問題
TextBox1是在工作表上的OLEObjects還是在userform中
要操作它的代碼是有分別的。

av8d

回復 3# oobird


    O大謝謝你~他是在userform中的~您真細心~我原本還在想沒原檔怎麼PO~被您一眼就看出來了!

可是阿  我用  Year(TextBox1) 和  Month(TextBox1)  都可以使用~不知道為什麼只有Day呢?

luhpro

回復 4# av8d
我剛剛測試了一下並不會發生你所說的問題呢?
我是先新增一個 UserForm 在於其上新增一個 TextBox1 與 功能按鈕(cbOk)
再透過 Sheet1 的 SelectionChange 觸發事件來執行輸入作業.

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.   UserForm1.Show
   
3. End Sub

複製代碼

1. Private Sub cbOk_Click()
   
2.   Dim B, C, D
   
3.   B = (Year(TextBox1))
   
4.   C = (Month(TextBox1))
   
5.   D = (Day(TextBox1))
   
6.   
   
7.   MsgBox ("你輸入的日期是 : " & B & " 年 " & C & " 月 " & D & " 日")
   
8.   UserForm1.Hide
   
9. End Sub

複製代碼

而你的程式之所以會發生錯誤我猜測有兩個可能:
1.  年、月兩者與 日 的變數其宣告格式不同或是不在同一區域.
2.  引用上述三者的程式不在同一區域.

av8d

D = Day(TextBox1)
原來是
D = (Day(TextBox1))
前後沒+括號的關係~謝謝您!

Hsieh

問題肯定不是出在括號
語法上D=(Day(TextBox1))
這最外圍括號是多餘的

GBKEE

回復 6# av8d
未何不附上 程式碼 讓大家在摸象.

jimmyhk

回復 8# GBKEE


他好像已經解決問題了...

av8d

回復 5# luhpro


    對了我該如何把組合出來的字變成日期格式
2011/9/27
Y &"/" & M & "/" & D
日期格式

附上原檔
icash.rar (25.35 KB)

下載次數: 6

2011-9-28 09:16