如何用vb向excel中添加控件，并响应事件

在excel中插入控件的方法如下：

1、点击开发工具选项卡，点击插入按钮，在d出的框中选择要插入的控件

2、点击控件之后，鼠标变成十字形。拖动鼠标绘制控件，绘制完成后，d出指定宏对话框，为此控件的单击事件关联宏。如果已写好需要执行的宏，则在列表框中选择相应的宏点击确定即可。若未写好，可点击新建按钮

3、在d出的Visual Basic编辑器中写好需要执行的代码，关闭编辑器，即可

你可以使用VBA宏来添加和删除Excel工作簿中的工作表（Sheet）。

以下是添加工作表的示例VBA代码：

vbnetCopy code

Sub AddSheet()

Dim NewSheet As Worksheet

Set NewSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

NewSheet.Name = "New Sheet"

End Sub

这将在当前工作簿中添加一个名为“New Sheet”的新工作表。

以下是删除工作表的示例VBA代码：

vbnetCopy code

Sub DeleteSheet()

Dim SheetToDelete As Worksheet

Set SheetToDelete = ThisWorkbook.Sheets("Sheet2")

Application.DisplayAlerts = False '禁用删除工作表的警告

SheetToDelete.Delete

Application.DisplayAlerts = True '启用删除工作表的警告

End Sub

这将删除名为“Sheet2”的工作表。在删除工作表时，要记得在执行删除 *** 作前禁用删除工作表的警告，并在删除 *** 作完成后启用删除工作表的警告。这是为了防止意外删除工作表时出现的警告d窗。

---