Checkbox trong Excel (1 người xem)

[dinhphuong9327]

Thân chào Các Anh.Chị trên diễn đàn GPE

Em có một vướng mắc rất mong nhận được trợ giúp của mọi người.

Em muốn tạo 1 checkbox có thể chọn được nhiều đối tượng và trả về giá trị tại 1 ô theo dạng (đối tượng 1;đối tượng 2....)

Em xin gởi file đính kèm

Cám ơn các Anh Chị

 

[Let'GâuGâu]

Thân chào Các Anh.Chị trên diễn đàn GPE

Em có một vướng mắc rất mong nhận được trợ giúp của mọi người.

Em muốn tạo 1 checkbox có thể chọn được nhiều đối tượng và trả về giá trị tại 1 ô theo dạng (đối tượng 1;đối tượng 2....)

Em xin gởi file đính kèm

Cám ơn các Anh Chị

đối tượng hay đối thủ thì hỏng có rành, xem thử file này xem

 

[dinhphuong9327]

Dạ Cám ơn Anh Let'sGâuGâu.

Anh kiểm tra lại giúp em với, Giá trị 101 luôn hiện trong ô kết quả mặc dù không được chọn.

Trân trọng

 

[Let'GâuGâu]

Dạ Cám ơn Anh Let'sGâuGâu.

Anh kiểm tra lại giúp em với, Giá trị 101 luôn hiện trong ô kết quả mặc dù không được chọn.

Trân trọng

View attachment 153341

Private Sub ListBox1_LostFocus()
Dim i As Integer
    For i = 1 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) Then
        If Len(text) Then text = text & "," & Me.ListBox1.List(i) Else text = Me.ListBox1.List(i)
        End If
    Next i
    [E2].Value = text
End Sub

 

[dinhphuong9327]

Cám ơn Anh Let'sGâuGâu rất nhiều.

Anh có thể hướng dẫn giúp em các bước để làm check box như trên không ạ. Em có rất nhiều ứng dụng cần sử dụng check box như trên nhưng hiều biết về excel của em vẫn còn ít quá nên chưa làm được.

Chúc Anh và diễn đàn GPE 1 năm mới nhiều thành công và sức khỏe.

Trân trọng.

 

[Let'GâuGâu]

Cám ơn Anh Let'sGâuGâu rất nhiều.

Anh có thể hướng dẫn giúp em các bước để làm check box như trên không ạ. Em có rất nhiều ứng dụng cần sử dụng check box như trên nhưng hiều biết về excel của em vẫn còn ít quá nên chưa làm được.

Chúc Anh và diễn đàn GPE 1 năm mới nhiều thành công và sức khỏe.

Trân trọng.

thực ra thì nó là cái listbox chứ không phải checkbox
bạn vào tab developer, insert cái listbox của activeX control
sau đó vào property của nó để chỉnh lại
như chọn listfillrange (cái này cũng có thể dùng code để nạp)
chọn mục multipleselect: 1-fmMultipleSelectMulti
chọn mục listStype:1-listStypeOpition
tức nhiên nó chỉ là cái xác, cái hồn của nó là code

 

[dinhphuong9327]

Cám ơn Anh Let'sGâuGâu.

Như hướng dẫn của Anh em đã làm được rồi ạ. Tuy nhiên khi chạy lại em thấy đoạn code mới của Anh trong bài #4 làm cho giá trị 101 không còn hiển thị khi được chọn nữa. Phiền Anh xem lại ạ.

P/s: "như chọn listfillrange (cái này cũng có thể dùng code để nạp)" Anh có thể tạo code để nạp tự động vùng data được không ạ.

Cám ơn Anh.

Trân trọng

 

[Let'GâuGâu]

Cám ơn Anh Let'sGâuGâu.

Như hướng dẫn của Anh em đã làm được rồi ạ. Tuy nhiên khi chạy lại em thấy đoạn code mới của Anh trong bài #4 làm cho giá trị 101 không còn hiển thị khi được chọn nữa. Phiền Anh xem lại ạ.

P/s: "như chọn listfillrange (cái này cũng có thể dùng code để nạp)" Anh có thể tạo code để nạp tự động vùng data được không ạ.

Cám ơn Anh.

Trân trọng

Private Sub ListBox1_GotFocus()
   ListBox1.ListFillRange = "=Sheet1!" & Range([a2], [a2].End(4)).Address
   MsgBox "pls stick"
End Sub

Private Sub ListBox1_LostFocus()
Dim i As Integer
    For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) Then
            If Len(text) Then text = text & "," & Me.ListBox1.List(i) Else text = Me.ListBox1.List(i)
        End If
    Next i
    [E2].Value = text
End Sub

 

[dinhphuong9327]

Cám ơn Anh Let'sGâuGâu đã nhiệt tình hướng dẫn.

Em đã hoàn thiện được file

Trân trọng

 

[dinhphuong9327]

Chào Anh Let'sGâuGâu,

Em gặp phải 01 vấn đề nữa là chọn và hiển thị toàn bộ nội dung vào ô E2. nếu chọn từng cái thì rất lâu ạ (file của em có rất nhiều dòng). Rất mong Anh Lết'sGâuGâu hướng dẫn thêm giúp em ạ. (giống như là chọn all đó Anh)

Em cám ơn Anh nhiều