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小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。