Mã QR sẽ dùng vào việc gì nếu tạo nó trên Excel?

qazxsw · 15/11/18

ndu96081631 đã viết:
Đã có ai nghiên cứu vụ này chưa nhỉ (một mình mình làm thì cảm giác không chắc ăn lắm)
--------------
Phát hiện ra mấy chuyện:
- Hình như là chẳng cần đổi rổng thành "+" gì ráo cũng được
- Hình như là tiếng Việt cũng chơi được luôn là không cần phải có hàm convert (UTF8)
Tôi viết sơ qua mấy code:
1> Tạo mã QR, dùng Shape

Mã:

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://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, Size, Size) End If End Function Sub Main() Dim shp As Shape Set shp = pic_QR(Range("A1").Value, ActiveCell) End Sub

Cách dùng: Gõ gì đó vào cell A1 rồi chạy sub Main
2> Tạo mã QR, dùng Comment

Mã:

Function cmt_QR(ByVal QR_Value As String, Optional ByVal cel As Range, Optional ByVal Size As Long = 150) As String Dim sURL As String, mRng As Range, cmt As Comment On Error Resume Next Application.Volatile If cel Is Nothing Then Set cel = Application.ThisCell cel(1, 1).Comment.Delete If Len(QR_Value) Then sURL = "https://chart.googleapis.com/chart?chs=" & Size & "x" & Size & "&cht=qr&chl=" sURL = sURL & QR_Value If cel(1, 1).Comment Is Nothing Then cel(1, 1).AddComment cel(1, 1).Comment.text vbLf Set mRng = cel(1, 1).MergeArea If mRng Is Nothing Then Set mRng = cel(1, 1) Set cmt = mRng(1, 1).Comment cmt.Visible = True With cmt.Shape .LockAspectRatio = msoFalse .Placement = xlMoveAndSize .Shadow.Visible = msoFalse .Line.Visible = msoFalse .AutoShapeType = msoShapeRectangle .Left = mRng.Left: .Top = mRng.Top .Width = mRng.Width: .Height = mRng.Height .Fill.UserPicture sURL End With End If End Function

Cách dùng: Gõ công thức =cmt_QR(A1) vào cell nào đó (với A1 là dữ liệu đầu vào)
------------------------------
Các bạn test giúp tôi: Tạo mã bằng 2 code trên rồi dùng các chương trình quét mã QR trên smartphone scan thử xem ra kết quả đúng không nha

Đối với cách 1:
Thầy cho em hỏi để giảm bớt khoảng trắng xung quanh phần QR code màu đen thì làm thế nào, vì em đặt vào ô excell nó bao trùm phần border. Em phải vào format và crop phần trắng đi.

saobekhonglac · 15/11/18

ndu96081631 đã viết:
Đã có ai nghiên cứu vụ này chưa nhỉ (một mình mình làm thì cảm giác không chắc ăn lắm)
--------------
Phát hiện ra mấy chuyện:
- Hình như là chẳng cần đổi rổng thành "+" gì ráo cũng được
- Hình như là tiếng Việt cũng chơi được luôn là không cần phải có hàm convert (UTF8)
Tôi viết sơ qua mấy code:
1> Tạo mã QR, dùng Shape

Mã:

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://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, Size, Size) End If End Function Sub Main() Dim shp As Shape Set shp = pic_QR(Range("A1").Value, ActiveCell) End Sub

Cách dùng: Gõ gì đó vào cell A1 rồi chạy sub Main
2> Tạo mã QR, dùng Comment

Mã:

