Skip to main content

Conas cód qr a chruthú bunaithe ar luach cille in Excel?

An bhfuil a fhios agat conas cód QR a chruthú bunaithe ar luach sonrach cille in Excel? Taispeánfaidh an t-alt seo modh duit chun é a bhaint amach go mion.

Cruthaigh cód QR bunaithe ar luach cille le Rialú Barrachód agus cód VBA
Cruthaigh go héasca ilchóid QR ar an mórchóir bunaithe ar luachanna cille le huirlis iontach


Cruthaigh cód QR bunaithe ar luach cille le Rialú Barrachód agus cód VBA

Is féidir leis an Rialú Barrachód cabhrú leat cód QR a chruthú go tapa bunaithe ar luach cille in Excel. Déan mar a leanas le do thoil.

1. Oscail an bhileog oibre tá an luach cille a chruthóidh tú Cód QR bunaithe air.

2. cliceáil Forbróir > Ionsáigh > Rialú Níos Mó. Féach an pictiúr:

3. Sa Tuilleadh Rialuithe fuinneog, seiceáil le haghaidh an Rialú Barrachód Microsoft 16.0 or Rialú Barrachód Microsoft 15.0.

4. Mura bhfuair tú an Rialú Barrachód sa fhuinneog Tuilleadh Rialuithe nó mura bhfuil an 16.0 nó 15.0 ag an Rialú Barrachód, ní mór duit an comhad rialaithe barrachód a íoslódáil trí na naisc seo a chliceáil: rialú barrachód a íoslódáil. Má tá Barcode Control 16.0 nó 15.0 i d’fhuinneog More Controls, léim go dtí thíos céim 10.

Tar éis duit an comhad a íoslódáil, déan é a unzip agus ansin déan an Rialú Barrachód a nuashonrú leis an rialú barrachód íoslódáilte i do Excel mar a leanas.

5. Dún do leabhair oibre Excel go léir, téigh chuig an Tòisich alt, faigh an Excel aip agus cliceáil ar dheis air, ansin roghnaigh Rith mar riarthóir ón roghchlár comhthéacs. Féach an pictiúr:

6. San oscailt Úsáideoir Cuntas Rialaithe bosca dialóige, cliceáil an Is ea cnaipe.

7. Ansin cruthaítear leabhar oibre nua. Cliceáil le do thoil Forbróir > Ionsáigh > Rialú Níos Mó. Féach an pictiúr:

8. Sa Tuilleadh Rialuithe fuinneog, cliceáil Cláraigh Saincheaptha cnaipe, aimsigh agus roghnaigh ceann de na comhaid OCX cód qr íoslódáilte agus ansin cliceáil ar an Oscail cnaipe. Féach an pictiúr:

9. Cliceáil ar an OK cnaipe nuair a fhilleann sé an Tuilleadh Rialuithe fuinneog chun an Rialú Barrachód a nuashonrú. Ansin athoscailt sa leabhar oibre tá na luachanna cille a chruthóidh tú Cóid QR bunaithe orthu.

10. Cliceáil ar dheis ar an táb bileog agus cliceáil Féach an cód ón roghchlár comhthéacs chun an Microsoft Visual Basic d’Fheidhmchláir fuinneog. Ansin cóipeáil agus greamaigh faoi bhun chód VAB isteach i bhfuinneog an Chóid. Agus ar deireadh brúigh an Eile + Q eochracha chun imeacht as an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

Cód VBA: Cruthaigh cód QR in Excel

