Hỏi về cách đặt tên cho vùng dữ liệu trong vba?

[KUMI]

Xin chào Thầy Cô và Anh Chị trong GPE!

Có một vấn đề này:

Khi Em thao tác chỉ một Sheet duy nhất,ví dụ là Sheets(1),với vùng A3:K10.
Và thay cho phải viết như thế này:

   With Sheets(1)
        .[A3:K10].Locked = True
    End With

thì em đã đặt name cho vùng A3:K10=Range_1
Nên với code trên em có thể viết được như thế này:

   With Sheets(1)
        .[Range_1].Locked = True
    End With

----------------
Nhưng nếu Em muốn thao tác với nhiều Sheets thì Phải đặt Name kiểu gì ạ:
Ví dụ nếu Em viết thế này:

Dim a
For a = 4 To 6
    With Sheets(a)
        .[Range_1].Locked = True
    End With
Next

thì không được, nó chỉ có tác dụng đúng sheets mình đã đặt name mà không có tác dụng trên các sheets ta gọi ra. Vậy cần phải đặt tên kiểu gì cho trường hợp này ạ?

Thầy Cô và Anh Chị xem có cách gì không giúp em với ạ!Xin cảm ơn!

 

[ndu96081631]

thì em đã đặt name cho vùng A3:K10=Range_1

Ý bạn là Define Name ấy à?
Tôi muốn biết bạn đã đặt name thế nào trong 1 file cụ thể (vì tôi thí nghiệm code trên chạy tốt bạn à)
Tôi đặt name kiểu này (xem hình)

 

[KUMI]

Cảm ơn Thầy!
Thì ra là phải đặt cho từng sheets 1 và cho tất cả sheets mà ta muốn gọi.
Vậy mà con chỉ đăt cho 1 sheets.. hềhề!

 

[KUMI]

Xin hỏi Thầy cô và Anh Chị rằng: Đặt tên Name bằng các ký tự đặc biệt như thế nào?

Em không thể nào mà đặt ký tự đặc biệt vào tên Name trong DifineNamecđược.
Nhưng Em thấy có File mà có sử dụng Name với cái tên Name như thế này: \
Ai biết cách này chỉ em với ạ!
Xỉn cảm ơn!

 

[KUMI]

Em làm được rồi thì ra là đặt Names như bình thường vậy mà có lúc em thử lại không được.
Có lẽ lúc đó em gõ nhầm dấu "\" thành dấu "/" nên không được.