Record Macro trong Excel 2007 có vấn đề?? (1 người xem)

[tuananh89803]

Mình dùng Record Macro trong Excel 2007 để ghi lại Data Advance sau đó Run Macro này thì nó chạy không được! Không hiểu tại sao! Mình đã mở chế độ Enable all macros rồi! Do đó 1 số file excel mình làm Data Advance ở 2003 thì qua 2007 đều không thực thi luôn!
ví dụ:
Private Sub CommandButton1_Click()
Range("A9:L700").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("N2:O3"), Unique:=False
ActiveWindow.SmallScroll Down:=-30
End Sub

Thì nó ẩn hết các dữ liệu hết ô A9:L700
Mong mọi người chỉ giúp!

 

[Lê Duy Thương]

Mình dùng Record Macro trong Excel 2007 để ghi lại Data Advance sau đó Run Macro này thì nó chạy không được! Không hiểu tại sao! Mình đã mở chế độ Enable all macros rồi! Do đó 1 số file excel mình làm Data Advance ở 2003 thì qua 2007 đều không thực thi luôn!

Mong mọi người chỉ giúp!

excel 2007 thì phải lưu ở đuôi xlsb hoặc xlsm thì code mới chạy

 

[ptm0412]

excel 2007 thì phải lưu ở đuôi xlsb hoặc xlsm thì code mới chạy

Chạy rồi mà Thương?

Thì nó ẩn hết các dữ liệu hết ô A9:L700

Lỗi do 1 trong 2 điều:
- Vùng điều kiện sai
- Điều kiện không thỏa

 

[tuananh89803]

Ồ! Mình đã thử trước đó save as bằng đuôi .xlsm và .xlsmb nhưng đều ko được, ngoài ra mình đã nói là dùng Record Macro trong 2007 để ghi lại quá trình mình Filter Advance nhưng đến khi thực thi lại Macro này thì luôn ẩn đi A9:L700! Ko biết bị gì nữa, mình thử để file này chạy thử ở Excel 2007, 2010 máy khác cũng bị y như vậy! Đây Macro nó ghi lại đây, nhưng khi bấm lại thì ko được!

Sub Button46_Click()


Range("A9:L700").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("N2:O3"), Unique:=False
ActiveWindow.SmallScroll Down:=-24

End Sub

 

[tuananh89803]

Mình đã hiểu là do lỗi định dạng, tại 2003 Macro hiểu theo định dạng ngày tháng của máy là dd/mm/yyyy, còn Macro bên 2007 và 2010 lại vẫn hiểu là mm/dd/yyyy, nên do đó cứ sai!
Ở đây mình ko hiểu tại sao định dạng ngày tháng của VBA chạy trong Excel 2007 lại như vậy? Bạn nào giải thích giùm mình với!