標題:
[發問]
請問一下為何輸入日期後資料無法貼到工作表2
[打印本頁]
作者:
afu9240
時間:
2018-6-4 16:26
標題:
請問一下為何輸入日期後資料無法貼到工作表2
[attach]28796[/attach]
各位前輩與高手,大家好
為何輸入日期後資料無法貼至工作表2,是日期格式有問題嗎??要如何修正??求協助 感謝*10000 謝謝
作者:
Kubi
時間:
2018-6-4 21:24
回復
1#
afu9240
試試看底下這行：
Dim x, y, a, B As String
改拆為如下兩行：
Dim x, y
Dim a As Date, B As Date
作者:
GBKEE
時間:
2018-6-5 06:34
回復
1#
afu9240
也可修改為其中一程式碼
a = CDate(InputBox("請輸入啟始日期: "))
B = CDate(InputBox("請輸入結束日期: "))
複製代碼
If 工作表1.Cells(M, 1).Text >= a And 工作表1.Cells(M, 1).Text <= B Then
複製代碼
作者:
afu9240
時間:
2018-6-5 10:12
回復
2#
Kubi
感謝k大的回覆~~~tks*10000 可以執行
作者:
afu9240
時間:
2018-6-5 10:16
回復
3#
GBKEE
感謝超級版主的回覆 感謝*10000
我真的要有點心思~~~謝謝
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
