返回列表 上一主題 發帖

[發問] 利用 Combobox 決定迴圈起始到結束值

回復 1# a703130
  1. For i = Val(Combobox1) To Val(Combobox2)
  2.     sheets(i)...
  3.     ...
  4.     ...
  5.     ...
  6. Next
複製代碼

TOP

回復 3# a703130
沒有誤解,你是ComboBox1,ComboBox2 的內容不知如何加上嗎?
  1. Sub Ex()
  2.     Dim xi As Integer
  3.     ComboBox1.Clear
  4.     For xi = 1 To Sheets.Count
  5.         ComboBox1.AddItem xi
  6.     Next
  7. End Sub
複製代碼

TOP

        靜思自在 : 忘功不忘過,忘怨不忘恩。
返回列表 上一主題