nhoklipice
Thành viên hoạt động



- Tham gia
- 17/3/09
- Bài viết
- 112
- Được thích
- 3
Sub hidedongtheodieukien()
Application.ScreenUpdating = False
Dim I As Long
For I = Sheets("tru hang dms").Range("G65356").End(xlUp).Row To 1 Step -1
If Sheets("tru hang dms").Cells(I, 7).Value = Sheets("tru hang dms").Range("G1") Then
Sheets("tru hang dms").Cells(I, 7).EntireRow.Hidden = False
Else
Sheets("tru hang dms").Cells(I, 7).EntireRow.Hidden = True
End If
Next
End Sub
Sub unhidedongtheodieukien()
Sheets("tru hang dms").Range("G2:G65356").EntireRow.Hidden = False
End Sub
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Call hidedongtheodieukien
Else
Call unhidedongtheodieukien
End If
End Sub
Toàn cao thủ cả, đọc code là biết mục đích của nó rồi ^.^ - cho mình hỏi có cách nào rút gọn lại hoặc cho nó chạy nhanh hơn được không ? Xin cảm ơn mọi người !
Application.ScreenUpdating = False
Dim I As Long
For I = Sheets("tru hang dms").Range("G65356").End(xlUp).Row To 1 Step -1
If Sheets("tru hang dms").Cells(I, 7).Value = Sheets("tru hang dms").Range("G1") Then
Sheets("tru hang dms").Cells(I, 7).EntireRow.Hidden = False
Else
Sheets("tru hang dms").Cells(I, 7).EntireRow.Hidden = True
End If
Next
End Sub
Sub unhidedongtheodieukien()
Sheets("tru hang dms").Range("G2:G65356").EntireRow.Hidden = False
End Sub
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Call hidedongtheodieukien
Else
Call unhidedongtheodieukien
End If
End Sub
Toàn cao thủ cả, đọc code là biết mục đích của nó rồi ^.^ - cho mình hỏi có cách nào rút gọn lại hoặc cho nó chạy nhanh hơn được không ? Xin cảm ơn mọi người !