Tự đông chèn dòng

[phat81]

Nhờ các bác xem hộ em ví dụ này excell có thể thực hiện được khôngView attachment Book1.xls

 

[khoa_pr]

Ý bạn là cứ cuối dòng số 6 (tức dòng cuối cùng của khung) thì tự động chèn thêm dòng trống hả?

 

[yeuthamhangxom]

Nhờ các bác xem hộ em ví dụ này excell có thể thực hiện được khôngView attachment 36368

C1 Có thể dùng chức năng list trong excel
Chúc cả nhà cuối tuần vui vẻ.

 

[phat81]

Ý bạn là cứ cuối dòng số 6 (tức dòng cuối cùng của khung) thì tự động chèn thêm dòng trống hả?

đúng rồi dó bạn thay vì mình phải xuống cuối khung Ctrl+

 

[khoa_pr]

Tự động chèn dong và đóng khung

đúng rồi dó bạn thay vì mình phải xuống cuối khung Ctrl+

Chào bạn!
LẦn trước tôi thấy có thành viên cũng hỏi và có người trả lời, tôi sưu tầm được và gởi lại bạn xem thử nhé. Tác giả này dùng chức năng Conditional Formatting.

 

[phat81]

Chào bạn!
LẦn trước tôi thấy có thành viên cũng hỏi và có người trả lời, tôi sưu tầm được và gởi lại bạn xem thử nhé. Tác giả này dùng chức năng Conditional Formatting.

Cám ơn bạn!
Ý mình là chèn dòng xuống chứ không phải kẽ dòng vì cuối khung có thuyết minh nếu kẽ xuống thì thuyết minh bị mất

 

[concogia]

Cám ơn bạn!
Ý mình là chèn dòng xuống chứ không phải kẽ dòng vì cuối khung có thuyết minh nếu kẽ xuống thì thuyết minh bị mất

Bài này yêu cầu của bạn hơi ngồ ngộ, có chỗ không rõ ràng,cái bảng đó bắt đầu từ số mấy, bạn đang ở số 5 mà nhập vào số 3000 thì sao? chèn 2 dòng một dòng cho vào giá trị là số 6, còn dòng kia?. Không biết rõ ý định của bạn nên mình làm theo ý chủ quan của mình thôi nhé ( hổng biết đúng hông nữa):
- Bắt đầu ở số 5 theo như bài của bạn
- Mỗi lần nhập mới chỉ được nhập giá trị hơn giá trị hiện tại là 1
- Mình làm một sheet thôi, còn lại nếu đúng ý bạn tự làm tiếp nhé
Thân

 

[anhbatt]

Bài này yêu cầu của bạn hơi ngồ ngộ, có chỗ không rõ ràng,cái bảng đó bắt đầu từ số mấy, bạn đang ở số 5 mà nhập vào số 3000 thì sao? chèn 2 dòng một dòng cho vào giá trị là số 6, còn dòng kia?. Không biết rõ ý định của bạn nên mình làm theo ý chủ quan của mình thôi nhé ( hổng biết đúng hông nữa):
- Bắt đầu ở số 5 theo như bài của bạn
- Mỗi lần nhập mới chỉ được nhập giá trị hơn giá trị hiện tại là 1
- Mình làm một sheet thôi, còn lại nếu đúng ý bạn tự làm tiếp nhé
Thân

Chào concogia!
bạn có thể hướng dẫn code tự
động chèn thêm số hàng (dòng) bằng một số cho trước không?
Ví dụ: ở ô A1 = 5 thì trong khu vực: A3:F4 (có dòng tiêu đề, và một mẫu tin có stt là 1, khu vực này được kẻ border rồi) sẽ tự động chèn thêm 5 mẫu tin có stt là 2, 3 ...6 do có trước đó mẫu tin stt 1.
Ah đồng thời trong sheet mình có 2 khu vực riêng cần in (mỗi khu vực in nhỏ) trong một trang giấy thì phải làm thế nào?
Mong concogia và các bạn trong diễn đàn chỉ giúp!!! cảm ơn

 

[phat81]

Bài này yêu cầu của bạn hơi ngồ ngộ, có chỗ không rõ ràng,cái bảng đó bắt đầu từ số mấy, bạn đang ở số 5 mà nhập vào số 3000 thì sao? chèn 2 dòng một dòng cho vào giá trị là số 6, còn dòng kia?. Không biết rõ ý định của bạn nên mình làm theo ý chủ quan của mình thôi nhé ( hổng biết đúng hông nữa):
- Bắt đầu ở số 5 theo như bài của bạn
- Mỗi lần nhập mới chỉ được nhập giá trị hơn giá trị hiện tại là 1
- Mình làm một sheet thôi, còn lại nếu đúng ý bạn tự làm tiếp nhé
Thân

