返回列表 上一主題 發帖

請問如何顯示訊息問題

chaoyiho

帖子
51 
主題
9 
精華
0 
積分
65 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
20 
註冊時間
2016-3-30 
最後登錄
2016-7-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-4-29 09:26 | 只看該作者

請問如何顯示訊息問題

請問各位前輩
如果我今天要在分析東西之前先顯示防呆
如:您的表格是否為XXX  是(Y) 否(N)

如果選擇否(N)則會跳回上一個處理程序或取消這個步驟

如顯示"是(Y)"則會進一步詢問:您確定處理XXX表嗎? 是(Y) 否(N)
按下是(Y)就會開始進行處理
按下否(N)則會跳回第一步

這樣要怎麼寫呢?

我是寫這樣
  1. Sub 詢問與防呆()

  3. Dim ans As Integer
  4. ans = MsgBox("您的表格是XXX嗎?", _
  5. vbYesNo + vbQuestion, "您選擇了XXX表")

  7. If ans =vbYes then
  8.    "開始分析這段我不會寫...."
  9. End If
  10. End Sub
複製代碼
我知道寫的不三不四...
而且東西都跑不出來 也沒有辦法在按否之後跳回上一步
痾 拜託各位大大教導一下 麻煩了!!
收藏 分享

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
15  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-12 
2#
發表於 2016-4-30 05:08 | 只看該作者
本帖最後由 luhpro 於 2016-4-30 05:12 編輯

回復 1# chaoyiho
那就比照辦理囉:
  1. Sub 詢問與防呆()

  3.   Dim ans As Integer
  4.   ans = MsgBox("您的表格是XXX嗎?", _
  5.   vbYesNo + vbQuestion, "您選擇了XXX表")

  7.   If ans = vbYes Then
  8.     ans = MsgBox("您的表格是XXX嗎?", _
  9.     vbYesNo + vbQuestion, "您確定處理XXX表嗎? 是(Y) 否(N)")
  10.     If ans = vbNo Then Exit Sub ' 直接跳出 Sub
  11.   Else
  12.     Exit Sub
  13.   End If
  14.   ' 都按確定後的處理作業
  15. End Sub
複製代碼

TOP

chaoyiho

帖子
51 
主題
9 
精華
0 
積分
65 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
20 
註冊時間
2016-3-30 
最後登錄
2016-7-21 
3#
發表於 2016-5-3 09:09 | 只看該作者
回復 2# luhpro

前輩抱歉 這樣的語法似乎陳述式是錯誤的

ans = MsgBox ("您的表格是XXX嗎?" _

vbYesNo vbQuestion, "您選擇了XXX表")

與

ans = MsgBox("您的表格是XXX嗎?", _

  vbYesNo + vbQuestion, "您確定處理XXX表嗎? 是(Y) 否(N)")

似乎是有問題的

於是我自己試到的部分為
  1. Private Sub CommandButton1_Click()
  2. Dim Msg, Style, Title, Response, MyString
  3. Msg = "請問您選擇的母檔為165表嗎?"
  4. Style = vbYesNo + vbQuestion + vbDefaultButton1
  5. Title = "165表詢問視窗"

  7. Response = MsgBox(Msg, Style, Title)
  8. If Response = vbYes Then    ' User chose Yes.
  9.     MyString = "Yes"    ' Perform some action.
  10. Else    ' User chose No.
  11.     MyString = "No"    ' Perform some action.
  12. End If

  14. End Sub
複製代碼
但是這只是單純的詢問 並無法在詢問回答"是"之後進行(處理/分析)

請問前輩  我該如何做修改呢?

TOP

chaoyiho

帖子
51 
主題
9 
精華
0 
積分
65 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
20 
註冊時間
2016-3-30 
最後登錄
2016-7-21 
4#
發表於 2016-5-3 09:20 | 只看該作者
回復  luhpro

前輩抱歉 這樣的語法似乎陳述式是錯誤的

ans = MsgBox ("您的表格是XXX嗎?" _

vb ...
chaoyiho 發表於 2016-5-3 09:09


抱歉~~超過三分鐘不能編輯 只能用回文的
"是"之後：進行處理與分析
"否"之後：回到上一步

這該怎麼做呢?

TOP

chaoyiho

帖子
51 
主題
9 
精華
0 
積分
65 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
20 
註冊時間
2016-3-30 
最後登錄
2016-7-21 
5#
發表於 2016-5-3 12:23 | 只看該作者
回復 4# chaoyiho

在選擇否上面只需要加上

Exit Sub   '強制結束

就可以對他不做動作

但是

如果選擇的是"是"

那該怎麼讓他判讀是否為要分析的固定格試表單呢?
請教前輩

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
15  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-12 
6#
發表於 2016-5-6 23:35 | 只看該作者
本帖最後由 luhpro 於 2016-5-6 23:37 編輯
回復  luhpro
前輩抱歉 這樣的語法似乎陳述式是錯誤的
ans = MsgBox ("您的表格是XXX嗎?" _
vb ...
chaoyiho 發表於 2016-5-3 09:09

咦?
我執行起來沒有問題啊?
基本上我丟上來的程式碼都會實際執行確認過可行,
除非我有特別註明未經實測過,
或是程式太簡單 亦或是 時間來不及側.

回復  chaoyiho
...
但是
如果選擇的是"是"
那該怎麼讓他判讀是否為要分析的固定格試表單呢?
chaoyiho 發表於 2016-5-3 12:23


我無法憑空想像你所謂的 "判讀" 是用甚麼條件做依據,
判讀的標的又是甚麼.

你要不要附上檔案看看,
可以先把隱私或個資 資料酌予遮罩,
或是你能敘述得更完整詳細一些.

TOP

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題