返回列表 上一主題 發帖

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

jim

帖子
87 
主題
26 
精華
0 
積分
119 
點名
0  
作業系統
win 7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2010-5-7 
最後登錄
2020-9-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-3-17 12:21 | 顯示全部帖子

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
收藏 分享

jim

帖子
87 
主題
26 
精華
0 
積分
119 
點名
0  
作業系統
win 7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2010-5-7 
最後登錄
2020-9-28 
2#
發表於 2012-3-17 16:51 | 顯示全部帖子
回復 2# register313
register313  thanks
    但是執行時  Set R=[E7:CL7]
產生 R=    (編輯錯誤 :   變數未定義)

TOP

jim

帖子
87 
主題
26 
精華
0 
積分
119 
點名
0  
作業系統
win 7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2010-5-7 
最後登錄
2020-9-28 
3#
發表於 2012-3-17 17:13 | 顯示全部帖子
回復 4# jim
chin 15  多謝  刪除後已經可執行    同時也謝謝  register313
  是否可告知原因?
  如果我希望有一個變數即在 A3
   原本執行範圍 [ C7:C145 ]   
若 A3為 15  則希望執行時是  A3+5
即改從  [ C20:C145 ]為執行範圍 是否可行  謝謝

TOP

jim

帖子
87 
主題
26 
精華
0 
積分
119 
點名
0  
作業系統
win 7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2010-5-7 
最後登錄
2020-9-28 
4#
發表於 2012-3-17 22:32 | 顯示全部帖子
回復 6# register313
register313 謝謝

TOP

        靜思自在 : 發脾氣是短暫的發瘋。
返回列表 上一主題