excel 產生多個核取方塊.

1 23

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

sworder12

小學生 Rank: 1

帖子: 16
主題: 4
精華: 0
積分: 28
點名: 0
作業系統: Win7
軟體版本: office 2003
閱讀權限: 10
註冊時間: 2013-8-31
最後登錄: 2019-5-17

21^# 跳轉到 »

發表於 2013-9-10 12:09 | 只看該作者

最後跳出小視窗顯示一個「 0 」請附檔看看

另外在請教一個問題,如果如圖的格式跑掉,該往哪邊檢查？ ...
sworder12 發表於 2013-9-10 12:05

忘記補充...滾輪往下移之後,核取方塊會漸漸往上跑....

TOP

mulder_shiu

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: Win7
軟體版本: SP1
閱讀權限: 10
性別: 男
註冊時間: 2013-9-10
最後登錄: 2013-10-20

22^#

發表於 2013-9-10 19:24 | 只看該作者

請問如何取得核取方塊的行列位置呢?

本帖最後由 mulder_shiu 於 2013-9-10 19:26 編輯

Sub test()
S = 0
For Each C In ActiveSheet.CheckBoxes '表單的控制項(核取方塊)
S = S + IIf(C.Value = 1, 1, 0)
If C.Value = 1 Then
MsgBox C.Cells.Row '當條件成立時,取得cells的行數和列數
End If
Next
MsgBox S
End sub

請問大大ActiveSheet.CheckBoxes 當條件式成立時,我想取得當下cells的行數和列數??

MWSnap069.jpg (18.31 KB)