- 帖子
- 552
- 主題
- 3
- 精華
- 0
- 積分
- 578
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-2-8
- 最後登錄
- 2024-7-9
  
|
2#
發表於 2015-11-12 14:22
| 只看該作者
本帖最後由 lpk187 於 2015-11-12 14:28 編輯
回復 1# RCRG
Msgbox的最大字元多少，不知道，不過依VBE說明:最大長度大約是1024個字元，由使用字元的寬度決定。如果 prompt 超過一行，您可以在每一行之間用復位字元(Chr(13))、換行字元 (Chr(10)) 或是復位字元與換行字元的組合 (Chr(13) & Chr(10)) 來做區隔。
是不是換行後可以增加，不確定。請自行參考VBE說明- Sub 按鈕1_Click()
- Dim Rng As Range
- With Sheets("B")
- For Each Rng In .Range("C2:CC1000")
- If Rng <> "" Then
- Set da = Sheets("A").Range("c3:c79").Find(Rng.Value, LookAt:=xlWhole, SearchDirection:=2)
- If da Is Nothing Then
- aa = aa & Rng.Value & ","
- Else
- Set da = Nothing
- End If
- End If
- Next
- aa = Left(aa, Len(aa) - 1)
- MsgBox aa
- End With
- End Sub
|
|