Function cmt_QR(ByVal QR_Value As String, Optional ByVal cel As Range, Optional ByVal Size As Long = 150) As String Dim sURL As String, mRng As Range, cmt As Comment On Error Resume Next Application.Volatile If cel Is Nothing Then Set cel = Application.ThisCell cel(1, 1).Comment.Delete If Len(QR_Value) Then sURL = "https://chart.googleapis.com/chart?chs=" & Size & "x" & Size & "&cht=qr&chl=" sURL = sURL & QR_Value If cel(1, 1).Comment Is Nothing Then cel(1, 1).AddComment cel(1, 1).Comment.text vbLf Set mRng = cel(1, 1).MergeArea If mRng Is Nothing Then Set mRng = cel(1, 1) Set cmt = mRng(1, 1).Comment cmt.Visible = True With cmt.Shape .LockAspectRatio = msoFalse .Placement = xlMoveAndSize .Shadow.Visible = msoFalse .Line.Visible = msoFalse .AutoShapeType = msoShapeRectangle .Left = mRng.Left: .Top = mRng.Top .Width = mRng.Width: .Height = mRng.Height .Fill.UserPicture sURL End With End If End Function

Cách dùng: Gõ công thức =cmt_QR(A1) vào cell nào đó (với A1 là dữ liệu đầu vào)
------------------------------
Các bạn test giúp tôi: Tạo mã bằng 2 code trên rồi dùng các chương trình quét mã QR trên smartphone scan thử xem ra kết quả đúng không nha

Em chỉ quét được ô A3, A1,A2 quét không được

cadafi · 27/11/18

Let'GâuGâu đã viết:
đã text, và cho kết quả chính xác
nhưng nếu mình liên kết nhiều cell lại, nếu tức là nội dung nằm trên nhiêu cell thì liên kết nó lại như thế nào vậy anh NDU
với lại tốc upload, download có phụ thuộc vào độ dài của nội dung không anh?

Nội dung trên nhiều cell thì bạn nối chuỗi lại và đưa hết vào 1 cell.

Bài đã được tự động gộp: 27/11/18

ndu96081631 đã viết:
Vấn đề là code dựa trên ý tưởng trên đã ra kết quả chính xác chưa?
Chỉ cần cầm cái điện thoại lên, thử nghiệm quét 1 phát rồi báo kết quả cho mình biết, vậy mà chẳng thấy ai giúp được nhỉ?

Sư phụ ơi, chính xác ạ! Em chân thành cảm ơn sư phụ vì đây là cái em đang cần để xác minh hợp đồng và thông tin hợp đồng có phải do bên công ty em phát hành ra hay không! Quá đã sư phụ ơi.

babyheomoi · 27/11/18

Hic, ý tưởng này rất hay, nhưng do mạng cơ quan là mạng lan nên ko áp dụng được, e để file addin này vào thì máy bị treo (chắc do nó cố gắng connect với google)

hunganhls · 30/11/18

ndu96081631 đã viết:
Trong Zalo có chương trình quét mã QR đấy

View attachment 145506

Anh cho em Pass

Bài đã được tự động gộp: 30/11/18

ndu96081631 đã viết:
Đã có ai nghiên cứu vụ này chưa nhỉ (một mình mình làm thì cảm giác không chắc ăn lắm)
--------------
Phát hiện ra mấy chuyện:
- Hình như là chẳng cần đổi rổng thành "+" gì ráo cũng được
- Hình như là tiếng Việt cũng chơi được luôn là không cần phải có hàm convert (UTF8)
Tôi viết sơ qua mấy code:
1> Tạo mã QR, dùng Shape

Mã:

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://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, Size, Size) End If End Function Sub Main() Dim shp As Shape Set shp = pic_QR(Range("A1").Value, ActiveCell) End Sub

Cách dùng: Gõ gì đó vào cell A1 rồi chạy sub Main
2> Tạo mã QR, dùng Comment

Mã:

Function cmt_QR(ByVal QR_Value As String, Optional ByVal cel As Range, Optional ByVal Size As Long = 150) As String Dim sURL As String, mRng As Range, cmt As Comment On Error Resume Next Application.Volatile If cel Is Nothing Then Set cel = Application.ThisCell cel(1, 1).Comment.Delete If Len(QR_Value) Then sURL = "https://chart.googleapis.com/chart?chs=" & Size & "x" & Size & "&cht=qr&chl=" sURL = sURL & QR_Value If cel(1, 1).Comment Is Nothing Then cel(1, 1).AddComment cel(1, 1).Comment.text vbLf Set mRng = cel(1, 1).MergeArea If mRng Is Nothing Then Set mRng = cel(1, 1) Set cmt = mRng(1, 1).Comment cmt.Visible = True With cmt.Shape .LockAspectRatio = msoFalse .Placement = xlMoveAndSize .Shadow.Visible = msoFalse .Line.Visible = msoFalse .AutoShapeType = msoShapeRectangle .Left = mRng.Left: .Top = mRng.Top .Width = mRng.Width: .Height = mRng.Height .Fill.UserPicture sURL End With End If End Function

