របារព័ត៌មាន

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

Emoticon
:) :)) ;(( :-) =)) ;( ;-( :d :-d @-) :p :o :>) (o) [-( :-? (p) :-s (m) 8-) :-t :-b b-( :-# =p~ $-) (b) (f) x-) (k) (h) (c) cheer
Click to see the code!
To insert emoticon you must added at least one space before the code.

 
Top