R88 Điện Tử，Xóa bảng bằng One Shot Excel Mã VBA Mã truy cập VBA VBA

Xóa nội dung bảng bằng ExcelVBA và VBAAccess: được thực hiện trong một thao tác
I. Giới thiệu
Trong hoạt động hàng ngày của cơ sở dữ liệu Excel và Access, chúng ta thường cần xử lý một lượng lớn dữ liệu và một trong những vấn đề chúng ta thường gặp phải là làm thế nào để nhanh chóng xóa dữ liệu trong bảng. Chủ đề này mô tả cách sử dụng mã ExcelVBA và VBAAccess để xóa nội dung bảng trong một thao tácĐăng Ký +100k. Cho dù bạn đang làm việc với dữ liệu bảng tính trong Excel hay quản lý các bảng dữ liệu phức tạp trong cơ sở dữ liệu Access, đây là cách xóa nhanh bảng.
Thứ hai, mã ExcelVBA thực hiện xóa bảng
Trong Excel, chúng ta có thể sử dụng VisualBasicforApplications (VBA) để viết mã macro để nhận ra chức năng làm trống bảng chỉ bằng một cú nhấp chuột. Dưới đây là cách thực hiện:
1. Mở Excel và nhấn Alt + F11 để mở trình chỉnh sửa VBA.
2. Dán mã sau vào cửa sổ mã của trang tính:
”VBA
SubClearTable()
DimrngAsRange
Setrng=ActiveSheet.UsedRange’ để chọn khu vực đã được trang tính hiện tại sử dụng
RNG. ClearContents ‘xóa nội dung của khu vực đã chọn
EndSub
“`
3. Đóng trình chỉnh sửa VBA và quay lại giao diện làm việc Excel. Nhấn Alt+F8 để chạy mã macro hoặc chạy macro trực tiếp trong Macro trong DeveloperTools. Bằng cách này, bạn có thể xóa tất cả dữ liệu trong trang tính hiện tại cùng một lúc.
3. Mã VBAAccess thực hiện thanh toán bù trừ bảng
Đối với bảng dữ liệu trong cơ sở dữ liệu Access, bạn cũng có thể viết mã trong VBA để xóa tất cả dữ liệu trong bảng cùng một lúc. Các bước thực hiện như sau:
1. Mở cơ sở dữ liệu Access và nhập bảng dữ liệu bạn muốn hoạt động.
2. Chọn DesignView từ Lượt xem menu của biểu dữ liệu.
3. Mở trình soạn thảo VBA (thông qua phím tắt Alt + F11) và nhập mã sau vào cửa sổ mã của Biểu mẫu hoặc Truy vấn tương ứng:
”VBA
SubClearTableData()
DimdbAsDAO.Database
DimstrSQLAsString
Setdb=CurrentDb()’ để lấy đối tượng kết nối cơ sở dữ liệu hiện tại
strSQL = “DELETEFROMYourTableName; “‘Thay thế YourTableName’ bằng tên bảng dữ liệu của bạn
Db. ExecutestrSQL,dbFailOnError’ để xóa tất cả các bản ghi dữ liệu
EndSub
“`
4. Đóng trình chỉnh sửa VBA và quay lại giao diện cơ sở dữ liệu Access. Khi bạn chạy mã này, tất cả các bản ghi trong bảng dữ liệu đó sẽ bị xóaFalling Money. Cần lưu ý rằng thao tác này là không thể đảo ngược, vì vậy hãy đảm bảo sao lưu dữ liệu của bạn trước khi thực hiện.
4. Tóm tắt và phòng ngừa
Cho dù đó là Excel hay thanh lọc dữ liệu dạng bảng trong cơ sở dữ liệu Access, sử dụng mã VBA có thể cải thiện đáng kể hiệu quả. Tuy nhiên, bạn cần chú ý đến những điểm sau trong quá trình hoạt động: trước tiên, hãy đảm bảo rằng bạn đã sao lưu dữ liệu trước khi thực hiện thao tác thanh lọc; Thứ hai, đảm bảo rằng phạm vi hoạt động hoặc biểu dữ liệu chính xác được kiểm tra; Cuối cùng, bạn phải thận trọng về việc xóa dữ liệu quan trọng để tránh vô tình xóa dữ liệu quan trọng. Qua phần giới thiệu và hướng dẫn vận hành của bài viết này, tôi hy vọng sẽ giúp bạn sử dụng VBA tốt hơn để nâng cao hiệu quả xử lý dữ liệu trong công việc và học tập hàng ngày.