Sub setQR()
'Updated by Extendoffice 2018/8/22
    Dim xSRg As Range
    Dim xRRg As Range
    Dim xObjOLE As OLEObject
    On Error Resume Next
    Set xSRg = Application.InputBox("Please select the cell you will create QR code based on", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xRRg = Application.InputBox("Select a cell to place the QR code", "Kutools for Excel", , , , , , 8)
    If xRRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
    xObjOLE.Object.Style = 11
    xObjOLE.Object.Value = xSRg.Text
    ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
    ActiveSheet.Paste xRRg
    xObjOLE.Delete
    Application.ScreenUpdating = True
End Sub

11. cliceáil Forbróir > Ionsáigh > Cnaipe (Rialú Foirm) mar a thaispeántar thíos an pictiúr.

12. Tarraing cnaipe isteach sa bhileog oibre reatha. Sa popping suas Macra a shannadh dialóg, roghnaigh socraitheQR sa bhosca agus ansin cliceáil ar an OK cnaipe.

13. Múch an Mód Dearaidh trí chliceáil Forbróir > Mód Dearaidh.

14. Cliceáil an cnaipe, san oscailt Kutools le haghaidh Excel dialóg, roghnaigh an chill a chruthóidh tú Cód QR bunaithe air agus cliceáil OK.

15. Sa dara ceann Kutools le haghaidh Excel dialóg, roghnaigh cill chun an Cód QR a chur. Féach an pictiúr:

Ansin cuirfear an Cód QR isteach i gcill shonraithe láithreach. Déan céim 14 go 15 arís chun gach Cód QR a cruthaíodh a chríochnú. Féach an pictiúr:


Cruthaigh go héasca ilchóid QR ar an mórchóir bunaithe ar luachanna cille le huirlis iontach

Le bheith ionraic, ní furasta an modh thuas a láimhseáil mar tá a theorannú féin aige. Seo a mhol go hard an Cuir isteach Cód QR gné de Kutools le haghaidh Excel. Is féidir leis an ngné seo cabhrú leat cóid QR a chur isteach ar an mórchóir bunaithe ar luachanna sonraithe cille in Excel le roinnt cad a tharlaíonn ach amháin. Déan mar a leanas le do thoil chun é a chur i gcrích.

Roimh iarratas a dhéanamh Kutools le haghaidh Excel, Le do thoil é a íoslódáil agus a shuiteáil ar dtús.

1. Ar dtús, ullmhaigh do luachanna ar mhaith leat cód QR a chruthú bunaithe orthu.

2. cliceáil Kutools > Ionsáigh > Cuir isteach Cód QR.

Leid: Mura féidir leat an ghné leis an gcosán seo a aimsiú, brúigh an Eile + S eochracha ag an am céanna chun an Cuardaigh Feidhmeanna Kutools bosca, cineál de láimh Cód QR sa bhosca cuardaigh, ansin is féidir leat an Cuir isteach Cód QR tá an ghné liostaithe, ach cliceáil chun an ghné a ghníomhachtú. Féach an pictiúr:

Anois taispeántar an phána Ionsáigh Cód QR ar thaobh na láimhe deise den leabhar oibre.

3. Sa Cuir isteach Cód QR pána, ní mór duit a chumrú mar seo a leanas.

3.1) Sa Raon Sonraí bosca, roghnaigh raon na gcealla ina bhfuil na luachanna a theastaíonn uait Cód QR a chruthú bunaithe ar;
3.2) Sa Ionsáigh Raon bosca, roghnaigh raon cealla bána chun an cód QR a aschur;
3.3) Sa Roghanna alt, cumraigh an méid, dath líne, dath cúlra agus Leibhéal Ceartú Earráide don chód QR de réir mar is gá duit;
Nóta: Ní féidir le méid an chóid QR a bheith níos mó ná 500 picteilín.
3.4) Cliceáil ar an Gin cnaipe. Féach an pictiúr:

4. Ansin a Kutools le haghaidh Excel tagann bosca dialóige suas, cliceáil OK.

5. Ansin cruthaítear na cóid QR ag an am céanna. Ní mór duit an Cuir isteach Cód QR pána má chríochnaíonn tú gach cód QR a chruthú.

Cliceáil go níos mó eolais faoin ngné seo ...


Airteagal gaolmhar:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
Comments (38)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible to make a payment qr code in excel?
f.e. In cell A1 I've an amout of 10 euro, and in cell B2 I want to have an qr code so anyone can pay me with the qr code?

Thanks.
This comment was minimized by the moderator on the site
Hi Ruben,

Thank you for reaching out with your question. While Kutools for Excel does feature QR code generation, creating a payment QR code directly in Excel for transactional purposes is beyond the scope of this feature. Payment QR codes usually require integration with financial services or payment platforms to ensure secure transactions. I recommend exploring services specifically designed for creating payment QR codes, such as those offered by banks or digital payment systems. These platforms can generate a QR code linked to your payment details securely. Once you have the payment QR code, you could then include it in your Excel document as an image.
This comment was minimized by the moderator on the site
Hello

The download link provided in step 4 appears to be only Microsoft Barcode Control 14.0. Can anyone suggest a correct link for 16.0 please?

Thank you.
This comment was minimized by the moderator on the site
1 Sheets waar in de cellen van de rij random QR codes binnen komen. Waarvan elke QR code automatisch de juiste Sheets openend?
Of de BVA commando codes van de Button om de koppeling maken naar een andere sheets.
Dan ben erg dankbaar voor.
(dit is voor vrijwilligerswerk)

Groetjes,
H. van Schaijk
This comment was minimized by the moderator on the site
Hi H. van Schaijk,
I can't fix this problem. Sorry about that.
This comment was minimized by the moderator on the site
Hi folks,
Below code works fine with me, which is linked to cell range & generates the QR at each row cell 5000 nos, however I would like to stop the QR object generation if the reference cell value is zero / otherway round should generate the QR at adjucent cell if the value at reference cell is more than zero or <>""

Please seek experts assistance!!

thank you in advance

Sub Gen_StockOut_QR()
MsgBox ("Will Generate QR Code for Stock_Out Items at In@Out Sheet")
Sheets("In@Out_Data").Select
ActiveSheet.Unprotect Password:=" "
'Column range set at QR_Code
Range("QR_Code").Select

For Each cell In Selection
'cell.Offset(0, 23).Select ' 1 indicates the position of excel column A1 from the formula/webaddress/site/characters to be used to generate QR code
cell.Offset(0, 0).Select

