Lỗi application run 1004

[mrlangtu2206]

Em mới tìm hiểu về Visual Basic để nộp bài tập lớn có download một ví dụ về bài tập trên mạng. Nhưng khi chạy hiện ra thông báo lỗi

Khi chọn debug nó trỏ đến dòng
Application.Run "ATPVBAEN.XLA!Histogram", Worksheets("SimRuns").Range("SimResults"), _
Worksheets("Results").Range("HistOutput"), , False, True, False, False

Bác nào giúp em fix lại giúp em với
Em cảm ơn nhiều
File excel bài đấy đây ạ
http://www.mediafire.com/download/hqjuop9dzo34pwe/RetirementPlanning.xls

 

[Hau151978]

Em mới tìm hiểu về Visual Basic để nộp bài tập lớn có download một ví dụ về bài tập trên mạng. Nhưng khi chạy hiện ra thông báo lỗi
View attachment 138788
Khi chọn debug nó trỏ đến dòng
Application.Run "ATPVBAEN.XLA!Histogram", Worksheets("SimRuns").Range("SimResults"), _
Worksheets("Results").Range("HistOutput"), , False, True, False, False
View attachment 138789
Bác nào giúp em fix lại giúp em với
Em cảm ơn nhiều
File excel bài đấy đây ạ
http://www.mediafire.com/download/hqjuop9dzo34pwe/RetirementPlanning.xls

ATPVBAEN là add-in Analysis toolpack. Trong vba bạn vào tool-reference, đánh dấu chọn vào analysis toolpack thử xem. Khi chạy thì bạn sửa lệnh Application.Run "ATPVBAEN.XLA!Histogram"... thành Histogram ... xem