麻辣家族討論版版 » Excel程式區 » 請問如何顯示訊息問題

返回列表下一主題上一主題發帖

請問如何顯示訊息問題

中學生 Rank: 2

帖子: 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)則會跳回第一步

這樣要怎麼寫呢?

我是寫這樣

Sub 詢問與防呆()
Dim ans As Integer
ans = MsgBox("您的表格是XXX嗎?", _
vbYesNo + vbQuestion, "您選擇了XXX表")
If ans =vbYes then
"開始分析這段我不會寫...."
End If
End Sub

複製代碼

我知道寫的不三不四...
而且東西都跑不出來也沒有辦法在按否之後跳回上一步
痾拜託各位大大教導一下麻煩了!!

樓主熱帖

收藏

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

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

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

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

中學生 Rank: 2

帖子: 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 '強制結束

就可以對他不做動作

但是

如果選擇的是"是"

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

中學生 Rank: 2

帖子: 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

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

這該怎麼做呢?

中學生 Rank: 2

帖子: 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)")

似乎是有問題的

於是我自己試到的部分為

Private Sub CommandButton1_Click()
Dim Msg, Style, Title, Response, MyString
Msg = "請問您選擇的母檔為165表嗎?"
Style = vbYesNo + vbQuestion + vbDefaultButton1
Title = "165表詢問視窗"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
Else ' User chose No.
MyString = "No" ' Perform some action.
End If
End Sub

複製代碼

但是這只是單純的詢問並無法在詢問回答"是"之後進行(處理/分析)

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

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2016-4-30 05:08 | 只看該作者

本帖最後由 luhpro 於 2016-4-30 05:12 編輯

回復 1# chaoyiho
那就比照辦理囉:

Sub 詢問與防呆()
Dim ans As Integer
ans = MsgBox("您的表格是XXX嗎?", _
vbYesNo + vbQuestion, "您選擇了XXX表")
If ans = vbYes Then
ans = MsgBox("您的表格是XXX嗎?", _
vbYesNo + vbQuestion, "您確定處理XXX表嗎? 是(Y) 否(N)")
If ans = vbNo Then Exit Sub ' 直接跳出 Sub
Else
Exit Sub
End If
' 都按確定後的處理作業
End Sub

複製代碼

靜思自在 : 閒人無樂趣，忙人無是非。

返回列表下一主題上一主題