១ ចូលទៅនកាន់ 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