Thực hiện lệnh khi checkbox được chọn.

[seikoqn]

Em muốn nhờ các anh chị trên diễn đàn giúp đoạn code sao cho khi em tích chọn các checkbox bất kì và ấn nút "ẩn" thì các nội dung được chọn đó ở trong sheet1 đó sẽ bị ẩn đi hoặc khi ấn nút "hiện" thì nó sẽ hiện lại(ẩn cả dòng) Anh chị xem File đính kèm ạ! Cảm ơn các anh chị!
P/S: Em đang muốn tìm hiểu về checkbox chứ còn cách ẩn hoặc hiện dòng thì em biết rồi ạ!

 

[Kiều Mạnh]

Em muốn nhờ các anh chị trên diễn đàn giúp đoạn code sao cho khi em tích chọn các checkbox bất kì và ấn nút "ẩn" thì các nội dung được chọn đó ở trong sheet1 đó sẽ bị ẩn đi hoặc khi ấn nút "hiện" thì nó sẽ hiện lại(ẩn cả dòng) Anh chị xem File đính kèm ạ! Cảm ơn các anh chị!
P/S: Em đang muốn tìm hiểu về checkbox chứ còn cách ẩn hoặc hiện dòng thì em biết rồi ạ!

Thì bạn đặt điều kiện cho nó là If thôi
xem VD Sau:

Private Sub CheckBox1_Click()
    If CheckBox1 = True Then
        MsgBox "Thuc Hien Lenh A", , "GPE"
    Else
        MsgBox "Thuc Hien Lenh B", , "GPE"
    End If
End Sub

 

[seikoqn]

Thì bạn đặt điều kiện cho nó là If thôi
xem VD Sau:

Private Sub CheckBox1_Click()
    If CheckBox1 = True Then
        MsgBox "Thuc Hien Lenh A", , "GPE"
    Else
        MsgBox "Thuc Hien Lenh B", , "GPE"
    End If
End Sub

Nếu như chỉ chọn 1 chexbox thôi thì em làm được rôi(Ví dụ trong File, khi chọn "Nam" thì tất cả các dòng có chứa "Nam" sẽ ẩn hoặc hiện)! Vấn đề đặt ra là nếu em chọn đồng thời nhiều chexbox 1 lúc thì chưa biết viết code ra sao? Ví dụ khi chọn "Nam" và "Nữ" thì những dòng có chứa "Nam" và "Nữ" sẽ được ẩn hoặc hiện đó anh.

 

[Kiều Mạnh]

Nếu như chỉ chọn 1 chexbox thôi thì em làm được rôi(Ví dụ trong File, khi chọn "Nam" thì tất cả các dòng có chứa "Nam" sẽ ẩn hoặc hiện)! Vấn đề đặt ra là nếu em chọn đồng thời nhiều chexbox 1 lúc thì chưa biết viết code ra sao? Ví dụ khi chọn "Nam" và "Nữ" thì những dòng có chứa "Nam" và "Nữ" sẽ được ẩn hoặc hiện đó anh.

Vậy thì Ban căng rồi đó ....chờ thành viên khác giúp vậy
Vượt ngoài khả năng của mình rồi

 

[phihndhsp]

Nếu như chỉ chọn 1 chexbox thôi thì em làm được rôi(Ví dụ trong File, khi chọn "Nam" thì tất cả các dòng có chứa "Nam" sẽ ẩn hoặc hiện)! Vấn đề đặt ra là nếu em chọn đồng thời nhiều chexbox 1 lúc thì chưa biết viết code ra sao? Ví dụ khi chọn "Nam" và "Nữ" thì những dòng có chứa "Nam" và "Nữ" sẽ được ẩn hoặc hiện đó anh.

Có 4 thằng thôi thì mình sử dụng 4 cái if đi, lưu giá trị của nó vào 1 cái mảng. Sau đó dùng dòng lập duyệt qua một lần, nếu cells nào có dữ liệu giống trong mảng thì hành động gì thì hành động?

P/S cái này có thể vướng chữ tiếng việt một tí, bạn phải xử lý tiếng việt trong VBA chữ nữ hoặc đồng tính. Hoặc bạn có thể ghi những giá trị đó ra các cells để so sánh cho dễ cũng được

 