Cách dùng: Gõ công thức =cmt_QR(A1) vào cell nào đó (với A1 là dữ liệu đầu vào)
------------------------------
Các bạn test giúp tôi: Tạo mã bằng 2 code trên rồi dùng các chương trình quét mã QR trên smartphone scan thử xem ra kết quả đúng không nha

Anh cho em xin pass Protect của file này được không ạ?

hunganhls · 3/12/18

ndu96081631 đã viết:
Đã có ai nghiên cứu vụ này chưa nhỉ (một mình mình làm thì cảm giác không chắc ăn lắm)
--------------
Phát hiện ra mấy chuyện:
- Hình như là chẳng cần đổi rổng thành "+" gì ráo cũng được
- Hình như là tiếng Việt cũng chơi được luôn là không cần phải có hàm convert (UTF8)
Tôi viết sơ qua mấy code:
1> Tạo mã QR, dùng Shape

Mã:

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://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, Size, Size) End If End Function Sub Main() Dim shp As Shape Set shp = pic_QR(Range("A1").Value, ActiveCell) End Sub

Cách dùng: Gõ gì đó vào cell A1 rồi chạy sub Main
2> Tạo mã QR, dùng Comment

Mã:

Function cmt_QR(ByVal QR_Value As String, Optional ByVal cel As Range, Optional ByVal Size As Long = 150) As String Dim sURL As String, mRng As Range, cmt As Comment On Error Resume Next Application.Volatile If cel Is Nothing Then Set cel = Application.ThisCell cel(1, 1).Comment.Delete If Len(QR_Value) Then sURL = "https://chart.googleapis.com/chart?chs=" & Size & "x" & Size & "&cht=qr&chl=" sURL = sURL & QR_Value If cel(1, 1).Comment Is Nothing Then cel(1, 1).AddComment cel(1, 1).Comment.text vbLf Set mRng = cel(1, 1).MergeArea If mRng Is Nothing Then Set mRng = cel(1, 1) Set cmt = mRng(1, 1).Comment cmt.Visible = True With cmt.Shape .LockAspectRatio = msoFalse .Placement = xlMoveAndSize .Shadow.Visible = msoFalse .Line.Visible = msoFalse .AutoShapeType = msoShapeRectangle .Left = mRng.Left: .Top = mRng.Top .Width = mRng.Width: .Height = mRng.Height .Fill.UserPicture sURL End With End If End Function

Cách dùng: Gõ công thức =cmt_QR(A1) vào cell nào đó (với A1 là dữ liệu đầu vào)
------------------------------
Các bạn test giúp tôi: Tạo mã bằng 2 code trên rồi dùng các chương trình quét mã QR trên smartphone scan thử xem ra kết quả đúng không nha

Sao khi em Protect Sheet thì ô mã QR nó không hiện ra ạ. ANh có thể cho em xin mail sửa giúp em đc không?

lmdat27 · 15/12/18

Anh ơi còn QR Code để gửi tin nhắn SMS đến một số điện thoại nào đó trong Excel thì sao ạ.

club_k · 17/4/19

ndu96081631 đã viết:
Đã có ai nghiên cứu vụ này chưa nhỉ (một mình mình làm thì cảm giác không chắc ăn lắm)
--------------
Phát hiện ra mấy chuyện:
- Hình như là chẳng cần đổi rổng thành "+" gì ráo cũng được
- Hình như là tiếng Việt cũng chơi được luôn là không cần phải có hàm convert (UTF8)
Tôi viết sơ qua mấy code:
1> Tạo mã QR, dùng Shape

