Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս ստեղծել qr կոդ Excel- ում բջջային արժեքի հիման վրա:

Գիտե՞ք ինչպես ստեղծել QR կոդ Excel- ում բջջային որոշակի արժեքի հիման վրա: Այս հոդվածը ձեզ մանրամասնորեն ցույց կտա դրան հասնելու մեթոդ:

Ստեղծեք QR կոդ ՝ հիմնված բջջային արժեքի վրա, շտրիխ կոդով և VBA կոդով
Հեշտությամբ ստեղծեք բազմաթիվ QR կոդեր բջջային արժեքների հիման վրա ՝ զարմանալի գործիքով


Ստեղծեք QR կոդ ՝ հիմնված բջջային արժեքի վրա, շտրիխ կոդով և VBA կոդով

Շտրիխ ծածկագիրը կարող է օգնել ձեզ արագ ստեղծել QR կոդ ՝ հիմնված բջջային արժեքի վրա Excel- ում: Խնդրում եմ, արեք հետևյալ կերպ.

1. Բացեք աշխատաթերթը պարունակում է այն բջիջի արժեքը, որի հիման վրա կստեղծեք QR կոդ:

2: սեղմեք Երեվակիչ > Տեղադրել > Ավելի հսկողություն, Տեսեք,

3. Մեջ Լրացուցիչ վերահսկում պատուհան, ստուգեք այն Microsoft- ի շտրիխ հսկողություն 16.0 or Microsoft- ի շտրիխ հսկողություն 15.0.

4. Եթե «Ավելի շատ հսկողություն» պատուհանում չեք գտել «Շտրիխ կոդի» հսկողությունը կամ «Շտրիխ կոդի» վերահսկիչը 16.0 կամ 15.0 չէ, ապա հարկավոր է ներբեռնել շտրիխ կոդի կառավարման ֆայլը ՝ կտտացնելով այս հղումները. ներբեռնել շտրիխ կոդ, Եթե ​​ձեր More Controls պատուհանում կա շտրիխ կոդ 16.0 կամ 15.0, պարզապես անցեք ներքև քայլ 10.

Ֆայլը ներբեռնելուց հետո այն հանեք zip- ից և ապա թարմացրեք շտրիխ կոդի կառավարումը ձեր Excel- ում ներբեռնված շտրիխ կոդի միջոցով ՝ հետևյալ կերպ.

5. Փակեք ձեր Excel- ի աշխատանքային բոլոր գրքերը, անցեք այստեղ սկիզբ բաժին գտնել Excel հավելվածը և աջ սեղմել դրա վրա, ապա ընտրել Run որպես ադմինիստրատոր համատեքստային ընտրացանկից: Տեսեք,

6. Բացման մեջ Օգտագործողների հաշիվների կառավարում երկխոսության տուփ, կտտացրեք այո կոճակը:

7. Այնուհետեւ ստեղծվում է նոր աշխատանքային գրքույկ: Խնդրում ենք սեղմել Երեվակիչ > Տեղադրել > Ավելի հսկողություն, Տեսեք,

8. Մեջ Լրացուցիչ վերահսկում պատուհանը, սեղմեք Գրանցվել Պատվերով կոճակը, գտեք և ընտրեք ներբեռնված qr կոդից OCX ֆայլերից մեկը և այնուհետև կտտացրեք այն բաց կոճակ Տեսեք,

9. Սեղմեք OK կոճակը, երբ այն վերադարձնում է Լրացուցիչ վերահսկում պատուհանը `շտրիխ կոդն ավարտելու համար թարմացված: Դրանից հետո կրկին բացեք աշխատանքային գրքում պարունակվող բջիջների արժեքները, որոնց հիման վրա կստեղծեք QR կոդեր:

10, Աջ կտտացրեք թերթիկի ներդիրին և կտտացրեք Դիտել կոդը համատեքստային ընտրացանկից բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան Դրանից հետո պատճենեք և տեղադրեք VAB կոդի տակ ՝ Code պատուհանում: Եվ վերջապես սեղմեք ալտ + Q ստեղները դուրս գալու համար Microsoft Visual Basic հավելվածների համար պատուհան.

VBA կոդ. Excel- ում ստեղծեք QR կոդ

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: սեղմեք Երեվակիչ > Տեղադրել > Կոճակ (Ձևի հսկողություն) ինչպես ցույց է տրված նկարում

12. Կոճակ նկարեք ընթացիկ աշխատանքային թերթի մեջ: Պատուհանման մեջ Նշանակեք մակրո երկխոսություն, ընտրեք setqr վանդակում և կտտացրեք այն OK կոճակը:

13. Անջատեք Դիզայնի ռեժիմ սեղմելով Երեվակիչ > Դիզայնի ռեժիմ.

14. Կտտացրեք կոճակը բացման հատվածում Excel- ի համար նախատեսված գործիքներ երկխոսություն, ընտրեք այն բջիջը, որի հիման վրա կստեղծեք QR կոդ, և կտտացրեք OK.

15. Երկրորդում Excel- ի համար նախատեսված գործիքներ երկխոսություն, ընտրեք բջիջ `QR կոդ տեղադրելու համար: Տեսեք,

