[發問] 如何把多&#20010;MsgBox的&#35759;息放在一&#20010;&#23545;&#35805;框？

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

10^#

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

回復 7# yen956

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

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

9^#

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

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

回復 7# yen956

非常感谢这位大大

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

8^#

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

回復 6# jackyq

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

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

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
這樣就裝的下了

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

5^#

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

回復 3# 准提部林

的确装不完~

谢谢你的提议~

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

4^#

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

回復 2# yen956

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

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

3^#

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

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

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