標題: [發問] MSGBOX問題請教 [打印本頁]

---

作者: rouber590324    時間: 2018-1-22 12:00     標題: MSGBOX問題請教

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

---

作者: jackyq    時間: 2018-1-22 19:35

回復 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    時間: 2018-1-23 13:21

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

---

作者: jackyq    時間: 2018-1-23 14:07

回復 3# rouber590324

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

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

放 module 裡面

---

作者: rouber590324    時間: 2018-1-24 13:55

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)