返回列表 上一主題 發帖

[發問] MSGBOX問題請教

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-1-22 12:00 | 只看該作者

[發問] MSGBOX問題請教

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

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
2#
發表於 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

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2018-1-23 13:21 | 只看該作者
DEAR  jackyq 大大
1.執行後出現BUG如下
1.1 停於  BBMSGBOX
1.2 秀出  沒有定義此 SUB 或 FUNCTION
2.煩不吝賜教  THANKS*10000
羅

TOP

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
4#
發表於 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 裡面

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
5#
發表於 2018-1-24 13:55 | 只看該作者
DEAR  jackyq 大大
  100%符合需求   THANKS*10000
羅

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題