Khi nhập dữ liệu tự động chèn thêm dòng khi số dòng trong bảng mẫu sắp hết

[hieuxd]

Nhờ các thầy và anh chị em GPE giúp đỡ Code tự động chèn thêm dòng
Trong bảng mẫu em có 12 dòng để nhập dữ liệu
nhập dữ liệu ở cột C
khi nhập đến dòng thứ 11 còn 1 dòng trống thì tự động chèn thêm 5 dòng trống nữa
tiếp tục nhập tiếp
khi nhập đến dòng thứ 16 còn 1 dòng trống thì lại tự động chèn thêm 5 dòng trống nữa
....
Mục đích là không muốn dữ liệu nhập ra ngoài bảng đã căn chỉnh định dạng
Cuối bảng có một dòng ghi chữ End
Các dòng chèn thêm luôn ở trên dòng này
Trước để tự động thêm dòng em có dùng Format as Table (Insert Table) ... List

 

[concogia]

Nhờ các thầy và anh chị em GPE giúp đỡ Code tự động chèn thêm dòng
Trong bảng mẫu em có 12 dòng để nhập dữ liệu
nhập dữ liệu ở cột C
khi nhập đến dòng thứ 11 còn 1 dòng trống thì tự động chèn thêm 5 dòng trống nữa
tiếp tục nhập tiếp
khi nhập đến dòng thứ 16 còn 1 dòng trống thì lại tự động chèn thêm 5 dòng trống nữa
....
Mục đích là không muốn dữ liệu nhập ra ngoài bảng đã căn chỉnh định dạng
Cuối bảng có một dòng ghi chữ End
Các dòng chèn thêm luôn ở trên dòng này
Trước để tự động thêm dòng em có dùng Format as Table (Insert Table) ... List

Right Click vào tab sheet "Thong ke" ==> View Code ==> chép em này vào

Private Sub Worksheet_Change(ByVal Target As Range)
    If [C50000].End(xlUp).Row - Target.Row = 2 Then
        If Len(Target) Then Target.Offset(1).Resize(5).EntireRow.Insert
    End If
End Sub

Chỗ =2 thay đổi tùy ý của bạn
Thân

 

[hieuxd]

Cảm ơn bác concogia rất đúng ý em!

 

[thientinh2110]

Right Click vào tab sheet "Thong ke" ==> View Code ==> chép em này vào

Private Sub Worksheet_Change(ByVal Target As Range)
    If [C50000].End(xlUp).Row - Target.Row = 2 Then
        If Len(Target) Then Target.Offset(1).Resize(5).EntireRow.Insert
    End If
End Sub

Chỗ =2 thay đổi tùy ý của bạn
Thân

Bạn có thể giúp mình...chỉnh sửa lại chút code để phù hợp với mình không ah!!!
Mình có một mảng từ A1:J3, mình muốn khi mẫu cuối cùng (ví dụ: A4:J6) thì tự động chèn 3 dòng ( template giống A4:J6, và công thức giống A4:J6)

 

[thanhlam038]

Em có một câu thắc mắc mà tìm kiếm từ lâu vẫn chưa có lời giải đáp. Câu hỏi của e như sau:
Làm thế nào khi em nhập dữ liệu vào dòng trên thì nó sẽ tự động chèn thêm một dòng bên dưới để tiếp tục nhập dữ liệu
Các bạn giúp e với. Tôi có gửi file đính kèm. thanks!

 

[trangvang192]

Nếu những ô nào chứa công thức thì tự sao chép vào những dòng vừa Insert thêm thì làm thế nào nữa bạn.
Thanks!

 

[Hong.Van]

Nếu những ô nào chứa công thức thì tự sao chép vào những dòng vừa Insert thêm thì làm thế nào nữa bạn.
Thanks!

Cái này bạn tìm hiểu Data/List

 

[trangvang192]

bạn nói rỏ hơn được không

 

[thanhlam038]

các bác giúp đỡ e: Ví dụ e có một bảng dữ liệu gồm 10 dòng. giũa các dòng có kỹ tự là một dòng trắng. Em muốn khi e nhập vào dòng trắng đó thì nó tự động chèn thêm một dòng trằng bên dưới nữa. Xin chân thành cảm ơn

 

[Quang_Hải]

các bác giúp đỡ e: Ví dụ e có một bảng dữ liệu gồm 10 dòng. giũa các dòng có kỹ tự là một dòng trắng. Em muốn khi e nhập vào dòng trắng đó thì nó tự động chèn thêm một dòng trằng bên dưới nữa. Xin chân thành cảm ơn

Cuối năm rồi cũng ráng nghiến răng viết đại vài dòng code

 

[gh0st02]

Các bác cho em hỏi, nếu muốn chèn dòng trắng vào bên trên dòng vừa nhập dữ liệu thì làm thế nào ạ?
Khi đó data đã nhập sẽ tự động được đẩy xuống dưới, và ô để nhập dữ liệu sẽ nằm ở 1 dòng cố định.

 

