[發問] 2003與2010型態不符

各位先進
如下vba片段，2003運行可以，但2010執行發生型態不符，敬請指教。

Dim  v As Range

For Each v In .Range(.[Q6], .[Q65536].End(xlUp))
   If Len(Trim(v.Text)) < 6 Then
         .Cells(v.Row, "AN") = IIf(Left(Trim(v.Text), 2) < 6, "Ｘ", "Ｙ")
      Else
         K = CDate([v]) - Int(CDate([v]))
         .Cells(v.Row, "AN") = IIf(K < 0.25, "Ｘ", "Ｙ")
   End If
Next v

樓主熱帖

100 字節以內
不支持自定義 Discuz! 代碼

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

5^#

發表於 2013-1-3 19:13 | 只看該作者

感謝各位先進指導
因資料有三萬多筆，如同Hsieh版主見解 CDate函數，
問題出在G欄中有一筆資料有日期沒時間且有〞:〞之時間表示符號，
修正後已經可以執行了。
謝謝各位先進

100 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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