帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-8-22 13:18 | 只看該作者

[發問] 選項按鈕

目前又有另一個工作上的需求，需要請各位前輩協助指點
自動填滿儲存格的方式，在先前文章有討論到
但小妹還需要增加幾個功能...
sheets("選項預留") 內有幾個選項，則在sheets("選擇")的抬頭列顯示幾個
並且下面填滿選項按鈕(能否做到只留一個選項，不要後面的option的文字?)
最後在sheets("統計")的頁面，可以進行分類統計數量?

不好意思，這次問題有點多...QQ"

選項按鈕.rar (53.49 KB)

樓主熱帖

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2016-8-22 19:29 | 只看該作者

回復 1# Michelle-W

請試看看，是不是你要的，也不知道對不對！

選項按鈕.rar (92.86 KB)

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 2016-8-22 19:53 | 只看該作者

回復 1# Michelle-W

我多寫了一列代碼，可能不是你需要的，可以把它刪除
.Cells(ro, c.Offset(, 2).Column) = 1

TOP

Michelle-W

中學生 Rank: 2

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

4^#

發表於 2016-8-23 08:21 | 只看該作者

回復 3# lpk187

正是我工作上的需求~~^^
另外請問一下，當sheets("選擇")新增人員資料的時候
填滿選項按鈕執行後，會全部更新，覆蓋過先前已選擇的
這點有辦法修改嗎^^""

TOP

Michelle-W

中學生 Rank: 2

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

5^#

發表於 2016-8-23 11:57 | 只看該作者

本帖最後由 Michelle-W 於 2016-8-23 12:00 編輯

回復 2# lpk187

請問這組程式碼人員欄與編號欄是否有字數的限制?
很容易出現錯誤1004
這是為什麼呀? 我從程式碼看不出來有這層限制...
有方法可以解除嗎QQ

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

6^#

發表於 2016-8-23 13:59 | 只看該作者

本帖最後由 lpk187 於 2016-8-23 14:05 編輯

回復 5# Michelle-W

物件太多，佔的記憶體也相對多，會影響到整體的執行，所以會產生錯誤
建議你可以用其他方法來處理同樣問題，而少用OptionButton
例如：使用工作表事件Worksheet_SelectionChange來取代物件OptionButton的使用
也會得到相同的效果

TOP

Michelle-W