Xin được giúp sửa code chèn số dòng theo ý muốn

[quanglenb]

Xin chào toàn thể các thầy cô, anh chị trên GPE!
Em có tham khảo được code chèn số dòng theo ý muốn và coppy định dạng dòng
Khi chạy code hiện lên bảng nhập số dòng cần chèn (hình thứ nhất)
Nếu nhấn "Cancel" hoặc dấu "X" để thôi thực hiện thao tác hoặc tắt bảng (hình thứ nhất) đó đi thì không thể tắt được và xuất hiện thông báo ( như hình thứ 2)
Bắt buộc mình phải nhập số dòng muốn chèn vào thì mới có thể tắt thông báo (như hình thứ 2) đi
Nhờ các thầy cô, anh chị giúp em:
Có thể nhấn "Cancel" hoặc dấu "X" để tắt bảng (như hình thứ nhất đi) mà không cần thao tác phài bắt buộc điền số dòng vào bảng đó.
Và có thể chỉnh lại cho giao diện (hình thứ 1) nhìn dễ coi và đẹp mắt hơn chút được không ạ?
Em xin cảm ơn!
Đoạn code như sau:

Sub test()
'Updateby Extendoffice
    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount < 1 Then
        MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

Hình thứ nhất



Hình thứ 2

 

[HieuCD]

Xin chào toàn thể các thầy cô, anh chị trên GPE!
Em có tham khảo được code chèn số dòng theo ý muốn và coppy định dạng dòng
Khi chạy code hiện lên bảng nhập số dòng cần chèn (hình thứ nhất)
Nếu nhấn "Cancel" hoặc dấu "X" để thôi thực hiện thao tác hoặc tắt bảng (hình thứ nhất) đó đi thì không thể tắt được và xuất hiện thông báo ( như hình thứ 2)
Bắt buộc mình phải nhập số dòng muốn chèn vào thì mới có thể tắt thông báo (như hình thứ 2) đi
Nhờ các thầy cô, anh chị giúp em:
Có thể nhấn "Cancel" hoặc dấu "X" để tắt bảng (như hình thứ nhất đi) mà không cần thao tác phài bắt buộc điền số dòng vào bảng đó.
Và có thể chỉnh lại cho giao diện (hình thứ 1) nhìn dễ coi và đẹp mắt hơn chút được không ạ?
Em xin cảm ơn!
Đoạn code như sau:

Sub test()
'Updateby Extendoffice
    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount < 1 Then
        MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

Hình thứ nhất

View attachment 236568

Hình thứ 2

View attachment 236569

Dùng tạm

Sub test()
'Updateby Extendoffice
    Dim xCount As Long
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount = 0 Then Exit Sub
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

 

[quanglenb]

Dùng tạm

Sub test()
'Updateby Extendoffice
    Dim xCount As Long
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount = 0 Then Exit Sub
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

Dạ! em cảm ơn anh!