Chủ đề này đã nhắc tới nhiều, nhưng thông thường các cách yêu cầu phải kết nối mạng, thông qua web trung gian hoặc hàm API.
Việc phải kết nối mạng khiến cho chương trình thiếu linh hoạt.
Mình thấy cách này có vẻ ổn, mọi người kiểm tra trên máy tính mọi người chạy có được không nhé.
Kết quả :
Nguồn :
Việc phải kết nối mạng khiến cho chương trình thiếu linh hoạt.
Mình thấy cách này có vẻ ổn, mọi người kiểm tra trên máy tính mọi người chạy có được không nhé.
Mã:
Sub createQRCode()
Dim ws As Worksheet
Dim xObjOLE As OLEObject
Dim topPosition As Double
Dim leftPosition As Double
'Chi dinh sheet ghi ket qua QR code len do
Set ws = Worksheets("Sheet1")
'Tao「OLEObject Object
Set xObjOLE = ws.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
'Thiet dinh gia tri cho 「OLEObject Object
With xObjOLE.Object
'QR Code(=11)
.Style = 11
'Noi dung QR Code
.Value = "https://tuhocvba.net/"
End With
'Thiet dinh vi tri cho QR Code hien thi tren sheet, vi du dat no o vi tri o B2
'Ta se lay thong tin vi tri o B2
With ws.Range("B2")
topPosition = .Top
leftPosition = .Left
End With
'Thiet dinh kich thuoc va vi tri cho QR Code
With xObjOLE
'Chieu cao va chieu rong
.Height = 84.75
.Width = 127.5
'Vi tri
.Top = topPosition
.Left = leftPosition
'Name
.Name = "QR Code1"
End With
'Lam sach bo nho
Set xObjOLE = Nothing
End Sub
Bạn cần đăng nhập để thấy đính kèm
Nguồn :
Mã:
https://excel-vba.work/2021/04/19/%E3%80%90vba%E3%80%91qr%E3%82%B3%E3%83%BC%E3%83%89%E3%82%92%E4%BD%9C%E6%88%90%E3%81%99%E3%82%8B/