Excel VBA动态组合框

时间:2013-05-16 11:20:35

标签: excel-vba vba excel

我在列A1到A5中有5个组合框,在第6列中我有一个加号和减号按钮,它们只是带有加号和减号的命令按钮作为文本

按下加号按钮时,我的代码复制了整行并将其插入下方。按下减号按钮时,整个行都被移除(您无法删除第一行,因为必须始终存在一行。

以下是插入和删除行的代码

Public Sub InsertRow()

Dim newBtnAddress As String

'Find out which button was clicked
newBtnAddress = ActiveSheet.Pictures(Application.Caller).TopLeftCell.Address
ActiveSheet.Pictures(Application.Caller).TopLeftCell.EntireRow.Select
Selection.Copy

'Insert a copied row below the button that was clicked
Range(newBtnAddress).Offset(1, 0).EntireRow.Select
Selection.insert Shift:=xlDown

'Deselect the copied row
Application.CutCopyMode = False   

End Sub

Sub DeleteRow()

Dim deleteAddress As String

deleteAddress = ActiveSheet.Pictures(Application.Caller).TopLeftCell.Address

'Find out which button was clicked
Range(deleteAddress).EntireRow.Delete

End Sub

我已尝试使用Active X Combo和表单组合,这是我发现的

当使用Active X Combos时,组合在添加行时不会被复制到新行,但是当删除行时它们会被删除(如果它们在那里)

表格组合正好相反。在添加行时会复制它们,但在删除行时不会删除它们。他们也没有像Active X Combos那样的变化事件

我想知道是否有人做过任何动态生成的组合及其采取的方法以及为什么他们的行为彼此不同?

0 个答案:

没有答案