　暱稱: Raymond Chien

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2018-6-20 12:09 | 只看該作者

[發問] 表單問題請問如何控制checkbox數量

例如我在excel裡面有如下幾筆個股
2305 全友
2324 仁寶
2331 精英
2353 宏碁
2362 藍天
2365 昆盈
2377 微星
2382 廣達
2399 映泰
2465 麗臺

我希望當我按下表單按鈕時
可以自動將這些股票名稱以及股票代號自動帶入表單的checkbox中
(但因為數量不固定，所以無法固定checkbox的數量)
如下圖

希望有大大可以指點一下
感激不盡

樓主熱帖

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

iamaraymond

　暱稱: Raymond Chien

中學生 Rank: 2

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

9^#

發表於 2018-6-22 19:55 | 只看該作者

回復 8# linyancheng

感謝版主，我再研究看看

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

linyancheng

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 228
主題: 73
精華: 2
積分: 333
點名: 0
作業系統: Windows 10
軟體版本: Office 2000, 2019
閱讀權限: 100
性別: 男
來自: 彰化縣
註冊時間: 2013-7-18
最後登錄: 2024-10-13

8^#

發表於 2018-6-22 19:23 | 只看該作者

回復 7# iamaraymond

其實如果控制項不需要觸發事件，不需要使用Class

Class範例.zip (10.27 KB)

TOP

iamaraymond

　暱稱: Raymond Chien

中學生 Rank: 2

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

7^#

發表於 2018-6-21 22:08 | 只看該作者

回復 6# linyancheng

可以請教版大如何做到動態控制checkbox嗎?
之前爬文有看到似乎會用到class
雖然我對class不熟，但如果版大願意分享的話
我一定會盡力弄懂的!

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

linyancheng

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 228
主題: 73
精華: 2
積分: 333
點名: 0
作業系統: Windows 10
軟體版本: Office 2000, 2019
閱讀權限: 100
性別: 男
來自: 彰化縣
註冊時間: 2013-7-18
最後登錄: 2024-10-13

6^#

發表於 2018-6-21 11:41 | 只看該作者

用checkbox也可以，在執行階段增加checkbox

TOP

iamaraymond

　暱稱: Raymond Chien

中學生 Rank: 2

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

5^#

發表於 2018-6-20 16:55 | 只看該作者

回復 4# jackyq

感謝jackyq，原來有這麼多可以設定的東西，又學習了

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

jackyq

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

4^#

發表於 2018-6-20 15:31 | 只看該作者

本帖最後由 jackyq 於 2018-6-20 15:39 編輯

回復 3# iamaraymond

屬性視窗手動設定 or 用 VBA 寫入屬性
ListBox1.ListStyle = fmListStyleOption
ListBox1.MultiSelect = fmMultiSelectMulti

Private Sub ListBox1_Change()
For w = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(w) Then
Debug.Print "選中 = " + ListBox1.List(w)
End If
Next
End Sub

TOP

iamaraymond