Làm sao thể hiện nội dung của 1 cell trên Header/Footer?

[Hong.Van]

Thầy cô & anh chị giúp em như sau:
Em có dùng List Validation ở Cell B1 là: Mặt hàng 1, Mặt hàng 2,Mặt hàng 3,...
Em muốn khi em chọn Mặt hàng 1, thì trên Header hay Footer sẽ thể hiện Mặt hàng 1. Nếu chọn Mặt hàng 2 thì thể hiện Mặt hàng 2 ...
--------------
Lưu ý dùng cách gì cũng được, nhưng không dùng cách tạm thay đổi tên Sheet theo List Vali vì em có chạy code của các sheet này!
Em cảm ơn!

 

[Hai Lúa Miền Tây]

Thầy cô & anh chị giúp em như sau:
Em có dùng List Validation ở Cell B1 là: Mặt hàng 1, Mặt hàng 2,Mặt hàng 3,...
Em muốn khi em chọn Mặt hàng 1, thì trên Header hay Footer sẽ thể hiện Mặt hàng 1. Nếu chọn Mặt hàng 2 thì thể hiện Mặt hàng 2 ...
--------------
Lưu ý dùng cách gì cũng được, nhưng không dùng cách tạm thay đổi tên Sheet theo List Vali vì em có chạy code của các sheet này!
Em cảm ơn!

Bạn test thử code này:

Sub test()
With Sheet1.PageSetup
  .CenterHeader = Sheet1.Range("B1").Value
  .CenterFooter = Sheet1.Range("B1").Value
End With
End Sub

 

[huuthang_bd]

Bạn test thử code này:

Sub test()
With Sheet1.PageSetup
  .CenterHeader = Sheet1.Range("B1").Value
  .CenterFooter = Sheet1.Range("B1").Value
End With
End Sub

Đưa code vào sự kiện cho nó tự động luôn chứ anh.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
With Sheet1.PageSetup
    .CenterHeader = Sheet1.Range("B1").Value
    .CenterFooter = Sheet1.Range("B1").Value
End With
End Sub

 

[Hai Lúa Miền Tây]

Đưa code vào sự kiện cho nó tự động luôn chứ anh.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
With Sheet1.PageSetup
    .CenterHeader = Sheet1.Range("B1").Value
    .CenterFooter = Sheet1.Range("B1").Value
End With
End Sub

Vậy thì như vầy cho gọn.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
With Sheet1.PageSetup
    .CenterHeader = Target.Value
    .CenterFooter = Target.Value
End With
End Sub

 

[Hong.Van]

Cho em hỏi thêm:
Em muốn cell B1 hay cell B2 là Target
Em viết

[COLOR=#000000]If Target.Address <> "$B$1" Or [/COLOR][COLOR=#000000]"$B$2"[/COLOR][COLOR=#000000] Then Exit Sub[/COLOR]

Thì code báo lỗi! Vậy code trên sửa lạ như thế nào?
Em cảm ơn!

 

[huuthang_bd]

Cho em hỏi thêm:
Em muốn cell B1 hay cell B2 là Target
Em viết

[COLOR=#000000]If Target.Address <> "$B$1" Or [/COLOR][COLOR=#000000]"$B$2"[/COLOR][COLOR=#000000] Then Exit Sub[/COLOR]

Thì code báo lỗi! Vậy code trên sửa lạ như thế nào?
Em cảm ơn!

Bạn phải viết vầy

If Target.Address <> "$B$1" And Target.Address <> "$B$2" Then Exit Sub

hoặc vầy

If Intersect(Target, [B1:B2]) Is Nothing Then Exit Sub

 

[Hai Lúa Miền Tây]

Hoặc vầy:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1:B2")) Is Nothing Then
With Sheet1.PageSetup
    .CenterHeader = Target.Value
    .CenterFooter = Target.Value
End With
End If
End Sub