Cách lưu tên các checkbox tới cell

[YêuCN]

Cho em hỏi cách lưu tên checkbox được chọn tới các cột từ B đến E tương ứng với tên 4 checkbox trong file đính kèm.
mỗi lần thay đổi tùy chọn checkbox thì các tên checkbox sẽ lại được ghi vào dòng tiếp theo. Mong mọi người góp sức chân thành cảm ơn !

 

[giaiphap]

Cho em hỏi cách lưu tên checkbox được chọn tới các cột từ B đến E tương ứng với tên 4 checkbox trong file đính kèm.
mỗi lần thay đổi tùy chọn checkbox thì các tên checkbox sẽ lại được ghi vào dòng tiếp theo. Mong mọi người góp sức chân thành cảm ơn !

Bạn mô tả chi tiết vấn đề, có ví dụ mẫu càng tốt.

 

[YêuCN]

Bạn mô tả chi tiết vấn đề, có ví dụ mẫu càng tốt.

Dạ có nghĩa là khi mở form ta chọn một hay nhiều checkbox trên form thì tên các checkbox này sẽ được lưu theo thứ tự từ cột B đến cột E
Ví dụ chỉ chọn checkbox 2, 3 thì tại B1=checkbox2, C1=checkbox3 và khi thay đổi chọn checkbox khác ví dụ chọn checkbox 1,3,4 thìa nó sẽ ghi xuống dòng tiếp theo tương tự cũng bắt đầu từ B2....

 

[VetMini]

Dạ có nghĩa là khi mở form ta chọn một hay nhiều checkbox trên form thì tên các checkbox này sẽ được lưu theo thứ tự từ cột B đến cột E
Ví dụ chỉ chọn checkbox 2, 3 thì tại B1=checkbox2, C1=checkbox3 và khi thay đổi chọn checkbox khác ví dụ chọn checkbox 1,3,4 thìa nó sẽ ghi xuống dòng tiếp theo tương tự cũng bắt đầu từ B2....

Khi nào thì nó sẽ hiểu là bạn chọn checkbox khác?

 

[giaiphap]

Dạ có nghĩa là khi mở form ta chọn một hay nhiều checkbox trên form thì tên các checkbox này sẽ được lưu theo thứ tự từ cột B đến cột E
Ví dụ chỉ chọn checkbox 2, 3 thì tại B1=checkbox2, C1=checkbox3 và khi thay đổi chọn checkbox khác ví dụ chọn checkbox 1,3,4 thìa nó sẽ ghi xuống dòng tiếp theo tương tự cũng bắt đầu từ B2....

Bạn thử dùng code này xem sao.

Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte, k As Long
With Sheet1
    k = .Range("B1").End(xlDown).Row
    If .Range("B" & k).Value <> "" Then k = k + 1
    j = 0
    For i = 1 To 4
        If Me.Controls("CheckBox" & i).Value = True Then
            .Range("B" & k).Offset(, j).Value = "CheckBox" & i
            j = j + 1
        End If
    Next i
End With
End Sub

 

[YêuCN]

Khi nào thì nó sẽ hiểu là bạn chọn checkbox khác?

Mỗi khi mở form ạ

Bài đã được tự động gộp: 2/8/19

Bạn thử dùng code này xem sao.

Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte, k As Long
With Sheet1
    k = .Range("B1").End(xlDown).Row
    If .Range("B" & k).Value <> "" Then k = k + 1
    j = 0
    For i = 1 To 4
        If Me.Controls("CheckBox" & i).Value = True Then
            .Range("B" & k).Offset(, j).Value = "CheckBox" & i
            j = j + 1
        End If
    Next i
End With
End Sub

em test lỗi ở đây a

 

[giaiphap]

Mỗi khi mở form ạ

Bài đã được tự động gộp: 2/8/19

em test lỗi ở đây aView attachment 222175

File của tôi chạy ngon lành, có khả năng bạn dùng code này để áp dụng cho file khác nên nó bị lỗi. Tôi viết code cho file ở #1.

 

[YêuCN]

File của tôi chạy ngon lành, có khả năng bạn dùng code này để áp dụng cho file khác nên nó bị lỗi. Tôi viết code cho file ở #1.

dạ em chạy file bài 1 ạ

 

[VetMini]

Bạn thử dùng code này xem sao.

Private Sub CommandButton1_Click()

Mỗi khi mở form ạ

Nếu lần trước và lần sau số checkbox không thay đổi thì sao?
(2 lần mở form, hoặc 2 lần click button gì đó)

Đồng thời: nếu chả có check nào hết thì ghi cái gì?

 

[YêuCN]

Nếu lần trước và lần sau số checkbox không thay đổi thì sao?
(2 lần mở form, hoặc 2 lần click button gì đó)

Đồng thời: nếu chả có check nào hết thì ghi cái gì?

dạ nếu check trùng cũng ghi ạ, nếu ko check thì ko ghi ạ

 

[VetMini]

Khi bước vào vấn đề lập trình, tôi giành riêng việc viết tắt cho tên biến, hàm,...
Vì vậy, tôi không bao giờ dùng từ ngữ viết tắt ở nới khác, nhất là phần dẫn giải.
Hiểu thử cái này:
tl đ trng c dg pk

 

[giaiphap]

dạ nếu check trùng cũng ghi ạ, nếu ko check thì ko ghi ạ

Thử sửa lại thế này.

Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte, k As Long
With Sheet1
    If .Range("B1").Value = Empty Then
        k = 1
    Else
        k = .UsedRange.Rows.Count + 1
    End If
    j = 0
    For i = 1 To 4
        If Me.Controls("CheckBox" & i).Value = True Then
            .Range("B" & k).Offset(, j).Value = "CheckBox" & i
            j = j + 1
        End If
    Next i
End With
End Sub

 

[YêuCN]

Thử sửa lại thế này.

Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte, k As Long
With Sheet1
    If .Range("B1").Value = Empty Then
        k = 1
    Else
        k = .UsedRange.Rows.Count + 1
    End If
    j = 0
    For i = 1 To 4
        If Me.Controls("CheckBox" & i).Value = True Then
            .Range("B" & k).Offset(, j).Value = "CheckBox" & i
            j = j + 1
        End If
    Next i
End With
End Sub

dạ cũng bị ở dòng đó ạ

 

[giaiphap]

dạ cũng bị ở dòng đó ạ

Sao vậy ta.

 

[VetMini]

Thử sửa lại thế này.

Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte, k As Long
With Sheet1
    If .Range("B1").Value = Empty Then
        k = 1
    Else
        k = .UsedRange.Rows.Count + 1
    End If
    j = 0
    For i = 1 To 4
        If Me.Controls("CheckBox" & i).Value = True Then
            .Range("B" & k).Offset(, j).Value = "CheckBox" & i
            j = j + 1
        End If
    Next i
End With
End Sub

Code này đúng với đòi hỏi "không check không ghi", nhưng thớt quên sự thực là nếu tôi xoá hết các checkboxes thì cũng là 1 lần thay đổi.

 

[YêuCN]

Sao vậy ta.

sao lạ file này lại được

Bài đã được tự động gộp: 2/8/19

dạ em cám ơn các anh đã hỗ trợ