[gpetuan]

Right Click vào tab sheet "Thong ke" ==> View Code ==> chép em này vào

Private Sub Worksheet_Change(ByVal Target As Range)
    If [C50000].End(xlUp).Row - Target.Row = 2 Then
        If Len(Target) Then Target.Offset(1).Resize(5).EntireRow.Insert
    End If
End Sub

Chỗ =2 thay đổi tùy ý của bạn
Thân

Cảm ơn bác. Dây cũng đứng thứ em cần. Nhưng trình độ em có hạn, làm theo bác đến bước paste Code vào rồi không bít làm sao nữa> mong bác giúp chi tiết hơn

 

[Nguyễn Hồng Quang]

Quan sát chủ đề thấy chủ yếu là chèn dòng thêm tự động từ 1 vị trí xác định và 1 số lượng dòng chèn thêm là cố định
Vậy muốn chèn dòng theo 1 vị trí bất kỳ và chèn thêm 1 số lượng dòng bất kỳ do chính chúng ta mong muốn thì làm thế nào???
Vâng để trả lời vấn đề này mình Xin góp vui 1 công cụ chèn dòng mình sưu tầm được

 

[PacificPR]

Quan sát chủ đề thấy chủ yếu là chèn dòng thêm tự động từ 1 vị trí xác định và 1 số lượng dòng chèn thêm là cố định
Vậy muốn chèn dòng theo 1 vị trí bất kỳ và chèn thêm 1 số lượng dòng bất kỳ do chính chúng ta mong muốn thì làm thế nào???
Vâng để trả lời vấn đề này mình Xin góp vui 1 công cụ chèn dòng mình sưu tầm được

He he. Nhiều công đoạn quá anh. Khéo lâu hơn làm thủ công đó

 

[gpetuan]

Các bác giúp em phần "chèn thêm dòng khi các dòng trong bảng mẫu sắp hết " như bài viết của bác concogia đi! Em đã thử paste đoạn code của bác ấy nhưng không biết làm sao cho nó chạy.
Help me, Please!

 

[lenolim]

Right Click vào tab sheet "Thong ke" ==> View Code ==> chép em này vào

Private Sub Worksheet_Change(ByVal Target As Range)
    If [C50000].End(xlUp).Row - Target.Row = 2 Then
        If Len(Target) Then Target.Offset(1).Resize(5).EntireRow.Insert
    End If
End Sub

Chỗ =2 thay đổi tùy ý của bạn
Thân

Bạn có thể bổ sung vào Code của bạn. thêm yêu cầu là. Khi ta Chèn thêm dòng: Trong bảng tính. Với những ô nào chứa công thức thì sẽ được Coppy xuống, còn những ô nhập dữ liệu thì không cần Coppy .
Xin cảm ơn bạn !

 

[lenolim]

Cảm ơn bác. Dây cũng đứng thứ em cần. Nhưng trình độ em có hạn, làm theo bác đến bước paste Code vào rồi không bít làm sao nữa> mong bác giúp chi tiết hơn

Mình đang theo dõi chủ đề này.
Bạn có thể bổ sung vào Code của bạn. thêm yêu cầu là. Khi ta Chèn thêm dòng: Trong bảng tính. Với những ô nào chứa công thức thì sẽ được Coppy xuống, còn những ô nhập dữ liệu thì không cần Coppy .
Xin cảm ơn bạn !

 

[tampt@stonevietnam]

Hóng

Mình đang theo dõi chủ đề này.
Bạn có thể bổ sung vào Code của bạn. thêm yêu cầu là. Khi ta Chèn thêm dòng: Trong bảng tính. Với những ô nào chứa công thức thì sẽ được Coppy xuống, còn những ô nhập dữ liệu thì không cần Coppy .
Xin cảm ơn bạn !

 

[Phamchuc0510]

Chào cả nhà mình muốn chèn thêm các dòng theo số cho trước. VD : dòng số 1 số cho trước là 1 thì sẽ insert thêm 1 dòng, dòng số 2 số cho trước là 2 thì sẽ insert 2 dòng...mà không cần thao tác thủ công từng dòng .Nhờ các cao thủ giúp em với giup em viết code VBA cho cái này không ạ.Em Xin cám ơn

 

[ledainga]

Chào cả nhà: Mình củng có vấn đề này mong mọi người giúp đỡ ạ. VD mình gộp ô E38 đến ô AD40. Mình muốn khi số ký tự trong vùng này tăng lên thì tự động chèn thêm dòng cho đủ hiển thị toàn bộ dữ liệu, và khi số ký tự bớt đi thì tự động xóa dòng vừa với số ký tự ở trong vùng này ạ. Mong mọi người giúp đỡ. Mình xin cảm ơn ạ