Cách Viết Code VBA để Chèn Dòng động Theo Bảng Tính?

Trang chủ » Chèn Dòng Trong Excel Vba » Cách Viết Code VBA để Chèn Dòng động Theo Bảng Tính?

Có thể bạn quan tâm

Giải Pháp Excel
  • Trang chủ Có gì mới Hoạt động gần nhất Tác giả
  • Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
  • Video New Video về Excel Video về tin học khác Tin tức về tin học chung
  • Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
  • Tài nguyên Đánh giá mới nhất Tìm tài nguyên
  • Facebook
  • Đóng góp
Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…
  • Tìm bài viết mới
  • Tìm theo chuyên mục
Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

  • Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc
  • Trang chủ
  • Diễn đàn
  • Lập Trình với Excel
You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Cách viết code VBA để chèn dòng động theo bảng tính? (1 người xem)
  • Thread starter Thread starter tiendungnst
  • Ngày gửi Ngày gửi 26/3/13
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) T

tiendungnst

Thành viên chính thức
Tham gia 9/7/07 Bài viết 87 Được thích 5 Chào GPE! Nhờ các ACE diễn đàn hướng dẫn giúp cách viết VBA để chèn thêm dòng trong bảng tính đính kèm phía dưới của mình. Theo cách viết của mình thì hiện nay lệnh chèn dòng sẽ là: Copy 03 dòng 12;13 và 14 và chèn vào dòng 40 bằng lệnh INSERT COPY CELL ( để có thể giữ nguyên công thức của dòng) Có cách nào để thay đổi việc chèn dòng này luôn luôn được chèn vào dòng ngay phía trên của các dòng tổng hợp số liệu (các dòng có nhiều màu đấy ah)? Nhờ các cao thủ chỉ thêm là có thể viết VBA như thế nào để COPY thêm các dòng mà không phải để 03 dòng trống phía trên cùng không ah? Xin cảm ơn trước! Lần chỉnh sửa cuối: 26/3/13 Sắp xếp theo thời gian sắp xếp theo bầu chọn T

tiendungnst

Thành viên chính thức
Tham gia 9/7/07 Bài viết 87 Được thích 5 Xin lỗi vì file up lên bị lỗi, đã up lại, mong mọi người hướng dẫn giúp tí ah Upvote 0 hungpecc1

hungpecc1

Thành viên gắn bó
Tham gia 24/8/12 Bài viết 1,709 Được thích 2,304 Giới tính Nam
tiendungnst đã viết: Chào GPE! Nhờ các ACE diễn đàn hướng dẫn giúp cách viết VBA để chèn thêm dòng trong bảng tính đính kèm phía dưới của mình. Theo cách viết của mình thì hiện nay lệnh chèn dòng sẽ là: Copy 03 dòng 12;13 và 14 và chèn vào dòng 40 bằng lệnh INSERT COPY CELL ( để có thể giữ nguyên công thức của dòng) Có cách nào để thay đổi việc chèn dòng này luôn luôn được chèn vào dòng ngay phía trên của các dòng tổng hợp số liệu (các dòng có nhiều màu đấy ah)? Nhờ các cao thủ chỉ thêm là có thể viết VBA như thế nào để COPY thêm các dòng mà không phải để 03 dòng trống phía trên cùng không ah? Xin cảm ơn trước! Nhấp chuột vào đây để mở rộng...
tiendungnst đã viết: Xin lỗi vì file up lên bị lỗi, đã up lại, mong mọi người hướng dẫn giúp tí ah Nhấp chuột vào đây để mở rộng...
Mở file bạn lên mình record Macro là có code ngay mà --> bạn test thử xem [GPECODE=vb] Sub Macro1() On Error Resume Next ActiveSheet.AutoFilterMode = 0 With [A65536].End(3) .Resize(, 175).Copy .Offset(1).Resize(3, 175) .Offset(1).Resize(3, 175).SpecialCells(2).Value = "" End With End Sub [/GPECODE] Upvote 0 T

tiendungnst

Thành viên chính thức
Tham gia 9/7/07 Bài viết 87 Được thích 5 Cách viết code VBA để chèn dòng theo yêu cầu! Hiện mình đang có một bảng tính như file đính kèm và đã ghi được một đoạn code VBA để thực hiện nhu cầu chèn thêm dòng; với đoạn code mà mình hiện có thì nút lệnh chèn dòng của mình sẽ thực hiện chèn thêm 02 dòng vào phía trên của vùng A43:FS43, nhưng chèn dòng kiểu này thì sau khi đã nhập dữ liệu đến vùng màu xanh lá, nhấp nút chèn dòng thì nó lại chèn thêm 02 dòng ở giữa vùng dữ liệu đã nhập. Nhu cầu của mình là luôn luôn thực hiện việc chèn dòng vào ngay phía trên vùng màu xanh lá để 02 dòng mới chèn luôn là dòng liền trên dòng màu xanh lá thì phải làm thế nào ah? - Nhờ GPE hướng dẫn giúp tí: với bảng tính đính kèm, mình muốn là mờ đi vùng A1:FS11 (không hiện các cell ở vùng này) để thiết kế các nút lệnh cho đẹp thì phải làm thế nào ah? - Đối với vùng dữ liệu A45:FS87 mình muốn hide và không cho nhập dữ liệu hoặc chỉnh sửa công thức và bảo vệ bằng mật khẩu thì phải làm ntn ah? Upvote 0 T

