ẩnđòng theo điều kiện

thanh tong · 10/5/11

Mình nhờ các bạn trên diễn đàn giúp mình một code để thực hiện ẩn dòng và hiện dòng có điều kiện
Mình ghi trong file đính kèm nhờ các bạn đọc và giúp mình nhé!

baquy · 12/5/11

Mỗi sheet đều đặt Hide và Show all. Để vào sheet nào cần thực hiện thì mình chọn luôn ở sheet đó cho tiện. Như trong file mình đã đặt sẵn. Bạn xem file đính kèm và sửa giúp mình nhé?

ndu96081631 · 12/5/11

baquy đã viết:
Mỗi sheet đều đặt Hide và Show all. Để vào sheet nào cần thực hiện thì mình chọn luôn ở sheet đó cho tiện. Như trong file mình đã đặt sẵn. Bạn xem file đính kèm và sửa giúp mình nhé?

Thử file này xem!
Code trong file chỉ vầy:

PHP:

Sub HideAndUnHide()
  Dim Btt As Button
  With Range([L2], [L65536].End(xlUp))
    Set Btt = .Parent.Buttons("Btt1")
    If Btt.Characters.Text = "Hide" Then
      .AutoFilter 1, ">0", , , False
      Btt.Characters.Text = "UnHide"
    Else
      .Parent.AutoFilterMode = False
      Btt.Characters.Text = "Hide"
    End If
  End With
End Sub

Lưu ý rằng tôi dùng Button được vẽ từ thanh Forms (không giống như CommandButton mà bạn đang dùng)
Muốn chạy code ở sheet khác, chỉ việc copy Button paste sang sheet khác là được
Ngoài ra, chẳng dùng Define name nào cả

viehoai · 12/5/11

baquy đã viết:
Mỗi sheet đều đặt Hide và Show all. Để vào sheet nào cần thực hiện thì mình chọn luôn ở sheet đó cho tiện. Như trong file mình đã đặt sẵn. Bạn xem file đính kèm và sửa giúp mình nhé?

Nếu bạn làm theo từng Sheet thì càng đươn giản hơn
http://www.4shared.com/document/glZnUs7I/Andong_theo_Sheet_.html

baquy · 12/5/11

ndu96081631 đã viết:
Thử file này xem!
Code trong file chỉ vầy:

PHP:

Sub HideAndUnHide() Dim Btt As Button With Range([L2], [L65536].End(xlUp)) Set Btt = .Parent.Buttons("Btt1") If Btt.Characters.Text = "Hide" Then .AutoFilter 1, ">0", , , False Btt.Characters.Text = "UnHide" Else .Parent.AutoFilterMode = False Btt.Characters.Text = "Hide" End If End With End Sub

Lưu ý rằng tôi dùng Button được vẽ từ thanh Forms (không giống như CommandButton mà bạn đang dùng)
Muốn chạy code ở sheet khác, chỉ việc copy Button paste sang sheet khác là được
Ngoài ra, chẳng dùng Define name nào cả

Các bạn cho mình hỏi chút? Giả sử sheet4 cột cần ẩn nó lại thay đổi nằm ở cột M . Tức là cột cần ẩn ở sheet4 nó ko giống với các sheet khác trong file hiện tại là cột L . Mình có gửi file đính kèm. Mong các bạn sửa giúp. Cảm ơn các Bạn đã quan tâm và giúp đỡ!

ndu96081631 · 12/5/11

baquy đã viết:
Các bạn cho mình hỏi chút? Giả sử sheet4 cột cần ẩn nó lại thay đổi nằm ở cột M . Tức là cột cần ẩn ở sheet4 nó ko giống với các sheet khác trong file hiện tại là cột L . Mình có gửi file đính kèm. Mong các bạn sửa giúp. Cảm ơn các Bạn đã quan tâm và giúp đỡ!

Dù dữ liệu thế nào thì cũng phải có cái gì đó để nhận biết. Như file của bạn, tôi dùng từ khóa "Những dòng ko phát sinh" để nhận biết cột cần tìm

PHP:

Sub HideAndUnHide()
  Dim Btt As Button, fRng As Range
  Set fRng = Cells.Find(Evaluate("Tmp"), , , xlWhole)
  If Not fRng Is Nothing Then
    With Range(fRng, Cells(65536, fRng.Column).End(xlUp))
      Set Btt = .Parent.Buttons("Btt1")
      If Btt.Characters.Text = "Hide" Then
        .AutoFilter 1, ">0", , , False
        Btt.Characters.Text = "UnHide"
      Else
        .Parent.AutoFilterMode = False
        Btt.Characters.Text = "Hide"
      End If
    End With
  End If
End Sub

Trong code này có Evaluate("Tmp"), với Tmp là name chứa từ khóa "Những dòng ko phát sinh"

Ếch Xanh · 12/5/11

Thì như vầy đi:

PHP:

