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

Liên hệ QC
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
Nhấp chuột vào đây để mở rộng...
Đố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.
 
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
Nhấp chuột vào đây để mở rộng...

Em chỉ quét được ô A3, A1,A2 quét không được
 
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?
Nhấp chuột vào đây để mở rộng...
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:

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ỉ?
+-+-+-++-+-+-++-+-+-+
Nhấp chuột vào đây để mở rộng...
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.
 
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)
 
ndu96081631 đã viết:
Trong Zalo có chương trình quét mã QR đấy

View attachment 145506
Nhấp chuột vào đây để mở rộng...
Anh cho em Pass
Bài đã được tự động gộp:

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
Nhấp chuột vào đây để mở rộng...
Anh cho em xin pass Protect của file này được không ạ?
 
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
Nhấp chuột vào đây để mở rộng...
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?
 
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 ạ.
 
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
Nhấp chuột vào đây để mở rộng...
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 ạ !
 
bacpro đã viết:
Bác ndu96081631
user-offline.png
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!
Nhấp chuột vào đây để mở rộng...

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
 
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
Nhấp chuột vào đây để mở rộng...
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
MK1.png
 
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 ạ .
 
Với chủ để này em đóng góp thêm một giải pháp. Mọi người cho ý kiến^^
 

File đính kèm

  • QRCODE_PRO.xlsm
    75.5 KB · Đọc: 127
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
Nhấp chuột vào đây để mở rộng...
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
 
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
Nhấp chuột vào đây để mở rộng...
Chắc ngâm cú zụ này tí chút. Coi có dùng vào việc gì thú vị không.
 
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!!
 
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
 
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
Nhấp chuột vào đây để mở rộng...
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.
 
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^^
Nhấp chuột vào đây để mở rộng...
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.
 
Lần chỉnh sửa cuối:
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 !!!
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

L
Đổi màu chữ trong VBA
Trả lời
9
Đọc
42
lvh1064
L
H
Hỗ trợ lấy danh sách dữ liệu thỏa mãn điều kiện
Trả lời
3
Đọc
115
DeTong
D
PhanTuHuong
Bàn về môn thể thao bóng bàn nào!
    • Thích
    • Yêu thích
    • Cười
2
Trả lời
38
Đọc
2K
lvh1064
L
salam
Ẩn ảnh sau chữ trong excel
Trả lời
11
Đọc
29K
itusbbk
itusbbk
nobita994
Trừ số lượng dần theo dòng khi quét Sumif tổng có tên sản phẩm bị trùng.
Trả lời
4
Đọc
109
nobita994
nobita994
F
  • Question
Nhờ tư vấn cách tạo QR trong Excel
Trả lời
7
Đọc
539
huuthang_bd
huuthang_bd
nguyen trung cuong
File chứa marco không mở được.
Trả lời
3
Đọc
99
hvnhpro
H
Tienvinh191
  • Question
Nhờ viết Code lấy dữ liệu tờ khai hải quan vào bảng tổng hợp
2
Trả lời
25
Đọc
2K
haott
H
CodyPham97
tạo biểu tượng thay thế nhấn đúp chuột
Trả lời
4
Đọc
92
phansythao
phansythao
dovanha1994
Giúp e tìm nguyên nhân sai và hướng dẫn e đọc file này với ạ
    • Phẫn nộ
Trả lời
4
Đọc
124
SA_DQ
SA_DQ
20050911
File Excel lỗi ''The file could not be accessed. Try one of the following:.."
Trả lời
10
Đọc
556
20050911
20050911
N
Giúp sửa mã code
2
Trả lời
20
Đọc
461
Nguyễn Diêu Hiền
N
GPE-Trợ Lý
MỪNG NGÀY NHÀ GIÁO VIỆT NAM 20/11/2024
    • Thích
    • Yêu thích
Trả lời
1
Đọc
96
SA_DQ
SA_DQ
Tuấn Bụng Bự
  • Question
Tìm Bộ 8 số xuất hiện nhiều nhất trong random( 1 - 80)
2
Trả lời
32
Đọc
872
VetMini
V
K
Nhờ mọi người hoàn thiện giúp công thức
Trả lời
4
Đọc
115
kiendt1973
K
P
Nhờ giúp đỡ hàm lọc dữ liệu theo tỉnh
Trả lời
10
Đọc
176
Parabol
P
H
Chúc mừng 20/11- ngày tôn vinh nhà giáo Việt Nam.
    • Thích
    • Yêu thích
Trả lời
0
Đọc
68
HUONGHCKT
H
N
Vẽ biểu đồ kết hợp nhiều yếu tố trong excel
Trả lời
7
Đọc
198
Ny Ny 2024
N
Nhật Anh 9x
  • Question
Tính tồn cuối kỳ luỹ kế cho nhiều mã
Trả lời
2
Đọc
108
Nhật Anh 9x
Nhật Anh 9x
C
Chia sẻ: Kết quả xổ số Keno
    • Cười
    • Thích
2
Trả lời
20
Đọc
597
ptm0412
ptm0412
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom