Nhờ xem code sử dụng Spinner để thay đổi phiếu in

Liên hệ QC

dinhduy

Thành viên hoạt động
Tham gia
24/11/07
Bài viết
167
Được thích
76
Em chào mọi người!

Em có vấn đề này, rất mong anh / chị hỗ trợ giúp đỡ em. Cảm ơn nhiều.
Cụ thể như sau:
- Sheet IN, em muốn thay đổi số dòng (tem dòng định vị bên trong sheet DATA) ở ô G2 thì thông tin sẽ tự động điền thông tin luôn ah.
=> Test thử: Em chạy sub, với STT 1 thì kết quả đúng nhưng khi chuyển qua STT 2 thì báo lỗi hoặc không chạy.
- Công ty tên, hiện tại em dùng hàm IF excel thôi ah, VBA e chưa biết sao viết, nếu nhờ VBA viết giúp em với.

Em xin trân trọng cảm ơn mọi người đã giúp đỡ rất nhiều ah!
 

File đính kèm

  • IN TEM 100x100.xlsb
    22.3 KB · Đọc: 6
Em chào mọi người!

Em có vấn đề này, rất mong anh / chị hỗ trợ giúp đỡ em. Cảm ơn nhiều.
Cụ thể như sau:
- Sheet IN, em muốn thay đổi số dòng (tem dòng định vị bên trong sheet DATA) ở ô G2 thì thông tin sẽ tự động điền thông tin luôn ah.
=> Test thử: Em chạy sub, với STT 1 thì kết quả đúng nhưng khi chuyển qua STT 2 thì báo lỗi hoặc không chạy.
- Công ty tên, hiện tại em dùng hàm IF excel thôi ah, VBA e chưa biết sao viết, nếu nhờ VBA viết giúp em với.

Em xin trân trọng cảm ơn mọi người đã giúp đỡ rất nhiều ah!
Sử dụng Spinner để kích hoạt sự kiện Change hình như không khả thi.
Bạn có thể gọi 1 Sub bằng sự kiện Calculate
Mã:
Private Sub Worksheet_Calculate()
    Call INTEM
End Sub

Code INTEM của bạn đang cố định biến k = 1. Nên từ số thứ tự 2 trở đi sẽ không chạy, thay đổi: If k = Phieu Then
1637649210495.png
 
Upvote 0
Sử dụng Spinner để kích hoạt sự kiện Change hình như không khả thi.
Bạn có thể gọi 1 Sub bằng sự kiện Calculate
Mã:
Private Sub Worksheet_Calculate()
    Call INTEM
End Sub

Code INTEM của bạn đang cố định biến k = 1. Nên từ số thứ tự 2 trở đi sẽ không chạy, thay đổi: If k = Phieu Then
View attachment 269508
Hiện tại CODE đã chạy ổn nhờ Anh HieuCD đã sửa giúp em, chỉ còn 1 lỗi nhờ anh fix giúp em với ah. Khi chọn số thứ tự dòng để in chưa có thì xóa dữ liệu trắng đi để tránh hiểu nhầm ah (đã có hiện thông báo). Em cám ơn anh nhiều !
 

File đính kèm

  • IN TEM 100x100.xlsb
    26.1 KB · Đọc: 3
Upvote 0
Hiện tại CODE đã chạy ổn nhờ Anh HieuCD đã sửa giúp em, chỉ còn 1 lỗi nhờ anh fix giúp em với ah. Khi chọn số thứ tự dòng để in chưa có thì xóa dữ liệu trắng đi để tránh hiểu nhầm ah (đã có hiện thông báo). Em cám ơn anh nhiều !
Chắc bạn muốn vầy à
 

File đính kèm

  • IN TEM 100x100.xlsb
    25 KB · Đọc: 11
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom