Nhấn enter là tự động chèn thêm một dòng...

[ducdeco]

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.(^^

 

[nghiaphuc]

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.(^^

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:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Offset(-1, 0) = "" Then Exit Sub
    Target.EntireRow.Insert
End Sub

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...)

 

[ducdeco]

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?

 

[ducdeco]

à ừ, quên mất đấy, Xin lỗi bạn nhé. Tớ đang vội làm bài tập quá. Rút kinh nghiệm.... Lần đầu bỏ qua(^^

 

[nghiaphuc]

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?

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é.
Chúc ngày cuối tuần vui vẻ!

 

[ducdeco]

Khi chạy file bác gửi thi hiện cửa sổ này. Huu. Không sao ma chạy được

 

[nghiaphuc]

Khi chạy file bác gửi thi hiện cửa sổ này. Huu. Không sao ma chạy được

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ử.

 

[the_wind]

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:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Offset(-1, 0) = "" Then Exit Sub
    Target.EntireRow.Insert
End Sub

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...)

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?

 

[nghiaphuc]

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?

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.
Nếu bạn cần sao chép định dạng cả hàng trên xuống hàng dưới thì thêm 2 dòng:

Intersect(Selection.EntireRow, ActiveSheet.UsedRange).Copy
Intersect(Selection.EntireRow, ActiveSheet.UsedRange).PasteSpecial Paste:=xlFormats

vào trước và sau dòng (1 dòng trước, 1 dòng sau):

Selection.Offset(1).Select

 

[lenlevel01]

MÌnh cũng bi như vậy,khi nhấn enter có 1 đoạn test được dán phía sau