VBA程式執行時,出現未定義

請各位指導
Sub Clear()
Set R = [E7:CL7] -----出現未定義--
For i = 7 To 145
For Each A In [C7:C145]
If C= "" Or C = 0 Then
R.Value = ""
End If
Set R = R.Offset(1, 0)
Next i
End Sub

樓主熱帖

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-3-17 15:48 | 只看該作者

回復 1# jim

是要這樣嗎?

Sub Clear()
Set R = [E7:CL7]
For Each A In [C7:C145]
If A = "" Or A = 0 Then
R.Value = ""
End If
Set R = R.Offset(1, 0)
Next
End Sub

複製代碼

TOP

chin15

中學生 Rank: 2

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

3^#

發表於 2012-3-17 16:30 | 只看該作者

有兩個選擇
1.把最上行的Option Explicit刪掉
2.規規矩矩給變數定義類型

TOP

jim

中學生 Rank: 2

帖子: 87
主題: 26
精華: 0
積分: 119
點名: 0
作業系統: win 7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2010-5-7
最後登錄: 2020-9-28

4^#

發表於 2012-3-17 16:51 | 只看該作者

回復 2# register313
register313 thanks
但是執行時 Set R=[E7:CL7]
產生 R= (編輯錯誤 : 變數未定義)

TOP

jim

中學生 Rank: 2

帖子: 87
主題: 26
精華: 0
積分: 119
點名: 0
作業系統: win 7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2010-5-7
最後登錄: 2020-9-28

5^#

發表於 2012-3-17 17:13 | 只看該作者

回復 4# jim
chin 15  多謝  刪除後已經可執行同時也謝謝  register313
  是否可告知原因?
  如果我希望有一個變數即在 A3
原本執行範圍 [ C7:C145 ]
若 A3為 15  則希望執行時是  A3+5
即改從  [ C20:C145 ]為執行範圍是否可行  謝謝

TOP

register313