返回列表 上一主題 發帖

請教一段程式, 該如何寫,

回復 1# 周大偉

比較簡易的方式如下
  1. Private Sub UserForm_Initialize()
  2. arr = Sheets("工作表2").Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
  3. ComboBox1.List = arr
  4. End Sub
複製代碼

TOP

        靜思自在 : 閒人無樂趣,忙人無是非。
返回列表 上一主題