Chèn nhiều dòng xác định bằng VBA

[challenge98]

mình muốn chèn nhiều dòng bằng VBA giả sử mình có bảng tính và khi chạy code sẽ suất hiện hộp thoại nhập số dòng vào và nó insert từ vị tri đó cho đủ số dòng đã được nhập vào thì làm thế nào? mọi người giúp mình với.

 

[Hai Lúa Miền Tây]

mình muốn chèn nhiều dòng bằng VBA giả sử mình có bảng tính và khi chạy code sẽ suất hiện hộp thoại nhập số dòng vào và nó insert từ vị tri đó cho đủ số dòng đã được nhập vào thì làm thế nào? mọi người giúp mình với.

Bạn dùng Inputbox nhé.
Code như sau

Sub ChenDong()
Dim Rng
Rng = InputBox("Vui long nhap so dong can chen.")
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(Rng - 1, 0)).Select
Selection.EntireRow.Insert
End Sub

 

[SA_DQ]

Macro đó tương đương với

Option Explicit
Sub ChenNDong()
   Selection.Resize(InputBox("Vui long nhap so dong can chen.")).EntireRow.Insert
End Sub

Chúng còn nhược điểm là :

Nếu ta chọn vài ô không liền nhau sẽ báo lỗi;

Nếu vài ô đó liền nhau: Hình như chưa cho ta điều mong muốn!

Xuân rỗi, vui tẹo thôi nha!