標題: [發問] 如何在核取方塊 複選後在同一欄得到複選的值? [打印本頁]

---

作者: kkooo15    時間: 2019-8-31 00:20     標題: 如何在核取方塊 複選後在同一欄得到複選的值?

[attach]31207[/attach]

[attach]31208[/attach]

如何在核取方塊 複選後在同一欄得到複選的值?

---

作者: 准提部林    時間: 2019-8-31 11:25

將所有的CheckBox都指定這個程式(取消其儲存格的連結),
後續要增加時, 複製其中一個, 再更改文字即可!
Sub 合併()
Dim Chk As CheckBox, TT$
For Each Chk In ActiveSheet.CheckBoxes
    If Chk.Value = 1 Then TT = TT & "," & Chk.Characters.Text
Next
[D3] = Mid(TT, 2)
End Sub

[attach]31209[/attach]


=======================

---

作者: kkooo15    時間: 2019-9-1 03:16

本帖最後由 kkooo15 於 2019-9-1 03:18 編輯

回復 2# 准提部林
謝謝大大的幫忙!
請問一下，如果第二組是單選題

要怎麼做出來呢?
我想了很久...
決定還是來問"准提部林"老師幫忙
[attach]31212[/attach]
[attach]31213[/attach]

---

作者: 准提部林    時間: 2019-9-1 12:19

本帖最後由 准提部林 於 2019-9-1 12:22 編輯

回復 3# kkooo15

使用工作表物件比較麻煩:
[attach]31214[/attach]

[attach]31215[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)