標題: VBA程式執行時,出現未定義 [打印本頁]

---

作者: jim    時間: 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

---

作者: register313    時間: 2012-3-17 15:48

回復 1# jim

是要這樣嗎?

1. Sub Clear()
   
2.    Set R = [E7:CL7]
   
3.    For Each A In [C7:C145]
   
4.      If A = "" Or A = 0 Then
   
5.        R.Value = ""
   
6.      End If
   
7.    Set R = R.Offset(1, 0)
   
8.    Next
   
9. End Sub

複製代碼

---

作者: chin15    時間: 2012-3-17 16:30

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

---

作者: jim    時間: 2012-3-17 16:51

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

---

作者: jim    時間: 2012-3-17 17:13

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

---

作者: register313    時間: 2012-3-17 17:34

回復 5# jim

Range("C" & [A3] + 5, "C145")

---

作者: jim    時間: 2012-3-17 22:32

回復 6# register313
register313 謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)