Code Chỉnh Font & Size trong Right Footer (1 người xem)

[AnhThu-1976]

Các Thầy/Cô/Anh/Chị và các bạn giúp em
Em có code như sau

Private Sub Worksheet_Change(ByVal Target As Range)
    With Sheet3.PageSetup
        If Range("D4") <> "" Then
            .RightFooter = Sheet3.Range("F4").Value & " " & Sheet3.Range("F5").Value
            
       
        End If
    End With
    
    Application.ScreenUpdating = True
End Sub

Sau đó em vào trong Right Footer để chỉnh Font là Arial và Size là 8

Nhưng do mặc định của Excel!? nên nó tự động thay đổi Font và Size sau khi chọn ô D4
Sáu đó em có thêm trong code là

.RightFooter.FontName = "Arial"
            .RightFooter.Size = 8

nhưng bị báo lổi
Vậy cho em hỏi fải sửa code ntn?
Em cảm ơn!

 

[vu_tuan_manh_linh]

Tôi record macro và nhận được đoạn code này

With ActiveSheet.PageSetup
        .RightFooter = "&""Arial,Regular""&8"
End With

Một lời khuyên cho các bạn vọc code: cái gì cứ liên quan trực tiếp đến worksheet thì cứ record macro rồi lôi code ra mà chỉnh sửa!

 

[AnhThu-1976]

Tôi record macro và nhận được đoạn code này

With ActiveSheet.PageSetup
        .RightFooter = "&""Arial,Regular""&8"
End With

Một lời khuyên cho các bạn vọc code: cái gì cứ liên quan trực tiếp đến worksheet thì cứ record macro rồi lôi code ra mà chỉnh sửa!

Cảm ơn bạn
Sau khi đưa đoạn code của bạn vào thì
nội dung trong Footer không thể hiện ở dòng này

.RightFooter = Sheet3.Range("F4").Value & " " & Sheet3.Range("F5").Value

 

[vu_tuan_manh_linh]

Bạn cần linh hoạt lên một chút chứ:

.RightFooter = "&" & Chr(34) & Sheet3.Range("F4").Value & ",Regular" & Chr(34) & "&" & Sheet3.Range("F5").Value & "&P"

 

[AnhThu-1976]

Bạn cần linh hoạt lên một chút chứ:

.RightFooter = "&" & Chr(34) & Sheet3.Range("F4").Value & ",Regular" & Chr(34) & "&" & Sheet3.Range("F5").Value & "&P"

Áp dụng code của bạn nó ra giờ , ....Bạn xem File

 

[vu_tuan_manh_linh]

Có lẽ tôi đang hiểu sai ý bạn, hoặc là bạn chưa nói rõ mục đích của bạn là gì. Code tôi gửi dùng giá trị tại F4 là Font Name, tại F5 là font size để thiết lập đánh số trang tại footer.

 

[AnhThu-1976]

Có lẽ tôi đang hiểu sai ý bạn, hoặc là bạn chưa nói rõ mục đích của bạn là gì. Code tôi gửi dùng giá trị tại F4 là Font Name, tại F5 là font size để thiết lập đánh số trang tại footer.

Nghĩa là tôi vào trong Footer chỉnh là Font: Arial và Size là 8
Nhưng sau đó nó cứ đổi về mặc định là Font: Vini-Time và Size là 10

 

[vu_tuan_manh_linh]

Vậy thì bạn bỏ thủ tục Worksheet_Change đi, hoặc thay code code như bài #2.

 

[AnhThu-1976]

Vậy thì bạn bỏ thủ tục Worksheet_Change đi, hoặc thay code code như bài #2.

Bỏ thủ tục này đi!!!!!!!!!!!! Nếu vậy muốn Footer ra nội dung theo ý muốn thì làm sao?
Vì ô F4 & F5 sẽ luôn thay đổi nội dung khi ô D4 hay D5 thay đổi ngày!

 

[vu_tuan_manh_linh]

Cuối cùng thì mục đích của bạn là gì?? Ô F4 và F5 bạn điền thông tin gì trong đó, và bạn muốn cái gì sẽ được chuyển vào footer??

 

[AnhThu-1976]

Cuối cùng thì mục đích của bạn là gì?? Ô F4 và F5 bạn điền thông tin gì trong đó, và bạn muốn cái gì sẽ được chuyển vào footer??

