Hỏi: Làm sao để MsgBox hiện thị số theo kiểu có dấu phân cách?

[vungoc]

Tôi làm một MsgBox, để đọc một cell trong bảng tính excel có giá trị là số định dạng theo kiểu: .NumberFormat = "#,##0".

Xin hỏi làm cách nào để format cho MsgBox này hiển thị giá trị theo kiểu số là "#,##0" ?

MsgBoxUni VNI("ÑAÕ TRÍCH XONG LEÄNH CHUYEÅN TIEÀN:") & Chr(13) & VNI("Soá tieàn: ") & S04.Range("G1001") & Chr(13) & VNI("Soá ngöôøi: ") & S04.Range("E1002") & VNI(" Ngöôøi") & Chr(13) & VNI("Ñaõ ñaùnh soá leänh chuyeån tieàn, xem laïi tröôùc khi in!"), vbInformation, VNI("Thoâng baùo")

Ghi chú: Tại cell S04.Range("G1001") giá trị là số đã định dạng theo kiểu: "#,##0"

Xin cảm ơn các bạn!

 

[ThuNghi]

Tôi làm một MsgBox, để đọc một cell trong bảng tính excel có giá trị là số định dạng theo kiểu: .NumberFormat = "#,##0".

Xin hỏi làm cách nào để format cho MsgBox này hiển thị giá trị theo kiểu số là "#,##0" ?

MsgBoxUni VNI("ÑAÕ TRÍCH XONG LEÄNH CHUYEÅN TIEÀN:") & Chr(13) & VNI("Soá tieàn: ") & S04.Range("G1001") & Chr(13) & VNI("Soá ngöôøi: ") & S04.Range("E1002") & VNI(" Ngöôøi") & Chr(13) & VNI("Ñaõ ñaùnh soá leänh chuyeån tieàn, xem laïi tröôùc khi in!"), vbInformation, VNI("Thoâng baùo")

Ghi chú: Tại cell S04.Range("G1001") giá trị là số đã định dạng theo kiểu: "#,##0"

Xin cảm ơn các bạn!

Thử cách này có được không, do chưa biết cú pháp MsgBoxUni VNI.
S04.Range("G1001")
Thành
Format(S04.Range("G1001") , "#,##0")

 

[sealand]

Mình muốn tham gia cho đủ, hàm hay lệnh Msgbox đều hiển thị Promt dạng chuỗi nên đổi số thành chuỗi số có phân cách ta còn sử dụng tốt 2 hàm của worksheet là Text(), Fixed()

 

[ndu96081631]

Thử cách này có được không, do chưa biết cú pháp MsgBoxUni VNI.
S04.Range("G1001")
Thành
Format(S04.Range("G1001") , "#,##0")

Vì Range("G1001") đã được định dạng trước, nên thay vì dùng thêm Format vào code ta có thể dùng thế này:
Thay S04.Range("G1001") thành S04.Range("G1001").Text
Vậy gọn hơn

 

[tedaynui]

Vì Range("G1001") đã được định dạng trước, nên thay vì dùng thêm Format vào code ta có thể dùng thế này:
Thay S04.Range("G1001") thành S04.Range("G1001").Text
Vậy gọn hơn

Đúng như anh nhận xét nhưng theo em nó cũng không gọn hơn bao nhiêu. Tuy nhiên trong codes nên dùng Format được kết quả luôn đúng. Em bị hoài, khổ lắm nếu không lường trước, viết cho mình dùng thì OK nhưng đưa người khác dùng, họ copy tới copy lui, move tới move lui... mất hết định dạng, hic

TDN

 

[duylanh]

em thể hiện mgsbox="co loi" ;khi chạy nó không báo lỗi,nhưng em chả thấy nó đâu trên bảng tính hết.các anh chị giúp em với