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

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

kkooo15

　暱稱: 新手

中學生 Rank: 2

帖子: 123
主題: 37
精華: 0
積分: 177
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2011-11-9
最後登錄: 2024-3-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-8-31 00:20 | 只看該作者

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

ZA0004038.rar (10.39 KB)

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

樓主熱帖

excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

2^#

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

Xl0000515.rar (8.93 KB)

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

TOP

kkooo15