Vì trước đây tôi có hỏi bài [h=1]Ðề tài: Thể hiện nội dung của 1 cell trong Header/Footer[/h]http://www.giaiphapexcel.com/forum/showthread.php?123527-Th%E1%BB%83-hi%E1%BB%87n-n%E1%BB%99i-dung-c%E1%BB%A7a-1-cell-trong-Header-Footer
Nhưng không thực hiện được, nên fải chuyển qua sử dụng code

 

[be_09]

Bỏ thủ tục này đi!!!!!!!!!!!! Nếu vậy muốn Footer ra nội dung theo ý muốn thì làm sao?
Vì ô F4 & F5 sẽ luôn thay đổi nội dung khi ô D4 hay D5 thay đổi ngày!

Nếu muốn thay đổi nội dung cho Header (bên trái là F4 và bên phải là F5) và Footer (bên trái là D4 và bên phải là D5) bạn thử sử dụng code này cho Worksheet:

[COLOR=#000000]Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)[/COLOR]
[COLOR=#000000]    'Tiêu dè [/COLOR][COLOR=#000000]trên [/COLOR][COLOR=#000000] [/COLOR][COLOR=#000000]
    ActiveSheet.PageSetup.LeftHeader = Range("F4").Text
    ActiveSheet.PageSetup.RightHeader = Range("F5").Text
  [/COLOR][COLOR=#000000]'Tiêu dè [/COLOR][COLOR=#000000]duói[/COLOR][COLOR=#000000]
    ActiveSheet.PageSetup.LeftFooter = Range("D4").Text
    ActiveSheet.PageSetup.RightFooter = Range("D5").Text


End Sub
[/COLOR]

 

[AnhThu-1976]

Cảm ơn các ban!!!!!!!!!!!!!!!!!!!

 

[be_09]

Cảm ơn các ban!!!!!!!!!!!!!!!!!!!

Có lời cám ơn là có động lực làm tiếp.

Bạn sử dụng code này sẽ lấy nội dung tại các Cell D4, D5 và F4, F5 để đưa vào Header và Footer với Font chữ là Times New Roman và cỡ chữ là 12.

Sub Header_Footer()
    With Worksheets("T02").PageSetup
        [COLOR=#000000]'Tiêu dè duói[/COLOR]
       .LeftFooter = "&""Times New Roman""&12" & Worksheets("T02").Range("D4")
       .RightFooter = "&""Times New Roman""&12" & Worksheets("T02").Range("D5")
[COLOR=#000000]       'Tiêu dè [/COLOR][COLOR=#000000]trên[/COLOR]
       .LeftHeader = "&""Times New Roman""&12" & Worksheets("T02").Range("F4")
       .RightHeader = "&""Times New Roman""&12" & Worksheets("T02").Range("F5")
    End With
End Sub

 

[AnhThu-1976]

Có lời cám ơn là có động lực làm tiếp.

Bạn sử dụng code này sẽ lấy nội dung tại các Cell D4, D5 và F4, F5 để đưa vào Header và Footer với Font chữ là Times New Roman và cỡ chữ là 12.

Sub Header_Footer()
    With Worksheets("T02").PageSetup
       .LeftFooter = "&""Times New Roman""&12" & Worksheets("T02").Range("D4")
       .RightFooter = "&""Times New Roman""&12" & Worksheets("T02").Range("D5")
       .LeftHeader = "&""Times New Roman""&12" & Worksheets("T02").Range("F4")
       .RightHeader = "&""Times New Roman""&12" & Worksheets("T02").Range("F5")
    End With
End Sub

Muốn cho chữ nghiên thì thêm gì nữa anh
Em thêm chữ Italic nó không chịu
Cảm ơn anh

 

[be_09]

Muốn cho chữ nghiên thì thêm gì nữa anh
Em thêm chữ Italic nó không chịu
Cảm ơn anh

Sau chữ Times New Roman rồi phẩy và thêm chữ Italic cho mỗi câu lệnh, như thế này:

Times New Roman,Italic

 

[AnhThu-1976]

Sau chữ Times New Roman rồi phẩy và thêm chữ Italic cho mỗi câu lệnh, như thế này:

Times New Roman,Italic

Cảm ơn anh nhiều, mọi ý định đạt theo ý em