Trong thời gian chờ đợi cách khác hay hơn thì bạn dùng tạm cách này nhé:Các bác biết làm thế nào có thể tự động chèn thêm một dòng mới khi ta nhấn phím enter không? Giúp mình với.(^^
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Offset(-1, 0) = "" Then Exit Sub
Target.EntireRow.Insert
End Sub
Có lẽ đây là thứ bạn cần. Bạn thử các thao tác trong file yêu cầu xem có đúng với ý bạn không nhé.Bạn ơi, cả phím mũi tên để di chuyển sang các ô khác cũng vậy. Cung tự đôngj ENTER rồi. Có cách nào chỉ chuyên biệt cho phím enter không vậy bạn?
Không biết cửa sổ của bạn nói gì nữa (chẳng nhìn thấy gì cả). Có lẽ là báo lỗi về Security. Bạn thử chọn Tools\Macro\Security => Chọn lại mức Low thử.Khi chạy file bác gửi thi hiện cửa sổ này. Huu. Không sao ma chạy được
Cái này rất hay. Mình cũng đang cần nó. Cho mình hỏi rằng khi thêm dòng như vậy và muốn coppy lại hết các công thức của dòng trên thì cần code như thế nào?Trong thời gian chờ đợi cách khác hay hơn thì bạn dùng tạm cách này nhé:
Right Click vào Sheet mà bạn muốn áp dụng chế độ tự động chèn hàng => Chọn View Code => Dán đoạn code này:
Tất nhiên cách này chỉ đúng với trường hợp: Thay đổi ô chọn bằng cách nhấn Enter, ô chọn lúc trước khi nhấn Enter phải có dữ liệu (nếu muốn chèn dòng ngay cả khi ô chọn trước là ô trống thì bạn bỏ dòng lệnh If...)PHP:Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Offset(-1, 0) = "" Then Exit Sub Target.EntireRow.Insert End Sub
Bạn thử file này xem sao nhé. Khi Enter, 1 hàng mới tự động được chèn thêm, đồng thời, những ô ở hàng trên có công thức sẽ được sao chép xuống.Cái này rất hay. Mình cũng đang cần nó. Cho mình hỏi rằng khi thêm dòng như vậy và muốn coppy lại hết các công thức của dòng trên thì cần code như thế nào?
Intersect(Selection.EntireRow, ActiveSheet.UsedRange).Copy
Intersect(Selection.EntireRow, ActiveSheet.UsedRange).PasteSpecial Paste:=xlFormats
Selection.Offset(1).Select
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2