麻辣家族討論版版 » 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: 2

帖子: 51
主題: 9
精華: 0
積分: 65
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 20
註冊時間: 2016-3-30
最後登錄: 2016-7-21

2^#

發表於 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: 2

帖子: 51
主題: 9
精華: 0
積分: 65
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 20
註冊時間: 2016-3-30
最後登錄: 2016-7-21

3^#

發表於 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

4^#

發表於 2016-5-3 12:23 | 顯示全部帖子

回復 4# chaoyiho

在選擇否上面只需要加上

Exit Sub '強制結束

就可以對他不做動作

但是

如果選擇的是"是"

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

靜思自在 : 忘功不忘過，忘怨不忘恩。

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