返回列表下一主題上一主題發帖

[發問] 2003與2010型態不符

b9208

中學生 Rank: 2

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-1-1 09:50 | 顯示全部帖子

[發問] 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