Làm cách nào để truy xuất giá trị ô Excel trong VBA như được định dạng trong WorkSheet?

Question

Tôi cần giữ số 0 đứng đầu trong danh sách các số. Các con số được thêm vào như thế này (trong vòng một, nhưng điều này chỉ là một ví dụ sử dụng (1, 1):

Set cel = Sheet.worksh.Cells(1, 1) 
cel.ColumnWidth = 10 
cel.Value = e.Name 
cel.NumberFormat = "0000" 

đâu e.Name là số, giống như "0720" này sẽ hiển thị trên bảng chỉ. tốt, nhưng nếu tôi làm điều gì đó như thế này:

Msgbox Sheet.worksh.Cells(1, 1).Value 

tôi nhận được "720" tôi cần nó để được "0720", tôi biết tôi có thể kiểm tra bằng Len() và thêm số không như vậy, nhưng tôi đã tự hỏi. nếu có một cách tiếp cận trực tiếp hơn với đối tượng Range sẽ làm điều này cho tôi.

Answer 1

Sử dụng này:

Msgbox Format(Sheet.worksh.Cells(1,1).Value, "0000") 

Answer 2

Bạn đang nhầm lẫn một số với biểu diễn văn bản của nó.

Bạn muốn thuộc tính .Text, không phải .Value, nhưng sau đó, you might have problems with it.

Answer 3

Thậm chí tốt hơn, nếu bạn không chắc chắn những gì định dạng là:

MsgBox Format (Sheet.worksh.Cells (1,1) .Value, Sheet. worksh.Cells (1,1) .NumberFormat)