选中复选框后，多个文本框变为可见，但是我需要第二次活动

Question

我有工作代码来显示和隐藏一些文本框等，但是我想让那些文本框之一中填充的文本出现在单元格中。实际上，两个文本框的值在一个单元格中用逗号分隔。

Private Sub CheckBox2_Click()
If CheckBox2 Then
    ComboBox151.Visible = True
    TextBox227.Visible = True
    TextBox228.Visible = True
    Label358.Visible = True
    Label359.Visible = True
    TextBox_combi.Visible = True
    comments.Visible = True
Else
    ComboBox151.Visible = False
    TextBox227.Visible = False
    TextBox228.Visible = False
    Label358.Visible = False
    Label359.Visible = False
    TextBox_combi.Visible = False
    comments.Visible = False
End If

结束子