tiendungnst

Thành viên chính thức
Tham gia 9/7/07 Bài viết 87 Được thích 5
hungpecc1 đã viết: Mở file bạn lên mình record Macro là có code ngay mà --> bạn test thử xem [GPECODE=vb] Sub Macro1() On Error Resume Next ActiveSheet.AutoFilterMode = 0 With [A65536].End(3) .Resize(, 175).Copy .Offset(1).Resize(3, 175) .Offset(1).Resize(3, 175).SpecialCells(2).Value = "" End With End Sub [/GPECODE] Nhấp chuột vào đây để mở rộng...
Mình viết code theo như của bạn, nhưng sao ko chạy được nhỉ? Bạn xem giúp mình và hướng dẫn cụ thể giúp mình được ko ah: http://www.giaiphapexcel.com/forum/...ode-VBA-để-chèn-dòng-theo-yêu-cầu!&highlight= Upvote 0 hungpecc1

hungpecc1

Thành viên gắn bó
Tham gia 24/8/12 Bài viết 1,709 Được thích 2,304 Giới tính Nam
tiendungnst đã viết: Hiện mình đang có một bảng tính như file đính kèm và đã ghi được một đoạn code VBA để thực hiện nhu cầu chèn thêm dòng; với đoạn code mà mình hiện có thì nút lệnh chèn dòng của mình sẽ thực hiện chèn thêm 02 dòng vào phía trên của vùng A43:FS43, nhưng chèn dòng kiểu này thì sau khi đã nhập dữ liệu đến vùng màu xanh lá, nhấp nút chèn dòng thì nó lại chèn thêm 02 dòng ở giữa vùng dữ liệu đã nhập. Nhu cầu của mình là luôn luôn thực hiện việc chèn dòng vào ngay phía trên vùng màu xanh lá để 02 dòng mới chèn luôn là dòng liền trên dòng màu xanh lá thì phải làm thế nào ah? - Nhờ GPE hướng dẫn giúp tí: với bảng tính đính kèm, mình muốn là mờ đi vùng A1:FS11 (không hiện các cell ở vùng này) để thiết kế các nút lệnh cho đẹp thì phải làm thế nào ah? - Đối với vùng dữ liệu A45:FS87 mình muốn hide và không cho nhập dữ liệu hoặc chỉnh sửa công thức và bảo vệ bằng mật khẩu thì phải làm ntn ah? Nhấp chuột vào đây để mở rộng...
Post bài linh tink quá -->spam là bị xoá bài đấy http://www.giaiphapexcel.com/forum/...iết-code-VBA-để-chèn-dòng-động-theo-bảng-tính Bạn đã enable Macro chưa --> xem file đính kèm : Upvote 0 T

tiendungnst

Thành viên chính thức
Tham gia 9/7/07 Bài viết 87 Được thích 5
hungpecc1 đã viết: Post bài linh tink quá -->spam là bị xoá bài đấy http://www.giaiphapexcel.com/forum/showthread.php?78722-C%C3%A1ch-vi%E1%BA%BFt-code-VBA-%C4%91%E1%BB%83-ch%C3%A8n-d%C3%B2ng-%C4%91%E1%BB%99ng-theo-b%E1%BA%A3ng-t%C3%ADnh Bạn đã enable Macro chưa --> xem file đính kèm : Nhấp chuột vào đây để mở rộng...
Nhờ bạn xem lại giúp, vì code của bạn khi chèn dòng thì đúng là luôn luôn ở cuối cùng, nhưng nó lại tự động xóa đi những dòng tổng cộng phía dưới nên bảng tính bị mất dữ liệu. Nhờ bạn xem lại giúp, thank so much, mình sẽ rút kinh nghiệm khi post bài. Upvote 0 hungpecc1

hungpecc1

Thành viên gắn bó
Tham gia 24/8/12 Bài viết 1,709 Được thích 2,304 Giới tính Nam
tiendungnst đã viết: Nhờ bạn xem lại giúp, vì code của bạn khi chèn dòng thì đúng là luôn luôn ở cuối cùng, nhưng nó lại tự động xóa đi những dòng tổng cộng phía dưới nên bảng tính bị mất dữ liệu. Nhờ bạn xem lại giúp, thank so much, mình sẽ rút kinh nghiệm khi post bài. Nhấp chuột vào đây để mở rộng...
Cụ thể hơn đi, mình không hiểu bảng tính của bạn, không hiểu dòng tổng cộng nào-+*/ Upvote 0 T

tiendungnst

Thành viên chính thức
Tham gia 9/7/07 Bài viết 87 Được thích 5
hungpecc1 đã viết: Cụ thể hơn đi, mình không hiểu bảng tính của bạn, không hiểu dòng tổng cộng nào-+*/ Nhấp chuột vào đây để mở rộng...
Những dòng mình tổng hợp số liệu ở phía dưới, nó có nhiều màu xanh, đỏ tím vàng ấy. Cứ nhấp nút lệnh thêm dòng như bạn viết thì nó sẽ thêm vào 03 hàng trống nhưng đồng thời nó cũng xóa đi mất 03 hàng có màu xanh đỏ tím vàng( nhấp nút thêm dòng khoảng 10 lần là all các hàng có màu đó sẽ mất hết luôn) Những hàng có nhiều màu đó là những hàng mình tổng hợp số liệu cho 05 biểu mẫu báo cáo ở các sheet khác. Upvote 0 hungpecc1

