Code tự động thêm dòng

[123456q]

Chào cả nhà, VBA em mù tịt mong các bác giúp ca khó này với. Bảng tính có các cột và dòng như hình

Sau khi gõ xong ND4 thì ngay lập tức 1 hàng được chèn vào dưới hàng có ND4 với format như hàng ND4

Nếu xóa ND4 đi thì ngay lập tức nó sẽ xóa dòng 7 đi luôn, nếu xóa hết ND2, ND3, ND4 thì ngay lập tức các dòng 5, 6,7 (STT: 2,3,4) sẽ bị xóa (như hide dòng nhưng ở đây là xóa hẳn đi luôn)

Tóm lại đề bài là: Tức là chỉ để 1 dòng trên dòng "tổng cộng" nếu thêm nội dung thì nó sẽ tự động chèn thêm dòng, nếu xóa nội dung thì nó sẽ xóa dòng, các dòng của cột nội dung nếu xóa hết nội dung thì nó sẽ cũng xóa ngay dòng đó đi và cột STT sẽ được đánh lại theo đúng thứ tự 1, 2, 3,...
Nhưng phải là NGAY LẬP TỨC thực hiện lệnh, em đã thử một code xóa nhưng phải bấm cho nó chạy thì nó mới xóa, có mã nào mà nó tự thực hiện ko các bác

Mong cả nhà giúp em cái code với. Cảm ơn nhiều

 

[ChanhTQ@]

Xin nhờ các cao nhân code giùm em với. tạo gợi ý dữ liệu khi nhập vào form nhập liệu.
Mong các Cao thủ . . . .

Thứ nhất: Bài của bạn đang là bài xen ngang; Sao bạn không lập chủ đề mới để đúng theo nội 2ui?

Thứ nhì: Bạn iêu cầu làm Form & viết VBA

Nhưng dữ liệu của bạn chưa đáp ứng iêu cầu là 1 dữ liệu thực thụ; Nghĩa là bạn chưa có cột/trường quan trọng là [Mã HH]

Bỡi không có mã hàng nên các máy xài Font chữ khác nhau sẽ không hiểu Font mà bạn dùng đề nhập liệu cho cột [Tên hàng chi tiết] đang bây giờ.

Để CSDL fục vụ bạn mãi mãi theo thời gian, bạn sẽ fải nghĩ ngay đến việc tạo cho mỗi hàng hóa 1 mã duy nhất!

 

[Thaoquynhn]

