在 Excel 中通过 VBA 窗体向单元格中写入文本

Question

为了给花名册里的人名打标签，我想做个窗体，里面固化一些带文本的按钮，例如「男」、「女」、「外向」、「健壮」、「有钱人」等等，然后选中备注单元格的时候，点击窗体里的按钮，按钮上的文本就会自动填入备注中，并自动逗号分隔，这个有办法实现吗？麻烦高人展示一下代码，谢谢！

Answer 1

Private Sub CommandButton1_Click()
    Dim KJ As Control, JG
    For Each KJ In Me.Controls
        If KJ.Value = True Then
            JG = JG & KJ.Caption & "，"
        End If
    Next
    Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = JG
End Sub

Answer 2

没大看懂你的意思，能不能画个图出来？