hungpecc1

Thành viên gắn bó
Tham gia 24/8/12 Bài viết 1,709 Được thích 2,304 Giới tính Nam
tiendungnst đã viết: Những dòng mình tổng hợp số liệu ở phía dưới, nó có nhiều màu xanh, đỏ tím vàng ấy. Cứ nhấp nút lệnh thêm dòng như bạn viết thì nó sẽ thêm vào 03 hàng trống nhưng đồng thời nó cũng xóa đi mất 03 hàng có màu xanh đỏ tím vàng( nhấp nút thêm dòng khoảng 10 lần là all các hàng có màu đó sẽ mất hết luôn) Những hàng có nhiều màu đó là những hàng mình tổng hợp số liệu cho 05 biểu mẫu báo cáo ở các sheet khác. Nhấp chuột vào đây để mở rộng...
Thì vẫn là record Macro là có code ngay mà : [GPECODE=vb] Sub themdong() On Error Resume Next ActiveSheet.AutoFilterMode = 0 With [A65536].End(3) .Resize(, 175).Copy .Offset(1).Resize(3, 175).Insert xlDown, 0 .Offset(1).Resize(3, 175).SpecialCells(2).Value = "" End With Application.CutCopyMode = 0 End Sub [/GPECODE] Upvote 0 T

tiendungnst

Thành viên chính thức
Tham gia 9/7/07 Bài viết 87 Được thích 5
hungpecc1 đã viết: Thì vẫn là record Macro là có code ngay mà : [GPECODE=vb] Sub themdong() On Error Resume Next ActiveSheet.AutoFilterMode = 0 With [A65536].End(3) .Resize(, 175).Copy .Offset(1).Resize(3, 175).Insert xlDown, 0 .Offset(1).Resize(3, 175).SpecialCells(2).Value = "" End With Application.CutCopyMode = 0 End Sub [/GPECODE] Nhấp chuột vào đây để mở rộng...
Thank you so much! Bạn có thể hướng dẫn giúp mình thêm về phần này không: - Nhờ GPE hướng dẫn giúp tí: với bảng tính đính kèm, mình muốn là mờ đi vùng A1:FS11 (không hiện các cell ở vùng này) để thiết kế các nút lệnh cho đẹp thì phải làm thế nào ah? - Đối với vùng dữ liệu A45:FS87 mình muốn hide và không cho nhập dữ liệu hoặc chỉnh sửa công thức và bảo vệ bằng mật khẩu thì phải làm ntn ah? Upvote 0 T

tiendungnst

Thành viên chính thức
Tham gia 9/7/07 Bài viết 87 Được thích 5 Thank u so much! nhờ bạn chỉnh sửa thêm Macro tí xíu, con Macro của bạn viết khi thêm dòng thì dòng tổng hợp bằng SUBTOTAL phía dưới của mình nó không tính tổng cho các dòng mới thêm vào, không giống như lúc mình chọn Copy và insert copy sell thì SUBTOTAL tổng hợp luôn cả các dòng mới chèn vào. Upvote 0 hungpecc1

hungpecc1

Thành viên gắn bó
Tham gia 24/8/12 Bài viết 1,709 Được thích 2,304 Giới tính Nam
tiendungnst đã viết: Thank u so much! nhờ bạn chỉnh sửa thêm Macro tí xíu, con Macro của bạn viết khi thêm dòng thì dòng tổng hợp bằng SUBTOTAL phía dưới của mình nó không tính tổng cho các dòng mới thêm vào, không giống như lúc mình chọn Copy và insert copy sell thì SUBTOTAL tổng hợp luôn cả các dòng mới chèn vào. Nhấp chuột vào đây để mở rộng...
Công thức subtotal của bạn tại cột A là : PHP: Sao chép. =SUBTOTAL(3,$B$15:B36) Bạn bảo là chèn thêm dòng mới vào --> tức là dòng không hề có dữ liệu đúng không ? Khi chèn thêm dòng vào, cột B đã có dữ liệu đâu --> subtotal sẽ không tính tổng cho dòng mới thêm vào là đúng rồi Upvote 0 Ba Tê

Ba Tê

Cạo Rồi Khỏi Gội
Tham gia 5/5/09 Bài viết 12,123 Được thích 17,590 Giới tính Nam
tiendungnst đã viết: Thank u so much! nhờ bạn chỉnh sửa thêm Macro tí xíu, con Macro của bạn viết khi thêm dòng thì dòng tổng hợp bằng SUBTOTAL phía dưới của mình nó không tính tổng cho các dòng mới thêm vào, không giống như lúc mình chọn Copy và insert copy sell thì SUBTOTAL tổng hợp luôn cả các dòng mới chèn vào. Nhấp chuột vào đây để mở rộng...
Tất cả đều do công thức của bạn dùng các địa chỉ tuyệt đối, tương đối không hợp lý. Kiểm tra lại các công thức xem hợp với ý muốn của bạn không. Nếu chắc là đúng kết quả muốn có thì ấn nút "Thêm dòng", muốn chèn thêm mấy dòng thì nhập số dòng muốn chèn thêm vào InputBox. Có dòng 12 giữ lại công thức mẫu, không được xoá dòng 12. --------------------- Cả rừng công thức mảng + màu mè quá nhiều, file hổng "Rùa" mới lạ.

File đính kèm

  • ChenDong.rar ChenDong.rar 81.7 KB · Đọc: 721
