Chuyển Custom Format thành giá trị

[ndu96081631]

- Giả sử cell A1 tôi gõ số 15
- Trong Custom Format tôi định dạng cho A1 là # ºC ---> Đồng nghĩa tôi nhìn thấy trên cell A1 là 15 ºC nhưng trên thanh Formula vẩn là số 15
Vấn đề đặt ra ở đây là dùng code gì để tôi nhận được tại cell B1 giá trị 15 ºC ---> Đồng nghĩa tại B1 giá trị nhìn thấy trên cell lẩn trên thanh Formula là như nhau
Nói tóm lại: Tôi muốn dùng code gì đó để chuyển cái tôi nhìn thấy được tại A1 thành giá trị thật tại B1
Xin được trợ giúp!
Cãm ơn

 

[Mr Okebab]

- Giả sử cell A1 tôi gõ số 15
- Trong Custom Format tôi định dạng cho A1 là # ºC ---> Đồng nghĩa tôi nhìn thấy trên cell A1 là 15 ºC nhưng trên thanh Formula vẩn là số 15
Vấn đề đặt ra ở đây là dùng code gì để tôi nhận được tại cell B1 giá trị 15 ºC ---> Đồng nghĩa tại B1 giá trị nhìn thấy trên cell lẩn trên thanh Formula là như nhau
Nói tóm lại: Tôi muốn dùng code gì đó để chuyển cái tôi nhìn thấy được tại A1 thành giá trị thật tại B1
Xin được trợ giúp!
Cãm ơn

Chắc chỉ dựa vào Numberformat:

    Range("A1").NumberFormat = "# ºC"
    Range("A2").NumberFormat = "# ""d"""
    Range("A3").NumberFormat = """Ngày th? ""#"
    Range("A4").NumberFormat = """On"";""On"";""Off"""

Tuy nhiên cũng hơi phức tạp :

1. Một số ký tự lại phải convert ra NonUnicode
2. Việc format không cố định : Ở đầu, ở cuối, ở giữa, xen kẽ.

Thân!

 

[ndu96081631]

Chắc chỉ dựa vào Numberformat:

    Range("A1").NumberFormat = "# ºC"
    Range("A2").NumberFormat = "# ""d"""
    Range("A3").NumberFormat = """Ngày th? ""#"
    Range("A4").NumberFormat = """On"";""On"";""Off"""

Tuy nhiên cũng hơi phức tạp :

1. Một số ký tự lại phải convert ra NonUnicode
2. Việc format không cố định : Ở đầu, ở cuối, ở giữa, xen kẽ.

Thân!

Bạn ơi!
Tôi cần lấy ra cái Custom Format đang có sẳn chứ không cần Format nó

 

[voda]

Bạn thử dùng đoạn code sau:

Strformat = Range("A1").NumberFormat
Cells(1, 5) = Range("A1") & Right(Strformat, Len(Strformat) - 1)

Có thể đặt điều kiện ký tự # đứng trước hoặc sau để tìm cách viết tổng quát cho nhiều trường hợp.

 

[ndu96081631]

Ah... Hình như Text Property làm được điều này thì phải
Đại khái:

Cells(1, 5) = Range("A1").Text

Kiểm tra chưa thấy chổ sai!
Thầy Voda có ý kiến gì không?

 

[voda]

Nguyên văn bởi ndu96081631
Cells(1,5) = Range("A1").Text

Thật đơn giản mà hiệu quả.

 

[thanhlanh]

- Giả sử cell A1 tôi gõ số 15
- Trong Custom Format tôi định dạng cho A1 là # ºC ---> Đồng nghĩa tôi nhìn thấy trên cell A1 là 15 ºC nhưng trên thanh Formula vẩn là số 15
Vấn đề đặt ra ở đây là dùng code gì để tôi nhận được tại cell B1 giá trị 15 ºC ---> Đồng nghĩa tại B1 giá trị nhìn thấy trên cell lẩn trên thanh Formula là như nhau
Nói tóm lại: Tôi muốn dùng code gì đó để chuyển cái tôi nhìn thấy được tại A1 thành giá trị thật tại B1
Xin được trợ giúp!
Cãm ơn

Làm sao gõ được cái màu đỏ # ºC trong ô type của Custom Format vậy bạn?

 

[ndu96081631]

Làm sao gõ được cái màu đỏ # ºC trong ô type của Custom Format vậy bạn?

Gõ tổ hợp phím Alt + 0 1 7 6 (0176 gõ từ bàn phím số) sẽ ra ký tự º anh à

 

[phucanhdm]

Hiển thị là dạng text nhưng giá trị thực là number. Nhờ bác giúp em.