Excel - Cách sử dụng VBA để tự động chọn nội dung trong danh sách thả xuống và lưu dưới dạng tệp khác.

Chào mọi người, tôi cần làm một báo cáo hàng tháng chứa rất nhiều dữ liệu khách hàng.

Vui lòng xem hình bên dưới, đó là cách thông thường sử dụng danh sách thả xuống để hiển thị tất cả khách hàng của tôi.

Và dữ liệu bán hàng đó sẽ tự động tra cứu dựa trên công ty mà tôi đã chọn trong danh sách thả xuống.
Với mỗi công ty, tôi phải tách ra thành một tệp Excel riêng biệt. Tôi phải chọn từng công ty một từ danh sách thả xuống và lưu thành các tệp khác nhau cho đến khi chọn xong công ty cuối cùng.
Việc này thực sự tốn thời gian và ngớ ngẩn. Tôi đã thử cách sử dụng "ghi macro" nhưng dường như nó không thể tự động chọn công ty tiếp theo trong danh sách thả xuống.

Có đoạn mã VBA nào có thể tự động hoàn thành quy trình trên không?

Cảm ơn rất nhiều!




Trả lời:

Tôi đã tạo mã và tải tệp mẫu của bạn lên.

https://1drv.ms/x/s!Akd5y6ruJhvhizYmlOO6hfhtc1fn

Bạn cần thay đổi ToPath thành thư mục của mình trong mã. Bạn có thể mở mã như bên dưới.

Nếu bạn muốn tự làm

1. Hãy sao lưu tập tin bài tập của bạn.
2. Mở sổ làm việc của bạn và nhấn ALT+F11.
3. Tìm tên Sổ làm việc của bạn trong cửa sổ Trình khám phá dự án.
4. Nhấp đúp vào trang Báo cáo hàng tháng.
5. Sao chép và dán mã Macro được cung cấp bên dưới.
6. Lưu tệp của bạn dưới định dạng .xlsm

Private Sub Worksheet_Change(ByVal Target As Range)
Khi xảy ra lỗi, hãy chuyển đến ExitSub.
Nếu Intersect(Target, Me.Range("C3")) Is Nothing Then GoTo ExitSub
Application.EnableEvents = False
Dim ToPath As String
Bảng tính Dim Ws As
Dim TWk As Workbook

Ứng dụng.Màn hình cập nhật = Sai
Application.DisplayAlerts = False

Đường dẫn đến = "C:\Junk\"
Nếu Right(ToPath, 1) <> "\" thì
ToPath = ToPath & "\"
Kết thúc nếu

Đặt Ws = Worksheets("Raw Data")
Đặt TWk = Workbooks.Add

Ws.AutoFilterMode = False

Ws.UsedRange.AutoFilter Field:=2, Criteria1:=Me.Range("C3")
Ws.AutoFilter.Range.Copy
TWk.Worksheets("Sheet1").Range("A1").PasteSpecial (xlPasteAll)
TWk.SaveAs Filename:=ToPath & Me.Range("C3") & "_" & Format(Now, "mmddyyyyhhmmss"), FileFormat:=51
TWk.Close

Ws.AutoFilterMode = False
Application.CutCopyMode = False
Application.DisplayAlerts = True
Ứng dụng.Màn hình cập nhật = Đúng
ExitSub:
Ứng dụng.ChoPhóngSựKiện = Đúng
End Sub

Comments

Post a Comment

Popular posts from this blog

Xử lý hàng loạt các tệp Excel được bảo vệ bằng mật khẩu

