麻辣家族討論版版 » Excel程式區 » 如何把多个MsgBox的讯息放在一个对话框？

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

[發問] 如何把多个MsgBox的讯息放在一个对话框？

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: Win 7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2016-3-17
最後登錄: 2016-3-17

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-3-17 11:17 | 顯示全部帖子

[發問] 如何把多个MsgBox的讯息放在一个对话框？

Private Sub Workbook_Open()
For i = 2 To Sheet1.UsedRange.Rows.Count
If ("0" < Sheet1.Cells(i, 7).Value) And (Sheet1.Cells(i, 7).Value < "4") And Cells(i, 8).Value = "PENDING" Then
MsgBox (Sheet1.Cells(i, 3).Value & "Still have" & Sheet1.Cells(i, 7).Value & "days!!! PLEASE UPDATE. ")
ElseIf ((Sheet1.Cells(i, 7).Value) < "1") And Cells(i, 8).Value = "PENDING" Then
MsgBox (Sheet1.Cells(i, 3).Value & "Still not arrive!!!!! PLEASE FOLLOW UP. ")
End If
Next i
End Sub

複製代碼

这个vba可以在打开excel时通知我收单日期到期，可是每次一打开excel就有很多对话框，请问有什么方法能让所有对话框的信息都放在一个对话框吗？

Untitled.png (18.23 KB)

收藏

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: Win 7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2016-3-17
最後登錄: 2016-3-17

2^#

發表於 2016-3-17 14:28 | 顯示全部帖子

回復 2# yen956

成功了！非常感谢~虽然讯息太多显示不完~ :)

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: Win 7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2016-3-17
最後登錄: 2016-3-17

3^#

發表於 2016-3-17 14:35 | 顯示全部帖子

回復 3# 准提部林

的确装不完~

谢谢你的提议~

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: Win 7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2016-3-17
最後登錄: 2016-3-17

4^#

發表於 2016-3-17 15:30 | 顯示全部帖子

回復 6# jackyq

谢谢这位大大的提议~在下菜鸟一只~目前还不会Userform~不过在下会尝试的~感谢~XD

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: Win 7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2016-3-17
最後登錄: 2016-3-17

5^#

發表於 2016-3-17 15:40 | 顯示全部帖子

本帖最後由 jeffrylky 於 2016-3-17 15:43 編輯

回復 7# yen956

非常感谢这位大大

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: Win 7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2016-3-17
最後登錄: 2016-3-17

6^#

發表於 2016-3-17 15:45 | 顯示全部帖子

回復 7# yen956

非常感谢这位大大提供的vba~不然在下不知道需要研究多久了~有了大大的vba倒是不用到处找了~直接从大大的vba中学习~

靜思自在 : 君子為目標，小人為目的。

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