Làm cách nào để liệt kê tất cả các thuộc tính của tệp Excel trong một trang tính?
Trong bài viết này, tôi giới thiệu mã VBA để liệt kê tất cả các thuộc tính của sổ làm việc đang hoạt động trong một trang tính.
1. nhấn Alt + F11 để bật cửa sổ Microsoft Visual Basic for Applications.
2. nhấp chuột Chèn > Mô-đunvà dán mã bên dưới vào mô-đun trống.
VBA: Liệt kê tất cả các thuộc tính
Sub WBProperties()
'UpdatebyKutools20191031
Dim xWB As Workbook
Dim xF As Long
Dim xStr As String
Dim xWSh As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
xStr = "Workbook Properties"
Set xWB = Application.ActiveWorkbook
Set xWSh = xWB.Worksheets.Item(xStr)
If Not xWSh Is Nothing Then
xWSh.Delete
End If
Set xWSh = xWB.Worksheets.Add
xWSh.Name = xStr
xWSh.Range("A1").Value = "Property"
xWSh.Range("B1").Value = "Value"
With xWB
For xF = 1 To .BuiltinDocumentProperties.Count
xWSh.Range("A65536").End(xlUp).Offset(1, 0).Value = _
.BuiltinDocumentProperties.Item(xF).Name
xWSh.Range("A65536").End(xlUp).Offset(0, 1).Value = _
.BuiltinDocumentProperties.Item(xF).Value
Next xF
End With
Application.DisplayAlerts = True
End Sub
3. nhấn F5 để chạy mã, một trang tính mới có tên Thuộc tính sổ làm việc đã được tạo ở phía trước trang tính hiện hoạt, liệt kê tất cả các thuộc tính của sổ làm việc đang hoạt động.
Tắt phần bổ trợ khi khởi động Excel
Bạn có thể đã cài đặt một số bổ trợ trong Microsoft Excel của mình, nhưng bây giờ bạn cần phải tắt bổ trợ được chỉ định khi khởi động Excel. Làm thế nào để giải quyết vấn đề này? Phương pháp trong bài viết này có thể giúp bạn.
Xuất và lưu từng trang tính dưới dạng sổ làm việc mới riêng biệt trong Excel
Giả sử bạn muốn xuất và lưu một hoặc một số trang tính làm sổ làm việc mới, bạn sẽ xử lý như thế nào? Thông thường, bạn có thể sao chép từng trang tính và dán vào sổ làm việc mới. Nhưng ở đây chúng tôi mang đến cho bạn một số thủ thuật hữu ích để đối phó với nó:
Mã VBA để liệt kê tất cả các phần bổ sung trong Excel
Trong Excel, bạn có thể thêm hoặc chèn một số bổ trợ để xử lý dữ liệu tốt hơn. Như chúng ta đã biết, chúng ta có thể vào cửa sổ Tùy chọn để xem tất cả các phần bổ sung, nhưng có cách nào để liệt kê tất cả các phần bổ sung trong một trang tính không?
Các công cụ năng suất văn phòng tốt nhất
Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn
- Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
- Hợp nhất các ô / hàng / cột và Lưu giữ dữ liệu; Nội dung phân chia ô; Kết hợp các hàng trùng lặp và Tổng / Trung bình... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
- Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
- Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
- Yêu thích và Chèn công thức nhanh chóng, Dãy, Biểu đồ và Hình ảnh; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
- Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
- Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
- Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
- Nhóm bảng tổng hợp theo số tuần, ngày trong tuần và hơn thế nữa ... Hiển thị các ô đã mở khóa, đã khóa bởi các màu sắc khác nhau; Đánh dấu các ô có công thức / tênhữu ích. Cảm ơn !
- 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!