Thêm Bớt Nhiều dòng trong VBA (2 người xem)

[Phạm Trường 80]

Xin Chào các bác! file của e dùng nút bấm chèn thêm 3 dòng xuống dưới,cụ thể chạy Macros 1 lần thì thêm 3 dòng xuống dưới dòng 6 và format giống dòng 456.Các bác đi qua giúp e với!

 

[bebo021999]

Vì bạn không nói rõ là chèn xong có tạo công thức tính tổng hay không, nên tạm thời mình copy/chèn 3 dòng trên xuống cho bạn.
Như thế nào thì tính tiếp nhé
1 sub thêm dòng, 1 sub xoá dòng và 1 sub dùng chung cho 2 sub kia

Option Explicit
Public rng As Range, lcell As Range
Sub ThemDong()
Application.ScreenUpdating = False
    ChonVung
    rng.Copy
    lcell.Insert shift:=xlDown
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Sub XoaDong()
Application.ScreenUpdating = False
    ChonVung
    If lcell.Row <= 7 Then Exit Sub
    rng.Delete shift:=xlUp
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Sub ChonVung()
Set lcell = Cells(Rows.Count, "A").End(xlUp)
Set rng = lcell.Offset(-3, 0).Resize(3, 2)
End Sub

 

[Phạm Trường 80]

Vì bạn không nói rõ là chèn xong có tạo công thức tính tổng hay không, nên tạm thời mình copy/chèn 3 dòng trên xuống cho bạn.
Như thế nào thì tính tiếp nhé
1 sub thêm dòng, 1 sub xoá dòng và 1 sub dùng chung cho 2 sub kia

Option Explicit
Public rng As Range, lcell As Range
Sub ThemDong()
Application.ScreenUpdating = False
    ChonVung
    rng.Copy
    lcell.Insert shift:=xlDown
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Sub XoaDong()
Application.ScreenUpdating = False
    ChonVung
    If lcell.Row <= 7 Then Exit Sub
    rng.Delete shift:=xlUp
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Sub ChonVung()
Set lcell = Cells(Rows.Count, "A").End(xlUp)
Set rng = lcell.Offset(-3, 0).Resize(3, 2)
End Sub

Cảm ơn rất nhiều! là tôi cần chèn 3 dòng rỗng có format lần lượt như 3 dòng trên ấy nhé!

 

[SA_DQ]

file (1) của e dùng nút bấm chèn thêm 3 dòng xuống dưới,cụ thể chạy Macros 1 lần thì thêm 3 dòng xuống dưới dòng 6 và format giống dòng 456. . . . .
. . . . . là tôi cần chèn 3 dòng rỗng có format lần lượt như 3 dòng trên ấy nhé!

(1) File của bạn đang có 2 trang tính; Vậy bạn đang muốn chèn thêm 3 dòng ở trang tính nào?
/(/ếu bạn muốn đó là trang 'HoaDon' thì kiệm gì mà không viết hẵn ra?

(2) . . . . Mình đoán nha: Bạn là người của diễn đàn trước đây, nhưng giờ đang quên NICKs cũ (?)

 

[VetMini]

(1) File của bạn đang có 2 trang tính; Vậy bạn đang muốn chèn thêm 3 dòng ở trang tính nào?
/(/ếu bạn muốn đó là trang 'HoaDon' thì kiệm gì mà không viết hẵn ra?
...

Có ai giải thích giùm tại sao mấy cái bài như thế này không làm theo kiểu "thâu macro" được hôn?

 

[Phạm Trường 80]

(1) File của bạn đang có 2 trang tính; Vậy bạn đang muốn chèn thêm 3 dòng ở trang tính nào?
/(/ếu bạn muốn đó là trang 'HoaDon' thì kiệm gì mà không viết hẵn ra?

(2) . . . . Mình đoán nha: Bạn là người của diễn đàn trước đây, nhưng giờ đang quên NICKs cũ (?)

Xin Chào! Của tôi có 2 sheet thôi bạn. Áp dụng vào file chạy sai, bác nào đi qua giúp tôi với

bebo021999 thêm vào đấy.Cám ơn đã tham gia​

Vì bạn không nói rõ là chèn xong có tạo công thức tính tổng hay không, nên tạm thời mình copy/chèn 3 dòng trên xuống cho bạn.
Như thế nào thì tính tiếp nhé
1 sub thêm dòng, 1 sub xoá dòng và 1 sub dùng chung cho 2 sub kia

Option Explicit
Public rng As Range, lcell As Range
Sub ThemDong()
Application.ScreenUpdating = False
    ChonVung
    rng.Copy
    lcell.Insert shift:=xlDown
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Sub XoaDong()
Application.ScreenUpdating = False
    ChonVung
    If lcell.Row <= 7 Then Exit Sub
    rng.Delete shift:=xlUp
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Sub ChonVung()
Set lcell = Cells(Rows.Count, "A").End(xlUp)
Set rng = lcell.Offset(-3, 0).Resize(3, 2)
End Sub