[HỎI]: SỬA LẠI CODE ĐỂ TỰ ĐỘNG CHÈN HÀNG (KHÔNG CẦN KÍCH NÚT 'CHEN HANG')

[khoa289]

Chào anh/chị
Nhờ anh/chị SỬA LẠI CODE ĐỂ TỰ ĐỘNG CHÈN HÀNG (KHÔNG CẦN KÍCH NÚT 'CHEN HANG')
File hiện tại thì Khi còn 1 hàng để nhập liệu, mình phải kích vào nút "CHEN HANG" ĐỂ THÊM HÀNG MỚI
Hỏi:
C1: Có cách nào để tự động thêm hàng khi còn 1 hàng để nhập liệu (không cần kích vào nút "CHEN HANG" , các ô cuối cùng không đổi giá trị)
Hoặc C2: Có cách nào để tự động thêm hàng khi còn không còn hàng để nhập liệu (không cần kích vào nút "CHEN HANG" , các ô cuối cùng không đổi giá trị)
Cám ơn.

 

[vanaccex]

Chào anh/chị
Nhờ anh/chị SỬA LẠI CODE ĐỂ TỰ ĐỘNG CHÈN HÀNG (KHÔNG CẦN KÍCH NÚT 'CHEN HANG')
File hiện tại thì Khi còn 1 hàng để nhập liệu, mình phải kích vào nút "CHEN HANG" ĐỂ THÊM HÀNG MỚI
Hỏi:
C1: Có cách nào để tự động thêm hàng khi còn 1 hàng để nhập liệu (không cần kích vào nút "CHEN HANG" , các ô cuối cùng không đổi giá trị)
Hoặc C2: Có cách nào để tự động thêm hàng khi còn không còn hàng để nhập liệu (không cần kích vào nút "CHEN HANG" , các ô cuối cùng không đổi giá trị)
Cám ơn.

Bạn thử đoạn code này trong modul xem
Private Sub InsertRow()
Selection.Offset(1).EntireRow.Insert
Selection.Offset(1).Select
End Sub
Và thêm đoạn này mỗi khi thay đổi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey "~", "InsertRow"
Application.OnKey "{Enter}", "InsertRow"
End Sub

 

[khoa289]

Cám ơn bạn vanaccex nhiều.
Nhưng nếu chỉ còn 1 hàng nhập liệu như file mình gửi thì khi bấm Enter sẽ sai công thức ở hàng cuối cùng.
Nhờ bạn sửa code giúp.

 

[vanaccex]

Cám ơn bạn vanaccex nhiều.
Nhưng nếu chỉ còn 1 hàng nhập liệu như file mình gửi thì khi bấm Enter sẽ sai công thức ở hàng cuối cùng.
Nhờ bạn sửa code giúp.

Thì bạn để đấy trước 1 hàng là được, Có nghĩa là dù để chuột ở hàng cuối cùng thì sẽ lên trên 1 hàng đúng không !

 

[khoa289]

Cám ơn bạn vanaccex nhiều.
Hiện tại hàng cuối cùng khi nhấn Enter thì vẫn chèn hàng
Làm sao khi nhấn Enter hàng cuối cùng thì không chèn hàng (Giữa nguyên) và chỉ chèn tại cột B
Cám ơn.