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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。