Այնուհետև QR կոդն անմիջապես կտեղադրվի նշված խցում: Կրկնեք 14-ից 15-րդ քայլը `ամբողջ QR կոդն ավարտելու համար: Տեսեք,


Հեշտությամբ ստեղծեք բազմաթիվ QR կոդեր բջջային արժեքների հիման վրա ՝ զարմանալի գործիքով

Beիշտն ասած, վերը նշված մեթոդը հեշտ չէ գործածել, քանի որ այն ունի իր սահմանափակումները: Այստեղ բարձր խորհուրդ է տրվում Տեղադրեք QR կոդ առանձնահատկությունը Excel- ի համար նախատեսված գործիքներ, Այս գործառույթը կարող է օգնել ձեզ արագորեն տեղադրել QR կոդերը զանգվածով ՝ հիմնված Excel- ում բջիջների նշված արժեքների վրա ՝ միայն մի քանի կտտոցով: Խնդրում ենք անել հետևյալը ՝ դա կատարելու համար:

Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.

1. Նախ, պատրաստեք ձեր արժեքները, որոնց հիման վրա ցանկանում եք ստեղծել QR կոդ:

2: սեղմեք Կուտոլս > Տեղադրել > Տեղադրեք QR կոդ.

Հուշում. Եթե ​​չեք կարողանում գտնել այս ուղու հնարավորությունը, խնդրում ենք սեղմել ալտ + S ստեղները միաժամանակ բացելու համար Որոնել Kutools գործառույթները տուփ, ձեռքով մուտքագրեք QR Code որոնման դաշտում, ապա կարող եք տեսնել Տեղադրեք QR կոդ գործառույթը թվարկված է, պարզապես կտտացրեք գործառույթը ակտիվացնելու համար: Տե՛ս սքրինշոթը ՝

Այժմ Insert QR Code- ի պատուհանը ցուցադրվում է աշխատանքային գրքի աջ կողմում:

3. Մեջ Տեղադրեք QR կոդ պատուհանը, դուք պետք է կազմաձևեք հետևյալը.

3.1) Ի Տվյալների տիրույթ վանդակում, ընտրեք այն բջիջների շրջանակը, որոնք պարունակում են այն արժեքները, որոնց հիման վրա ցանկանում եք ստեղծել QR կոդ.
3.2) Ի Տեղադրեք տիրույթը վանդակում, ընտրեք դատարկ բջիջների մի շարք ՝ QR կոդը թողարկելու համար.
3.3) Ի Ընտրանքներ բաժինը, կազմաձևեք չափը, գծի գույնը, ֆոնի գույնը և Սխալների ուղղման մակարդակ ըստ անհրաժեշտության QR կոդի համար;
Նշում: QR կոդի չափը չի կարող գերազանցել 500 պիքսել:
3.4) Կտտացրեք այն Առաջացնել կոճակ Տեսեք,

4. Հետո ա Excel- ի համար նախատեսված գործիքներ երկխոսության պատուհանը բացվում է, կտտացրեք OK.

5. Այնուհետեւ QR կոդերը ստեղծվում են միաժամանակ: Դուք պետք է ձեռքով փակեք Տեղադրեք QR կոդ պատուհան, եթե ավարտես բոլոր QR կոդերի ստեղծումը:

Սեղմեք իմացեք ավելին այս հատկության մասին ...


Առնչվող հոդված:

Գրասենյակի արտադրողականության լավագույն գործիքները

Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50 + Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

kte էջանիշը 201905


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
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