In tem có QR-code hàng loạt

[phucymvn]

Chào các bạn mình có file kèm theo muốn nhờ các bạn giúp:
1. File mình đã lập sẵn macro tạo QR-code
2. Hàng ngày vẫn phải mở sheet " Tray" sau đó bấm vào cột H chạy macro tạo QRcode sau đó cắt về điền vào sheet "Tem" từng dòng 1 rất mất nhiều thời gian.

Nhờ các bạn tạo giúp mình lệnh tạo các tem theo dữ liệu bên sheet "Tray" mỗi dòng tạo ra được tem như sheet "tem". và định dạng 9 tem trên một trang A4.
Cám ơn mong các bạn trợ giúp

 

[snow25]

Chào các bạn mình có file kèm theo muốn nhờ các bạn giúp:
1. File mình đã lập sẵn macro tạo QR-code
2. Hàng ngày vẫn phải mở sheet " Tray" sau đó bấm vào cột H chạy macro tạo QRcode sau đó cắt về điền vào sheet "Tem" từng dòng 1 rất mất nhiều thời gian.

Nhờ các bạn tạo giúp mình lệnh tạo các tem theo dữ liệu bên sheet "Tray" mỗi dòng tạo ra được tem như sheet "tem". và định dạng 9 tem trên một trang A4.
Cám ơn mong các bạn trợ giúp

Thì bạn kiếm xem cái code nào nó viết về in hàng loạt rồi đem về học.Của bạn thì lấy dữ liệu điền vào các ô trong file in rồi tạo mã code có sao đâu.

 

[ongke0711]

Tính ra là mỗi lần lấy barcode là mỗi lần khởi động Word, cũng tốn kém dữ.

 

[phucymvn]

Thì bạn kiếm xem cái code nào nó viết về in hàng loạt rồi đem về học.Của bạn thì lấy dữ liệu điền vào các ô trong file in rồi tạo mã code có sao đâu.

Mình nhớ năm 2015 mình cũng từng tham khảo ở giải pháp excel file tạo thẻ in rất hay mà giờ không tìm thấy. Với lại bản của mình nâng cao hơn là tạo mã vạch cho từng dòng rồi paste nó vào thẻ in. Rất mong các bạn nghiên cứu giúp

 

[Mr.hieudoanxd]

bác tham khảo bài viết này này.

 

[snow25]

Mình nhớ năm 2015 mình cũng từng tham khảo ở giải pháp excel file tạo thẻ in rất hay mà giờ không tìm thấy. Với lại bản của mình nâng cao hơn là tạo mã vạch cho từng dòng rồi paste nó vào thẻ in. Rất mong các bạn nghiên cứu giúp

Thực ra của bạn viết code cung không khó.Chẳng qua lại phải viết cho 9 ô và điền dữ liệu vào lâu nên lười làm.

 

[huhumalu]

Bạn tham khảo code bên dưới nè.
Bạn sửa lại theo ý tưởng vừa chuyển dữ liệu và insert QR code luôn.

'https://www.giaiphapexcel.com/diendan/threads/154401/post-1017146
Private Function pic_QR(ByVal QR_Value As String, ByVal Target As Range, Optional ByVal Size As Long = 150) As Shape
Dim sURL As String
On Error Resume Next
If Len(QR_Value) Then
sURL = "https://api.qrserver.com/v1/create-qr-code/?size=" & Size & "x" & Size & "&data="
'sURL = "https://chart.googleapis.com/chart?chs=" & Size & "x" & Size & "&cht=qr&chl="
sURL = sURL & QR_Value
Set pic_QR = Target.Parent.Shapes.AddPicture(sURL, True, True, Target.Left, Target.Top, 100, 100)
End If
End Function
Sub delShp(s As String)
On Error Resume Next
Dim shp As Shape
Sheet2.Shapes(s).Delete
End Sub
Sub Main()
Dim shp As Shape, aCell As Range
    For Each aCell In Selection
        Call delShp(aCell.Address(0, 0))
        Set shp = pic_QR(aCell.value, aCell.Offset(, 1))
        shp.Name = aCell.Address(0, 0)
    Next aCell