Mã:

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://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, Size, Size) End If End Function Sub Main() Dim shp As Shape Set shp = pic_QR(Range("A1").Value, ActiveCell) End Sub

Cách dùng: Gõ gì đó vào cell A1 rồi chạy sub Main
2> Tạo mã QR, dùng Comment

Mã:

Function cmt_QR(ByVal QR_Value As String, Optional ByVal cel As Range, Optional ByVal Size As Long = 150) As String Dim sURL As String, mRng As Range, cmt As Comment On Error Resume Next Application.Volatile If cel Is Nothing Then Set cel = Application.ThisCell cel(1, 1).Comment.Delete If Len(QR_Value) Then sURL = "https://chart.googleapis.com/chart?chs=" & Size & "x" & Size & "&cht=qr&chl=" sURL = sURL & QR_Value If cel(1, 1).Comment Is Nothing Then cel(1, 1).AddComment cel(1, 1).Comment.text vbLf Set mRng = cel(1, 1).MergeArea If mRng Is Nothing Then Set mRng = cel(1, 1) Set cmt = mRng(1, 1).Comment cmt.Visible = True With cmt.Shape .LockAspectRatio = msoFalse .Placement = xlMoveAndSize .Shadow.Visible = msoFalse .Line.Visible = msoFalse .AutoShapeType = msoShapeRectangle .Left = mRng.Left: .Top = mRng.Top .Width = mRng.Width: .Height = mRng.Height .Fill.UserPicture sURL End With End If End Function

Cách dùng: Gõ công thức =cmt_QR(A1) vào cell nào đó (với A1 là dữ liệu đầu vào)
------------------------------
Các bạn test giúp tôi: Tạo mã bằng 2 code trên rồi dùng các chương trình quét mã QR trên smartphone scan thử xem ra kết quả đúng không nha

Em chào Thầy,
Với code đầu tiên em muốn chỏ QR code về 1 cell cố định mà không phải là active cell thì làm như thế nào ạ (em chưa biết về VBA)
E cám ơn ạ !

thanh_jr · 12/5/19

bacpro đã viết:
Bác ndu96081631

em có 1 kho hàng nhỏ khoảng gần 100 mặt hàng phụ tùng cơ khí. Có cách nào kết hợp QR code và thiết bị quét là smartphone, dữ liệu máy tính để quản lý kho hàng (Xuất - Nhập -Tồn - Kiểm kê) không Bác!
Xin Bác chỉ giáo!

Cảm ơn Bác nhiều!

Chào thầy NDU96081631, em thấy subject này rất thiết thực cho công việc.
Thầy có thể bớt chút thời gian nghiên cứu và chỉ giáo được ko ạ.
Em rất muốn sử dụng QR Code quản lý file xuất nhập cho kho nhà em. quét bằng Smartphone và dữ liệu cập nhật vào máy tính theo file excel cập nhật vào bảng data.

Cám ơn Thầy

leolas · 30/5/19

ndu96081631 đã viết:
Ủa! Thì cứ nối bình thường mà bạn!
Ví dụ:
- Ta có A1 có giá trị Cộng hòa xã hội chủ nghĩa Việt Nam
- Ta dùng công thức =cmt_QR(A1) sẽ ra được mã QR nào đó
Giờ ta lại có các giá trị nằm trên nhiều cells:
- A5 có giá trị Cộng hòa
- A6 có giá trị xã hội
- A7 có giá trị chủ nghĩa
- A8 có giá trị Việt Nam
- Ta dùng công thức =cmt_QR(A5&" "&A6&" "&A7&" "&A8) cũng sẽ cho mã QR tương đương thôi

Thưa bác, em không biết về VBA, bác có thể viết thêm code để dùng được trong trường hợp này không ạ.
Ví dụ nếu em có A1 có giá trị = CTY TNHH .... , B1 có giá trị = SA-650G.
Dùng công thức (ví dụ viết thế này) =cmt_QR(A1,B1), thì lúc này sẽ tạo mã QR cho text trong ô A1, còn text trong ô B1 sẽ thành dòng chữ nằm dưới mã QR (như hình đính kèm). Cám ơn

