Định dạng Font chữ cho Header và Footer tự động bằng VBA (1 người xem)

[hiepnh1985]

Em đã đọc các bài nói về cách làm việc với Header và Footer nhưng áp dụng vào trường hợp của em thì không được. Em để các nội dung của Header và Footer vào một Sheet (để khi thay đổi thì Header và Footer được tự động thay đổi theo) và sau đó đã dùng VBA set cho tất cả các Sheet. Về nội dung thì đã được. Nhưng căn chỉnh Font chữ và load ảnh thì em chưa biết cách. Ai biết chỉ giúp em nhé (dùng VBA). Em cảm ơn. Chi tiết xem file đính kèm.

 

[hiepnh1985]

Có ai biết không giúp em với. Em lay hoay mãi từ tối qua đến giờ mà chưa được.

 

[hiepnh1985]

Em đã xử lý được Text rồi. Còn vụ ảnh thì chưa được. Chi tiết mọi người xem giúp em File đính kèm ở #1 nhé. Em đã gửi lại rồi. Đã có code xử lý các vấn đề trên.

 

[nmhung49]

Em đã xử lý được Text rồi. Còn vụ ảnh thì chưa được. Chi tiết mọi người xem giúp em File đính kèm ở #1 nhé. Em đã gửi lại rồi. Đã có code xử lý các vấn đề trên.

Bạn sửa lại thành vầy coi được ko
[GPECODE=vb]
With Sheets(i).PageSetup
.LeftHeader = "&""Tahoma,Italic""&8" & LefHead
.CenterHeader = "&""Tahoma,Italic""&8" & CenHead
.RightHeader = "&""Tahoma,Italic""&8" & RiHead
.LeftFooter = "&""Tahoma,Italic""&8" & LefFoot
.CenterFooter = "&""Tahoma,Italic""&8" & CenFoot
.RightFooter = "&""Tahoma,Italic""&8" & "Trang &P/&N"
.CenterHeader = "&G" 'Bắt buộc phải có cái này để mới chèn hình được
.CenterHeaderPicture.Filename = "C:\Users\Administrator\Pictures\untitled.png"
'Thay đổi đường dẫn thích hợp nhen
.CenterFooter = "&G"
.CenterFooterPicture.Filename = "C:\Users\Administrator\Pictures\untitled.png"


End With
[/GPECODE]

 

[hiepnh1985]

Bạn sửa lại thành vầy coi được ko
[GPECODE=vb]
.CenterHeader = "&G" 'Bắt buộc phải có cái này để mới chèn hình được
.CenterHeaderPicture.Filename = "C:\Users\Administrator\Pictures\untitled.png"
'Thay đổi đường dẫn thích hợp nhen
.CenterFooter = "&G"
.CenterFooterPicture.Filename = "C:\Users\Administrator\Pictures\untitled.png"
End With
[/GPECODE]

Đa tạ bác đã chỉ giúp. Cái này ".CenterHeader = "&G" ở đâu ra được vậy hả anh. Em tìm mãi mà không biết cấu trúc.

 

[nmhung49]

Đa tạ bác đã chỉ giúp. Cái này ".CenterHeader = "&G" ở đâu ra được vậy hả anh. Em tìm mãi mà không biết cấu trúc.

Mình record macro ra sao đó mình test lần lượt từng đoạn cuối cùng tìm là nguyên nhân phải them cái đó vào mới được

 

[hiepnh1985]

Mình record macro ra sao đó mình test lần lượt từng đoạn cuối cùng tìm là nguyên nhân phải them cái đó vào mới được

Bác kiên trì thật. Em cũng ghi macro và cugnx thấy chữ "&G" nhưng khi cho chạy lại Macro thì nó không nhận và quan trọng thằng "&G" nó nằm sau câu lệnh load ảnh. Do đó em nghĩ ko phải là nó. Vì thế em tưởng không chạy được. Thank bác nhé. Thank GPE.

 

[hiepnh1985]

Có nghi vấn Excel hack. Theo lời bác nói em test lại thấy load được ảnh và phát hiện ra điểm "&G" là điểm nhạy cảm của vụ gian dối VBA này. Bởi vì hôm qua em có ghi xong và chạy lại thì lại ấn F5. Ấn xong không thấy gì. Hôm nay kiểm tra lại từng dòng lệnh F8 thì lại ngon. Hơi lạ. Bác thử F5 xem, nó không load được ảnh. Nhưng F8 thì lại load được. Điểm "G" này nhạy cảm quá

 

[siwtom]

Mình record macro ra sao đó mình test lần lượt từng đoạn cuối cùng tìm là nguyên nhân phải them cái đó vào mới được

Sao phải khổ thế hả bạn?

Nhiều người không chịu đọc help nên cứ hỏi rồi chờ "vêu mặt" ra.
Tôi chưa từng gặp ai không đọc help, tài liệu mà vẫn viết code vù vù.

Để đi xa được ngàn dặm bạn chủ chủ đề nên học cách tìm thông tin, đọc trợ giúp.

PageSetup? Nó là thuộc tính của Worksheet. Nó có những thuộc tính gì? Thì duyệt trong cửa sổ Object Browser (Alt + F11 --> View --> Object Browser) thôi. Có thuộc tính mà tên chứa đầy hứa hẹn CenterHeaderPicture? Thì chọn nó rồi nhấn nút help (dấu hỏi mầu vàng) thôi.

Sẽ có



Thế là coi như xong chuyện.

Nên nhớ là trong Object Browser có công cụ tìm kiếm - ống nhòm.

 

[siwtom]

Điểm "G" này nhạy cảm quá

Điểm G thì nhậy cảm rồi. Nhưng còn một điểm nhậy cảm không kém ở trên điểm G một tí.

 

[hiepnh1985]

Lại 1 bài học cho em nữa. Nhiều lần nhắc mình phải đọc Help rồi mà lại quên nên mới mất căn bản như vậy. Dù sao thì cũng cảm ơn nmhung49 nhắc em cách ghi macro và xem kỹ câu lệnh (khi bí em cũng hay ghi macro để hiểu cách vba làm việc). Cảm ơn siwtom đã nhắc em phải chịu khó đọc Help. Hôm trước cũng phải tra Help vài code và cũng đều xử lý được.