' My case QRCode is at column 24 hence 24 as column from A1, QR Size 100*100
FilePath = "http://chart.googleapis.com/chart?chs=100x100&&cht=qr&chl=" & WorksheetFunction.EncodeURL(cell.Value) ' here is the cell value

With ActiveSheet.Pictures.Insert(FilePath)
'.ShapeRange.ScaleWidth 0.95, msoFalse, msoScaleFromTopLeft
'.ShapeRange.ScaleHeight 0.95, msoFalse, msoScaleFromTopLeft

End With
Next cell
End Sub
This comment was minimized by the moderator on the site
Interesting article - thank you.  How do I remove the custom control from the list please?
This comment was minimized by the moderator on the site
Hi,Do you mean to remove the Form Control inserted in the VBA code method? If so, you just need to right click it (when there is a context menu listed, click anywhere outside it to hide the context menu), and then press Delete to remove it.
This comment was minimized by the moderator on the site
Olá! Para mim, nenhum dos comentários ou esse post funcionou corretamente, mas utilizando o Visual Basic com o código que deixarei abaixo funcionou, pois criou uma função para mim. E para usar a função é só abrir a planilha e digitar: "=QrCode("célula desejada")"




Function QrCode(codetext As String)
Dim URL As String, MyCell As Range
'Para gerar o código, precisa a máquina ter acesso a internet
Set MyCell = Application.Caller
URL = "https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=" & codetext
On Error Resume Next
ActiveSheet.Pictures("QR_" & MyCell.Address(False, False)).Delete
On Error GoTo 0
ActiveSheet.Pictures.Insert(URL).Select
With Selection.ShapeRange(1)
.PictureFormat.CropLeft = 15
.PictureFormat.CropRight = 15
.PictureFormat.CropTop = 15
.PictureFormat.CropBottom = 15
.Name = "QR_" & MyCell.Address(False, False)
.Left = MyCell.Left + 2
.Top = MyCell.Top + 2
End With
QrCode = ""
End Function
This comment was minimized by the moderator on the site
Wie lösche ich die QR Code Grafik wieder ? wenn ich mit den Skript Wie erstelle ich einen QR-Code basierend auf dem Zellenwert in Excel? einen QR Code erzeugt habe ?
This comment was minimized by the moderator on the site
Hi All,

I modified the VBA code for creation a multi QR codes from selection in excel column

Follow until step 10 then add this code

Sub setQR()

Dim xSRg As Range
Dim xRRg As Range
Dim xObjOLE As OLEObject
On Error Resume Next
Dim srcSelection As Range
Dim srcCell As String
For Each srcSelection In Application.Selection
Dim qrCelltoupdate As String
Dim qrTxt As String
qrCelltoupdate = srcSelection.Offset(0, 1).Address
qrTxt = srcSelection.Text
Worksheets("Sheet1").Range(qrCelltoupdate).Select
Application.ScreenUpdating = False
Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
xObjOLE.Object.Style = 11
xObjOLE.Object.Value = qrTxt
ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
ActiveSheet.Paste
xObjOLE.Delete
Next srcSelection
'Create Qr code from selection multi cells
End Sub


In step 12
Assign Macro
Chose: Sheet1.setQR

QR codes will be populated in next column

Hope that helps for you all
This comment was minimized by the moderator on the site
Hi ChavdarHarchev.
First of all thank You very much for Your nice work.

Is it possible for You to show how the VBA code looks like when it is finished?
Best regards
Pierre Galuszka.
This comment was minimized by the moderator on the site
Hi All,
I modified the VBA code for creation a multi QR codes from selection in excel column
Follow until step 10 then add this code
Sub setQR()

Dim xSRg As Range
Dim xRRg As Range
Dim xObjOLE As OLEObject
On Error Resume Next
Dim srcSelection As Range
Dim srcCell As String
For Each srcSelection In Application.Selection
Dim qrCelltoupdate As String
Dim qrTxt As String
qrCelltoupdate = srcSelection.Offset(0, 1).Address
qrTxt = srcSelection.Text
Worksheets("Sheet1").Range(qrCelltoupdate).Select
Application.ScreenUpdating = False
Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
xObjOLE.Object.Style = 11
xObjOLE.Object.Value = qrTxt
ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
ActiveSheet.Paste
xObjOLE.Delete
Next srcSelection
'Create Qr code from selection multi cells
End Sub


In step 12 Assign Macro Chose: Sheet1.setQR
QR codes will be populated in next column
Hope that helps for you all
This comment was minimized by the moderator on the site
I didn't have "Microsoft Barcode Control 16.0" so I down loaded per instruction. And open Excel with Admin mode. Then try to "Register Custom" . But I opened Barcode control folder and select MSBCODE964,OCX. Then there is error message came out. It said "The selected file does not contain self-registrating ActiveX control". What it means? What is the problem. And how can I install that?
This comment was minimized by the moderator on the site
1)Click File > Options.

2)Click Trust Center > Trust Center Settings > ActiveX Settings.

Click the options below, and then click OK.
* Enable all controls without restrictions and without prompting (not recommended)
3)Click Ok
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations