Chèn dòng dựa vào giá trị của cell.

[phuteo]

Mình đang gặp phải 1 vấn đề cần nhờ các bác chỉ giáo.Mình có 1 file gồm 2 cột, cột A là cột mã, cột B là số lượng.Câu hỏi là làm cách nào để khi gõ số lượng vào cột B sẽ sinh ra số dòng tương ứng với số lượng gõ vào cột B.

 

[sealand]

Bạn kiểm tra lại nhé.

 

[phuteo]

Bạn kiểm tra dùm mình sao nó chỉ nhân dòng cuối cùng thôi còn các dòng khác thì giữ nguyên.Cám ơn bạn nhiều vì sự nhiệt tình

 

[sealand]

Lỗi ở đây:

Sub PrintMark()
.......................................
Set Cl1 = Cl1.Offset([SIZE=3][COLOR=red][B]Cl[/B][/COLOR][/SIZE])
End If: Next
End Sub

Bạn sửa thành:

Sub PrintMark()
.......................................
Set Cl1 = Cl1.Offset([B][SIZE=3][COLOR=red]Cl*2[/COLOR][/SIZE][/B])
End If: Next
End Sub

 

[phuteo]

Cám ơn bạn nhiều nhé.Cho mình hỏi thêm là mình có thể khóa hay ẩn code này được không vậy.Vì máy công ty dùng chung

 

[sealand]

Bạn vào option của VBA đặt mật khẩu hoặc đạt mật khả share file là được

 

[phuteo]

Cám ơn bạn nhiều nhé