如何在核取方塊複選後在同一欄得到複選的值? - Excel程式區

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

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

1^# 跳轉到 »

發表於 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