- 帖子
- 254
- 主題
- 6
- 精華
- 0
- 積分
- 310
- 點名
- 0
- 作業系統
- W10
- 軟體版本
- Excel 2016
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2019-6-16
- 最後登錄
- 2025-6-21
|
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 |
|