[µo°Ý] ¿ï¨ú½d³ò«á¡A±NÀx¦s®æ¬°0ªº§R°£

abc9gad2016

½Ð±Ð¦U¦ì«e½ú¡A¤p§Ì¬OVBA·s¤â
»Ý¨D¬O¿ï¨ú¬Y©T©w½d³ò«á¡A°»´ú¼Æ¦r¬°0ªº¸Ü¡A«h±N¸Ó½d³ò¤ºªºÀx¦s®æ²MªÅ

¥Îºô¸ô¤Wªº½d¨Ò­×§ï«á¡A¥X²{¥H¤U¿ù»~¡AÁٽЫe½úÀ°¦£ ÁÂÁÂ

Sub ¿ï¨ú½d³ò²M°£0()
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "²M°£0"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("¿ï¨ú½d³ò²M°£0", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Range("Rng").Select
If Rng = 0 Then
Range("Rng").ClearContents
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

samwang

¦^´_ 1# abc9gad2016

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

Sub ¿ï¨ú½d³ò²M°£0()
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "²M°£0"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("¿ï¨ú½d³ò²M°£0", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Rng In WorkRng
    If Rng = 0 Then Rng.ClearContents
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

abc9gad2016

¦^´_  abc9gad2016

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

Sub ¿ï¨ú½d³ò²M°£0()
Dim Rng As Range, xCell As Range
D ...
samwang µoªí©ó 2021-4-23 08:20

   ÁÂÁÂsam¤j¡A¥i¥H