返回列表下一主題上一主題發帖

清除特定儲存格內容

jim

中學生 Rank: 2

帖子: 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

Sub xx()
Set R = [EY1:FV1]
For Each A In [AJ1:AJ170]
If A = "" Or A = 0 Then
R.Value = ""
End If
Set R = R.Offset(1, 0)
Next
End Sub

複製代碼

TOP

jim

中學生 Rank: 2

帖子: 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

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

複製代碼

TOP

jim

中學生 Rank: 2

帖子: 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

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。

返回列表下一主題上一主題