Cám ơn bạn concogia rất nhiều! Vậy là đúng ý mình rồi đó bạn, mà bạn có thể giúp mình vd như là nhập số 100 thì chèn 100 dòng ở bản trên còn ở bản dưới chèn 2 dòng một, 1 dòng bỏ giá trị 100 vào dòng kia thì bỏ trống.
cám ơn!!!

 

[concogia]

Cám ơn bạn concogia rất nhiều! Vậy là đúng ý mình rồi đó bạn, mà bạn có thể giúp mình vd như là nhập số 100 thì chèn 100 dòng ở bản trên còn ở bản dưới chèn 2 dòng một, 1 dòng bỏ giá trị 100 vào dòng kia thì bỏ trống.
cám ơn!!!

Muốn chèn bao nhiêu dòng cũng được, bạn sửa lại chỗ này một tý
Rows(H).resize(soluong).select
Selection.Insert Shift:=xlDown
Ở dưới
Rows(J).Resize(2).select
Selection.Insert Shift:=xlDown
nhưng sau đó thì sao?, mình không kiểm soát được nó( vì bạn nhập số "bi nhiêu" thì nó chèn "bí" nhiêu, ngay cả khi bạn lỡ bấm 2 lần thì nó chèn 200 dòng), chèn lần 2, 3... chắc nó chạy ra ngoài bảng tính luôn quá, cái này chỉ giải quyết vấn đề bạn hỏi thôi chứ việc của bạn nêu không rõ nên không khống chế nó được
Thân

 

[DNam]

Muốn chèn bao nhiêu dòng cũng được, bạn sửa lại chỗ này một tý
Rows(H).resize(soluong).select
Selection.Insert Shift:=xlDown
Ở dưới
Rows(J).Resize(2).select
Selection.Insert Shift:=xlDown
nhưng sau đó thì sao?, mình không kiểm soát được nó( vì bạn nhập số "bi nhiêu" thì nó chèn "bí" nhiêu, ngay cả khi bạn lỡ bấm 2 lần thì nó chèn 200 dòng), chèn lần 2, 3... chắc nó chạy ra ngoài bảng tính luôn quá, cái này chỉ giải quyết vấn đề bạn hỏi thôi chứ việc của bạn nêu không rõ nên không khống chế nó được
Thân

Sau khi bấm (trước khi chạy thủ tục) bạn cho cái CommandButtom đó

.Enabled = False

Sau khi chạy xong thì gán số dòng về 0 và lúc này mới cho cái CommandButtom đó

.Enabled = True

thì không sợ bấm dính lần 2, 3

 

[anhbatt]

Muốn chèn bao nhiêu dòng cũng được, bạn sửa lại chỗ này một tý
Rows(H).resize(soluong).select
Selection.Insert Shift:=xlDown
Ở dưới
Rows(J).Resize(2).select
Selection.Insert Shift:=xlDown
nhưng sau đó thì sao?, mình không kiểm soát được nó( vì bạn nhập số "bi nhiêu" thì nó chèn "bí" nhiêu, ngay cả khi bạn lỡ bấm 2 lần thì nó chèn 200 dòng), chèn lần 2, 3... chắc nó chạy ra ngoài bảng tính luôn quá, cái này chỉ giải quyết vấn đề bạn hỏi thôi chứ việc của bạn nêu không rõ nên không khống chế nó được
Thân

Cảm ơn concogia nha!
Thế còn mình muốn chèn 100 hàng vào rồi và 100 hàng đó có copy công thức của các hàng trên thì code là sao hả (tức là hàng 1 có công thức, chèn thêm 100 hàng dưới hàng 1 từ hàng 2 đến 101 đều có công thức copy tương đối theo hàng 1)

 

[concogia]

Cảm ơn concogia nha!
Thế còn mình muốn chèn 100 hàng vào rồi và 100 hàng đó có copy công thức của các hàng trên thì code là sao hả (tức là hàng 1 có công thức, chèn thêm 100 hàng dưới hàng 1 từ hàng 2 đến 101 đều có công thức copy tương đối theo hàng 1)

Thì làm như "zì":
Thí dụ ô A1 chứa công thức muốn sao chép ( muốn tương đối, hay tuyệt đố là theo ý bạn)
Chép qua 100 dòng mới chèn ( phải xác định được ô đầu của 100 dòng đó) thí dụ ô A7
Range(Cells(7, 1), Cells(107, 1)).Select
Selection = Range("a1").Formula
Nhưng theo ý mình bạn nên đưa bài lên vì trong gia đình mình có rất nhiều cao thủ sẵn sàng trợ giúp bạn, chứ bạn ráp mỗi thứ một tý như "zì" khi làm xong ý bạn một đàng nó chạy một nẻo là "zui" lắm đó tới lúc bạn bị "tèo" ráng chịu à nha
Thân