在excel中使用vba删除表中的表和combobox

我是新来的VBA编程在Excel中，我已经写了一个macros，基本上创build一个表在第二列combobx这是我写的示例macros（不是确切的macros）：

Sub Proc1() Cells(2, 1).Value = "MAT10" Cells(2, 2).Value = "Material ID (MID)" Cells(2, 3).Value = "Bulk Modulus(B)" Cells(2, 4).Value = "Average Density (rho)" Cells(2, 5).Value = "Speed of sound (C)" ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$2:$E$2"), , xlYes).name = "Tab2" 'No go in 2003 ActiveSheet.ListObjects("Tab2").TableStyle = "TableStyleLight2" With Range("B3:B3") Set Comb = ActiveSheet.DropDowns.Add(.Left, .Top, .Width, .Height) End With With Comb .AddItem "75000000" .AddItem "75000001" .AddItem "75000002" .AddItem "75000003" .AddItem "75000004" End With End Sub 

现在我想编写一个macros，甚至删除表，如果有必要，我写了，但问题是我不能删除combobox请任何人可以帮我这个

删除我写的macros是：

 Sub delprop() ActiveSheet.ListObjects("Tab2").Delete End Sub 

现在我想删除combobox以及如何做到这一点？

Answer 1

你只需要在你的delprop子程序中进行小小的修改。 检查这个代码：

 Sub delprop() ActiveSheet.ListObjects("Tab2").Delete ''To delete all dropdowns on activesheet. ActiveSheet.DropDowns.Delete End Sub