caichen3

中學生 Rank: 2

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-3-16 14:36 | 只看該作者

自動填滿選項按鈕

請問
A1輸入資料的欄位，B1：F1有五個選項按鈕，若我想在A欄中有被輸入資料的儲存格中(A1：Ax)，B1：Bx和C1：Cx和D1：Dx和E1：Ex和F1：Fx自動會出現選項按鈕該如何？？謝謝！

樓主熱帖

寶寶

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2012-3-16 20:46 | 只看該作者

Sub ex()
ActiveSheet.OLEObjects.Delete
For Each a In Range("A:A").SpecialCells(xlCellTypeConstants)
For i = 1 To 5
With a.Offset(, i)
ActiveSheet.OLEObjects.Add ClassType:="Forms.OptionButton.1", _
Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height
End With
Next
Next
End Sub

複製代碼

回復 1# caichen3

學海無涯_不恥下問

TOP

caichen3

中學生 Rank: 2

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

3^#

發表於 2012-3-16 21:25 | 只看該作者

本帖最後由 caichen3 於 2012-3-16 21:34 編輯

非常感謝Hsieh喔:)
如果希望能以5個optionbutton做為一個群組呢？？

寶寶

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

4^#

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

回復 3# caichen3

Sub ex()
ActiveSheet.OLEObjects.Delete
For Each a In Range("A:A").SpecialCells(xlCellTypeConstants)
s = 0
For i = 1 To 5
With a.Offset(, i)
Set ob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", _
Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
ob.Object.GroupName = "群組 " & n
End With
Next
n = n + 1
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

caichen3

中學生 Rank: 2

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

5^#

發表於 2012-3-19 11:54 | 只看該作者

非常感謝

寶寶

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-19 14:39 | 只看該作者

本帖最後由 hugh0620 於 2012-3-19 15:11 編輯

回復 4# Hsieh

H大大這一招好~ 以前沒想過~ 已後可以省很多時間在設定Button的時間~
感恩唷~

學習才能提升自己

TOP

caichen3

中學生 Rank: 2

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

7^#

發表於 2012-3-20 11:52 | 只看該作者

我在工作表新增一個按鈕，在按鈕裡輸入H大大的程式碼，執行後按鈕便消失，是不是使用OLEObject方法便無法以手動方式製作按鈕呢？？

寶寶

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

8^#

發表於 2012-3-20 15:15 | 只看該作者

回復 7# caichen3

ctiveSheet.OLEObjects.Delete
就已經將所有控制項刪除
目的在怕重複執行程式，造成控制項重複新增

Sub ex()
Dim ob As OLEObject
For Each ob In ActiveSheet.OLEObjects
If ob.progID = "Forms.OptionButton.1" Then ob.Delete
Next
For Each a In Range("A:A").SpecialCells(xlCellTypeConstants)
s = 0
For i = 1 To 5
With a.Offset(, i)
Set ob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", _
Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
ob.Object.GroupName = "群組 " & n
End With
Next
n = n + 1
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

caichen3

中學生 Rank: 2

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

9^#

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

本帖最後由 caichen3 於 2012-3-20 18:35 編輯

感謝H大大的回覆！！還有一個問題請教你，
OLEobjects方法增加的optionbutton,每個都有編號，每次執行按鈕的編號並不是依序排列，
因為我要設定每個按鈕的標題文字，要如何以變數I來控制並設定這５個按鈕的標題文字？？

寶寶

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

10^#

發表於 2012-3-20 19:43 | 只看該作者

回復 9# caichen3

Sub ex()
Dim ob As OLEObject
For Each ob In ActiveSheet.OLEObjects
If ob.progID = "Forms.OptionButton.1" Then ob.Delete
Next
n = 0
For Each a In Range("A:A").SpecialCells(xlCellTypeConstants)
For i = 1 To 5
mystr = "選項" & n & "-" & i
With a.Offset(, i)
Set ob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", _
Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
ob.Object.Caption = mystr
ob.Object.GroupName = "群組 " & n
End With
Next
n = n + 1
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP