Khi bạn thêm một trang tính mới vào sổ làm việc, bạn có tùy chọn đặt tên cho nó. Nhưng bạn cũng có thể đổi tên nó bất cứ lúc nào bằng cách sử dụng thuộc tính name của trang tính. Trong hướng dẫn này, chúng ta sẽ xem xét các cách khác nhau để đổi tên một trang tính hoặc nhiều trang tính bằng mã VBA
Các bước để đổi tên trang tính bằng mã VBA
- Đầu tiên, xác định trang tính mà bạn muốn đổi tên bằng đối tượng trang tính
- Sau đó, bạn cần sử dụng [. Name] để truy cập thuộc tính tên mà bạn muốn thay đổi
- Tiếp theo, nhập dấu bằng vào đó để cho VBA biết giá trị bạn muốn sử dụng để đổi tên trang tính
- Cuối cùng, nhập tên của trang tính mà bạn muốn sử dụng
Jonmo1
MrExcel MVPJoinedOct 12, 2006Messages44,061
- 28 Tháng ba 2013
- #2
Chào mừng bạn đến với diễn đàn.
Bạn cũng cần chỉ định tên của trang tính có A1 chứa tên trang tính này.
Giả sử đó là trên một trang tính có tên "Master"
Làm mờ MySheet dưới dạng chuỗi, ws dưới dạng WorkSheet
MySheet = Sheets[" . Phạm vi ["A1"]. Giá trị
Đặt ws = Trang tính[MySheet]
'sau đó tham khảo trang tính đó .
ws. Phạm vi["A1. A10"]. Nội địa. Colorindex = 3
Hy vọng điều đó sẽ hữu ích.
Tcây móc
Thành viên mới
JoinedMar 28, 2013Messages2
- 29 Tháng ba 2013
- #3
Chắc chắn đã làm. Cảm ơn bạn rất nhiều vì đã dành thời gian để giúp đỡ
Sđường chân trời7441
Thành viên mới
JoinedDec 24, 2015Messages1
- 24 Tháng mười hai 2015
- #4
Xin hãy giúp tôi sửa mã này.
Hàm IVOLL[LECTURER As String] As String
If LECTURER = "" Then
IVOLL = ""
ElseIf LECTURER = Worksheets["HLS"].Range["LEC_1"] Then
IVOLL = Bảng tính["HLS"]. Phạm vi["INIT_1"]
ElseIf LECTURER = Worksheets["HLS"]. Phạm vi["LEC_2"] Sau đó
IVOLL = Bảng tính["HLS"]. Phạm vi["INIT_2"]
ElseIf LECTURER = Worksheets["HLS"]. Phạm vi["LEC_3"] Sau đó
IVOLL = Worksheets["HLS"]. Phạm vi["INIT_3"]
Khác
IVOLL = "N"
Kết thúc Nếu
. Mã này chỉ hoạt động trên Bảng tính có tên "HLS". Làm cách nào để mã này hoạt động trên tất cả các Trang tính vì biến LECTURER gọi phạm vi có tên LEC_1 trên Trang tính có tên HLS.
This code does not work on other Worksheet. This code only work on Worksheet named "HLS". How to make this code work on all Worksheets since the LECTURER variable call the range named LEC_1 on Worksheet named HLS.
Cảm ơn.
Mmikenelena
hội đồng quản trị thường xuyên
Đã tham gia05/03/2018Messages76
- 30 Tháng mười một, 2018
- #5
Jonmo1 anh ấy nói Chào mừng bạn đến với diễn đàn. Bấm để mở rộng
Bạn cũng cần chỉ định tên của trang tính có A1 chứa tên trang tính này.
Giả sử đó là trên một trang tính có tên "Master"
Làm mờ MySheet dưới dạng chuỗi, ws dưới dạng WorkSheet
MySheet = Sheets[" . Phạm vi ["A1"]. Giá trị
Đặt ws = Trang tính[MySheet]
'sau đó tham khảo trang tính đó .
ws. Phạm vi["A1. A10"]. Nội địa. Colorindex = 3
Hy vọng điều đó sẽ hữu ích.
JonMo1,
Tôi đã tìm thấy bài đăng này qua tìm kiếm. Nó rất hữu ích với tôi.
Cảm ơn vì đã đăng nó.
. Mike
KKubra
Thành viên mới
Đã tham giaNgày 6 tháng 2 năm 2020Messages1Phiên bản Office
- 2016
- các cửa sổ
- 6 Tháng hai, 2020
- #6
Jonmo1 anh ấy nói Chào mừng bạn đến với diễn đàn. Bấm để mở rộng
Bạn cũng cần chỉ định tên của trang tính có A1 chứa tên trang tính này.
Giả sử đó là trên một trang tính có tên "Master"
Làm mờ MySheet dưới dạng chuỗi, ws dưới dạng WorkSheet
MySheet = Sheets[" . Phạm vi ["A1"]. Giá trị
Đặt ws = Trang tính[MySheet]
'sau đó tham khảo trang tính đó .
ws. Phạm vi["A1. A10"]. Nội địa. Colorindex = 3
Hy vọng điều đó sẽ hữu ích.
Này, cảm ơn rất nhiều, nó đã giúp rất nhiều