- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 41
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-2-16
               
|
回復 10# rick4615 - Sub ex()
- Dim Sht As Worksheet
- Set Sht = 工作表1
- With Sht.OLEObjects("ListBox1").Object '清單方塊
- For i = 0 To .ListCount - 1 '清單
- MyList = .List(i)
- With Sht.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
- DisplayAsIcon:=False, Link:=False, Left:=0 + 93.5 * i, Top:=126, Width:=90, Height:=22.5)
- .Object.Caption = MyList '以清單為CheckBox標題
- End With
- Next
- End With
- End Sub
|
|
發表於 2013-8-12 23:10
| 
發表於 2013-8-13 13:55
| 