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

Có thể bạn quan tâm

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 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

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

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

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

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

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

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

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

Thành viên chính thức

Tham gia 5/11/11 Bài viết 98 Được thích 40 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,776 Được thích 23,229 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

Thành viên gạo cội

Tham gia 21/2/09 Bài viết 6,077 Được thích 8,011 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

Thành viên gạo cội

Tham gia 21/2/09 Bài viết 6,077 Được thích 8,011 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

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: 41

Upvote 0

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

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,776 Được thích 23,229 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,776 Được thích 23,229 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: 127

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@

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

N Chia sẻ với mọi người bản dịch của một cuốn cách về Power Query

nguyendang95
Hôm qua, lúc 22:19
PowerBI

Trả lời 0 Đọc 24 Hôm qua, lúc 22:19 nguyendang95 N

Nếu diễn đàn GPE đóng cửa?

PhanTuHuong
14/12/25
Thư giãn

Trả lời 20 Đọc 721 Hôm qua, lúc 21:01 SA_DQ

H hướng dẫn xóa dòng, cột file excel

hoangvucntt
Hôm qua, lúc 10:16
Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu

Trả lời 1 Đọc 45 Hôm qua, lúc 17:39 ptm0412

L nhờ hoàn thiện file dò xổ số

levovantoan
Thứ sáu lúc 23:25
Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 4 Đọc 143 Hôm qua, lúc 12:01 Phan Thế Hiệp

N Hướng dẫn công thức Query kết hợp Arrayfomula bị lỗi

Na7979
Hôm qua, lúc 11:40
Lọc và sắp xếp dữ liệu

Trả lời 0 Đọc 33 Hôm qua, lúc 11:40 Na7979 N D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện