đặt name range bằng code

[be09]

Sau khi vắng bóng 1 thời gian. Hôm nay, tôi đưa ra 1 chủ đề để các bạn nào quan tâm đến việc này thì cùng nhau đóng góp thảo luận, để công việc kế toán nhẹ nhàng, nhanh lẹ, thuận tiện. Nhằm đóng góp cho diễn đàn ngày càng lớn, mạnh và giúp các thành viên ứng dụng tốt vào công việc của mình.

Thông thường để tạo Name Range trong Excel 2003 thì ta vào menu InSert > Name > Define, hộp thoại Define Name xuất hiện, đặt tên cho Name Range trong khung Name in workbook nhấn Add và nhấn nút OK là hoàn tất việc đặt tên cho Name Range.

Nếu bạn đặt cùng 1 lúc vài chục Name Range mà thực hiện kiểu trên thì mất rất nhiều thời gian, vậy làm cách nào đặt vài chục Name chỉ 1 đoạn code, sau khi chạy code tạo Name xong ta xóa code đi thì Name Range vẫn còn tồn tại.

Có bao giờ bạn nghĩ đến việc sử dụng Code để tự động hóa trong việc tạo nhiều Name Range cùng 1 lúc chưa, việc này cũng có thể là rất đơn giản. Mời các bạn cùng tham gia đóng góp.

 

[nguyenhau.90]

Ðề: đặt name range bằng code

mình dùng excel 2007 và 2010 bạn ah,hi

 

[be09]

Ðề: đặt name range bằng code

mình dùng excel 2007 và 2010 bạn ah,hi

Dùng code đặt Name range cho excel 2007 và 2010 được tất, cũng chỉ dùng 1 đoạn code.

 

[nguyenhau.90]

Ðề: đặt name range bằng code

mình biết, thế nên ý mình là nên làm 2007 và 2010, giờ vẫn dùng 2003 cứ thế nào ý

 

[be09]

Ðề: đặt name range bằng code

mình biết, thế nên ý mình là nên làm 2007 và 2010, giờ vẫn dùng 2003 cứ thế nào ý

Tốt nhất là sử dụng Excel 2010 hoặc 2013, còn chưa có điều kiện thì nên sử dụng 2003 (còn Excel 2007 rất nhiều lỗi nếu sử dụng trong tự động hóa thì có thể dữ liệu ra kết quả không mong muốn).

 

[be09]

Ðề: đặt name range bằng code

Hôm nay tôi đưa Code lên để các bạn tham khảo và ứng dụng vào công việc:

Giả sử tôi muốn đặt name range cho vùng dữ liệu từ B2 đến D10, tôi muốn đặt 3 Name tương ứng 3 danh sách như sau:

- TT= B2:B10
- Tên= C2:C10
- Họ= D210

Tôi sử dụng Code trong Module:

Sub Macro1()
With Sheet1
    Range("B2:B10").Select
    ActiveWorkbook.Names.Add "TT", Selection
    Range("C2:C10").Select
    ActiveWorkbook.Names.Add "Ten", Selection
    Range("D2:D10").Select
    ActiveWorkbook.Names.Add "Ho", Selection
End With
End Sub

Trước khi thử Code bạn vào Menu InSert > Name > Define, xóa các Name trong hộp thoại Define Name ' xong chạy Macro1 là hoàn tất việc đặt tên cho Name Range.

Lưu ý:
Khi đặt Name range trong Code không sử dụng dấu tiếng Việt và không để khoảng trắng (sẽ phát sinh lỗi).
Xem File đính kèm.

 

[pqhung091965]

Ðề: đặt name range bằng code

Dùng hàm InputBox cho việc đặt tên thêm linh hoạt anh be09 ơi .

 

[be09]

Ðề: đặt name range bằng code

Nếu em có Code hàm InputBox thì đưa lên để anh em tham khảo, nếu chưa có thì anh sẽ nghiên cứu bổ sung thêm phần xóa Name Range bằng Code và Up lên sau.