Làm thế nào để tạo một trang tính nếu không tồn tại trong sổ làm việc?
Giả sử, bạn có một sổ làm việc chứa nhiều trang tính, bây giờ, bạn cần xác định xem một tên trang tính cụ thể có tồn tại hay không. Nếu tên trang tính không tồn tại, hãy tạo nó. Nếu nó tồn tại, vui lòng đưa ra một thông báo nhắc nhở cho bạn biết trang tính tồn tại. Làm thế nào bạn có thể giải quyết công việc này trong Excel?
Tạo trang tính nếu không tồn tại trong sổ làm việc với mã VBA
Tạo trang tính nếu không tồn tại trong sổ làm việc với mã VBA
Mã VBA sau có thể giúp bạn kiểm tra tên trang tính cụ thể nếu tồn tại trong sổ làm việc, nếu không, mã có thể tạo trang tính khi bạn cần.
1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.
Mã VBA: Tạo trang tính nếu không tồn tại trong sổ làm việc:
Sub TestSheetCreate()
'Updateby Extendoffice
Dim newSheetName As String
Dim checkSheetName As String
newSheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
"sheet4", , , , , 2)
On Error Resume Next
checkSheetName = Worksheets(newSheetName).Name
If checkSheetName = "" Then
Worksheets.Add.Name = newSheetName
MsgBox "The sheet named ''" & newSheetName & _
"'' does not exist in this workbook but it has been created now.", _
vbInformation, "Kutools for Excel"
Else
MsgBox "The sheet named ''" & newSheetName & _
"''exist in this workbook.", vbInformation, "Kutools for Excel"
End If
End Sub
3. Và sau đó nhấn F5 để chạy mã này, một hộp nhắc xuất hiện để nhắc bạn nhập tên trang tính mà bạn muốn kiểm tra, xem ảnh chụp màn hình:
4. Sau đó nhấn vào OK nút:
(1.) Nếu trang tính tồn tại, một hộp nhắc sẽ bật ra để nhắc bạn như ảnh chụp màn hình sau:
(2.) Nếu trang tính không tồn tại, nó sẽ được tạo ngay lập tức, xem ảnh chụp màn hình:
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!