VBA如何根据窗口工具箱的“选项按钮”的值来新建sheet工作表

king38425

VBA如何用窗口工具箱的“选项按钮”的Caption 值来新建sheet工作表？
条件：当在userform页面在第一次选择“选项按钮(OptionButton)"点击"命令按钮(CommandButton)"按钮时，将新建sheet工作表，当第二次选择就不再新建sheet工作表；
备注：点击"命令按钮(CommandButton)"时所新建的sheet工作表表名要与“选项按钮(OptionButton)"的Caption值相同；

02761752696

可以实现哦，根据OptionButton的名称创建工作表，创建是进行判断已存在就不创建

king38425

朱荣兴 发表于 2018-9-6 22:43
没有附件没法帮你的。

已上传附件
以下来"确定"按钮的点击事件代码
Private Sub OK_Click()
    Dim sheet As New Worksheet '定义sheet工作表
    Dim i&, j&
    If Me.b_type1.Value = True Then
        MsgBox Me.b_type1.Caption
    End If
    If Me.b_type2.Value = True Then
        MsgBox Me.b_type2.Caption
    ElseIf Me.b_type3.Value = True Then
        MsgBox Me.b_type3.Caption
    ElseIf Me.b_type4.Value = True Then
        MsgBox Me.b_type4.Caption
    ElseIf Me.b_type5.Value = True Then
        MsgBox Me.b_type5.Caption
    ElseIf Me.b_type6.Value = True Then
        MsgBox Me.b_type6.Caption
    ElseIf Me.b_type7.Value = True Then
        MsgBox Me.b_type7.Caption
    ElseIf Me.b_type8.Value = True Then
        MsgBox Me.b_type8.Caption
    ElseIf Me.b_type9.Value = True Then
        MsgBox Me.b_type9.Caption
    ElseIf Me.b_type10.Value = True Then
        MsgBox Me.b_type10.Caption
    ElseIf Me.b_type11.Value = True Then
        MsgBox Me.b_type11.Caption
    ElseIf Me.b_type12.Value = True Then
        MsgBox Me.b_type12.Caption
    ElseIf Me.b_type13.Value = True Then
        MsgBox Me.b_type13.Caption
    ElseIf Me.b_type14.Value = True Then
        MsgBox Me.b_type14.Caption
    ElseIf Me.b_type15.Value = True Then
        MsgBox Me.b_type15.Caption
    ElseIf Me.b_type16.Value = True Then
        MsgBox Me.b_type16.Caption
    ElseIf Me.b_type17.Value = True Then
        MsgBox Me.b_type17.Caption
    End If   
End Sub

king38425

已重新上传附件