End Sub

 

[doredore1988]

Bạn có thể thử cái này, nếu lỗi có thể tăng thời gian chờ chổ
Application.Wait (Now + TimeValue("0:00:02")) thêm vài giây xem sao.

 

[dangvandang]

Chào các bạn mình có file kèm theo muốn nhờ các bạn giúp:
1. File mình đã lập sẵn macro tạo QR-code
2. Hàng ngày vẫn phải mở sheet " Tray" sau đó bấm vào cột H chạy macro tạo QRcode sau đó cắt về điền vào sheet "Tem" từng dòng 1 rất mất nhiều thời gian.

Nhờ các bạn tạo giúp mình lệnh tạo các tem theo dữ liệu bên sheet "Tray" mỗi dòng tạo ra được tem như sheet "tem". và định dạng 9 tem trên một trang A4.
Cám ơn mong các bạn trợ giúp

Bạn xem thử đúng như cầu chưa, mình dùng thư viện tạo QRCode được chia sẻ miễn phí trên Github.

Liên kết: https://youtu.be/kxZ922f1KCE

 

[HUONGHCKT]

Chào các bạn mình có file kèm theo muốn nhờ các bạn giúp:
1. File mình đã lập sẵn macro tạo QR-code
2. Hàng ngày vẫn phải mở sheet " Tray" sau đó bấm vào cột H chạy macro tạo QRcode sau đó cắt về điền vào sheet "Tem" từng dòng 1 rất mất nhiều thời gian.

Nhờ các bạn tạo giúp mình lệnh tạo các tem theo dữ liệu bên sheet "Tray" mỗi dòng tạo ra được tem như sheet "tem". và định dạng 9 tem trên một trang A4.
Cám ơn mong các bạn trợ giúp

Góp vui.
Xem file đính kèm
Khi bạn gõ 1 số nào đó Trong thứ tự của sheet TRAY và nhấn Enter. và Chờ xem kết quả.
Code đã lấy dữ liệu gán vào các ô theo ý định và chèn mã QRcode.

 

[phucymvn]

Góp vui.
Xem file đính kèm
Khi bạn gõ 1 số nào đó Trong thứ tự của sheet TRAY và nhấn Enter. và Chờ xem kết quả.
Code đã lấy dữ liệu gán vào các ô theo ý định và chèn mã QRcode.

Cám ơn bạn nhưng mình gõ nó ra như thế này

Bài đã được tự động gộp: 10/8/24

Bạn xem thử đúng như cầu chưa, mình dùng thư viện tạo QRCode được chia sẻ miễn phí trên Github.

Liên kết: https://youtu.be/kxZ922f1KCE

Cám ơn bạn đã giúp đỡ. máy mình khi đưa vào ô bạn để công thức VD: =dvdqr(VLOOKUP($Q$6,Tray!$A$3:$K$200,9,0)) nó không ra mã vạch. chắc cần thêm vào thư viện gì mà máy mình chưa có.

 

[dangvandang]

Cám ơn bạn nhưng mình gõ nó ra như thế này
View attachment 303047

Bài đã được tự động gộp: 10/8/24

Cám ơn bạn đã giúp đỡ. máy mình khi đưa vào ô bạn để công thức VD: =dvdqr(VLOOKUP($Q$6,Tray!$A$3:$K$200,9,0)) nó không ra mã vạch. chắc cần thêm vào thư viện gì mà máy mình chưa có.

File bạn tải về xem đã Unblock chưa hoặc đã thết lập cho chạy macro trong excel chưa, bên máy mình tải file trên về vẫn chạy bình thường.

 

[Hoàng Tuấn 868]

Cám ơn bạn nhưng mình gõ nó ra như thế này

Vụ này có thể liên quan đến office 32 bit hoặc 64 bit.

 