dohungmo · 14/6/19

Thầy ơi ,

Thay vì tạo ra hình ảnh mã QR , em muốn nó hiện lên 1 dãy số ( code bằng số ), và dãy số chỉ tồn tại duy nhất 1 lần.

Thầy có thể cho em xin file đó được không ạ .

gauchoigameonline · 20/4/21

Với chủ để này em đóng góp thêm một giải pháp. Mọi người cho ý kiến^^

maytinhvp01 · 24/6/21

thanh_jr đã viết:
Chào thầy NDU96081631, em thấy subject này rất thiết thực cho công việc.
Thầy có thể bớt chút thời gian nghiên cứu và chỉ giáo được ko ạ.
Em rất muốn sử dụng QR Code quản lý file xuất nhập cho kho nhà em. quét bằng Smartphone và dữ liệu cập nhật vào máy tính theo file excel cập nhật vào bảng data.

Cám ơn Thầy

Mình cũng muốn áp dụng cái này: Hàng đóng túi dán tem "trên tem có qr code", khi nhập kho sẽ quét qr code bằng máy quét và cập nhật trên excel. Bác làm chưa chia sẻ đi

Maika8008 · 25/6/21

lehongduc đã viết:
Chào các Bạn,

Ở trên có một số Bạn đưa ra giải pháp sử dụng tạo QRCode nhờ vào các dịch vụ trực tuyến trên internet, song cách này có hạn chế là bắt buộc phải kết nối online với Internet mới được.

Có cách khác, không cần kết nối internet online. Các Bạn có thể dùng thư viện ZXing, là dự án mã nguồn mở, link nguồn ở đây: https://zxingnet.codeplex.com/
Với phiên bản ZXing.Net 0.16.0.0 đã có sẵn thư viện DLL của ZXing sẵn sàng cho chúng ta biên dịch file DLL này thành file TLB để chúng ta sử dụng được trong VBA.
Xin đính kèm theo đây file thư viện đã được tôi biên dịch và code VBA mẫu dựa trên hướng dẫn của ZXing.

Chú ý: Muốn sử dụng được thư viện này trong VBA, các Bạn phải:
1. Biên dịch file zxing.dll thành zxing.tlb bằng tiện ích "regasm.exe". Hoặc sử dụng file zxing.tlb tôi đã biên dich sẵn trong file đính kèm.
2. Khai báo References trong cửa sổ VBA Editor như ảnh đính kèm.
3. Code VBA tôi đã có sửa lại cho phù hợp và dễ hiểu:

Mã:

Option Explicit Function Decode_QR_Code_From_File(FileName As String, TextVal As String) Dim reader As IBarcodeReader Dim res As Result Set reader = New BarcodeReader reader.Options.PossibleFormats.Add BarcodeFormat_QR_CODE 'Set res = reader.DecodeImageFile("D:\Barcodes\QrCodes\www.png") Set res = reader.DecodeImageFile(FileName) TextVal = res.Text End Function Function Decode_QR_Code_From_Byte_Array() Dim reader As IBarcodeReader Dim rawRGB(1000) As Byte Dim res As Result Set reader = New BarcodeReader reader.Options.PossibleFormats.Add BarcodeFormat_QR_CODE Rem TODO: load bitmap data to byte array rawRGB Set res = reader.DecodeImageBytes(rawRGB, 10, 10, BitmapFormat.BitmapFormat_Gray8) End Function Function Encode(YourText As String, ToFileName As String) Dim writer As IBarcodeWriter Dim qrCodeOptions As QrCodeEncodingOptions Dim pixelDataResult As PixelData Set qrCodeOptions = New QrCodeEncodingOptions Set writer = New BarcodeWriter writer.Format = BarcodeFormat_QR_CODE Set writer.Options = qrCodeOptions qrCodeOptions.Height = 100 qrCodeOptions.Width = 100 qrCodeOptions.CharacterSet = "UTF-8" qrCodeOptions.Margin = 10 qrCodeOptions.ErrorCorrection = ErrorCorrectionLevel_H 'writer.WritePngToFile "Test", "D:\interop_qrcode.png" writer.WritePngToFile YourText, ToFileName Set pixelDataResult = writer.Write("Test") End Function Function Decode_QR_Code_From_File_CreateObject(FromFileName As String) Dim reader As IBarcodeReader Dim res As Result Set reader = CreateObject("ZXing.Interop.Decoding.BarcodeReader") reader.Options.PossibleFormats.Add BarcodeFormat_QR_CODE 'Set res = reader.DecodeImageFile("D:\Barcodes\QrCodes\www.png") Set res = reader.DecodeImageFile(FromFileName) End Function

