a703130

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-3-26 17:24 | 只看該作者

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

本帖最後由 a703130 於 2012-3-26 17:26 編輯

我想請問大大

目前我有程式是利用sheets(i)來做迴圈
例如

For i=6 to 16
sheets(i)...
...
...
...
Next

複製代碼

但是我又覺得這樣寫死不太方便
所以我想要利用Combobox來讓使用者決定要從哪個頁面開始
Combobox1 決定開始的地方變數x，Combobox2 則是結束的地方變數y

不知道應該如何撰寫這程式??

我的工作頁固定從第6頁開始~第16頁結尾
一開始要先將上面6~16的sheetname加入combobox
使用者點選combobox1以及combobox2 帶出 x、y變數

我再帶入我的程式

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-3-26 17:48 | 只看該作者

回復 1# a703130

For i = Val(Combobox1) To Val(Combobox2)
sheets(i)...
...
...
...
Next

複製代碼

TOP

a703130

中學生 Rank: 2

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

3^#

發表於 2012-3-26 18:26 | 只看該作者

回復 2# GBKEE

抱歉大大我的問題~問得不好造成您的理解上有落差
我說的combobox 是下拉式方塊

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-3-26 18:47 | 只看該作者

回復 3# a703130
沒有誤解,你是ComboBox1,ComboBox2 的內容不知如何加上嗎?

Sub Ex()
Dim xi As Integer
ComboBox1.Clear
For xi = 1 To Sheets.Count
ComboBox1.AddItem xi
Next
End Sub

複製代碼

TOP

a703130

中學生 Rank: 2

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

5^#

發表於 2012-3-26 19:56 | 只看該作者

回復 4# GBKEE

對，因為我for 迴圈的起始-結束是sheets()
討論區上教的是用 ComboBox1.List = Array()

我就不知道要如何利用 sheets所在的頁面number當作迴圈的起始-結束

另外我也不知道要如何在Excel 打開的時候將sheets(6)~sheets(16)的Name 放入 combobox1、combobox2 的列表裡面

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

6^#

發表於 2012-3-27 10:38 | 只看該作者

回復 5# a703130

要不要寫一個excel的ex提供一下呢??
這樣G大大或其他大大比較清楚你要的結果是怎麼樣~
不用像瞎子摸象一樣~ 講不清楚~

學習才能提升自己

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 247
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-14

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2012-3-27 14:21 | 只看該作者

回復 5# a703130

要在ComboBox內加入項目就是Additem只不過是你要加甚麼料就自己去思考如何取得那些字串
如你所說要加入6到n的工作表名稱
for i=6 to n
combobox1.additem sheets(i).name
next
只不過要注意的是，在程式沒有關閉之前，美執行一次就會重複加入項目，為避免重複加入
在執行時先清除後再新增
combobox1.clear
for i=6 to n
combobox1.additem sheets(i).name
next

學海無涯_不恥下問

TOP

a703130

中學生 Rank: 2

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

8^#

發表於 2012-3-27 16:58 | 只看該作者

回復 7# Hsieh

謝謝 H 大以及上面大大，發問也是一門學問阿
其實我的問題很簡單就是
我在一開始開啟Excel 後要讓Combobox1自動載入Sheets(i)
而 combobox1.additem sheets(i).name 解決了我的問題
因為我在additem跟 sheet(i).name 多了一個 =

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 247
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-14

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2012-3-27 17:38 | 只看該作者

回復 8# a703130

你這問題可能就是大部分剛接觸VBA的人都有的問題
VBA的指令大致上有物件、屬性、方法、函數
屬性語法就是
物件.屬性=值

方法語法就是
物件.方法值

函數語法就是
變數=函數(引數)
這就是一般的語法
至於程式流程思考邏輯
何時?做甚麼動作?讓甚麼物件?用甚麼方法?做甚麼事?
這是物件導向程式的基本邏輯概念
所以，先搞清楚"事件"、"物件"、"方法"、"屬性"是接觸VBA第一門課程

學海無涯_不恥下問

TOP