av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-9-23 11:56 | 只看該作者

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

本帖最後由 av8d 於 2011-9-28 09:28 編輯

D = Day(TextBox1)
MsgBox D

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

附上原檔案

icash.rar (25.35 KB)

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-9-23 12:22 | 只看該作者

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

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2011-9-23 14:21 | 只看該作者

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

TOP

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

4^#

發表於 2011-9-25 00:26 | 只看該作者

本帖最後由 av8d 於 2011-9-25 00:27 編輯

回復 3# oobird

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

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

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

5^#

發表於 2011-9-25 08:10 | 只看該作者

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

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

複製代碼

Private Sub cbOk_Click()
Dim B, C, D
B = (Year(TextBox1))
C = (Month(TextBox1))
D = (Day(TextBox1))
MsgBox ("你輸入的日期是 : " & B & " 年 " & C & " 月 " & D & " 日")
UserForm1.Hide
End Sub

複製代碼

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

TOP

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

6^#

發表於 2011-9-27 15:19 | 只看該作者

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章