Không thêm khoảng trắng được vào chuỗi kí tự (1 người xem)

[chibi]

Chào các anh/chị trên diễn đàn.
Tôi có vấn đề trong file đính kèm: Ô A1 có nội dung là "008", tôi có 2 đoạn code

 [B1] = "_" & [A1]

 [B1] = " " & [A1]

Cho 2 kết quả rất khác nhau: _008 và 8
Tôi muốn đoạn code 2 trả về " 008" thì làm thế nào nhỉ?
Xin cảm ơn.
Tôi hết dung lượng Upload, các anh/chị tải file tại đây

 

[logica]

Chào các anh/chị trên diễn đàn.
Tôi có vấn đề trong file đính kèm: Ô A1 có nội dung là "008", tôi có 2 đoạn code

 [B1] = "_" & [A1]

 [B1] = " " & [A1]

Cho 2 kết quả rất khác nhau: _008 và 8
Tôi muốn đoạn code 2 trả về " 008" thì làm thế nào nhỉ?
Xin cảm ơn.

Vậy 008 bác cần là text được không?Nếu vậy thì:
=TEXT(A1;"000")
--------
sorry vì em quá ẩu không xem file!
Nếu vậy thì em làm vầy được không?
[B1].FormulaR1C1 = "=TEXT(RC[-1],""000"")"

 

[ndu96081631]

Chào các anh/chị trên diễn đàn.
Tôi có vấn đề trong file đính kèm: Ô A1 có nội dung là "008", tôi có 2 đoạn code

 [B1] = "_" & [A1]

 [B1] = " " & [A1]

Cho 2 kết quả rất khác nhau: _008 và 8
Tôi muốn đoạn code 2 trả về " 008" thì làm thế nào nhỉ?
Xin cảm ơn.
Tôi hết dung lượng Upload, các anh/chị tải file tại đây

Cell A1 nếu bạn Format dạng TEXT thì công thức sẽ không có vấn đề

 

[rosy84]

Bác thử cái này xem thế nào nhé.

 

[chibi]

Cell A1 nếu bạn Format dạng TEXT thì công thức sẽ không có vấn đề

Đương nhiên là A1 được định dạng kiểu Text (Có trong file)

 

[ThuNghi]

Mình đã chạy và cho kết quả tương tự

Bác thêm câu format vào.

Sub chuyen1()
  [B1].NumberFormat = "@"
  [B1] = " " & [A1]
End Sub

 

[ndu96081631]

Đương nhiên là A1 được định dạng kiểu Text (Có trong file)

Bạn Format B1 dang Text trước chứ!

Sub chuyen1()
  With Range("B1")
    .NumberFormat = "@"
    .Value = " " & [A1]
  End With
End Sub

 

[lxthanh8x]

thêm dấu phẩy trên ( ' ) vào trước dấu cách
[B1] = "' " & [A1]