Bạn ơi do tính chất công việc nên mình muốn sử dụng nút hoặc tự động ẩn (có sử dụng code VBA macros) để ẩn chứ sử dụng filter thì mình biết cách làm mà
mong được hỗ trợchưa hiểu bạn ơi, mình muốn sd code vba mà
bạn ơi mình có google rồi mà chưa làm được, mong được chỉ giáo
Bạn thử file đính kèm, mình tập tành hỗ trợ tí chứ trước giờ toàn....hỏi.
Bạn cần phải cập nhật thêm các vấn đề sau:
Sub HideAndUnhide()
Dim e As Long
Dim Rng As Range
Dim blnHide As Boolean
Dim strCaption As String
strCaption = "Unhide 100%"
ActiveSheet.Shapes.Range(Array("Button 1")).Select
If Selection.Characters.Text = strCaption Then
blnHide = False
Selection.Characters.Text = "Hide 100%"
Else
blnHide = True
Selection.Characters.Text = strCaption
End If
Range("C2").Select
e = Range("C" & Rows.Count).End(xlUp).Row
For Each Rng In Range("C3:C" & e)
If Rng.Value = 1 Then
Rng.EntireRow.Hidden = blnHide
End If
Next
End SubCái này chủ thớt muốn dùng Hide, nếu dùng AutoFilter sẽ nhanh hơn vì không có vòng lặp nào quét từ trên xuống dưới.
Không phải thớt muốn dùng "Hide". Rõ ràng thớt nói "code VBA". Việc code VBA dùng cái gì không quan trọng. Bâm nút phát ra kết quả mới là vấn đề chính.
Bạn ơi do tính chất công việc nên mình muốn sử dụng nút hoặc tự động ẩn (có sử dụng code VBA macros) để ẩn chứ sử dụng filter thì mình biết cách làm mà
chưa hiểu bạn ơi, mình muốn sd code vba mà
Hay quá bác ạ
chỉ sử dụng 1 nút mà vừa Hide mà Unhide ra được luôn, phải nói là quá đỉnh. Còn về AutoFilter (bộ lọc trong excel) thì em biết (Và hầu như ai sử dụng Excel đều biết ạ) nhưng do boss cần làm 1 nút như vậy nên em mới nhờ các bác hỗ trợ ạ, chứ nếu autofilter thì dễ quá rồi Dễ với người này nhưng lại khó với người khác ạ, mình cũng đính chính là Autofilter mình biết nhưng phần code để thực hiện hide (thay cho Autofilter) thì mình chưa biết nên mình mới hỏi ạ
