将excel用VBA combobox 删除指定sheet

您可以使用以下的VBA代码来实现您的需求：

Sub DeleteSheet()

    '使用ComboBox选择要删除的工作表名称
    Dim cb As ComboBox
    Set cb = ActiveSheet.Shapes("ComboBox1").OLEFormat.Object
    
    If cb.Value <> "" Then
        '删除指定工作表
        Application.DisplayAlerts = False '禁用警告提示框
        ThisWorkbook.Worksheets(cb.Value).Delete
        Application.DisplayAlerts = True '启用警告提示框
    End If
    
End Sub

在这段代码中，我们首先获取ComboBox中选择的工作表名称，然后通过删除工作表的方法删除指定的工作表。请注意，我们在删除工作表之前禁用了警告提示框，以确保删除操作不会被Excel警告所打断。

同样地，您需要先在工作表中插入一个ComboBox控件，并将其命名为"ComboBox1"，然后才能在VBA代码中引用它。

相关问题

将excel用VBA combobox 跳转sheet

好的，下面是一个基本的 VBA 代码示例，用于实现在 ComboBox 中选择选项后，自动跳转到指定的工作表。在这个示例中，我们假设 ComboBox 中的选项与工作表的名称一致。

首先，在 Excel 中插入一个 ComboBox 控件。您可以在“开发工具”选项卡的“插入”部分找到该控件。然后，将以下代码复制到工作表的代码模块中：

Private Sub ComboBox1_Change()
    Dim SelectedSheetName As String
    SelectedSheetName = ComboBox1.Value
    
    ' 判断所选工作表是否存在
    If SheetExists(SelectedSheetName) Then
        ' 跳转到所选工作表
        Worksheets(SelectedSheetName).Activate
    Else
        MsgBox "工作表 " & SelectedSheetName & " 不存在！"
    End If
End Sub

' 判断指定名称的工作表是否存在
Function SheetExists(SheetName As String) As Boolean
    SheetExists = False
    For Each Sheet In ThisWorkbook.Sheets
        If Sheet.Name = SheetName Then
            SheetExists = True
            Exit Function
        End If
    Next Sheet
End Function

这个示例代码中，我们使用 ComboBox 的 Change 事件来处理选项的选择。在该事件中，我们首先获取所选选项的名称，然后使用 SheetExists 函数来判断该名称的工作表是否存在。如果存在，则使用 Worksheets(SelectedSheetName).Activate 语句来跳转到该工作表；否则，显示一个消息框来提示用户。

请注意，我们还需要定义一个 SheetExists 函数来判断指定名称的工作表是否存在。在这个函数中，我们使用 For Each 循环遍历所有工作表，判断工作表名称是否与指定名称相同。如果找到相同名称的工作表，则返回 True；否则，返回 False。

将excel用VBA combobox 点击确认跳转sheet

好的，您可以参考以下代码实现您的需求：

首先，在工作簿中插入一个 ComboBox 控件，并设置好选项列表。然后，在代码模块中添加以下代码：

Private Sub ComboBox1_Change()
    '获取选中的选项
    Dim selectedSheetName As String
    selectedSheetName = ComboBox1.Value
    
    '跳转到对应的工作表
    Worksheets(selectedSheetName).Activate
End Sub

这段代码的作用是，当用户选择 ComboBox 中的一个选项时，会触发 ComboBox1_Change 事件，获取选中的选项，并跳转到对应的工作表。

需要注意的是，ComboBox 中的选项列表应该与工作簿中的工作表名称相对应，否则会出现跳转错误的情况。