- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 120
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-5-18
               
|
回復 17# caichen3
你的程式碼來看
在b列插入新的一列,與新增控制項有何關係?
再猜一次看看,可能是在下移I1列的位置插入控制項吧
再無法描述清楚你的需求,可能就無能為力了- 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)
- a.Offset([I1]).EntireRow.Insert
- For i = 1 To 5
- mystr = IIf(i = 1, "非常不重要", IIf(i = 2, "不重要", IIf(i = 3, "普通", IIf(i = 4, "重要", "非常重要"))))
- With a.Offset([I1], 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
- Next
- End Sub
複製代碼 |
|