VBA通过ComboBox选择机型命名新增工作表的技术问询

你的思路完全没问题，但原代码里有几个小细节会导致运行出错，我帮你调整优化一下：

原代码的问题点 #

• 你声明了ws变量，但复制工作表后没有把新创建的工作表赋值给它，直接用ws.Name会触发「对象变量或With块变量未设置」的错误
• Sheets(10)的写法不够安全，如果当前工作簿的工作表数量少于10，会直接报错
• 没有检查ComboBox是否选中了有效选项，万一用户没选就点击按钮，会导致工作表命名为空或者无效
• 隐藏窗体用Me.Hide比[UserForm1].Hide更简洁可靠，尤其是在窗体内部代码里

修正后的完整代码 #

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim newSheetName As String
    
    ' 获取ComboBox选中的值，先做有效性检查
    newSheetName = Trim(ComboBox1.Value)
    If newSheetName = "" Then
        MsgBox "请先选择机型！", vbExclamation
        Exit Sub
    End If
    
    ' 检查是否已经存在同名工作表，避免命名冲突
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets(newSheetName)
    On Error GoTo 0
    If Not ws Is Nothing Then
        MsgBox "已存在名为""" & newSheetName & """的工作表！", vbExclamation
        Exit Sub
    End If
    
    ' 复制Sheet1并赋值给ws变量，放在所有工作表的最后（也可以改成Before:=Sheets(1)放在最前）
    Set ws = ThisWorkbook.Sheets("Sheet1").Copy(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    
    ' 给新工作表命名
    ws.Name = newSheetName
    
    ' 隐藏当前窗体
    Me.Hide
End Sub

Private Sub UserForm_Initialize()
    ' 给ComboBox添加机型选项
    ComboBox1.List = Array("Machine Type 1", "Machine Type 2")
    ' 默认选中第一个选项，提升用户体验
    ComboBox1.ListIndex = 0
End Sub

关键修正说明 #

1. 变量赋值与错误检查：复制工作表时直接把返回的新表对象赋值给ws，彻底避免空引用错误
2. 安全性提升：
   • 先检查ComboBox是否有选中值，防止空命名
   • 检查是否存在同名工作表，避免命名冲突报错
   • 用ThisWorkbook明确指向当前工作簿，避免误操作其他打开的工作簿
3. 用户体验优化：在窗体初始化时默认选中第一个机型选项，减少用户操作步骤

内容的提问来源于stack exchange，提问作者diem_L