Ungawakha kanjani amakhodi e-QR ku-Excel isinyathelo ngesinyathelo (ngaphandle kwezinhlelo zangaphandle)

Ingabe udinga ukukhiqiza Amakhodi e-QR asuka ku-Excel Futhi awazi ukuthi ungaqala kuphi? Ungakhathazeki, ukudala lawa makhodi kulula kunalokho kubonakala, futhi ungakwenza ngaphandle kokufaka izinhlelo zangaphandle noma ukuba nzima kakhulu. Kunezindlela eziningi zokufeza lokhu, kusukela emisebenzini yangokwezifiso ukuya ekusebenziseni ama-macros noma izengezo.

Kule ndatshana siyachaza Ungawakha kanjani amakhodi e-QR ku-Excel isinyathelo ngesinyathelo, enemiyalo elula esebenza kunoma iyiphi inguqulo yesimanje ye-Excel. Uma ukhetha ukwenza imisebenzi ngokuzenzakalelayo noma umane wonge isikhathi, lesi sifundo sizokulungele.

Iyini ikhodi ye-QR futhi isetshenziselwa ini ku-Excel?

I-Los Amakhodi we-QR Ziyizethulo eziyingcaca ezingagcina idatha efana nombhalo, izixhumanisi, izinombolo, ama-imeyili, nokuningi. Uma uskenwa ngeselula, okuqukethwe zivezwa nge-othomathikhi. Ukuwahlanganisa ku-Excel kukuvumela ukuthi wabelane ngokushesha ngolwazi olufana nezixhumanisi zemibhalo, amafomu, amarekhodi ekhasimende, abathintwayo, nanoma iyiphi enye idatha efanele.

Indlela 1: Dala amakhodi e-QR ngomsebenzi wangokwezifiso ku-VBA

Inketho yokuqala onayo ukusebenzisa umsebenzi wangokwezifiso obhalwe ku-VBA. Kulula ukuyisebenzisa futhi ikuvumela ukuthi ukhiqize amakhodi e-QR ngqo kusuka kuseli.

Okokuqala, yenza kusebenze ithebhu kanjiniyela

1. Chofoza kwesokudla ku-ribbon bese ukhetha "Yenza iribhoni ngendlela oyifisayo".
2. Thikha ibhokisi "Umhleli"Noma"Unjiniyela".
3. Qhafaza ukwamukela.

Okulandelayo, dala umsebenzi wangokwezifiso

1. Kuthebhu kanjiniyela, vula Visual Basic.
2. Faka i- imojuli entsha.
3. Namathisela ikhodi elandelayo:

Function CrearQR(texto As String, tamano As Integer) As Variant
    Dim url As String
    Dim celda As Range
    Dim nombreImagen As String
    Dim img As Shape

    On Error GoTo ErrorHandler

    If Trim(texto) = "" Then
        CrearQR = CVErr(xlErrValue)
        Exit Function
    End If

    Set celda = Application.Caller.Cells(1, 1)
    nombreImagen = "QR_" & celda.Address(False, False)

    On Error Resume Next
    celda.Worksheet.Shapes(nombreImagen).Delete
    On Error GoTo 0

    url = "https://api.qrserver.com/v1/create-qr-code/?size=" & tamano & "x" & tamano & "&data=" & WorksheetFunction.EncodeURL(texto)

    With celda.Worksheet.Pictures.Insert(url)
        .ShapeRange.LockAspectRatio = msoFalse
        .Height = tamano
        .Width = tamano
        .Top = celda.Top
        .Left = celda.Left
        .Name = nombreImagen
    End With

    CrearQR = "QR generado"
    Exit Function

ErrorHandler:
    CrearQR = CVErr(xlErrValue)
End Function

Ungawusebenzisa kanjani umsebenzi ku-Excel

1. Kunoma iyiphi iseli bhala: =CrearQR(A1;150) ukukhiqiza i-QR ngokusekelwe kokuqukethwe kweseli A1.
2. Qhafaza Faka futhi uzobona ikhodi yakho ye-QR ivela eshidini.
3. Ungahudulela le fomula phansi noma emaceleni ukuze uyiphinde kwamanye amaseli.

Susa amakhodi e-QR akhiqiziwe

1. Iya ku Ikhaya > Sesha bese ukhetha > Yiya kokuthi Okukhethekile.
2. Khetha Izinhloso.
3. Qhafaza Susa ukususa wonke amakhodi e-QR afakwe ngokubonakalayo.

Indlela 2: Sebenzisa i-macro ukuze ukhiqize amakhodi amaningi e-QR

