Chọn Font trong Header/Footer ?

[TrungChinhs]

1. Máy của tôi Font trong Header/Footer bị mặc định là Font ABC, các bạn chỉ giúp cách chọn mặc định về Font Unicod ?

2. Có thể dùng VBA để định dạng các texbox trong custom Header/Footer như định dạng Cel được không ?

Cụ thể là khi tôi dùng VBA chuyển chữ từ một Cel vào Header/Footer thì làm thế nào định dạng được chữ ở trong đó

vd: chữ trong Sheets("TieuDe").[C3] là: Danh sách h? kh?u TÐC thu? di?n Son La.

Tôi muốn định dạng từ câu lệnh .CenterHeader = Sheets("TieuDe").[C3]

thay vì định dạng từ câu lệnh .CenterHeader = "&""Arial,Bold""&12Danh sách h? kh?u TÐC thu? di?n Son La".

Bạn nào biết giúp mình với. Thanks !

 

[cadafi]

1. Bạn vào Tool/Option và tùy chỉnh font chữ mặc định trong tab General (Cái này nói nhiều trên GPE rồi mà)

2. Bạn xem thử đoạn code củ chuối này xem sao:

Sub TestHeader()
Dim myText as String
myText = Sheets("TieuDe").[C3]
With ActiveSheet.PageSetup
.CenterHeader = "&""Tahoma,Regular""&26" & myText
.RightFooter = "&P/&N"
End With
End Sub

 

[TrungChinhs]

Cảm ơn Ca_dafi !
1. Do mình không nói rõ, trong General mình đã chọn Font Unicod nhưng trong Header/Footer vẫn bị mặc định là Font ABC.
2. Mình đã thử "củ chuối" của bạn ngon tuyệt vời.

 

[cadafi]

1. Do mình không nói rõ, trong General mình đã chọn Font Unicod nhưng trong Header/Footer vẫn bị mặc định là Font ABC.

Bạn chọn trong Tool/Option/General xong rồi thì phải khởi động lại excel thì mới có hiệu lực.