[seikoqn]

Có 4 thằng thôi thì mình sử dụng 4 cái if đi, lưu giá trị của nó vào 1 cái mảng. Sau đó dùng dòng lập duyệt qua một lần, nếu cells nào có dữ liệu giống trong mảng thì hành động gì thì hành động?

P/S cái này có thể vướng chữ tiếng việt một tí, bạn phải xử lý tiếng việt trong VBA chữ nữ hoặc đồng tính. Hoặc bạn có thể ghi những giá trị đó ra các cells để so sánh cho dễ cũng được

Mong anh giúp đỡ với, em vẫn lơ mơ lắm.

 

[phihndhsp]

Private Sub CommandButton1_Click()
Dim cell As Range
Set Rng = Sheet1.Range("C2:C21")
Dim chuoi As String
chuoi = ""


 If UserForm1.Nam = True Then
  chuoi = chuoi & "_" & Sheet1.Range("K1").Value & "_"
   
 End If
  If UserForm1.Nu = True Then
    chuoi = chuoi & "_" & Sheet1.Range("L1").Value & "_"
  End If
 
 If UserForm1.Dt = True Then
   chuoi = chuoi & "_" & Sheet1.Range("M1").Value & "_"
  End If
 If UserForm1.chuaxd = True Then
    chuoi = chuoi & "_" & Sheet1.Range("N1").Value & "_"
  End If
 
 
For Each cell In Rng
    If InStr(1, chuoi, cell.Value) > 0 Then
          cell.EntireRow.Hidden = True
    End If
Next cell


End Sub

Tôi làm cho bạn theo cách đơn giản nhất, tôi mới làm cho bạn nút ẩn, nút hiện bạn tự làm

 

[befaint]

Bạn tải về xem được không nhé.

 

[seikoqn]

Bạn tải về xem được không nhé.

Tuyệt vời cảm ơn bạn!

 

[chuot0106]

Nếu như chỉ chọn 1 chexbox thôi thì em làm được rôi(Ví dụ trong File, khi chọn "Nam" thì tất cả các dòng có chứa "Nam" sẽ ẩn hoặc hiện)! Vấn đề đặt ra là nếu em chọn đồng thời nhiều chexbox 1 lúc thì chưa biết viết code ra sao? Ví dụ khi chọn "Nam" và "Nữ" thì những dòng có chứa "Nam" và "Nữ" sẽ được ẩn hoặc hiện đó anh.

Chỉ cần ngắn gọn thế này thôi!

 

[phihndhsp]

Tôi làm cho bạn theo cách đơn giản nhất, tôi mới làm cho bạn nút ẩn, nút hiện bạn tự làm

Có thể viết 1 module chung vi nó chỉ khác nhau đk mà thôi

 Sub An_Hien(Dk As Boolean)
 Dim cell As Range
Set Rng = Sheet1.Range("C2:C21")
Dim chuoi As String
chuoi = ""


 If UserForm1.Nam = True Then
  chuoi = chuoi & "_" & Sheet1.Range("K1").Value & "_"
   
 End If
  If UserForm1.Nu = True Then
    chuoi = chuoi & "_" & Sheet1.Range("L1").Value & "_"
  End If
 
 If UserForm1.Dt = True Then
   chuoi = chuoi & "_" & Sheet1.Range("M1").Value & "_"
  End If
 If UserForm1.chuaxd = True Then
    chuoi = chuoi & "_" & Sheet1.Range("N1").Value & "_"
  End If
 For Each cell In Rng
    If InStr(1, chuoi, cell.Value) > 0 Then
          cell.EntireRow.Hidden = Dk
    End If
 Next cell
End Sub

Private Sub CommandButton1_Click()
Call An_Hien(True)
End Sub

Private Sub CommandButton2_Click()
Call An_Hien(False)
End Sub

 

[ngoc271998]

Tuyệt vời cảm ơn bạn!

Cám ơn bác, đúng cái em cần !

 

[Doãn Quốc Bình]

cho em hỏi chút: em có một textbox có dặt passwordchar giờ làm thế nào để khi tích vào checkbox thì nó hiện text trong textbox mà không tích thì nó ẩn vậy ạ?