返回列表 上一主題 發帖

清除特定儲存格內容

jim

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

清除特定儲存格內容

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

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
2#
發表於 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
複製代碼

TOP

jim

帖子
87 
主題
26 
精華
0 
積分
119 
點名
0  
作業系統
win 7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2010-5-7 
最後登錄
2020-9-28 
3#
發表於 2012-3-7 16:41 | 只看該作者
register313  謝謝指導
若是我要多加一個條件應如何敘述
    例如 aj7="" and c7=""  or  aj7<>"" and c7<>""  則 清除內容

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
4#
發表於 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
複製代碼

TOP

jim

帖子
87 
主題
26 
精華
0 
積分
119 
點名
0  
作業系統
win 7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2010-5-7 
最後登錄
2020-9-28 
5#
發表於 2012-3-7 18:09 | 只看該作者
回復 4# register313
register313
  非常完美 !  謝謝

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題