返回列表 上一主題 發帖

excel 產生多個核取方塊.

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



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



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

TOP

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

本帖最後由 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)

MWSnap069.jpg

TOP

回復 1# mulder_shiu
C.TopLeftCell.Row

TOP

回復 2# stillfish00


    感謝大大的幫助,今天找了一天了 囧...

TOP

        靜思自在 : 一個缺口的杯子,如果換一個角度看它,它仍然是圓的。
返回列表 上一主題