Lỗi đường link scan barcode

[Trung Kien Phan]

Các thầy cô giúp em xem đoạn code này có lỗi ở đâu hay do vấn đề về đường link với trang barcode mà em ko thể mới được file đó lên.
Nhưng khi ngắt kết nối internet thì lại mở được file ạ.
Nội dung code:
unction 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
Em cám ơn!

 

[batman1]

Các thầy cô giúp em xem đoạn code này có lỗi ở đâu hay do vấn đề về đường link với trang barcode mà em ko thể mới được file đó lên.
Nhưng khi ngắt kết nối internet thì lại mở được file ạ.

Mở được hay không chưa bàn tới. Nhưng code dùng Google API đó không dùng được nữa. Dùng google API là phụ thuộc vào nó, khi nó thay đổi thì ................. tèo. À không, thì .................... tìm gió ngoài đồng.
Mà lần sau cho cho code vào thẻ code nhé. Hãy nhìn người khác làm và bắt chước

 

[SA_DQ]

Một cách mà bạn có thể tự tìm lỗi là bỏ hay vô hiệu hóa câu lệnh này đi 1 cách tạm thời:
On Error Resume Next
& thay vô đó là các mệnh đề bẫy lỗi rõ rệch hơn để biết bạn đang bị lỗi là gì.
Câu lệnh bên trên là câu lênh rất nên không dùng trong rất nhiều trường hợp!

Ví dụ:

Sub ViDuBayLoiDeXemNoLaGi()
Dim sURL As String, Rng As Range, Cmt As Comment
On Error GoTo LoiCT
' Cac Câu Lênh Cua Ban                             '
Set Rng = [B2]
 sURL = Rng.Value \ 0
Err_:     Exit Sub
LoiCT:
    If Err = 13 Then
        MsgBox Error(13) , ,"GPE.COM Xin Thông Báo!"
        Resume Next
    Else
        MsgBox Err, , Error()
        Resume Err_
    End If
End Sub

 

[batman1]

Lỗi gì bạn? Đây là code của GPE mà.

Bạn thử thao tác trực tiếp bằng tay với

https://chart.googleapis.com/chart?chs=" & Size & "x" & Size & "&cht=qr&chl=hichic"

xem.

Code trên là của GPE, một thời chạy được, nhưng bây giờ là tìm gió ngoài đồng thôi.

 

[Trung Kien Phan]

Mở được hay không chưa bàn tới. Nhưng code dùng Google API đó không dùng được nữa. Dùng google API là phụ thuộc vào nó, khi nó thay đổi thì ................. tèo. À không, thì .................... tìm gió ngoài đồng.
Mà lần sau cho cho code vào thẻ code nhé. Hãy nhìn người khác làm và bắt chước

Dạ em sẽ chú ý..cám ơn Bác

 

[Trung Kien Phan]

Lỗi gì bạn? Đây là code của GPE mà.

Bạn thử thao tác trực tiếp bằng tay với

https://chart.googleapis.com/chart?chs=" & Size & "x" & Size & "&cht=qr&chl=hichic"

xem.

Code trên là của GPE, một thời chạy được, nhưng bây giờ là tìm gió ngoài đồng thôi.

Vâng đây là đoạn code của GPE ạ.
Em dùng được 1 năm nay rồi nhưng hôm qua bắt đầu ko hoạt động nữa.
Em đã thử bằng tay đoạn code trên của a batman nhưng vẫn không ổn ạ.

Các bác có file nào chạy offline qrcode mà không cần sử dụng web không cho em tham khảo với.
Đa tạ

 

[batman1]

Em đã thử bằng tay đoạn code trên của a batman nhưng vẫn không ổn ạ.

Không phải của tôi. Tôi trích ra từ code bạn đưa ra trên GPE

Các bác có file nào chạy offline qrcode mà không cần sử dụng web không cho em tham khảo với.
Đa tạ

Thế bạn lấy code ấy ở chủ đề nào? Chủ đề ấy có mỗi một giải pháp thôi à? Không ai nữa "góp vui" trong chủ đề ấy à?

 

[Trung Kien Phan]

Không phải của tôi. Tôi trích ra từ code bạn đưa ra trên GPE

Thế bạn lấy code ấy ở chủ đề nào? Chủ đề ấy có mỗi một giải pháp thôi à? Không ai nữa "góp vui" trong chủ đề ấy à?

Dạ có mỗi thầy ndu96081631 còn lại không có giải pháp nào ạ.

 

[batman1]

Dạ có mỗi thầy ndu96081631 còn lại không có giải pháp nào ạ.

Điêu thế.

Bạn có nhìn thấy công cụ "Tìm kiếm" của GPE không? Hàm bạn dùng có tên là cmt_QR? Thì nhập cmt_QR vào công cụ Tìm kiếm rồi đọc từ đầu đến cuối thôi.

Mà thôi. tìm và đọc bài #34 nhé.