Giúp viết code với các checkbox

[phibonaxi]

Chào các thầy, anh chị và members, em có một vấn đề về checkbox mong được giúp đỡ.
Vì mới "vào nghề" nên không giải quyết được.

Cám ơn các thầy, anh chị và members rất nhiều!

 

[sealand]

Mình viết sơ bộ, bạn kiểm tra xem đúng yêu cầu không. Bạn viết tiếp sử lý cái ô chọn toàn bộ nhé

Private Sub CommandButton1_Click()
For i = 1 To 18
If i <> 8 And i <> 16 Then _
Sheet1.Rows(i + 3).EntireRow.Hidden = IIf(Me.Controls("Ch" & i), False, True)
Next
End Sub
'-----------------------------------------------------------------------------------------
Private Sub CommandButton2_Click()
Unload Me
End Sub
'-----------------------------------------------------------------------------------------
Private Sub UserForm_Initialize()
Dim i, j As Integer
For i = 1 To 18
    If Sheet1.Rows(i + 3).EntireRow.Hidden = False Then
        If i <> 8 And i <> 16 Then
            Me.Controls("Ch" & i) = True
            j = j + 1
        End If
    End If
Next
    If j = 16 Then Me.Ch19 = True
End Sub

 

[phibonaxi]

Cám ơn sealand đã giúp đỡ.

Cho mình hỏi code để duyệt qua các Checkbox hoặc Optionbutton chứa trong một Frame trong một Form?

 

[sealand]

Nói đúng ra là duyệt các đối tượng trên Form có tên Ch1, Ch2....Ch18. Mình cố tình đặt tên các CheckBox là Ch1, Ch2...Như vậy diện rà soát thu hẹp lại nên tốc độ nhanh hơn

 

[phibonaxi]

Cho mình hỏi thêm một vấn đề nữa.

Giả sử tôi có 2 command button với tên là: CB1 và CB2, một đoạn code A.

Code như thế nào để khi click vào CB1, thì sự kiện CB2_Click của CB2 có đoạn code A ?

Cám ơn sealand, các thầy cô và members rất nhiều.

 

[PhanTuHuong]

Đoạn code A cho vào 1 Sub. Khi viết code cho sự kiện click bạn thêm dòng Call + Tên sub đoạn code A là được thôi.

 

[phibonaxi]

Cám ơn thầy Hướng đã quan tâm.

Thầy hiểu sai ý em rồi. Ban đầu thì sự kiện CB2_Click chưa có đoạn code nào cả, khi ta click vào CB1 thì đoạn code đó sẽ được add vào sự kiện CB2_Click.

 

[sealand]

Mình tham gia 2 cách:
1.Dùng 1 checkbox (Ví dụặt tên là Ch_Kt) để lưu sự kiện nhấn CB1, ta cho thuộc tính Visiable=False để khỏi trông thấy:
2.Khai 1 biến dạng Bolean Public để lưu (Khai sau option và trước các Sub) ví dụ Kt chẳng hạn

Trong Sub CB1_click() ta thêm dòng

.........
Me.Ch_Kt=True
.........

Hoặc với biến

..........
Kt=True
..........

Trong Sub CB2_click() ta thêm dòng

.........
If Me.Ch_Kt then A    'If Kt then A với biến
.........
.........
Me.Ch_kt=False   ' Kt=False
End Sub

Nói tóm lại, mục đích là khi chưa nhấn CB1 thì nhấn CB2 chỉ chạy riêng code của CB2, nhưng khi đã nhấn CB1 thì khi nhấn CB2 ngoài việc chạy code riêng của CB2 còn chạy thêm code A. Thứ tự chạy thế nào do bạn sắp xếp.

 

[phibonaxi]

Cám ơn thầy sealand, bây giời tôi đã hiểu.

Ah, nhưng nếu sự kiện CB2_Click ban đầu không có dòng code thì mình sẽ xử lý như thế nào nhỉ?

Xin lỗi, vì tôi lỡ rồi, muốn biết cho tường tận luôn!

 

[sealand]

Ta viết code A để sẵn hoặc để code A trong đoạn if của Sub CB2_click(), nếu CB1 chưa click thì nhấn CB2 nó sẽ lờ code A đi (Không chạy) và ngược lại.

 

[phibonaxi]

Ta viết code A để sẵn hoặc để code A trong đoạn if của Sub CB2_click(), nếu CB1 chưa click thì nhấn CB2 nó sẽ lờ code A đi (Không chạy) và ngược lại.

Nếu không viết mà ban đầu ta có:

Private Sub CB2_Click ()
End Sub

Sau khi click vào CB1 thì ta có

Private Sub CB2_Click ()
...... đoạn code A ở đây......
End Sub

Cám ơn thầy sealand!

 

[sealand]

Tốt nhất mình gửi 1 ví dụ bạn tham khảo nha.