excel 產生多個核取方塊. - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » excel 產生多個核取方塊.

返回列表下一主題上一主題發帖

excel 產生多個核取方塊.

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

1^# 跳轉到 »

發表於 2013-9-1 08:57 | 顯示全部帖子

Sub test()
For Each c In ActiveSheet.Cells.SpecialCells(2)
Set b = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
Left:=c(1, 2).Left, Top:=c.Top, Width:=c.Width, Height:=c.Height)
b.Object.Caption = c.Value
Next
End Sub

複製代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2013-9-5 20:44 | 顯示全部帖子

若你想用LinkedCell屬性計算，那就是表單工具的核取方塊了，可改成這樣：(例如LinkedCell放在m欄)

Sub test()
For Each c In ActiveSheet.Cells.SpecialCells(2)
Set b = ActiveSheet.CheckBoxes.Add(c(1, 2).Left, c.Top, c.Width, c.Height)
b.Characters.Text = c.Value
i = i + 1
b.LinkedCell = Cells(i, 13).Address
Next
End Sub

複製代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2013-9-5 20:52 | 顯示全部帖子

回復 9# oobird

結果如圖：

靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。

返回列表下一主題上一主題