Làm sao để Label hiển thị dữ liệu động theo Sheet Data ! (8 người xem)

[Mr Okebab]

To: Okebab,
1.

Dim HC, SL, i, STT As Integer

Nếu khai báo như trên thì chỉ có biến STT là kiểu Integer
Còn các biến HC, SL, i là kiểu Variant
Đối với Visual Basic 6.0 thì cũng gặp trường hợp giống vậy. Nếu dùng Visual Basic .Net thì khai báo như trên thì các biến đều là biến kiểu Integer.
2.

HC = Sheet1.Range("B65000").End(xlUp).Row

Thông thường khi viết một thủ tục, chúng ta sẽ gọi thủ tục đó từ Menu hoặc Shortcut.
Nếu viết như trên thì sẽ bị gặp lỗi một khi bạn gọi thủ tục mà workbook khác đang Active. Đây là lỗi thường gặp khi chúng ta viết các Add-In. Ví dụ như Add-in của bác phamduylong.
Chúng ta nên tập viết code như sau:

HC = Thisworkbook.Worksheets("Sheet1").Range("B65000").End(xlUp).Row

Lê Văn Duyệt

Trước hết xin cảm ơn bác rất nhiều.

1. Có lẽ là như vậy, vì chẳng qua học lỏm lâu ngày thành thói quen chứ cũng không biết rằng khai báo như vậy là sai (so với mục đích) - Đang nói về VBA. Chắc lần sau cứ mỗi thằng 1 DIM cho chắc ăn. Cảm ơn bác.
2. Code của bác sao dài thế : Thực ra có 2 điều kiện để đảm bảo là code lấy dữ liệu trên File mình đang báo cáo :

• Trong một chương trình, tên các Sheet trong VBA luôn được thay đổi để đảm bảo rằng nó không nhầm với sheet của . . . file khác : VD : S001; S002; S003. Ở đây gọi là Sheet1 chỉ là VD thôi

• Khi bắt đầu vào code em đã cho Sheet1 (của File báo cáo) Active rồi (do em đặt code của nó ở bên dưới)

Tất nhiên code của bác luôn đủ (thế mới khổ), tuy nhiên chính vì thế code luôn dài. Chính vì vậy nên đặt tên lại các sheet trong VBA và dùng nó khi viết code thì nhanh và chính xác hơn nhiều.

Ở mỗi một mức độ sẽ có code cho riêng nó (addins khác, 1 sub được gọi và chạy trực tiếp khác). Nếu lấy 1 cái để xét về tổng thể thì e . . . quá sức em.

Cảm ơn bác.

Thân!
​

 

[tranquangvu1989]

xin cám ơn vì các chỉ dẫn rất hữu ích, vui lòng chỉ dùm em làm sao để tự động mở rộng vùng in theo số lượng nhãn, đồng thời làm sao để các nhãn cách đều nhau theo 1 định dạng, e phải tự điều chỉnh tay độ rộng từng dòng và từng cột nên lâu quá. làm ơn giúp dùm em

e muốn 1 trang in 8 nhãn cách đều nhau, khi cắt ra sẽ bằng nhau, và tự động mở rộng vùng in

Em ko rành VBA lắm nên lấy code ở trên chế lại, chỗ nào không ổn làm ơn điều chỉnh dùm em.

Chân thành cám ơn nhiều
http://www.mediafire.com/download/bxxy2f6azaphe4u/Nhansanpham.xls

 

[dhn46]

xin cám ơn vì các chỉ dẫn rất hữu ích, vui lòng chỉ dùm em làm sao để tự động mở rộng vùng in theo số lượng nhãn, đồng thời làm sao để các nhãn cách đều nhau theo 1 định dạng, e phải tự điều chỉnh tay độ rộng từng dòng và từng cột nên lâu quá. làm ơn giúp dùm em

e muốn 1 trang in 8 nhãn cách đều nhau, khi cắt ra sẽ bằng nhau, và tự động mở rộng vùng in

Em ko rành VBA lắm nên lấy code ở trên chế lại, chỗ nào không ổn làm ơn điều chỉnh dùm em.

Chân thành cám ơn nhiều
http://www.mediafire.com/download/bxxy2f6azaphe4u/Nhansanpham.xls

Bạn tham khảo tiện ích in hàng loạt, link tại chữ ký của tôi sẽ giúp bạn xử lý vấn đề.

 

[tranquangvu1989]

Bạn tham khảo tiện ích in hàng loạt, link tại chữ ký của tôi sẽ giúp bạn xử lý vấn đề.

cám ơn rất rất nhiều, em đang ngâm cứu thử

 

[tranquangvu1989]

Bạn tham khảo tiện ích in hàng loạt, link tại chữ ký của tôi sẽ giúp bạn xử lý vấn đề.

Tiện ích của anh rất hữu dụng cho việc in bảng lương, nói chung là dạng mailmerge, và đã khắc phục được vấn đề tự mở rộng vùng in, và canh đều rất đẹp, nhưng e mò mãi mà cũng không thể in theo số lượng được, nó chỉ in theo danh sách có sẵn.

File ví dụ ở trên của em cũng tương đối rõ, e muốn canh đều, có dấu cắt giấy, mở rộng vùng in tự động, in theo số lượng yêu cầu, thùng cuối cùng nếu có lẻ thì thì để số lẻ vào. Và tốc độ nhanh chứ file của bác dhn46 chậm quá. Dù sao cũng cám ơn bác rất nhiều.

E nghĩ vấn đề của em cũng đơn giản nhưng vì không rành về VBA lắm nên chưa làm được, các bác giúp em với.