標題: [發問] MSGBOX文字分段問題請教 [打印本頁]

---

作者: rouber590324    時間: 2017-7-12 13:16     標題: MSGBOX文字分段問題請教

DEAR  ALL大大
1.MSGBOX文字分段問題請教
1.1如何讓圖一分3列秀出於MSGBOX. 煩不吝賜教  THANKS   

圖一
1.找不到\\Pcbfs04\SYS\APS\cfs-2w-4w-gerber\s17294-co.txt
2.請檢查您的拼字與路徑
3.若此為2W料號，請忽略此訊息

---

作者: rouber590324    時間: 2017-7-13 08:41

DEAR ALL
已找到答案-用& Chr(10) &分列

MsgBox "1.找不到\\Pcbfs04\SYS\APS\cfs-2w-4w-gerber\" & Sheet10.Range("b39") & "-4-co.txt" & Chr(10) & "2.請檢查您的拼字與路徑" & Chr(10) & "3.若此為2W料號，請忽略此訊息"

---

作者: GBKEE    時間: 2017-7-13 08:42

本帖最後由 GBKEE 於 2017-7-13 08:44 編輯

回復 1# rouber590324

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim St(1 To 4)
   
4.     MsgBox "1.找不到\\Pcbfs04\SYS\APS\cfs-2w-4w-gerber\s17294-co.txt" & vbLf & "2.請檢查您的拼字與路徑" & vbLf & "3.若此為2W料號，請忽略此訊息"
   
5. 
   
6.     St(1) = "1.找不到\\Pcbfs04\SYS\APS\cfs-2w-4w-gerber\s17294-co.txt"
   
7.     St(2) = "2.請檢查您的拼字與路徑"
   
8.     St(3) = "3.若此為2W料號，請忽略此訊息"
   
9.     MsgBox Join(St, vbLf)
   
10.    
    
11.      MsgBox Join(St, Chr(10))
    
12. End Sub

複製代碼

1. Miscellaneous 常數
   
2. 以下的常數是由 Visual Basic for Applications 中的型態程式庫所定義，可使用於程式碼中的任何地方，以用來代替實際值：
   
3. 常數 等於 說明
   
4. vbCrLf Chr(13) + Chr(10) 結合換行字元與復位字元。
   
5. vbCr Chr(13) 復位字元。
   
6. vbLf Chr(10) 換行字元。
   
7. vbNewLine Chr(13) + Chr(10) 作業平台所指定的新換行字元，其中任何一個皆適用目前的作業平台。
   
8. vbNullChar Chr(0) 字元的值為 0。
   
9. vbNullString 字串的值為 0。 通常用來呼叫外部程序；與長度為零的字串("")不一樣。
   
10. vbObjectError -2147221504 使用者定義的錯誤號碼應該比此值大。例如：
    
11. Err.Raise Number = vbObjectError + 1000
    
12. vbTab Chr(9) 定位點字元。
    
13. vbBack Chr(8) 退格字元。
    
14. vbFormFeed Chr(12) 在 Microsoft Windows中沒有作用。
    
15. vbVerticalTab Chr(11) 在 Microsoft Windows中沒有作用

複製代碼

---

作者: rouber590324    時間: 2017-7-13 08:45

感謝GBKEE大大指導.受益良多

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)