Mình có dữ liệu như file đính kèm.
Sheet a: A1:E55. Là cấu trúc của A( ví dụ : A901 có sử dụng Pn ở cột C.)
Sheet W:là câu trúc W( ví dụ HU90C00 có sử dụng A901.
Mình muốn làm ra 1 file thể hiện cột W cột A cột Pn cột need. Như bảng từ cột G6 : K87.
Bảng này mình đang làm bằng cách copy. Dán.
Nhờ mọi người cho mình công thức hoạc code để làm nhanh nha

 

[yhan0107]

Chào cả nhà, mình có một trường hợp này xin tư vấn:
Nếu cho 1 giá trị tại dòng J2 (VD: 2) thì có 2 dòng sau A13
tương tự, nếu cho giá trị J2 là 4 thì sau A13 có 4 dòng
Tóm lại là nếu J2 giá trị bao nhiêu thì sau A13 có bấy nhiêu dòng
Ai biết giúp mình với nha. Xin cám ơn!

 

[befaint]

Chào cả nhà, mình có một trường hợp này xin tư vấn:
Nếu cho 1 giá trị tại dòng J2 (VD: 2) thì có 2 dòng sau A13
tương tự, nếu cho giá trị J2 là 4 thì sau A13 có 4 dòng
Tóm lại là nếu J2 giá trị bao nhiêu thì sau A13 có bấy nhiêu dòng
Ai biết giúp mình với nha. Xin cám ơn!

Mình dự tính tối đa một phiếu cần bao nhiêu dòng thì cứ chèn đủ từng đó, nhập dữ liệu đầy đủ, trước khi in thì mình lọc phần đã nhập dữ liệu rồi in...

 

[yhan0107]

Mình dự tính tối đa một phiếu cần bao nhiêu dòng thì cứ chèn đủ từng đó, nhập dữ liệu đầy đủ, trước khi in thì mình lọc phần đã nhập dữ liệu rồi in...

Thanks bác nhé! đúng cái mình cần

 

[yhan0107]

Mình dự tính tối đa một phiếu cần bao nhiêu dòng thì cứ chèn đủ từng đó, nhập dữ liệu đầy đủ, trước khi in thì mình lọc phần đã nhập dữ liệu rồi in...

Nhờ bác chút nữa, bác kiểm tra hộ cho mình file này, sao mình lấy dữ liệu từ sheet khác nó ko thực hiện nhỉ, mà phải đánh trực tiếp vào mới đc!

 

[phulien1902]

Nhờ bác chút nữa, bác kiểm tra hộ cho mình file này, sao mình lấy dữ liệu từ sheet khác nó ko thực hiện nhỉ, mà phải đánh trực tiếp vào mới đc!

Khi dùng sự kiện Worksheet_Change, bạn phải tác động vào Target thì Code mới chạy chứ.
Cụ thể, bây giờ bạn đặt trỏ chuột vào J2 rồi Enter 1 phát xem có được không nhé.

 

[yhan0107]

Khi dùng sự kiện Worksheet_Change, bạn phải tác động vào Target thì Code mới chạy chứ.
Cụ thể, bây giờ bạn đặt trỏ chuột vào J2 rồi Enter 1 phát xem có được không nhé.

Nhưng bg mình muốn nó chạy luôn ấy, có nghĩa là ko cần tác động gì vào ô J2 (vì ô J2 mình đang lấy dữ liệu ở sheet khác, cái file mình mới gửi lại đấy), nó vẫn chạy được, thế có được ko bác.

 

[phulien1902]

Nhưng bg mình muốn nó chạy luôn ấy, có nghĩa là ko cần tác động gì vào ô J2 (vì ô J2 mình đang lấy dữ liệu ở sheet khác, cái file mình mới gửi lại đấy), nó vẫn chạy được, thế có được ko bác.

Vậy bạn thử dán đoạn Code dưới vào Thisworkbook, ghi lại, đóng File rồi mở lại xem thế nào nhé:

Private Sub Workbook_Open()
    With Sheet2.Range("J2")
        .FormulaR1C1 = "=MAX(XNK!R3C1:R829C1)"
        .Value = .Value
    End With
End Sub

 

[yhan0107]

Vậy bạn thử dán đoạn Code dưới vào Thisworkbook, ghi lại, đóng File rồi mở lại xem thế nào nhé:

Private Sub Workbook_Open()
    With Sheet2.Range("J2")
        .FormulaR1C1 = "=MAX(XNK!R3C1:R829C1)"
        .Value = .Value
    End With
End Sub

Nhờ bác gửi lại file bác sửa được không!

 

[phulien1902]

Nhờ bác gửi lại file bác sửa được không!

File của bạn đây

 

[trangtt_1987]

File của bạn đây

Chào bạn, minh có xem file tự động chèn dòng khi in phiếu. M có thử chuyển qua file theo dõi của mình nhưng bị lỗi. Bạn có thể bớt chút thời gian xem giúp m trên file của m thì phải làm tnao không? M cám ơn bạn rất nhiều.

 

[be_09]

Chào bạn, minh có xem file tự động chèn dòng khi in phiếu. M có thử chuyển qua file theo dõi của mình nhưng bị lỗi. Bạn có thể bớt chút thời gian xem giúp m trên file của m thì phải làm tnao không? M cám ơn bạn rất nhiều.

Góp ý cho bạn:
1/ Bạn nên mở Topic mới với tiêu đề là "Cách truy vấn phiếu xuất từ 1 cơ sở dữ liệu". Vì, cái bạn hỏi (tự động chèn) không cùng chủ đề này.
2/ Chưa hiểu mục đích bạn muốn làm cái gì? Theo tôi thì để truy vấn thì dựa vào biển số xe (dữ liệu của bạn lại thiếu cột này), nếu là xe mới thì nên có cột số hóa đơn hoặc dựa vào mã đăng ký, chứ không ai dùng số như cách bạn làm (khi truy vấn nó sẽ ra 1 mớ hổn độn).

 

[hmhungtn]

Mình dự tính tối đa một phiếu cần bao nhiêu dòng thì cứ chèn đủ từng đó, nhập dữ liệu đầy đủ, trước khi in thì mình lọc phần đã nhập dữ liệu rồi in...

Dear Bác!
Cái lệnh của bác hay quá, hôm qua copy xuống sáng nay định áp dụng đoạn code của bác vào cái file đang dùng thì không dùng được, khi copy xong bấm F5 thấy báo không chạy, "run" bị mờ, bác làm ơn cho hỏi làm thế nào có thể copy đoạn code ấy để dùng vào file khác. Hôm qua mở nhiều trang quá không nhớ tải file của bác từ trang nào, bây giờ mới tìm lại được.
Dù chủ đề này hơi cũ rồi, nhưng nếu nhận được rất mong bác chỉ giáo.

Xin cám ơn rất nhiều!
(file đính kèm là ảnh chụp màn hình sau khi copy đoạn code và bấm F5 để chạy)
Mình là dân ngoại đạo, từ xưa đến nay ít dùng excel và rất lạ lẫm với VBA nên có gì bác hỗ trợ nhé.

 

[befaint]

bấm F5 thấy báo không chạy,

Ở ngoài bảng tính, nhập giá trị mới vào ô N9 rồi ấn Enter.

 

[hmhungtn]

Ở ngoài bảng tính, nhập giá trị mới vào ô N9 rồi ấn Enter.

Chân thành cám ơn befaint, mình đã làm được.

 

[themsan]

em có 1 file này,nhờ mọi người giúp đỡ với ạ,e muốn viết 1 code để khi nhập dữ liệu ở bảng input thì dữ liệu sẽ chuyển sang sheet detail,và bảng detail tự động thêm dòng khi bên input điền vào nội dung mới

 

[hngiatuong]

bạn tải file đính kèm, cho chạy Macro -> xem có đúng ko nhé !

Link: https://www.mediafire.com/?t7xn958qwl3q19a

AC Xin cho hỏi. Nếu mình muốn tạo khoảng 4 vùng nối tiếp nhau như vậy thì cần viết thêm thế nào ạ?

 

[ThuyDuong2024]

Em muốn tạo 1 sheet có 2 bảng dữ liệu trên và dưới. Muốn khi thay đổi giá trị = n trong 1 cell nào đó thì 2 bảng tự động chèn thêm hoặc ẩn đi n số dòng tương ứng. File e gửi kèm nội dung cần giúp ạ!