Upvote 0 T

tiendungnst

Thành viên chính thức
Tham gia 9/7/07 Bài viết 87 Được thích 5
hungpecc1 đã viết: Công thức subtotal của bạn tại cột A là : PHP: Sao chép. =SUBTOTAL(3,$B$15:B36) Bạn bảo là chèn thêm dòng mới vào --> tức là dòng không hề có dữ liệu đúng không ? Khi chèn thêm dòng vào, cột B đã có dữ liệu đâu --> subtotal sẽ không tính tổng cho dòng mới thêm vào là đúng rồi Nhấp chuột vào đây để mở rộng...
Mình nói nhầm ko phải công thức SUBTOTAL, mà là công thức SUMPRODUCT(array1,array2, ....) ở các dòng ngang nhiều màu xanh đỏ phía dưới, khi ấn nút chèn dòng theo con Macro của bạn thì nó chỉ tổng hợp ở phần ...) đối với các dòng cũ, dòng mới được chèn, nó không tự tổng hợp trong hàm SUMPRODUCT Nhờ bạn xem lại giúp! mình gửi lại file đính kèm bạn xem giúp nhé!

File đính kèm

  • BCTK.rar BCTK.rar 176.7 KB · Đọc: 117
Upvote 0 hungpecc1

hungpecc1

Thành viên gắn bó
Tham gia 24/8/12 Bài viết 1,709 Được thích 2,304 Giới tính Nam
tiendungnst đã viết: Nhờ bạn xem lại giúp mình với, mình nói nhầm không phải là hàm SUBTOTAL mà là hàm SUMPRODUCT ở các hàng có nhiều màu phía dưới: http://www.giaiphapexcel.com/forum/s...%C3%ADnh/page2 Mình cũng đã tham khảo Macro của @bate cũng rất hay nhưng cũng có một số hạn chế, bạn có thể chỉnh lại Macro để hàm SUMPRODUCT có thể tự động SUM cho những dòng mới chèn được ko? Bạn có thể tích hợp vào Macro này hộp thoại InputBox và nhập vào số dòng cần chèn được ko? Cảm ơn bạn nhé Nhấp chuột vào đây để mở rộng...
thử code dưới đây xem --> ( chèn vào file cũ của bạn gửi lần trước ) [GPECODE=vb] Sub themdong() Dim rw As Long On Error Resume Next ActiveSheet.AutoFilterMode = 0 With Application rw = .InputBox("Input the Number of rows to insert ", "record Macro ", , , , , , 1) .ScreenUpdating = 0 End With With [A65536].End(3) .Resize(, 175).Copy .Resize(rw, 175).Insert xlDown, 0 .Offset(-(rw - 1)).Resize(3, 175).SpecialCells(2).Value = "" End With Application.CutCopyMode = 0 Application.ScreenUpdating = 1 End Sub [/GPECODE] Upvote 0 T

tr hoan

Thành viên mới
Tham gia 26/3/08 Bài viết 40 Được thích 5
tiendungnst đã viết: Chào GPE! Nhờ các ACE diễn đàn hướng dẫn giúp cách viết VBA để chèn thêm dòng trong bảng tính đính kèm phía dưới của mình. Theo cách viết của mình thì hiện nay lệnh chèn dòng sẽ là: Copy 03 dòng 12;13 và 14 và chèn vào dòng 40 bằng lệnh INSERT COPY CELL ( để có thể giữ nguyên công thức của dòng) Có cách nào để thay đổi việc chèn dòng này luôn luôn được chèn vào dòng ngay phía trên của các dòng tổng hợp số liệu (các dòng có nhiều màu đấy ah)? Nhờ các cao thủ chỉ thêm là có thể viết VBA như thế nào để COPY thêm các dòng mà không phải để 03 dòng trống phía trên cùng không ah? Xin cảm ơn trước! Nhấp chuột vào đây để mở rộng...
Bạn nên dùng tính năng bảng trong excel là đúng và tiện nhất "khuyên : Nên dùng" Upvote 0 T

tiendungnst

Thành viên chính thức
Tham gia 9/7/07 Bài viết 87 Được thích 5
hungpecc1 đã viết: thử code dưới đây xem --> ( chèn vào file cũ của bạn gửi lần trước ) [GPECODE=vb] Sub themdong() Dim rw As Long On Error Resume Next ActiveSheet.AutoFilterMode = 0 With Application rw = .InputBox("Input the Number of rows to insert ", "record Macro ", , , , , , 1) .ScreenUpdating = 0 End With With [A65536].End(3) .Resize(, 175).Copy .Resize(rw, 175).Insert xlDown, 0 .Offset(-(rw - 1)).Resize(3, 175).SpecialCells(2).Value = "" End With Application.CutCopyMode = 0 Application.ScreenUpdating = 1 End Sub [/GPECODE] Nhấp chuột vào đây để mở rộng...
Nhờ bạn xem và chỉnh lại giúp đoạn CODE để khắc phục hạn chế này được không ah: Hiện nay đoạn nút lệnh thêm dòng đang chạy rất tốt, nhưng nó vẫn hạn chế cho file của mình là có một số dòng mình đã ẩn đi cho đỡ rối và dài dòng, nhưng khi nhấp nút thêm bao nhiêu dòng thì các dòng đã bị ẩn nó hiện ra bấy nhiêu dòng. Bạn có thể giúp mình lại đoạn CODE để chỉ xuất hiện các dòng cần thêm còn các dòng đã bị ẩn thì vẫn bị ẩn như cũ được ko ah? (bạn có thể xem file đính kèm cho dễ hiểu) Bạn xem giúp mình để tối ưu hai đoạn CODE của nút lệnh "Xem sổ thụ lý" và "Xem đầy đủ" được không ah. Mình chỉ có thể ghi lại Macro chứ ko bít gì về VBA cả

