trong cùng 1 ô nhưng 2 định dạng khác nhau

[komono]

mấy anh giúp giùm
trong 1 ô em cần tới 2 định dạng khác nhau
nên kẻ ô text box
anh chị có cách nào để ô text box xuất hiện dữ liệu của ô A3 được không?

 

[zztantaibazz]

mấy anh giúp giùm
trong 1 ô em cần tới 2 định dạng khác nhau
nên kẻ ô text box
anh chị có cách nào để ô text box xuất hiện dữ liệu của ô A3 được không?

Bạn cho 1 cái ví dụ muốn gì luôn đi, lúc đó mọi người mới hiểu hết những gì bạn muốn

 

[komono]

trong ô a1 (số 12345/qđ ngày tháng năm)
1 ô trong excel không định dạng khác nhau dc
nên kẻ 1 ô text box là số quyết định = địa chỉ A3

 

[Quang_Hải]

trong ô a1 (số 12345/qđ ngày tháng năm)
1 ô trong excel không định dạng khác nhau dc
nên kẻ 1 ô text box là số quyết định = địa chỉ A3

Nếu dùng VBA thì định dạng khác nhau vô tư

 

[komono]

anh giúp giùm em
em xin cảm ơn

 

[Let'GâuGâu]

trong ô a1 (số 12345/qđ ngày tháng năm)
1 ô trong excel không định dạng khác nhau dc
nên kẻ 1 ô text box là số quyết định = địa chỉ A3

ủa sao bài này với file post lên ko ăn nhập gì vào nhau hết vậy???
muốn định dạng như vậy bạn làm như sau:

0000 "/QD Ngay" 00 "tháng" 00 "năm" 00

bạn chọn format cell-->customer-->chép dịnh dạng trên vào box type
khi bạn gõ vào chuổi số sau: 111011112---> nó sẻ ra 0111 /QD Ngay 01 tháng 11 năm 12

 

[komono]

chữ ngày tháng năm phải in nghiêng mới dc

 

[ndu96081631]

anh giúp giùm em
em xin cảm ơn

File bạn vừa gửi liên quan gì để chủ đề ĐỊNH DẠNG trong topic này?
--------------------------

chữ ngày tháng năm phải in nghiêng mới dc

Nói chung là: Các công cụ của Excel (hoặc công thức) không làm được điều này

 

[Quang_Hải]

chữ ngày tháng năm phải in nghiêng mới dc

Cơ bản phải dùng code và code na ná thế này. Cứ theo code này mà vọc thì chắc là được.

Sub multiformat()
Dim n As Byte
n = InStr([A1], "ngày")
[A1].Characters(n, Len([A1]) - n + 1).Font.FontStyle = "Italic"
End Sub

 

[komono]

vì cùng 1 ô 2 định dạng khác nhau ko dc nên em định tạo 1 ô text box xuất hiện dữ liệu của ô khác để em định dạng cho nó in nghiêng

 

[komono]

xin lỗi em gửi nhầm file