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

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

2^#

發表於 2016-3-17 12:28 | 只看該作者

'試試看:
'但 MsgBox 字數有限制, 一次不能裝太多!!
'能裝多少我不清楚!!
'如果裝不下, 就要分段顯示.
Private Sub Workbook_Open()
Dim xT As String
With Sheet1
For i = 2 To .UsedRange.Rows.Count + 1
      If .Cells(i, 8) = "PENDING" Then
         If ("0" < .Cells(i, 7)) And (.Cells(i, 7) < "4") Then
            xT = xT & (.Cells(i, 3) & " Still have" & .Cells(i, 7) & "days!!! PLEASE UPDATE. ") & Chr(10)
         ElseIf ((.Cells(i, 7)) < "1") Then
            xT = xT & (.Cells(i, 3) & " Still not arrive!!!!! PLEASE FOLLOW UP. ") & Chr(10)
         End If
      End If
Next i
MsgBox xT
End With
End Sub

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

3^#

發表於 2016-3-17 14:11 | 只看該作者

如果提示項目太多, 根本記不住, 用MSGBOX顯示的內容不具實用,
不如檢查出有須提示後即顯示訊息(不須全部檢查完成才提示),
只要知道必須人工檢查有資料須處理即可,
搭配條件格式亮出符合條件者, 就一目瞭然!!!

TOP

jeffrylky

小學生 Rank: 1

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

4^#

發表於 2016-3-17 14:28 | 只看該作者

回復 2# yen956

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

TOP

jeffrylky

小學生 Rank: 1

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

5^#

發表於 2016-3-17 14:35 | 只看該作者

回復 3# 准提部林

的确装不完~

谢谢你的提议~

TOP

jackyq

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

6^#

發表於 2016-3-17 14:46 | 只看該作者

大大可以用 UserForm 上面看要用 ListBox 還是 TextBox
這樣就裝的下了

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

7^#

發表於 2016-3-17 15:12 | 只看該作者

這是根據准大的建議所做的修正:
試試看:
Private Sub Workbook_Open()
Dim I As Integer
With Sheet1
For I = 2 To .UsedRange.Rows.Count + 1
      If .Cells(I, 8) = "PENDING" Then
         If ("0" < .Cells(I, 7)) And (.Cells(I, 7) < "4") Then
               .Cells(I, 3).Interior.ColorIndex = 36
         ElseIf ((.Cells(I, 7)) < "1") Then
               .Cells(I, 3).Interior.ColorIndex = 38
         End If
      End If
Next I
End With
End Sub

TOP

jeffrylky