File đính kèm

  • BCTK.rar BCTK.rar 181.3 KB · Đọc: 134
Upvote 0 pycckuu410

pycckuu410

Thành viên hoạt động
Tham gia 5/11/11 Bài viết 107 Được thích 48 Giới tính Nam Nghề nghiệp Kế toán Bạn thử macro này xem nhé: Sub chennhieudong() Dim tongdong, message, title, default message = "Nhap so dong muon chen them:" title = "Chen them nhieu dong" default = "5" tongdong = InputBox(message, title, default) If tongdong = "" Then Exit Sub End If For sodong = 1 To tongdong Selection.EntireRow.Insert Next sodong End Sub vba này giúp bạn chèn dòng xuống phía dưới cell hiện hành. Lần chỉnh sửa cuối: 3/1/14 Upvote 0 T

thientinh2110

Thành viên mới
Tham gia 27/12/12 Bài viết 12 Được thích 1
pycckuu410 đã viết: Bạn thử macro này xem nhé: Sub chennhieudong() Dim tongdong, message, title, default message = "Nhap so dong muon chen them:" title = "Chen them nhieu dong" default = "5" tongdong = InputBox(message, title, default) If tongdong = "" Then Exit Sub End If For sodong = 1 To tongdong Selection.EntireRow.Insert Next sodong End Sub vba này giúp bạn chèn dòng xuống phía dưới cell hiện hành. Nhấp chuột vào đây để mở rộng...
Cho mình hỏi có cách nào chèn dòng theo số liệu thống kê có sẵn không??? thay vì mình phải nhập insert bao nhiêu dòng vào input box, thì nó tự động chèn theo số liệu cell tổng của mình. Ví dụ: tại ô A1: 16, khi chạy macro thì nó tự chèn 16 dòng cho mình lun Mong các cao thủ giúp đỡ ah Upvote 0 T

thientinh2110

Thành viên mới
Tham gia 27/12/12 Bài viết 12 Được thích 1 Mọi người giúp mình với... Mình tìm trên mạng nhưng vẫn chưa tìm thấy...Cao thủ giúp em với... Upvote 0 SA_DQ

SA_DQ