Chắc ngâm cú zụ này tí chút. Coi có dùng vào việc gì thú vị không.

SteveNguyen1991 · 25/6/21

Chào các bác,
1) QR Code.
Em đang dùng Google Sheet để tạo thấy dùng ok.
2) Gửi nội dung lên máy tính.
Em đang dùng Add in Scan it to Office, app này có trên điện thoại nên dùng khá thuận tiện chỉ có điều lâu lâu có quảng cáo thôi!!

nguyennguyen901234 · 28/9/21

em muốn dùng mã qr code quản lí tài sản đc ko anh, kiểu như mỗi tài sản gắn 1 mã , cần điều chuyển hay thanh lí quyets mã lấy thông tin

SteveNguyen1991 · 29/9/21

nguyennguyen901234 đã viết:
em muốn dùng mã qr code quản lí tài sản đc ko anh, kiểu như mỗi tài sản gắn 1 mã , cần điều chuyển hay thanh lí quyets mã lấy thông tin

Mã QR chỉ là công cụ, còn bạn muốn ứng dụng nó thế nào thì tùy bạn thôi. Ví dụ: Bạn tạo ra mã QR gồm Tên máy, ngày mua, kích thước, .... rồi chuyển qua mã QR đến khi di dời hay kiểm kê tài sản cuối nắm cứ quét mã là có thông tin.

pxtgpex · 3/4/22

gauchoigameonline đã viết:
Với chủ để này em đóng góp thêm một giải pháp. Mọi người cho ý kiến^^

Tôi thực sự chưa biết code của bạn hoạt động như thế nào để cho ra kết quả tốt như thế?
Nhưng giải pháp của bạn thực sự là rất gọn gàng, hiệu quả, đủ dùng cho cái tôi đang cần.
Chia sẻ thêm:
Bạn biết đấy, hiện phương thức thanh toán QR code rất tiện dụng, nó đang dần trở nên phổ biến và thông dụng.
(Thấy bạn cũng đã MoMo)
Đối với các trang thương mại điện tử thì khỏi phải nói, họ có sẵn các giải pháp cho việc này.
Nhưng với người dùng cá nhân như các tiểu thương thì cũng còn ít nhiều hạn chế cần khắc phục.
VD tôi đang cần tạo ra các mã QR thanh toán có điền sẵn số tiền, nội dung thanh toán. Các phương thức thanh toán có hỗ trợ việc này, nhưng chỉ 1 cái 1, hàng loạt thì chưa. Vì thế tôi đang tự làm. Nếu bạn, các thành viên khác quan tâm, sẽ share tiếp
Quay lại giải pháp của bạn, hiện có 1 tồn tại nhỏ là chưa mã hóa được Tiếng Việt (có dấu) - nhưng chắc sẽ có giải pháp thôi.

trankhanhvuong · 24/2/23

vấn đề là làm sao để in nó trực tiếp từ excel ra để sử dụng làm tem mã QR ? khi in thì QR ẩn mất !!!

kh0jy3n · 23/11/23

Mã QR sẽ dùng vào việc gì nếu tạo nó trên Excel?

Thành viên chính thức

Thành viên mới

Thành viên gạo cội

Thành viên thường trực

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên chính thức

File đính kèm

Thành viên thường trực

Thành viên gạo cội

Thành viên chính thức

Thành viên mới

Thành viên chính thức

Thành viên mới

Thành viên mới

Thành viên thường trực

Facebook

Group