Xử lý hàng loạt các tệp Excel được bảo vệ bằng mật khẩu Tôi đã tạo một bộ bảng chấm công của nhân viên trong một thư mục, mỗi bảng được xác định bằng tên và số ID của nhân viên, đồng thời được bảo vệ bằng Số Bảo hiểm Quốc gia của nhân viên làm mật khẩu. Họ sẽ thêm các yêu cầu làm thêm giờ và số dặm vào bảng tính của họ và tôi sẽ xử lý tất cả các tệp vào cuối tháng để lập bảng lương, thêm tất cả các bản ghi từ mỗi tệp vào bảng cơ sở dữ liệu MS Access. Một vấn đề mà tôi gặp phải là tôi không biết cách mở các tệp được bảo vệ bằng mật khẩu trong VBA để xử lý chúng. Có ai ở đó có kinh nghiệm về quá trình tương tự không? Stuart Trả lời: Xin chào, VBA để bảo vệ và không bảo vệ sổ làm việc Sub ProtectAll() Dim sh As Worksheet Làm mờ myPassword dưới dạng chuỗi myPassword = "mật khẩu" Đối với mỗi sh trong ActiveWorkbook.Worksheets sh.Protect Mật khẩu:=myPassword tiếp theo Kết thúc phụ Sub UnrotectAll() Dim sh As Worksheet Làm mờ myPassword dưới dạng chuỗi myPassword = ...
Read more

Thu hẹp và mở rộng cột trong Excel

Thu hẹp và mở rộng cột trong Excel Làm thế nào để thu hẹp hoặc mở rộng một cột khi tôi không nhìn thấy thước kẻ có chữ cái cột? Trả lời: Nhấp chuột phải vào cột > Chiều rộng cột > Tại đây, bạn có thể nhập giá trị cho các cột để thu nhỏ hoặc mở rộng. Ví dụ, bạn có thể nhập giá trị 8, gần với chiều rộng cột mặc định. Cột sẽ hiển thị. Bạn có thể kéo theo dấu phân cách cột (hoặc thước kẻ). Nếu những điều trên không phải là điều bạn muốn, tức là nếu chữ cái cột không hiển thị > Chọn bất kỳ ô nào trong cột đó > CTRL+Phím cách để chọn cột > Nhấp chuột phải > Chiều rộng cột như trong bước 1. Trả lời: Chỉ là một ý tưởng, một lựa chọn khác là sử dụng Freeze Panes để bạn luôn có thể nhìn thấy tiêu đề Cột trên cùng để thay đổi kích thước cột... Trên thanh Ribbon, nhấp vào Đóng băng ngăn - Đóng băng hàng trên cùng
Read more

Excel: Tìm và trả về "số cuối cùng" trong một cột, trong đó cột chứa: cả ô trống và số dương tùy ý (lớn hơn 0).

Image
Excel: Tìm và trả về "số cuối cùng" trong một cột, trong đó cột chứa: cả ô trống và số dương tùy ý (lớn hơn 0). Tôi có kinh nghiệm sử dụng Excel ở mức trung bình nhưng không thể hiểu cách đạt được những điều sau: 1) Về Cột K, khoảng K12 đến K377. 2) Tất cả các ô trong phạm vi trên đều là ô trống hoặc các ô chứa số dương lớn hơn 0, ví dụ: 14,37. (Lưu ý rằng sự tồn tại của các ô và số trống trong phạm vi này là hoàn toàn tùy ý (không có bất kỳ mẫu logic, lặp lại nào). 3) Tôi đang cố gắng viết một công thức (hoặc sử dụng hàm hoặc macro) yêu cầu như sau: A) Tìm kiếm trong phạm vi K12 đến K377. B) Xác định vị trí và xác định số "cuối cùng" trong cột. (LƯU Ý: Với "cuối cùng", ý tôi là số nằm gần cuối phạm vi của cột nhất. Tức là số gần nhất với hàng 377, trong cột K.) C) Dù số đó là gì, tôi muốn số đó được trả về và hiển thị trong ô tôi chọn, giả sử ô K10. D) Tự động làm mới: Lý tưởng nhất là bất cứ khi nào cột (cột K) số được chỉnh sửa (thêm vào hoặc tr...
Read more