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

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2013-1-1 10:04 | 只看該作者

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

Dim v As Range

For E ...
b9208 發表於 2013-1-1 09:50

此段語法在 Office 2010 上執行是 OK 的，
請你再檢查一次，或者是你把執行錯誤訊息回報！

TOP

chin15

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

3^#

發表於 2013-1-2 08:26 | 只看該作者

應該不是這個問題
你的range前面有個''.''，就必須有"with"!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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