標題: 清除特定儲存格內容 [打印本頁]

---

作者: jim    時間: 2012-3-7 14:51     標題: 清除特定儲存格內容

各位高手你好並請指導   如下需求  VBA 應如何?
  工作表內  A1~FZ170    (    Row  AJ 是變數 )
  如果 儲存格 AJ7 空白 或是 =0  則 EY7 ~ FV7 儲存格內內容清除
           儲存格 AJ10 空白 或是 =0  則 EY10 ~ FV10 儲存格內內容清除
           儲存格 AJ43 空白 或是 =0  則 EY43 ~ FV43 儲存格內內容清除
以下類推    TKS

---

作者: register313    時間: 2012-3-7 15:20

回復 1# jim

1. Sub xx()
   
2. Set R = [EY1:FV1]
   
3. For Each A In [AJ1:AJ170]
   
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

複製代碼

---

作者: jim    時間: 2012-3-7 16:41

register313  謝謝指導
若是我要多加一個條件應如何敘述
    例如 aj7="" and c7=""  or  aj7<>"" and c7<>""  則 清除內容

---

作者: register313    時間: 2012-3-7 17:22

回復 3# jim

1. Sub xx()
   
2. Set R = [EY1:FV1]
   
3. For I = 1 To 170
   
4.   X = (Cells(I, "C") & Cells(I, "AJ") = "") Or (Cells(I, "C") <> "" And Cells(I, "AJ") <> "")
   
5.   If X Then
   
6.      R.Value = ""
   
7.   End If
   
8.   Set R = R.Offset(1, 0)
   
9. Next I
   
10. End Sub

複製代碼

---

作者: jim    時間: 2012-3-7 18:09

回復 4# register313
register313
  非常完美 !  謝謝

---

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