- 帖子
- 97
- 主題
- 26
- 精華
- 0
- 積分
- 158
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- taichung
- 註冊時間
- 2010-9-12
- 最後登錄
- 2019-8-29
|
[發問] office 2010 vba轉到office2000的問題
各位大哥好
小弟最近office2010作一個vb在office2000執行會出錯,以下是我的內容
我知道有版本問題但是因為不知在office2000要如何處理。
Sub chkno()
'
'
Dim myrow As Long
Dim myrange As Range
Dim i As Integer
myrow = Range("a1").End(xlDown).Row
For i = 2 To myrow
Set myrange = Cells(i, 4)
If myrange.Value >= 1 Then
Cells(i, 5).Value = _
Cells(i, 3) & String(4 - Len(myrange), "0") & myrange
End If
Next
End Sub |
|