- ©«¤l
- 318
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 308
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- 2k
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-6-24
- ³Ì«áµn¿ý
- 2024-1-19
|
¦^´_ 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 |
|