Tìm checkBox được đánh dấu và lấy tên của nó.

[chisinhvnn]

Nhờ anh chị viết giúp mình đoạn code tìm tất cả các checkbox được đánh dấu và lấy ra tên của nó. Xin cảm ơn

 

[befaint]

Cái bài này hỏi không biết bao nhiêu lần rồi. Và lần nào cũng là cái tội đổi tên của control đi. Sao cứ thích thắt cái thòng lọng vào cổ vậy rồi lại kêu.

Cứ vẽ CheckBox vào rồi không cần đổi tên làm gì cả, thì đơn giản như này là xong luôn.

Private Sub CommandButton1_Click()
    Dim i  As Long
    For i = 1 To 100
        MsgBox Me.Controls("CheckBox" & i).Caption
    Next i
End Sub

Đoạn này là khổ nhục kế.

Private Sub cmbThem_Click()
    Dim res, chb, i As Long
    ReDim res(1 To Me.Controls.Count)
    For Each chb In Me.Controls
        If TypeOf chb Is msforms.CheckBox Then
            If chb.Value = True Then
                i = i + 1
                res(i) = chb.Caption
            End If
        End If
    Next
    If i > 0 Then
        ReDim Preserve res(1 To i)
        MsgBox Join(res, " - ")
    End If
End Sub

 

[VetMini]

Cái bài này hỏi không biết bao nhiêu lần rồi. Và lần nào cũng là cái tội đổi tên của control đi. Sao cứ thích thắt cái thòng lọng vào cổ vậy rồi lại kêu.

Cứ vẽ CheckBox vào rồi không cần đổi tên làm gì cả, thì đơn giản như này là xong luôn.
...

Cái vụ này thì cũng còn tuỳ theo một câu mà tôi cũng hỏi không biết bao nhiêu lần rồi:
Lấy tên chúng chi vậy?
Các TextBox rời rạc, không liên quan gì đến nhau thì rất ít khi cần xét hàng loạt.
Thường thường chuyện hàng loạt xảy ra do ta muốn xét số tick trong một nhóm. Và nếu đúng vậy thì lúc thiết kế phải nhóm chúng lại. Có hai cách nhóm:
1. Ghép tên nhóm cho chúng: tbGiDo_01, tbGiDo_02, ....
2. Cho chúng vào một Frame

 

[chisinhvnn]

Cái vụ này thì cũng còn tuỳ theo một câu mà tôi cũng hỏi không biết bao nhiêu lần rồi:
Lấy tên chúng chi vậy?
Các TextBox rời rạc, không liên quan gì đến nhau thì rất ít khi cần xét hàng loạt.
Thường thường chuyện hàng loạt xảy ra do ta muốn xét số tick trong một nhóm. Và nếu đúng vậy thì lúc thiết kế phải nhóm chúng lại. Có hai cách nhóm:
1. Ghép tên nhóm cho chúng: tbGiDo_01, tbGiDo_02, ....
2. Cho chúng vào một Frame

Đây là 1 nhóm lỗi, và mình chọn ra nhưng lỗi để ghi vào bản tính anh. Từ những lỗi trên, mình quy ra điểm để tính lỗi anh