/(hông là gì!
Thành viên danh dự Tham gia 8/6/06 Bài viết 14,797 Được thích 23,262 Nghề nghiệp U80 Bạn đến chổ này, nhiều món để chọn http://www.danketoan.com/forum/exce...oi-vo-1-csdl-co-so-du-lieu-da-san.182915.html Upvote 0 T

thientinh2110

Thành viên mới
Tham gia 27/12/12 Bài viết 12 Được thích 1 hix...mình mới bắt đầu tìm hiểu nên cũng chưa rành lắm..."THÊM DÒNG MỚI THEO SỐ LƯỢNG CHO TRƯỚC", gần giống với yêu cầu của em...nhưng...làm sao insert rồi nó copy cong thức xuống nhỉ??? (A1:j3 là mảng mẩu cần copy xuống, giống auto fill vậy ah...)​ Upvote 0 Quang_Hải

Quang_Hải

Thành viên gạo cội
Tham gia 21/2/09 Bài viết 6,079 Được thích 8,019 Nghề nghiệp Làm đủ thứ
thientinh2110 đã viết: hix...mình mới bắt đầu tìm hiểu nên cũng chưa rành lắm..."THÊM DÒNG MỚI THEO SỐ LƯỢNG CHO TRƯỚC", gần giống với yêu cầu của em...nhưng...làm sao insert rồi nó copy cong thức xuống nhỉ??? (A1:j3 là mảng mẩu cần copy xuống, giống auto fill vậy ah...) ​ Nhấp chuột vào đây để mở rộng...
Chèn dòng thì chỉ thế này thôi. PHP: Sao chép. Sub chendong() ActiveCell.Resize([A1]).EntireRow.Insert End Sub Hoăc là thế này. Hên xui nha. PHP: Sao chép. Sub chendong() With ActiveCell .EntireRow.Copy .Resize([A1]).EntireRow.Insert End With End Sub Lần chỉnh sửa cuối: 4/7/14 Upvote 0 T

thientinh2110

Thành viên mới
Tham gia 27/12/12 Bài viết 12 Được thích 1
quanghai1969 đã viết: Chèn dòng thì chỉ thế này thôi. PHP: Sao chép. Sub chendong() ActiveCell.Resize([A1]).EntireRow.Insert End Sub Hoăc là thế này. Hên xui nha. PHP: Sao chép. Sub chendong() With ActiveCell .EntireRow.Copy .Resize([A1]).EntireRow.Insert End With End Sub Nhấp chuột vào đây để mở rộng...
chèn và copy công thức (A1:J3) xuống theo. và tự động chèn theo số liệu có sẳn. (Ví dụ tại A2 có số liệu là 10, thì tự động chèn 10 mảng (A1:J3) Upvote 0 Quang_Hải

Quang_Hải

Thành viên gạo cội
Tham gia 21/2/09 Bài viết 6,079 Được thích 8,019 Nghề nghiệp Làm đủ thứ
thientinh2110 đã viết: chèn và copy công thức (A1:J3) xuống theo. và tự động chèn theo số liệu có sẳn. (Ví dụ tại A2 có số liệu là 10, thì tự động chèn 10 mảng (A1:J3) Nhấp chuột vào đây để mở rộng...
Muốn có đáp án đúng thì đưa file lên, rồi cho kết quả tạm. Đoán hoài cũng ngán lắm. Upvote 0 T

thientinh2110

Thành viên mới
Tham gia 27/12/12 Bài viết 12 Được thích 1
quanghai1969 đã viết: Muốn có đáp án đúng thì đưa file lên, rồi cho kết quả tạm. Đoán hoài cũng ngán lắm. Nhấp chuột vào đây để mở rộng...
Nhờ bạn giúp mình...mình tải file lên rùi ah

File đính kèm

  • insert copy cell.xlsx insert copy cell.xlsx 12.4 KB · Đọc: 76
Upvote 0 P

Pthanhbinhxd

Thành viên mới
Tham gia 21/3/13 Bài viết 13 Được thích 0 hướng dẫn mình cách chèn thêm 2 dòng ở vị trí định trước như sau dòng i=145, tiếp theo chèn thêm 2 dòng vị trí i=i-7=137......

File đính kèm

  • chen dong.xlsx chen dong.xlsx 48.9 KB · Đọc: 49
Upvote 0 giangleloi

giangleloi

Thành viên gắn bó
Tham gia 25/3/13 Bài viết 1,883 Được thích 1,441
hpkhuong đã viết: [GPECODE=vb] Sub chendong() Dim i As Long For i = 1 To 145 Step 8 Sheet2.Range("A" & i).EntireRow.Insert Next i End Sub [/GPECODE] Nhấp chuột vào đây để mở rộng...
Hình như người ta muốn chèn 1 lần 2 dòng mà. Hí hí Upvote 0 P

Pthanhbinhxd

Thành viên mới
Tham gia 21/3/13 Bài viết 13 Được thích 0 không được bạn ơi làm sao cho excel hiểu được là mình muốn chèn 2 dòng vào vịt trí dòng "no fill"< không tô màu> không nhỉ ? do bảng dữ liệu của mình rất dài đến 2000 dòng và nếu insert từ dòng vào vị trí mình muốn thì mình thấy mình hơi bị ngu quá hjj CHEN DONG.jpg

File đính kèm

  • chen dong.xlsx chen dong.xlsx 48.9 KB · Đọc: 42
Upvote 0 ChanhTQ@

ChanhTQ@

0901452không62
Tham gia 5/9/08 Bài viết 4,254 Được thích 4,861 Đây là macro chèn 2 dòng sau những ô ở cột [A:A] có số liệu hay công thức cho ra số: PHP: Sao chép. Option Explicit Sub Macro1() Dim Rng As Range, Rws&, J& Set Rng = Columns("A:A").SpecialCells(xlCellTypeConstants, 1) Set Rng = Union(Rng, Columns("A:A").SpecialCells(xlCellTypeFormulas, 1)) For J = Rng.CurrentRegion.Rows.Count To 1 Step -1 If Not Intersect(Rng, Cells(J, "A")) Is Nothing Then Rows(J + 1 & ":" & J + 2).Insert Shift:=xlDown End If Next J End Sub Còn chuyện chèn dòng vô những dòng chưa tô màu thì chờ chút! & đây, xin mời so sánh nha: PHP: Sao chép. Option Explicit Sub Macro1() Dim Rng As Range, Rws&, J& Set Rng = Columns("B:B").SpecialCells(xlCellTypeBlanks) For J = Rng.CurrentRegion.Rows.Count To 1 Step -1 If Not Intersect(Cells(J, "B"), Rng) Is Nothing Then Rows(J + 1 & ":" & J + 2).Insert Shift:=xlDown End If Next J End Sub Lần chỉnh sửa cuối: 9/7/15 Upvote 0 P

Pthanhbinhxd

Thành viên mới
Tham gia 21/3/13 Bài viết 13 Được thích 0 cho mình hỏi , muốn gán giá trị tại cells chỉ định trước vào macro như thế nào vậy các bạn VD ở dòng 3" step 8" nhưng mình muốn thay số 8 bằng 1 số trên 1 cells để người dùng có thể gán vào số khác số 8 Sub chendong() Dim i As Long For i = 1 To 145 Step 8 Sheet2.Range("A" & i).EntireRow.Insert Next i End Sub Upvote 0 giangleloi

giangleloi

Thành viên gắn bó
Tham gia 25/3/13 Bài viết 1,883 Được thích 1,441
Pthanhbinhxd đã viết: cho mình hỏi , muốn gán giá trị tại cells chỉ định trước vào macro như thế nào vậy các bạn VD ở dòng 3" step 8" nhưng mình muốn thay số 8 bằng 1 số trên 1 cells để người dùng có thể gán vào số khác số 8 Sub chendong() Dim i As Long For i = 1 To 145 Step 8 Sheet2.Range("A" & i).EntireRow.Insert Next i End Sub Nhấp chuột vào đây để mở rộng...
Nó sẽ như thế này nè (Ví dụ muốn gõ vào cell A1 ): Mã: Sao chép. Sub chendong() Dim i As Long For i = 1 To 145 Step Sheet2.[A1] Sheet2.Range("A" & i).EntireRow.Insert Next i End Sub Upvote 0 P

Pthanhbinhxd

Thành viên mới
Tham gia 21/3/13 Bài viết 13 Được thích 0 sao nó insert tại dòng đầu tiên thôi vậy nhỉ https://youtu.be/oaruS5bkiTU Upvote 0 N

nguyentramkha

Thành viên mới
Tham gia 21/9/15 Bài viết 6 Được thích 0 Em có 1 bảng tính A gồm 5 dòng để lấy dữ liệu từ một bảng B. Giả sử bảng B có hơn 5 dữ liệu thì bảng A bị thiếu. Vậy em nhờ anh chị cao thủ viết dùm code: Nếu dữ liệu bảng B nhiều hơn số dòng ở bảng A là n thì bảng A tự động thêm n dòng. Xin cám ơn trước.

File đính kèm

  • kha.xls kha.xls 18 KB · Đọc: 16
Upvote 0 SA_DQ

SA_DQ

/(hông là gì!
Thành viên danh dự Tham gia 8/6/06 Bài viết 14,797 Được thích 23,262 Nghề nghiệp U80 Mình làm theo cách ẩn dòng trống Bạn tham khảo theo file!

File đính kèm

  • gpeGiaoDuc.rar gpeGiaoDuc.rar 14 KB · Đọc: 123
Upvote 0 N

nguyentramkha

Thành viên mới
Tham gia 21/9/15 Bài viết 6 Được thích 0 Cám ơn SA_DQ, làm và tìm TKB 10 tiết/ngày thì dễ rồi, em làm rồi ngon lắm. Nhưng hao giấy quá, yêu cầu đặt ra là LBG mỗi tuần chỉ 1/2 trang A4 (gọn-đẹp và đủ chỗ dán). Vì vậy phải hạn chế, thực tế thì trường em không ai dạy hết 10t/ngày cả. Nên em không muốn dòng trống nhiều. Anh và các cao thủ giúp! Upvote 0 SA_DQ

SA_DQ

/(hông là gì!
Thành viên danh dự Tham gia 8/6/06 Bài viết 14,797 Được thích 23,262 Nghề nghiệp U80 Vậy thì thử cái ni; Nỏ mô dòng trống chi hết!

File đính kèm

  • gpeGiaoDuc.rar gpeGiaoDuc.rar 14 KB · Đọc: 129
Upvote 0 N

nguyentramkha

Thành viên mới
Tham gia 21/9/15 Bài viết 6 Được thích 0 Hay quá, đúng ý em rùi, em cảm ơn nhiều! Nhưng sài như thế nào ạ? Chỉ em cách chép vào file của em với! Upvote 0 ChanhTQ@

ChanhTQ@

0901452không62
Tham gia 5/9/08 Bài viết 4,254 Được thích 4,861
Hay quá, đúng ý em rùi, em cảm ơn nhiều! Nhưng sài như thế nào ạ? Chỉ em cách chép vào file của em với! Nhấp chuột vào đây để mở rộng...
Mình nghỉ bạn cần làm bây giờ là chép dữ liệu thực tế của bạn vô đúng các dòng ở trang tính TKB Bằng ngược lại thì bạn fải thiết kế thêm ở trang tính Lịch BG thêm giống như file đính kèm của bài gần nhất như trên. Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

L Thu Chi Gia Đình
  • lehang0812
  • Hôm qua, lúc 17:12
  • TPHCM
Trả lời 1 Đọc 29 Hôm qua, lúc 20:58 Gà Con yêu VBA Gà Con yêu VBA SA_DQ Copilot bình luận các ván cờ vua từng ngày. (1 người xem)
    • Thích
  • SA_DQ
  • 3/11/25
  • Chia sẻ
Trả lời 59 Đọc 2K Hôm qua, lúc 20:16 SA_DQ SA_DQ HeSanbi
  • Đã giải quyết
FitRowXL v1.1 - Giãn dòng tự động và bổ trợ in ấn Excel (*01/2026 mới)
    • Thích
    • Yêu thích
  • HeSanbi
  • 18/4/21
  • Lập Trình với Excel
Trả lời 69 Đọc 30K Hôm qua, lúc 17:50 HeSanbi HeSanbi ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
  • ongke0711
  • 6/10/24
  • Lập Trình với Excel
5 6 7 Trả lời 622 Đọc 91K Hôm qua, lúc 16:11 LOGANWover L Quang_Hải
  • Question Question
Chia sẻ một thuật toán đơn giản để trộn cells
    • Thích
    • Yêu thích
  • Quang_Hải
  • Thứ tư lúc 10:14
  • Lập Trình với Excel
Trả lời 12 Đọc 247 Hôm qua, lúc 11:13 Quang_Hải Quang_Hải HeSanbi TaxCode v4.33 - Tra cứu mã số thuế từ tổng cục thuế, masothue và thuvienphapluat
    • Thích
    • Yêu thích
  • HeSanbi
  • 27/11/25
  • Các Add-ins cho excel
Trả lời 19 Đọc 3K Hôm qua, lúc 08:54 HeSanbi HeSanbi HeSanbi
  • Question Question
Tạo Add-in, tệp Excel, Word, Access tự động cập nhật phiên bản mới từ Cloud cho chính nó
    • Thích
    • Yêu thích
  • HeSanbi
  • Thứ hai lúc 20:14
  • Lập Trình với Excel
Trả lời 1 Đọc 185 Thứ tư lúc 17:03 HeSanbi HeSanbi TranThanhPhong Hàm EXACT
    • Thích
  • TranThanhPhong
  • 30/4/14
  • Dự án: Công thức & Hàm 97-2019
Trả lời 3 Đọc 9K Thứ ba lúc 15:52 ptm0412 ptm0412 giaiphap Add-Ins cho Excel 2007 -2016 32bit và 64bit
    • Thích
    • Yêu thích
    • Ngạc nhiên
  • giaiphap
  • 8/8/15
  • Các Add-ins cho excel
4 5 6 Trả lời 518 Đọc 226K Thứ ba lúc 14:17 Gà Công Nghệ Gà Công Nghệ V Một Excel add-in vibe coding (1 người xem)
    • Thích
  • vietdang170
  • 28/1/26
  • Các Add-ins cho excel
Trả lời 18 Đọc 653 Thứ ba lúc 11:10 vietdang170 V H Xin giúp đặt điều kiện trong Conditional Formating
  • hoanglocphat
  • Thứ hai lúc 14:23
  • Hỏi đáp những vấn đề khác
Trả lời 6 Đọc 138 Thứ ba lúc 10:13 Gà Con yêu VBA Gà Con yêu VBA Nguyễn Duy Tuân
  • Dán lên cao
Phiên bản mới Add-in A-Tools AI v10 (2024)
    • Thích
  • Nguyễn Duy Tuân
  • 13/9/24
  • BLUESOFTS: A-Excel, A-Tools
Trả lời 61 Đọc 12K Thứ hai lúc 15:13 Nguyễn Duy Tuân Nguyễn Duy Tuân mrjun80 Xin giúp hàm excel để tìm 1 số trong số có 2 chữ số (1 người xem)
  • mrjun80
  • Thứ bảy lúc 23:43
  • Hàm và công thức Excel
Trả lời 4 Đọc 163 Chủ nhật lúc 08:38 Gà Con yêu VBA Gà Con yêu VBA N Vấn đề về hiệu năng khi thực hiện ghép chuỗi trong VBA với tần suất lớn
    • Thích
    • Cảm ơn
  • nguyendang95
  • 23/1/26
  • Excel và các ngôn ngữ lập trình khác
Trả lời 36 Đọc 997 Thứ bảy lúc 21:11 ptm0412 ptm0412 ongke0711
  • Question Question
Tra cứu thông tin mã số thuế (cập nhật lại code cũ)
    • Thích
    • Cảm ơn
    • Yêu thích
  • ongke0711
  • 24/7/25
  • Lập Trình với Excel
Trả lời 16 Đọc 2K Thứ bảy lúc 17:46 tuyethao T phuongnam366377 VNFastSearch – DLL tìm kiếm tiếng Việt tốc độ cao cho Excel VBA (1 người xem)
  • phuongnam366377
  • Thứ bảy lúc 14:41
  • Excel và các ngôn ngữ lập trình khác
Trả lời 0 Đọc 141 Thứ bảy lúc 14:41 phuongnam366377 phuongnam366377 N
  • Question Question
Tạo khung viền ô theo số trong ô (1 người xem)
    • Thích
  • Nguyễn Xuân Sơn
  • 29/1/26
  • Lập Trình với Excel
Trả lời 9 Đọc 230 Thứ bảy lúc 12:25 Mr.hieudoanxd Mr.hieudoanxd J Đừng chỉ "Cập nhật" dữ liệu. Hãy "Xếp chồng" chúng lên. (2 người xem)
    • Thích
  • jack nt
  • 29/1/26
  • Excel và các ngôn ngữ lập trình khác
Trả lời 5 Đọc 285 Thứ bảy lúc 10:27 ptm0412 ptm0412 T gửi email đến nhân viên công ty
  • tuantv9
  • 26/1/26
  • Excel và các ngôn ngữ lập trình khác
Trả lời 2 Đọc 262 30/1/26 nguyendang95 N H
  • Question Question
Code trích lọc mặt hàng theo thuế suất GTGT
  • hoanglocphat
  • 29/1/26
  • Lập Trình với Excel
Trả lời 4 Đọc 248 30/1/26 Maika8008 Maika8008 Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

  • HeSanbi 10
  • chothadiem 5
  • Gà Công Nghệ 5
  • Officexinh 4
  • vietdang170 4
  • HieuCD 3
  • chiendich 3
  • hoanglocphat 3
  • pycckuu410 3
  • VietHoangPhan 2
  • DeTong 2
  • Gà Con yêu VBA 2
  • Quang_Hải 2
  • linhdao2909 1
  • HUONGHCKT 1
  • vuvannguyen1972 1
  • Phuocam 1
  • ptm0412 1
  • LOGANWover 1

Thành viên có điểm tương tác cao nhất tháng

  • HeSanbi 14
  • Quang_Hải 7
  • vietdang170 5
  • Gà Con yêu VBA 4
  • chiendich 3
  • DeTong 3
  • Phuocam 3
  • pycckuu410 3
  • Officexinh 2
  • HUONGHCKT 2
  • HieuCD 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025
  • Trang chủ
  • Diễn đàn
  • Lập Trình với Excel
  • Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…
Back Top Bottom

Từ khóa » Chèn Dòng Trong Excel Vba