返回列表 上一主題 發帖

儲存格=0時,按鈕變成 ""

回復 1# myleoyes
  1. Sub Ex()
  2.     Dim F As Range
  3.     Set F = Range("A3:Z150").Find(0)
  4.     Do While Not F Is Nothing
  5.         F.Value = ""
  6.         Set F = Range("A3:Z150").FindNext
  7.     Loop
  8. End Sub
複製代碼

TOP

        靜思自在 : 犯錯出懺悔心,才能清淨無煩惱。
返回列表 上一主題