Nhờ chỉnh dùm đoạn code này chạy được trên excell 2007 (1 người xem)

[vannam123]

Private Sub InsertRow()
Selection.Offset(1).EntireRow.Insert
Selection.Offset(1).Select
End Sub
Đoạn code này là code khi enter thì nó sẽ tự động thêm 1 dòng, nhưng chỉ chạy được trên excell 97-2003 ..nhờ các bạn chỉnh lại cho nó chạy được trên excell 2007

 

[nmhung49]

Private Sub InsertRow()
Selection.Offset(1).EntireRow.Insert
Selection.Offset(1).Select
End Sub
Đoạn code này là code khi enter thì nó sẽ tự động thêm 1 dòng, nhưng chỉ chạy được trên excell 97-2003 ..nhờ các bạn chỉnh lại cho nó chạy được trên excell 2007

Sao nó ko chạy vậy báo lỗi gì ah thấy chạy bình thường mà

 

[vannam123]

Mìnhh gửi file bạn xem dùm..add code rồi mà giờ không chạy luôn

 

[VetMini]

Không chạy được có nghĩa là sao? Báo lỗi như thế nào?
Căn bản chỉ có câu hỏi mà cũng không chịu nêu chi iết vân đề cho rõ.