Sub HideAndUnHide()
  Dim Btt As Button, MyRng As Range
  Set MyRng = IIf(ActiveSheet.Name = "Sheet4", Range([M2], [M65536].End(xlUp)), Range([L2], [L65536].End(xlUp)))
  With MyRng
    Set Btt = .Parent.Buttons("Btt1")
    If Btt.Characters.Text = "Hide" Then
      .AutoFilter 1, ">0", , , False
      Btt.Characters.Text = "UnHide"
    Else
      .Parent.AutoFilterMode = False
      Btt.Characters.Text = "Hide"
    End If
  End With
End Sub

Đúng là Thầy NDU siêu tốc và tổng quát thiệt!!!

Em thêm 1 cái xlOr nữa cho tổng quát hơn nếu có tính luôn chuỗi!

PHP:

Sub HideAndUnHide()
  Dim Btt As Button, fRng As Range
  Set fRng = Cells.Find(Evaluate("Tmp"), , , xlWhole)
  If Not fRng Is Nothing Then
    With Range(fRng, Cells(65536, fRng.Column).End(xlUp))
      Set Btt = .Parent.Buttons("Btt1")
      If Btt.Characters.Text = "Hide" Then
        .AutoFilter 1, ">0", xlOr, "<>", False
        Btt.Characters.Text = "UnHide"
      Else
        .Parent.AutoFilterMode = False
        Btt.Characters.Text = "Hide"
      End If
    End With
  End If
End Sub

sealand · 12/5/11

Đầu giờ có chút việc giờ mới gủi thấy mọi người đã đi khá xa, thôi thì như 1 tham khảo vậy

baquy · 12/5/11

ndu96081631 đã viết:
Dù dữ liệu thế nào thì cũng phải có cái gì đó để nhận biết. Như file của bạn, tôi dùng từ khóa "Những dòng ko phát sinh" để nhận biết cột cần tìm

PHP:

Sub HideAndUnHide() Dim Btt As Button, fRng As Range Set fRng = Cells.Find(Evaluate("Tmp"), , , xlWhole) If Not fRng Is Nothing Then With Range(fRng, Cells(65536, fRng.Column).End(xlUp)) Set Btt = .Parent.Buttons("Btt1") If Btt.Characters.Text = "Hide" Then .AutoFilter 1, ">0", , , False Btt.Characters.Text = "UnHide" Else .Parent.AutoFilterMode = False Btt.Characters.Text = "Hide" End If End With End If End Sub

Trong code này có Evaluate("Tmp"), với Tmp là name chứa từ khóa "Những dòng ko phát sinh"

Mong các bạn xem file và giúp đỡ

ndu96081631 · 12/5/11

baquy đã viết:
Mong các bạn xem file và giúp đỡ

Cái tên "Cột cần ẩn" ấy, thực tế nó là cái gì thì bạn cứ vào Define name, sửa lại y chang thế là được. Tôi đã nói ở trên là tôi tìm cột theo từ khóa rồi mà

baquy · 12/5/11

ndu96081631 đã viết:
Cái tên "Cột cần ẩn" ấy, thực tế nó là cái gì thì bạn cứ vào Define name, sửa lại y chang thế là được. Tôi đã nói ở trên là tôi tìm cột theo từ khóa rồi mà

"Cột cần ẩn" thực ra mình ghi chú vậy thôi. Mình muốn ẩn theo khoảng như ở sheet1 là L3:L12 và muốn là khi mình thêm ròng đến L20 thì trong code nó cũng tự động giãn dòng theo là L3:L20.

Ếch Xanh · 12/5/11

baquy đã viết:
"Cột cần ẩn" thực ra mình ghi chú vậy thôi. Mình muốn ẩn theo khoảng như ở sheet1 là L3:L12 và muốn là khi mình thêm ròng đến L20 thì trong code nó cũng tự động giãn dòng theo là L3:L20.

Bạn cứ thử đi bao nhiêu dòng mà chẳng được! 65 ngàn dòng cũng OK

baquy · 12/5/11

Learning_Excel đã viết:
Bạn cứ thử đi bao nhiêu dòng mà chẳng được! 65 ngàn dòng cũng OK

Nhưng mà theo khoảng kiểu L$3:L$12 thì tốt. Bởi vì nếu trong file ở dưới lại có những phát sinh khác mà nó cứ tự động làm một nhát từ trên xuống đến 65.000 thì nó ẩn hết cả những vùng mình ko muốn ẩn

Ếch Xanh · 12/5/11

baquy đã viết:
Nhưng mà theo khoảng kiểu L$3:L$12 thì tốt. Bởi vì nếu trong file ở dưới lại có những phát sinh khác mà nó cứ tự động làm một nhát từ trên xuống đến 65.000 thì nó ẩn hết cả những vùng mình ko muốn ẩn

Với Code của Thầy NDU, bạn chỉnh lại theo cái này:

With Range(fRng, Cells(65536, fRng.Column).End(xlUp))

Cái số màu đỏ ấy, bạn chỉnh thành 12 hay 20 gì đó là được!

baquy · 12/5/11

Learning_Excel đã viết:
Với Code của Thầy NDU, bạn chỉnh lại theo cái này:

With Range(fRng, Cells(65536, fRng.Column).End(xlUp))

Cái số màu đỏ ấy, bạn chỉnh thành 12 hay 20 gì đó là được!

