Tự động thêm dòng trong VBA thông qua hộp thoại Input Box (1 người xem)

[canguocs]

Chào các anh chị,
Em có file đính kèm muốn thêm dòng tự động thông qua hộp thoại Input box ( không biết cái này có thể dùng sự kiện or code được không).
Nhờ các anh chị và các bạn giúp đỡ, Em cảm ơn.

 

[kobebryant]

Bạn thử code này, nhấn chuột vào cell nào thì nó chèn dòng dưới cell đó

Sub test()
Dim j As Long, r As Range
j = InputBox("Dien so dong can chen")
Set r = ActiveCell
Do
Range(r.Offset(1, 0), r.Offset(j, 0)).EntireRow.Insert
Set r = Cells(r.Row + j + 1, 1)
If r.Offset(1, 0) = "" Then Exit Do
Loop

End Sub

 

[canguocs]

Bạn thử code này, nhấn chuột vào cell nào thì nó chèn dòng dưới cell đó

Sub test()
Dim j As Long, r As Range
j = InputBox("Dien so dong can chen")
Set r = ActiveCell
Do
Range(r.Offset(1, 0), r.Offset(j, 0)).EntireRow.Insert
Set r = Cells(r.Row + j + 1, 1)
If r.Offset(1, 0) = "" Then Exit Do
Loop

End Sub

Mình chạy được rồi, cảm ơn bạn nhiều.