- 帖子
- 323
- 主題
- 6
- 精華
- 0
- 積分
- 313
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2k
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-6-24
- 最後登錄
- 2025-5-3
|
回復 1# rouber590324
善用 Google
https://www.mrexcel.com/forum/excel-questions/70581-custom-button-captions-standard-msgbox-not-question.html
Sub Test____________()
Dim CustomText As String
CustomText = BBmsgbox(1, vbYesNo, "AAAA", "BBBB", , "有變更", "0變更")
Select Case CustomText
Case "有變更"
Stop
Case "0變更"
Stop
Case Else
Stop
End Select
End Sub |
|
發表於 2018-1-22 19:35
| 