如何在活动单元格中创buildcombobox？

我想要创build一个脚本，select第一个空行，然后在该行的“A”列中放置一个下拉列表。 然后我想用.additem（“”）来添加我需要的项目。 我将如何做到这一点？

提前致谢。

Answer 1

尝试这个

Sub AddComboBox(Col As Long) Dim LastRow As Range With ThisWorkbook.ActiveSheet Set LastRow = .Cells(.Rows.Count, Col).End(xlUp) End With With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _ Link:=False, _ DisplayAsIcon:=False, _ Left:=0, _ Top:=LastRow.Top + LastRow.Height, _ Width:=100, _ Height:=16) With .Object .AddItem "Hi" End With End With End Sub 

15是默认的行高。 当你的排有不同的高度时，所有的投注都closures。

编辑1 ：根据您的评论，你可以使用这个尽可能多的从另一个子调用它。 我已经添加了一个名为Col的第一个子参数，它是你列的ID。

 Sub Main() Dim I As Long For I = 1 To 3 AddComboBox I Next End Sub 

编辑2：我已经纳入了dee处理variables行高度的有效注释。