Bạn chắc chắn có thể tạo tên bảng tính bằng cách sử dụng các giá trị từ Excel Cells.
Sử dụng mã VBA sau
Sub TạoWorkSheetByRange ()
'sự định nghĩa biến
Dim WorkRng Như Phạm vi
Dim Ws làm trang tính
Dim mảng Như biến thể
Mẫu Dim Như Bảng tính
'** Chỉnh sửa-2: Đã khai báo xTitleId **
Dim xTitleId dưới dạng Chuỗi
'** Chỉnh sửa-3: Khai báo i và j **
Dim i là biến thể
Dim j là Biến thể
'Bắt đầu chương trình
Khi xảy ra lỗi Tiếp tục
'Chỉ định tiêu đề của hộp thoại yêu cầu phạm vi
xTitleId = "Chọn Phạm vi"
'Gán hàm application.selection cho biến WorkRng
Đặt WorkRng = Application.Selection
'Chấp nhận đầu vào từ người dùng
Đặt WorkRng = Application.InputBox ("Phạm vi", xTitleId, WorkRng.Address, Loại: = 8)
'Tạo một mảng các giá trị đầu vào
mảng = WorkRng.Giá trị
'Dòng sau là tùy chọn
Ứng dụng.ScreenUpdating = Sai
'Tạo tên Worksheet dựa trên phạm vi đã chọn
Cho i = 1 đến UBound (mảng, 1)
Cho j = 1 đến UBound (mảng, 2)
Đặt Ws = Worksheet.Add (sau: = Application.ActiveSheet)
Ws.Name = mảng (i, j)
Kế tiếp
Kế tiếp
Ứng dụng.ScreenUpdating = True
Kết thúc phụ
Đoạn mã trên cho phép bạn chọn một phạm vi ô mà bạn muốn tạo tên của bảng tính.
Bạn có thể tiếp tục xây dựng dựa trên điều này và xem liệu bạn có thể sửa đổi điều này cho kịch bản tên thay đổi của mình
FYI: Tôi cũng mới sử dụng VBA ... nhưng bạn có thể tìm hiểu điều này rất dễ dàng