返回列表 上一主題 發帖

請問checkbox多重選擇的問題-1

eric6211

帖子
6 
主題
2 
精華
0 
積分
31 
點名
0  
作業系統
XP 
軟體版本
SP3 
閱讀權限
10 
註冊時間
2011-6-28 
最後登錄
2023-5-9 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2021-5-28 00:01 | 只看該作者

請問checkbox多重選擇的問題-1

範例2.rar (19.01 KB)
謝謝軒云熊大大的回復
因為權限不夠，所以無法回覆謝謝
請問checkbox多重選擇的問題

http://forum.twbts.com/viewthrea ... mp;page=1#pid115198
K = K + 1
mystr = IIf(mystr = "", K & "." & Ct.Caption, mystr & "。" & vbCr & K & "." & Ct.Caption)

測試是沒問題
但
如果勾選checkbox後要有序號
如
1.日本
2.美國
如果選
日本及韓國
就變成
1.日本
3.韓國
變成跳號了
請問要如何順號呢

謝謝
收藏 分享

jeffrey628litw

帖子
228 
主題
62 
精華
0 
積分
364 
點名
20  
作業系統
Win 10 
軟體版本
Office 2007 & 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-5 
最後登錄
2024-9-16 

2011兔年全勤獎章
3#
發表於 2021-6-1 14:55 | 只看該作者
本帖最後由 jeffrey628litw 於 2021-6-1 14:56 編輯

回復 1# eric6211


     版大您好，這是我在網路找到的範例，給您做參考。




VBA - 合計買商品金額的表單.rar (20.28 KB)

TOP

軒云熊

帖子
254 
主題
6 
精華
0 
積分
310 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2024-9-23 
2#
發表於 2021-5-28 20:31 | 只看該作者
本帖最後由 軒云熊 於 2021-5-28 20:33 編輯

回復 1# eric6211

    改這樣試試看有沒有問題 感謝

    If TypeName(Ct) = "CheckBox" Then
        If Ct.Value = True Then
            k = k + 1
            mystr = IIf(mystr = "", k & "." & _
            Ct.Caption, mystr & "。" & vbCr & k & "." & Ct.Caption)
        End If
    End If

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題