0
១ ចូលទៅនកាន់ VBA (Alt + F11)
២ ជ្រើសរើស Sheet ដែលត្រូវលាក់ Row
៣ សូមជ្រើសរើស Event Change
៤ សរសេរកូដដូចតទៅ៖
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim r As Range, c As Range
Set r = Range("C12:C32")
Application.ScreenUpdating = False
For Each c In r.Rows
     If c = "" Then
         c.EntireRow.Hidden = True
     Else
         c.EntireRow.Hidden = False
     End If
Next c
End Sub
ឧទាហរណ៍ខាងលើ សម្រាប់លាក់ Row ពីលេខ១២ ដល់៣២ ចំពោះតែ Column C ដែលពុំមានទិន្នន័យតែប៉ុណ្ណោះ

Post a Comment

 
Top