Excel VBA - 将选中的复选框保存到单元格

Question

我有一个带有多个复选框的用户表单。我想将勾选的复选框保存在同一列的不同连续行中。

例如，如果我选择了 5 个复选框，那么我想将它们保存在单元格 (4,9)、单元格 (5,9) 等中。我的代码几乎完成了，但是我在编写一段时间时遇到了麻烦循环，使其从 cell(4,9) 到 cell(5,9) 等等。

这是我的代码：

Private Sub seg_b_next2_Click()

Dim indProdWs As Worksheet
Set indProdWs = tWb.Worksheets("INDICATION-PRODUCT")

Dim ctl As Control

For Each ctl In Me.Controls
    If TypeName(ctl) = "CheckBox" Then
        If ctl.Value = True Then
            i = 0
            While whatever_happens
            indProdWs.Range(4 + i, 9) = ctl.Caption
            i = i + 1
            Wend
        End If
    End If
Next ctl

End Sub

Answer 1

请试试这个方法：

Private Sub seg_b_next2_Click()
 Dim indProdWs As Worksheet, ctl As Control, i As Long
 
 Set indProdWs = Twb.Worksheets("INDICATION-PRODUCT")

 i = 4
 For Each ctl In Me.Controls
    If TypeName(ctl) = "CheckBox" Then
        If ctl.Value = True Then
            indProdWs.Range(i, 9).Value = ctl.Caption: i = i + 1
        End If
    End If
 Next ctl
End Sub