Tạo nút Làm mới trong Excel

Tạo nút Làm mới trong Excel tôi có thiết lập macro sau cho nút làm mới của mình, vấn đề là nó dường như không hoạt động mọi lúc để làm mới trang kết quả chứa dữ liệu tóm tắt và bảng tổng hợp của tôi.
Có ai thấy điều gì sai trái một cách trắng trợn không?

Macro tôi đã thiết lập như sau:

Macro phụ1 ()
'
'Macro1 Macro
'
Khi có lỗi Tiếp tục tiếp theo
Response = Application.InputBox ("Vui lòng nhập Ngày bắt đầu là: MM / DD / YYYY", "Ngày bắt đầu", Phạm vi ("A1"). Giá trị, 50, 150, "", 1)
Nếu phản hồi <> Sai thì
ActiveSheet.Range ("A1"). Giá trị = Phản hồi
Khác
MsgBox ("Đang thoát đầu vào! Sẽ không có phép tính")
Thoát Sub
Kết thúc nếu

Response = Application.InputBox ("Vui lòng nhập Ngày kết thúc là: MM / DD / YYYY", "Ngày kết thúc", Phạm vi ("A2"). Giá trị, 50, 150, "", 1)
Nếu phản hồi <> Sai thì
ActiveSheet.Range ("A2"). Giá trị = Phản hồi
Khác
MsgBox ("Đang thoát đầu vào! Sẽ không có phép tính")
Thoát Sub
Kết thúc nếu
'
ActiveWorkbook.RefreshAll
Tính toán
'
Trang tính ("Trang kết quả"). Chọn
ActiveSheet.PivotTables ("PivotTable-1"). RefreshTable
ActiveSheet.PivotTables ("PivotTable-2"). RefreshTable
ActiveSheet.PivotTables ("PivotTable-3"). RefreshTable
ActiveSheet.PivotTables ("PivotTable-4"). RefreshTable
ActiveSheet.PivotTables ("PivotTable-5"). RefreshTable
ActiveSheet.PivotTables ("PivotTable-6"). RefreshTable

ActiveSheet.PivotTables ("PivotTable-1-W"). RefreshTable
ActiveSheet.PivotTables ("PivotTable-1-S"). RefreshTable
ActiveSheet.PivotTables ("PivotTable-2-W"). RefreshTable
ActiveSheet.PivotTables ("PivotTable-2-S"). RefreshTable
'ActiveSheet.PivotTables ("PivotTable-3-W"). RefreshTable
'ActiveSheet.PivotTables ("PivotTable-4-W"). RefreshTable
ActiveSheet.PivotTables ("PivotTable-5-W"). RefreshTable
ActiveSheet.PivotTables ("PivotTable-6-W"). RefreshTable
ActiveSheet.PivotTables ("PivotTable-6-S"). RefreshTable

Trang tính ("Trang kết quả"). F9
Trang tính ("Trang kết quả"). Làm mới

Kết thúc Sub




Câu trả lời:

Không có gì trắng trợn, nhưng việc sử dụng On Error Resume Next có nghĩa là bạn sẽ không thấy lỗi nếu nó xảy ra.
Hãy thử mà không có điều đó và nếu bạn gặp lỗi và bạn không hiểu tại sao, hãy cho chúng tôi biết thêm - thông báo lỗi và dòng xảy ra lỗi.

Tôi cho rằng có lỗi trên Trang tính ("Trang kết quả"). F9 vì tôi không nghĩ rằng có một phương pháp như vậy. Ý bạn là. Tính toán?

Bạn có thể dán một Debug.Print "Macro1 đã kết thúc" ở cuối macro chỉ để đảm bảo rằng nó thực sự thực thi đầy đủ.

Comments

Popular posts from this blog

Macro Đã bật Excel bị hỏng khi sử dụng Excel> Chia sẻ> Email> Gửi dưới dạng tệp đính kèm

Microsoft excel - Tạo công thức trong đó dữ liệu từ các tab / Bảng tính khác nhau có thể được đồng bộ hóa dựa trên một ô trên bảng tính

Làm mới danh sách SharePoint đã xuất không thành công trong Excel 2013 khi hoạt động với Excel 2010