Giúp em viết code để ô nào trong cột A>0 thì excel sẽ tự động chèn dòng xuống dưới ô

[Dauthivan]

Nhờ các anh chị, các thày giúp. Em đang cố gắng mày mò nghiên cứu những bài toán mà mình hay gặp hằng ngày. Hôm nay em xin nhờ mọi người giúp em vì em nghĩ mãi mà chưa biết viết câu lệnh đó thế nào.
Nếu excel tự động dò theo cột A nếu tìm thấy ô nào có giá trị lớn hơn 0 (>0) thì lập tức nó sẽ tự động chèn một dòng xuống dưới chính ô đó.

 

[hoangexcell]

Để đi dò từ trên xuống trong cột a bạn dùng vòng lặp For là được, khoanh vùng mà bạn muốn dò. Lưu ý sau khi chèn dòng thì vị trí dò sẽ tăng lên 1 hàng!

Khi phát hiện ô có giá trị thì chỉ việc chèn một hàng phía dưới. Vậy thôi đó bạn!!

 

[TrungChinhs]

Nhờ các anh chị, các thày giúp. Em đang cố gắng mày mò nghiên cứu những bài toán mà mình hay gặp hằng ngày. Hôm nay em xin nhờ mọi người giúp em vì em nghĩ mãi mà chưa biết viết câu lệnh đó thế nào.
Nếu excel tự động dò theo cột A nếu tìm thấy ô nào có giá trị lớn hơn 0 (>0) thì lập tức nó sẽ tự động chèn một dòng xuống dưới chính ô đó.

Bạn thử code này (code đặt trong Module Sheet)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each cls In Range([a1], [a65000].End(3))
    If cls > 0 And cls(2) > 0 Then cls(2).EntireRow.Insert
Next
End Sub

 

[Dauthivan]

Bạn thử code này (code đặt trong Module Sheet)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each cls In Range([a1], [a65000].End(3))
    If cls > 0 And cls(2) > 0 Then cls(2).EntireRow.Insert
Next
End Sub

Em chưa biết cách chạy như thế nào, xin chỉ giúp em với ah. (em ấn Alt+F8 không thấy Macro nào cả)

 

[TrungChinhs]

Em chưa biết cách chạy như thế nào, xin chỉ giúp em với ah. (em ấn Alt+F8 không thấy Macro nào cả)

Tôi có gửi file đâu mà có Macro. Ý tôi là bạn chép code này vào Module Sheet1 để chạy.

Bây gìơ thì bạn tải file về rồi nhập thử dữ liệu xem sao. Muốn xem code thì nhấn Alt+F11 và đúp chuột vào Sheet1 để xem code nha !

 

[Dauthivan]

Tôi có gửi file đâu mà có Macro. Ý tôi là bạn chép code này vào Module Sheet1 để chạy.

Bây gìơ thì bạn tải file về rồi nhập thử dữ liệu xem sao. Muốn xem code thì nhấn Alt+F11 và đúp chuột vào Sheet1 để xem code nha !

Ý của em là sau khi mình "chạy Code" tức mình ra lệnh bấm Alt _F8 thì nó mới tự động chèn dòng chưa không phải là mình vừa đánh số vào cột A là nó đã nhanh chóng tự động chèn dòng rồi.

Em xin được hỏi thêm thực sự em chưa hiểu là tại sao phải chèn Code vào cả 2 chỗ gồm Sheet1 (riêng) và Modul chung ah?

Em mới bắt đầu đôi khi chưa hiểu bản chất về VBA nếu diễn tả chưa rõ xin bác chỉ hộ em với.

 

[TrungChinhs]

Ý của em là sau khi mình "chạy Code" tức mình ra lệnh bấm Alt _F8 thì nó mới tự động chèn dòng chưa không phải là mình vừa đánh số vào cột A là nó đã nhanh chóng tự động chèn dòng rồi.

Em xin được hỏi thêm thực sự em chưa hiểu là tại sao phải chèn Code vào cả 2 chỗ gồm Sheet1 (riêng) và Modul chung ah?

Em mới bắt đầu đôi khi chưa hiểu bản chất về VBA nếu diễn tả chưa rõ xin bác chỉ hộ em với.

Trong file code ở cả 2 nơi là do tôi sơ xuất không xóa Module khi đã chuyển code vào trong Sheet

Nếu bạn không muốn tự động thì bạn xóa code trong sheet rồi chạy module ngoài

Code Sheet nào thì chỉ có tác dụng với Sheet đó (thường là lợi dụng một sự kiện nào của Sheet đó để chạy) còn Code ở Module ngoài thì có tác dụng với tất cả các Sheet nhưng nó không tự chạy mà phải trực tiếp điều khiển nó hoặc chạy nó trong một code khác.

 

[nguyenmanhnam]

Ý của em là sau khi mình "chạy Code" tức mình ra lệnh bấm Alt _F8 thì nó mới tự động chèn dòng chưa không phải là mình vừa đánh số vào cột A là nó đã nhanh chóng tự động chèn dòng rồi.

Em xin được hỏi thêm thực sự em chưa hiểu là tại sao phải chèn Code vào cả 2 chỗ gồm Sheet1 (riêng) và Modul chung ah?

Em mới bắt đầu đôi khi chưa hiểu bản chất về VBA nếu diễn tả chưa rõ xin bác chỉ hộ em với.

Bạn mới học, bạn có thể tham khảo bài http://www.giaiphapexcel.com/forum/showthread.php?11356-lấy-dữ-liệu-cột-D-theo-điều-kiện-cột-A-dùng-VBA ; những bài này trước mình và bác Phanhanhdai phát sinh công việc trong phòng cùng nghiên cứu, có gì khó nhờ mọi người. Nhờ sự giúp đỡ tận tình của các thày Ndu, Ptm0412, concogia và mọi người đến giờ phần lớn những tình huống công việc phát sinh trong cơ quan mình đã có thể chủ động làm được rồi. Chúc bạn thành công