- 帖子
- 559
- 主題
- 58
- 精華
- 0
- 積分
- 626
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-6-14
|
回復 13# caichen3 - 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.Top = .Top + 2 '按鈕在每個儲存格的距離top的距離
- ob.Left = .Left + 10 '按鈕在每個儲存格的距離left的距離
- ob.Object.GroupName = "群組 " & n
- End With
- Next
- n = n + 1
- Next
- End Sub
|
|
發表於 2012-3-19 14:39
| 