Chỉnh lại là 20 chẳng hạn. Nhưng khi mình thêm 20 dòng nữa. Thì lúc này phải lấy trong khoảng L3:L40 còn code mà để là 20 theo bạn nói thì code nó sẽ lấy là L1:L20 thôi mà trên thực tế mình đã thêm 20 dòng cơ mà bạn.

Ếch Xanh · 12/5/11

baquy đã viết:
Chỉnh lại là 20 chẳng hạn. Nhưng khi mình thêm 20 dòng nữa. Thì lúc này phải lấy trong khoảng L3:L40 còn code mà để là 20 theo bạn nói thì code nó sẽ lấy là L1:L20 thôi mà trên thực tế mình đã thêm 20 dòng cơ mà bạn.

Bạn cứ sửa vầy nè:

With Range(fRng, Cells(40, fRng.Column).End(xlUp))

Bạn gửi cái File đó lên đi tôi sẽ hướng dẫn bạn cụ thể.

sealand · 12/5/11

Mình tham gia thế này, nếu số lượng Sheet nhiều mà quản Name khó khăn thì mình dùng mỗi sheet 1 ô nào đó để ghi địa chỉ vùng lọc. Ví dụ vùng lọc là L13:L16, mình dùng 1 ô chẳng hạn R1 ngoài tất cả và có thể ẩn nó đi ta nhập công thức:

=CELL("address",L13)&":"&CELL("address",L16)

Vậy là nếu thêm hay xoá dòng trước vùng nó sẽ tự động điều chỉnh. Nếu thêm trong vùng nó cũng tự động giãn ra. Khi nào lọc ta lấy tên vùng bằng ô R1
Củ chuối 1 chút nhưng dễ làm và dễ sử lý

sealand · 12/5/11

Mình gửi ví dụ cụ thể như bài #36 đã nêu.

Mình viết 1 code chung như sau để ở cấp ThisWorkbook

Mã:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Dim Rng As Range
  On Error GoTo thoat
    For Each Rng In Sh.Range(Sh.[R1])
     Rng.EntireRow.Hidden = Rng.Value = 0
    Next
thoat:
End Sub

Vậy là cứ mở sheet nào thì mới ẩn sheet ấy và chỉ ẩn trong vùng địa chỉ do công thức ghi trong ô R1 mỗi sheet.
Cấu trúc gọn, dễ sử lý.

Lưu ý: Thêm vào đầu Code câu lệnh On Error goto Thoat như mình thên ở Code trên để khi sheet nào không có gì tại ô R1 thì không lọc và không lỗi

baquy · 12/5/11

Anh Sealand làm ơn giúp Em sửa code để mỗi sheet đều có nốt nhấn Hide. Cái Userform em làm vào file số liệu của em nó khó quá. Mong A sửa lại làm mỗi sheets một cái nốt nhấn Hide.

sealand · 12/5/11

Qua file ví dụ mình mới hiểu ẩn tất cả các dòng hoàn toàn không dữ liệu đúng không?
Nếu đã dùng nút nhấn cho mỗi trang thì ta viết 1 code chung như sau:

Mã:

Sub AnDong()
Dim Rg As Range
Application.ScreenUpdating = False
With ActiveSheet
For Each Rg In .Range(.[A4], .[A65536].End(3).Offset(-2))
If WorksheetFunction.CountA(Rg.Resize(, 5)) = 0 Then
Rg.EntireRow.Hidden = True
Else
Rg.EntireRow.Hidden = False
End If
Next
End With
Application.ScreenUpdating = True
End Sub

Sau đó tất cả các nút mỗi Sheet đều gọi code này

baquy · 12/5/11

sealand đã viết:
Qua file ví dụ mình mới hiểu ẩn tất cả các dòng hoàn toàn không dữ liệu đúng không?
Nếu đã dùng nút nhấn cho mỗi trang thì ta viết 1 code chung như sau:

Mã:

Sub AnDong() Dim Rg As Range Application.ScreenUpdating = False With ActiveSheet For Each Rg In .Range(.[A4], .[A65536].End(3).Offset(-2)) If WorksheetFunction.CountA(Rg.Resize(, 5)) = 0 Then Rg.EntireRow.Hidden = True Else Rg.EntireRow.Hidden = False End If Next End With Application.ScreenUpdating = True End Sub

Sau đó tất cả các nút mỗi Sheet đều gọi code này

Đúng như ý của Em rồi. Cảm ơn Anh Sealand rất nhiều!

ẩnđòng theo điều kiện

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

File đính kèm

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

File đính kèm

Huyền thoại GPE

File đính kèm

Thành viên gắn bó

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

File đính kèm

Huyền thoại GPE

File đính kèm

Thành viên tích cực

Thành viên gạo cội

File đính kèm

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

File đính kèm

Huyền thoại GPE

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

Thành viên tích cực

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

Thành viên tích cực

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

Thành viên tích cực

Thành viên gạo cội

Thành viên gạo cội

File đính kèm

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

File đính kèm

Thành viên gạo cội

File đính kèm

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

Đếm ngược thời gian