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

ndu96081631 · 15/8/15

Thấy cái mã QR cũng hay hay (ai dùng Smartphone đều biết). Tuy nhiên tôi đang thắc mắc: Nếu dùng code VBA tạo ra mã QR trên Excel thì liệu ta có thể ứng dụng nó vào việc gì?
Hỏi thế là bởi: Phải có ứng dụng thực tế và hữu ích thì mới có hứng trong việc viết code
Không biết có ai có nhu cầu này hoặc có ý tưởng hay về ứng dụng liên quan đến QR code không nhỉ?

Let'GâuGâu · 15/8/15

ndu96081631 đã viết:
Thấy cái mã QR cũng hay hay (ai dùng Smartphone đều biết). Tuy nhiên tôi đang thắc mắc: Nếu dùng code VBA tạo ra mã QR trên Excel thì liệu ta có thể ứng dụng nó vào việc gì?
Hỏi thế là bởi: Phải có ứng dụng thực tế và hữu ích thì mới có hứng trong việc viết code
Không biết có ai có nhu cầu này hoặc có ý tưởng hay về ứng dụng liên quan đến QR code không nhỉ?

cty tôi dùng nó trên mã sp, chương trình cân thì viết bắng SQL, thấy anh IT crack trên mạng về rồi nhúng nó vào, xài ok vài tháng nay, nhưng nó cứ hiện cái thông báo đòi mua hoìa. AnhNDU viet cho anh em xem với nh

ndu96081631 · 15/8/15

Let'GâuGâu đã viết:
AnhNDU viet cho anh em xem với nh

Đầu tiên hãy làm cuộc thí nghiệm sau:
- Gõ vào thanh địa chỉ của trình duyệt đoạn URL:

Mã:

https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=Nguyen+Anh+Tuan

xem ta nhận được cái gì nha
Đây chính là chìa khóa để tạo mã QR (dùng dịch vụ của google)
-----------------------------------------------------------
Tiến hành phân tích:
- Giả định rằng ta có chuỗi: Nguyen Anh Tuan
- Bằng cách nào đó ta biến đổi chuỗi trên thành:

Mã:

https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=Nguyen+Anh+Tuan

(tạm gọi đây là biến sURL nha)
Trong đó: chỗ không tô màu là const, chỗ màu xanh có thể tùy chỉnh hoặc để mặc định (nó là size), chỗ màu đỏ chính là chuỗi đầu vào (nhớ rằng khoảng trắng phải được biến đổi thành dấu +)
- Tiếp theo thử gõ vào cửa sổ Immediate dòng code:

Mã:

ActiveSheet.Shapes.AddPicture "https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=Nguyen+Anh+Tuan", True, True, ActiveCell.Left, ActiveCell.Top, 150, 150

enter phát xem nó ra cái gì }}}}}

---------------------------------
Vậy, việc chính của bạn chỉ là: làm cách nào để biến đổi chuỗi đầu vào thành sURL rồi ráp vào phương thức AddPicture là được rồi
Lưu ý:
- Chỗ màu đỏ không áp dụng cho tiếng Việt có dấu (nếu muốn thì phải cần 1 hàm convert)
- Đương nhiên phải kết nối internet mới dùng được
-------------------------------

ndu96081631 · 16/8/15

Đã 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

DMQ · 16/8/15

Thầy cho em Spam một tí ah! Em đang xài con SamSung Galasy SM-G360H, mà em chả biết mã QR ở đâu và làm gì???? Em chỉ biết dùng nó để lên Face và Zalo thôi.

ndu96081631 · 16/8/15

DMQ đã viết:
Thầy cho em Spam một tí ah! Em đang xài con SamSung Galasy SM-G360H, mà em chả biết mã QR ở đâu và làm gì???? Em chỉ biết dùng nó để lên Face và Zalo thôi.

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

DMQ · 16/8/15

Em thấy rồi, nhưng công dụng của nó để làm gì vậy Thầy.Em bật nó lên thì nó báo quét mã QR của tôi, em đưa ngón tay vào nó quét, rồi lưu vào thư viện của tôi rồi thôi. Rồi em chả biết làm sao nữa. Mong Thầy chỉ giáo!!!!

khuongvietphong · 16/8/15

DMQ đã viết:
Em thấy rồi, nhưng công dụng của nó để làm gì vậy Thầy.Em bật nó lên thì nó báo quét mã QR của tôi, em đưa ngón tay vào nó quét, rồi lưu vào thư viện của tôi rồi thôi. Rồi em chả biết làm sao nữa. Mong Thầy chỉ giáo!!!!

Trời ơi ! Google đâu. Bạn lên Google mà tra: mã QR code là gì ? công dụng của mã QR code,nó dùng để làm gì? rồi hướng dẫn sử dụng các phần mềm quét mã QR code trên điện thoại thậm chí bạn còn có thể tạo ra mã QR code của riêng bạn nữa cơ. Những cái mà trên Google đã có sẵn rồi thì ta có thể tự tìm hiểu mà bạn.

khuongvietphong · 16/8/15

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

View attachment 145506

Thật không ngờ dùng Zalo cũng lâu rồi mà bữa nay chú nói mới biết Zalo cũng có tiện ích quét cái mã QR code này chú ạ.

Hôm trước có vào đọc chủ đề này của chú, nay mới vào đọc lại cơ mà thấy mọi người có vẻ chưa hào hứng lắm hay là do từ qua tới giờ các thành viên trên GPE bận bịu gì mà thấy có ít người vào bình luận quá chú.

Let'GâuGâu · 16/8/15

