Xin code chuyển dữ liệu giữ nguyên định dạng kiểu text

[nncb2008]

Em có một việc như sau: Ô A1 em nhập là '10 (là kiểu text); Em viết code

Range("B1").Value=Range("A1").Value

, kết quả B1 là số 10. Nay em muốn B1 cũng là '10 thì làm thế nào nhỉ (Giữ nguyên định dạng General của ô B1)? Các bác giúp em nhé.

 

[Hai Lúa Miền Tây]

Em có một việc như sau: Ô A1 em nhập là '10 (là kiểu text); Em viết code

Range("B1").Value=Range("A1").Value

, kết quả B1 là số 10. Nay em muốn B1 cũng là '10 thì làm thế nào nhỉ (Giữ nguyên định dạng General của ô B1)? Các bác giúp em nhé.

Có lẻ là bạn bỏ chữ .Value đi

Range("B1") = Range("A1")

 

[nncb2008]

Có lẻ là bạn bỏ chữ .Value đi

Range("B1") = Range("A1")

Không có kết quả gì.

 

[ptlong04x1]

Không có kết quả gì.

Cái này được này :

[A1].Copy [B1]

 

[khoavu87]

hihii ko đc rùi ábc ơi

Có lẻ là bạn bỏ chữ .Value đi

Range("B1") = Range("A1")

Cái này của anh chỉ đc khi chạy code lần dầu thui nhưng khi người dùng kích vào cell đó nó sẽ chuyển thành--->number---->không đc anh àh.
cái này em nghĩ nên viết code copy====>paste
Bạn thử xem cái này xem sao?mình dùng copy
'////
Sub copy()
Range("a1").copy Range("e5")
End Sub

 

[nncb2008]

Cảm ơn các bác. Khi copy thì nó mang theo định dạng luôn, cái này em không muốn. Copy và Paste value (Hoặc Copy, paste và clearformat) thì nó cũng mất luôn dấu nháy đơn. Khó nhỉ.

 

[Hai Lúa Miền Tây]

Cảm ơn các bác. Khi copy thì nó mang theo định dạng luôn, cái này em không muốn. Copy và Paste value (Hoặc Copy, paste và clearformat) thì nó cũng mất luôn dấu nháy đơn. Khó nhỉ.

Vậy bạn thử thêm dấu "'" vào đằng trước xem.

Range("B1").Value = "'" & Range("A1")

 

[khoavu87]

rất hay bác àh.lại thêm một cái để học hỏi rùi

 

[nncb2008]

Vậy bạn thử thêm dấu "'" vào đằng trước xem.

Đương nhiên như thế thì được, nhưng khi

Range("B1:B10").Value = "'" & Range("A1:A10").Value

thì không ổn.

 

[khoavu87]

thì bạn hỏi có vậy thui cơ mà.nên bác ấy mới làm vậy chứ.nếu ko theo mình cứ sài:

Đương nhiên như thế thì được, nhưng khi

Range("B1:B10").Value = "'" & Range("A1:A10").Value

thì không ổn.

Copy pass như mình và anh ptlong cho xong.
nếu không ưng ý đợi bác domfootwear nghiên cứu tiếp.

 

[ndu96081631]

Đương nhiên như thế thì được, nhưng khi

Range("B1:B10").Value = "'" & Range("A1:A10").Value

thì không ổn.

Bài toán Convert Text to Number rất đơn giản, nhưng làm ngược lại thì chẳng dể nhai tí nào
Bạn tham khảo tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?t=16616
Vấn đề không phải là làm không được mà quan trọng là làm thế nào để có 1 thuật toán ngăn gọn và nhanh nhất