[發問] MSGBOX問題請教

rouber590324

DEAR ALL 大大
1. MSGBOX問題請教
  1.1 MSGBOX  原秀出  "是"   "否" 之字 有無辦法變更為   "有變更"   "無變更"   
2.煩不吝賜教   THANKS*10000

jackyq

回復 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

rouber590324

DEAR  jackyq 大大
1.執行後出現BUG如下
1.1 停於  BBMSGBOX
1.2 秀出  沒有定義此 SUB 或 FUNCTION
2.煩不吝賜教  THANKS*10000

jackyq

回復 3# rouber590324

https://www.mrexcel.com/forum/excel-questions/70581-custom-button-captions-standard-msgbox-not-question.html

上面網址裡的那一長串 code 要拷貝過來呀

放 module 裡面

rouber590324

DEAR  jackyq 大大
  100%符合需求   THANKS*10000