[Cần giúp đỡ] Chọn vùng in theo NAME

[M@trixs]

M@trixs xin nhờ các bạn trong GPE giúp giùm ca bệnh này:

M@trixs có một bảng tính, trong đó có tạo các Name tương ứng với các vùng in khác nhau. Mọi người chỉ giùm làm sao để khi chọn vùng in (bằng List-Datavalidation) thì sẽ tự Set Print Area tương ứng với Name được chọn.

Chân thành cảm ơn !!!!

 

[M@trixs]

Có bạn nào đi ngang qua giúp giùm 1 tay với. M@trixs đang cần.

Cảm ơn trước nhé !!!

 

[ndu96081631]

Có bạn nào đi ngang qua giúp giùm 1 tay với. M@trixs đang cần.

Cảm ơn trước nhé !!!

Cái này bạn record macro 1 phát là có ngay code chứ cần gì hỏi
- Tôi bật record macro lên
- Chọn Vung1 và Set Print Area
- Tắt record macro, tôi được đoạn code

Sub Macro1()
'
' Macro1 Macro
'

'
    Application.Goto Reference:="Vung1"
    [COLOR=#ff0000]ActiveSheet.PageSetup.PrintArea = "$B$4:$D$23"[/COLOR]
End Sub

Câu lệnh màu đỏ chính là cái ta cần
Giờ ráp vào sự kiện Change:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim tmp As String
  On Error Resume Next
  If Target.Address = "$B$2" Then
    [COLOR=#b22222]tmp = Replace(Replace(Target.Value, "Vùng", "Vung"), " ", "")[/COLOR]
    [COLOR=#0000cd]ActiveSheet.PageSetup.PrintArea = Range(tmp).Address[/COLOR]
  End If
End Sub

Dòng code màu xanh chính là cái ta copy từ code của record macro rồi chỉnh lại
-------------
Lưu ý: Sở dĩ có câu lệnh màu nâu là do tên của Name không trùng khớp với validation item ----> Vùng 1 trong validation list tương ứng với Vung1 của define name ---> Vậy nếu Validation list trùng khớp với define name thì khỏi cần dòng lệnh màu nâu này

 

[M@trixs]

Thật cảm ơn bạn rất nhiều. Quá rõ ràng và chi tiết.....