DMQ đã viết:
Em thấy rồi, nhưng công dụng của nó để làm gì vậy Thầy.Em bật nó lên thì nó báo quét mã QR của tôi, em đưa ngón tay vào nó quét, rồi lưu vào thư viện của tôi rồi thôi. Rồi em chả biết làm sao nữa. Mong Thầy chỉ giáo!!!!

trước đây người ta dùng mã vạch barcode để ghi mã sản phẩm (bạn vào siêu thì thấy người ta tính tiền rồi chứ!!!)
tuy nhiên barcode chỉ có thể chứ thông tin dạng số (dạng 0-1-0-1....)
người ta phát triển thệm QR code, nó có thể chứa cả thông tin dạng số lẫn thông tin dạng text, nhơ vậy khi đọc mã sản phẩm, bạn có thể biết nước nào sản xuấtm trong lượng tổng tin, làm ở đâu nhà máy nào, cn tên gì.........đại khái là rất nhiều, tuy ngừi ta đưa vào đó cái gì
lý thuyết thì bạn có thể chứa cả quyển tiểu thuyết trên một cái QR code

DMQ · 16/8/15

Em chỉ biết người ta quét mã vạch để tính tiền, chứ không biết trong SmartPhone mã QR để làm gì nữa, mong Chị chỉ bảo.

Let'GâuGâu · 16/8/15

DMQ đã viết:
Em chỉ biết người ta quét mã vạch để tính tiền, chứ không biết trong SmartPhone mã QR để làm gì nữa, mong Chị chỉ bảo.

Bạn có thẻ bảo hiểm y tế ko, lấy nó ra đọc đi

DMQ · 16/8/15

Ah, trong thẻ bảo hiểm y tế của em nó cũng có hình "ma trận" như khi qét mã QR vậy, nhưng khi em quét mã QR xong nó hỏi chia sẻ qua Facebook hoặc Google+ chứ không có Zalo thì làm sao hả Anh????

giangleloi · 16/8/15

DMQ đã viết:
Em chỉ biết người ta quét mã vạch để tính tiền, chứ không biết trong SmartPhone mã QR để làm gì nữa, mong Chị chỉ bảo.

Ví dụ xài zalo trên Smartphone dùng cái QR này để đăng nhập zalo trên máy tính chẳng hạn.

langtuchungtinh360 · 16/8/15

http://kynguyenso.phapluattp.vn/ky-...thu-vi-khi-su-dung-qr-code-phan-1-512902.html
CÓ LẠC ĐỀ KHÔNG NHỈ

langtuchungtinh360 · 16/8/15

DMQ đã viết:
Em chỉ biết người ta quét mã vạch để tính tiền, chứ không biết trong SmartPhone mã QR để làm gì nữa, mong Chị chỉ bảo.

Có thể dùng QR CODE để tải ứng dụng có phí trên playstore nha bác.
chép link ứng dụng cần tải. vào địa chỉ sau. lấy đt ra. vàp QR Code Reader quét mã nó cho. là tải được app mà phải tốn tiền mới mua được. update thoải mái.
http://androidblog.vn/tools/apkleaks/

DMQ · 17/8/15

Sao em tải trò chơi thấy giá là 63đ, nó hiện mã QR lên em quét cả 10 phút mà không quét được. Chắc không dễ "Ăn" của nó đâu Anh!!!!!

VMH0307 · 17/8/15

DMQ đã viết:
Sao em tải trò chơi thấy giá là 63đ, nó hiện mã QR lên em quét cả 10 phút mà không quét được. Chắc không dễ "Ăn" của nó đâu Anh!!!!!

Đại khái, mã QR cơ bản chỉ là dòng thông tin thôi, việc quét mã QR chứa nội dung thông tin 1 Link nào đó, có thể là Web, 1 link chứa file tải về, chỉ chạy link này khi phần mềm quét mã QR tích hợp thêm chức năng nếu đọc ra thông tin là 1 Link (URL) và cho chạy luôn link đó.
Bạn có thể tải về một số ứng dụng cho smartphone để thực hiện đọc thông tin từ mã QR này. (trên App Store, Google Play... có nhiều)
-----------------------

Một dạo em cũng tìm hiểu về QR Code này, cũng có ý định thử tự tạo trên excel (dùng VBA để tự tạo các điểm ảnh trên bảng tính) nhưng nhận thấy hạn chế của VBA nên không thực hiện nữa, đặc biệt hạn chế khi tiến hành trên các version cao hơn, bộ tạo đa thức, tạo mã sửa lỗi, mẫu patterns...

Việc sử dụng "bộ máy" tạo trên google để tạo ảnh và lấy về excel như thầy Ndu là một ý tưởng rất hay

ndu96081631 · 18/8/15

VMH0307 đã viết:
Việc sử dụng "bộ máy" tạo trên google để tạo ảnh và lấy về excel như thầy Ndu là một ý tưởng rất hay

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ỉ?
+-+-+-+

Let'GâuGâu · 18/8/15

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ỉ?

đã 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?

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

Huyền thoại GPE

Thành viên mới

Huyền thoại GPE

Huyền thoại GPE

File đính kèm

Thành viên dốt

Huyền thoại GPE

Thành viên dốt

Be all you can be !

Be all you can be !

Thành viên mới

Thành viên dốt

Thành viên mới

Thành viên dốt

Thành viên gắn bó

Thành viên đã dừng hoạt động

Thành viên đã dừng hoạt động

Thành viên dốt

Thành viên tiêu biểu

Huyền thoại GPE

Thành viên mới

Đếm ngược thời gian