Uma ukhetha ukwenza okuzenzakalelayo nakakhulu, ungasebenzisa i-macro esebenza ngobuningi kuhlu lwamaseli. Lokhu kuhle uma unohlu olude futhi ufuna ukuguqula yonke ikholomu ngokushesha ibe amakhodi e-QR.

Faka le makhro kumojuli

Sub GenerarQrCode(rango As Range, tamaño As Integer)
    Dim urlQR As String, celda As Range, textoCodigo As String
    Dim img As Picture
    Dim nombreQR As String

    For Each celda In rango
        textoCodigo = Trim(celda.Value)
        If textoCodigo <> "" Then
            urlQR = "https://api.qrserver.com/v1/create-qr-code/?size=" & tamaño & "x" & tamaño & "&data=" & WorksheetFunction.EncodeURL(textoCodigo)
            nombreQR = "QR_" & celda.Address(False, False)
            On Error Resume Next
            celda.Worksheet.Pictures(nombreQR).Delete
            On Error GoTo 0
            Set img = celda.Worksheet.Pictures.Insert(urlQR)
            With img
                .ShapeRange.LockAspectRatio = msoFalse
                .Name = nombreQR
                .Left = celda.Left + 2
                .Top = celda.Top + 2
                .Height = tamaño
                .Width = tamaño
            End With
        End If
    Next celda
End Sub

Sub EjecutarGenerarQrCode()
    Dim rango As Range
    Set rango = Selection
    Dim tamaño As Variant
    tamaño = InputBox("Por favor, introduce el tamaño del código QR (ej. 150):", "Tamaño del código QR", 150)
    If Not IsNumeric(tamaño) Or tamaño <= 0 Then
        MsgBox "Tamaño inválido. Por favor ingresa un número mayor que cero.", vbExclamation
        Exit Sub
    End If
    GenerarQrCode rango, CInt(tamaño)
End Sub

Ukuze usebenzise i-macro

1. Khetha ububanzi bamaseli aqukethe umbhalo noma izixhumanisi.
2. Sebenzisa i-macro"Qalisa i-GenerateQrCode".
3. Faka usayizi oyifunayo wamakhodi e-QR (isibonelo 150).

Okubalulekile: Londoloza ifayela njenge .xlsm ukuze ama-macros asebenze ngendlela efanele.

Indlela yesi-3: Sebenzisa izengezo ezisemthethweni ze-Excel

Uma ungeyena umlandeli wekhodi noma amamakhro, ungakhathazeki. Ungaphinda ukhethe isixazululo esilula kakhulu: usebenzisa isengezo sangaphandle se-Excel.

Izinyathelo zokufaka i-plugin

1. Ukusuka ku-Excel, iya ku Faka > Izengezo > Thola Izengezo.
2. Thayipha okuthi “QR” enjinini yokusesha bese ukhetha enesilinganiso esihle (kunconyiwe: isithonjana esibomvu).
3. Qhafaza Engeza bese Qhubeka.

Khiqiza i-QR nge-plugin

1. Khetha amaseli aqukethe idatha azoguqulwa.
2. Vula i-plugin bese usetha usayizi wekhodi ye-QR oyifunayo (isibonelo, 100×100 px).
3. Qhafaza Khiqiza.

Le ndlela ilungile uma ungafuni ukungcolisa ikhodi noma uma usebenza ezindaweni zebhizinisi lapho ama-macros evinjiwe.

Kungani usebenzise amakhodi e-QR ku-Excel?

• Inqubo yokuzenzakalela: Skena futhi ufinyelele ulwazi ngokuqondile ngaphandle kokukopisha/ukunamathisela izixhumanisi.
• Ukwabelana ngedatha kalula: kusuka kumafayela abasebenzi kuya kuzixhumanisi zamadeshibhodi noma amafomu aku-inthanethi.
• Iselula iyahambisana: noma yikuphi smartphone ungakwazi ukuskena ikhodi futhi ufinyelele okuqukethwe.

Kunezindlela eziningi zokwenza amakhodi e-QR ku-Excel ukuze afanele izitayela zomsebenzi ezihlukene. Kungakhathaliseki ukuthi usebenzisa ikhodi ye-VBA, amamakhro ayinqwaba, noma izengezo ezibonakalayo, kuhlale kunenketho ofinyelelekayo. Zonke izixazululo ezibonisiwe zimahhala, ziyasebenza, futhi ziyahambisana nezinguqulo zakamuva ze-Excel, ngakho-ke udinga kuphela ukuzijwayeza okuncane ukuze ube yingcweti yaleli thuluzi, eliya liba wusizo kakhulu emahhovisi, ezikoleni, ekulondolozweni, neminye imikhakha.