Tạo nút Làm mới trong Excel
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
Post a Comment