[huhumalu]

Góp vui.
Xem file đính kèm
Khi bạn gõ 1 số nào đó Trong thứ tự của sheet TRAY và nhấn Enter. và Chờ xem kết quả.
Code đã lấy dữ liệu gán vào các ô theo ý định và chèn mã QRcode.

Này ổn nè, có cái chắc làm nút bấm, và cần kiểm tra trước đó đã có insert shape chưa, và xóa cái cũ chứ nếu chạy 2 lần là nó đè lên cái cũ.

 

[Mr.hieudoanxd]

File bạn tải về xem đã Unblock chưa hoặc đã thết lập cho chạy macro trong excel chưa, bên máy mình tải file trên về vẫn chạy bình thường.

Class với Module của file nhìn mà nản. Không muốn tìm hiểu luôn

 

[phucymvn]

Bạn có thể thử cái này, nếu lỗi có thể tăng thời gian chờ chổ
Application.Wait (Now + TimeValue("0:00:02")) thêm vài giây xem sao.

Cám ơn bạn file này chạy được rồi. Tương đối đúng ý, để mình tự nghiên cứu viết tự động bên sheet Tray nữa là hoàn hảo. Cám ơn các bạn trong diễn đàn.

 

[HUONGHCKT]

Cám ơn bạn nhưng mình gõ nó ra như thế này
View attachment 303047

Bài của bạn đã được giải quyết rồi.
Nhưng nếu có thể bạn chụp lại cái dòng code bị lỗi (tô vàng) ấy lên được không.

Bài đã được tự động gộp: 10/8/24

Này ổn nè, có cái chắc làm nút bấm, và cần kiểm tra trước đó đã có insert shape chưa, và xóa cái cũ chứ nếu chạy 2 lần là nó đè lên cái cũ.

Cảm ơn bạn @huhumalu đã xem bài và tương tác.
Cái này tôi dùng bất sự kiện thay đổi Ô P2.
Chủ thớt là người biết cũng biết VBA nên việc tại nút bấm một phát chắc là không khó.

Trong code tạo mã QR code đã có dòng kiểm tra nếu có Shape thì xóa bỏ cái cũ đi rồi mà.

If CheckErPic(SheetName, xAddress.Address) = True Then
            Sheets(SheetName).Shapes(xAddress.Address).Delete
     End If

 

[dangvandang]

Class với Module của file nhìn mà nản. Không muốn tìm hiểu luôn

Thư viện để tạo mã QR Code nhanh đưa code vào hết nên nó nhiều vậy. Còn dùng giải pháp khác đơn giản hơn thì mất thời gian chờ.

 

[HeSanbi]

Bên github người ta chia sẻ Add-in để mình tải về sử dụng thôi. Không cần phải chép mã vào ứng dụng rồi khóa VBA chi cho mất công.

Link tải về:

GitHub - yas78/QRCodeLibVBA: QR Code generator library in VBA

QR Code generator library in VBA. Contribute to yas78/QRCodeLibVBA development by creating an account on GitHub.

github.com

 

[Mr.hieudoanxd]

Còn dùng giải pháp khác đơn giản hơn thì mất thời gian chờ.

Thời gian chờ ở đây ý bác là em cần thời gian chờ hay code cần thời gian chờ?
Về cá nhân em, việc cần thiết là học hỏi thêm kiến thức, kinh nghiệm lập trình cho thỏa mãn sở thích cá nhân thôi. Việc tạo QRCode em cũng có tìm hiểu qua kể cả bài gốc của bác tham khảo trên Github, kể cả các bài khác trên GPE, cá nhân em cũng có bài về cái này ở đây.

Bài đã được tự động gộp: 10/8/24

GitHub - yas78/QRCodeLibVBA: QR Code generator library in VBA

QR Code generator library in VBA. Contribute to yas78/QRCodeLibVBA development by creating an account on GitHub.

github.com

Đúng bài gốc rồi này