求帮解读关于二维码的代码

yuoep2014

在弄一个关于二维码的制作

求大全帮我解读以下这段二维是什么意思，谢谢

Sub 生成二维码()
    Application.ScreenUpdating = False
    Dim t As String
   
    For Each x In ActiveSheet.DrawingObjects
        If InStr(x.Name, "Picture") > 0 Then x.Delete
    Next
    i = ActiveSheet.UsedRange.Rows.Count
    For j = 6 To i
        If Range("B" & j) <> "" And Range("A" & j) = 6 And Range("A" & j - 1) = 5 And Range("A" & j - 2) = 4 And Range("A" & j - 3) = 3 And Range("A" & j - 4) = 2 And Range("A" & j - 5) = 1 Then
            t = Range("B" & j - 5) & ";" & Chr(13) & Range("B" & j - 4) & ";" & Chr(13) & Range("B" & j - 3) & ";" & Chr(13) & Range("B" & j - 2) & ";" & Chr(13) & Range("B" & j - 1) & ";" & Chr(13) & Range("B" & j) & ";"
            Call QRMain(t)
            Call CreateBitmapQRCode(RGB(0, 0, 0), RGB(255, 255, 255))
            Call QRCodeToClipboard
            Range("D" & j - 4).Select
            ActiveSheet.Paste
            Selection.Width = 50 '二维码大小
        End If
    Next
    Range("A2").Select
   
End Sub

haofeng4645

哈哈哈，这不是我写给别人的吗，不过我也是引用别人改写的。Call 后面才是重点，生成二维码就靠那三个Call了。