各位用户为了找寻关于excel VBA LISTBOX初始化代码的资料费劲了很多周折。这里教程网为您整理了关于excel VBA LISTBOX初始化代码的相关资料，仅供查阅，以下为您介绍关于excel VBA LISTBOX初始化代码的详细内容
Private Sub UserForm_Initialize()Dim lsb As WorksheetSet lsb = Sheets("临时表")X = lsb.[a65536].End(3).RowWith ListBox1.ColumnCount = 7 ‘设置7列.ColumnWidths = "30,70,70,70,70,70,50" ‘设置每列宽度
.ColumnHeads = True ‘是否有标题表头.RowSource = lsb.Range("a2:g" & X).Address(External:=True) ‘设置内容End WithEnd Sub