123
返回列表 上一主題 發帖

自動填滿選項按鈕

caichen3

帖子
80 
主題
27 
精華
0 
積分
108 
點名
0  
作業系統
windows 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-3-6 
最後登錄
2012-8-23 
7# 跳轉到 »
發表於 2012-3-20 11:52 | 只看該作者
我在工作表新增一個按鈕，在按鈕裡輸入H大大的程式碼，執行後按鈕便消失，是不是使用OLEObject方法便無法以手動方式製作按鈕呢？？
寶寶

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 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

帖子
80 
主題
27 
精華
0 
積分
108 
點名
0  
作業系統
windows 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-3-6 
最後登錄
2012-8-23 
5#
發表於 2012-3-19 11:54 | 只看該作者
非常感謝
寶寶

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2012-3-16 22:18 | 只看該作者
回復 3# caichen3
  1. Sub ex()
  2. ActiveSheet.OLEObjects.Delete
  3. For Each a In Range("A:A").SpecialCells(xlCellTypeConstants)
  4.    s = 0
  5.    For i = 1 To 5
  6.    With a.Offset(, i)
  7.       Set ob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", _
  8.          Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
  9.          ob.Object.GroupName = "群組 " & n
  10.    End With
  11.    Next
  12.   n = n + 1
  13. Next
  14. End Sub
複製代碼
學海無涯_不恥下問

TOP

caichen3

帖子
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

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-3-16 20:46 | 只看該作者
  1. Sub ex()
  2. ActiveSheet.OLEObjects.Delete
  3. For Each a In Range("A:A").SpecialCells(xlCellTypeConstants)
  4.    For i = 1 To 5
  5.    With a.Offset(, i)
  6.       ActiveSheet.OLEObjects.Add ClassType:="Forms.OptionButton.1", _
  7.          Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height
  8.    End With
  9.    Next
  10. Next
  11. End Sub
複製代碼
回復 1# caichen3
學海無涯_不恥下問

TOP

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
123
返回列表 上一主題