انتقل إلى المحتوى الرئيسي

كيفية إنشاء كود qr على أساس قيمة الخلية في إكسيل؟

هل تعرف كيفية إنشاء رمز الاستجابة السريعة بناءً على قيمة خلية محددة في Excel؟ ستوضح لك هذه المقالة طريقة لتحقيق ذلك بالتفصيل.

قم بإنشاء رمز QR بناءً على قيمة الخلية باستخدام التحكم في الرمز الشريطي ورمز VBA
يمكنك بسهولة إنشاء أكواد QR متعددة بشكل مجمّع بناءً على قيم الخلية باستخدام أداة مذهلة


قم بإنشاء رمز QR بناءً على قيمة الخلية باستخدام التحكم في الرمز الشريطي ورمز VBA

يمكن أن يساعدك التحكم في الرمز الشريطي في إنشاء رمز QR بسرعة استنادًا إلى قيمة الخلية في Excel. الرجاء القيام بما يلي.

1. افتح ورقة العمل التي تحتوي على قيمة الخلية التي ستنشئ رمز الاستجابة السريعة بناءً عليها.

2. انقر المطور > إدراج > المزيد من التحكم. انظر لقطة الشاشة:

3. في ال المزيد من عناصر التحكم النافذة ، تحقق من Microsoft Barcode Control 16.0 تحديث or Microsoft Barcode Control 15.0 تحديث.

4. إذا لم تجد عنصر التحكم في الرمز الشريطي في نافذة المزيد من عناصر التحكم أو لم يكن عنصر التحكم في الرمز الشريطي هو 16.0 أو 15.0 ، فأنت بحاجة إلى تنزيل ملف التحكم في الرمز الشريطي بالنقر فوق هذه الروابط: تنزيل التحكم في الباركود. إذا كان هناك Barcode Control 16.0 أو 15.0 في نافذة المزيد من عناصر التحكم ، فما عليك سوى الانتقال إلى الأسفل خطوة 10.

بعد تنزيل الملف ، قم بفك ضغطه ثم قم بتحديث عنصر التحكم في الرمز الشريطي باستخدام عنصر التحكم في الرمز الشريطي الذي تم تنزيله في Excel كما يلي.

5. أغلق كافة مصنفات Excel ، واذهب إلى آبدأ الباب ، والعثور على Excel app وانقر بزر الماوس الأيمن فوقه ، ثم حدد تشغيل كمسؤول من قائمة السياق. انظر لقطة الشاشة:

6. في الافتتاح التحكم في حساب المستخدم مربع الحوار، انقر فوق نعم .

7. ثم يتم إنشاء مصنف جديد. من فضلك اضغط المطور > إدراج > المزيد من التحكم. انظر لقطة الشاشة:

8. في ال المزيد من عناصر التحكم الإطار، انقر فوق تسجيل مخصص ، ابحث عن أحد ملفات qr code OCX التي تم تنزيلها وحدده ، ثم انقر فوق ملف ساعات العمل زر. انظر لقطة الشاشة:

9. انقر فوق OK زر عندما يعود المزيد من عناصر التحكم نافذة لإنهاء تحديث Barcode Control. ثم أعد فتح المصنف الذي يحتوي على قيم الخلية التي ستنشئ أكواد QR بناءً عليها.

10. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة وانقر عرض الرمز من قائمة السياق لفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. ثم انسخ والصق رمز VAB أدناه في نافذة الكود. وأخيرًا اضغط على ملف قديم + Q مفاتيح للخروج من ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

كود فبا: أنشئ كود 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. ارسم زرًا في ورقة العمل الحالية. في ظهرت تعيين ماكرو الحوار، حدد مجموعة في المربع ثم انقر فوق OK .

13. إيقاف تشغيل وضع التصميم بالضغط المطور > وضع التصميم.

14. انقر فوق الزر في الافتتاح كوتولس ل إكسيل في مربع الحوار ، حدد الخلية التي ستنشئ رمز الاستجابة السريعة بناءً عليها وانقر OK.

15. في الثانية كوتولس ل إكسيل مربع الحوار ، حدد خلية لوضع رمز الاستجابة السريعة. انظر لقطة الشاشة:

ثم سيتم إدخال رمز الاستجابة السريعة في الخلية المحددة على الفور. كرر الخطوات من 14 إلى 15 لإنهاء جميع رموز QR التي تم إنشاؤها. انظر لقطة الشاشة:


يمكنك بسهولة إنشاء أكواد QR متعددة بشكل مجمّع بناءً على قيم الخلية باستخدام أداة مذهلة

لنكون صادقين ، الطريقة المذكورة أعلاه ليس من السهل التعامل معها لأنها لها حدودها الخاصة. ينصح بشدة هنا أدخل رمز الاستجابة السريعة سمة من سمات كوتولس ل إكسيل. يمكن أن تساعدك هذه الميزة في إدراج رموز QR بشكل مجمّع بسرعة استنادًا إلى قيم الخلايا المحددة في Excel بعدة نقرات فقط. يرجى القيام بما يلي لإنجازه.

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

1. أولاً ، قم بإعداد القيم الخاصة بك التي تريد إنشاء رمز الاستجابة السريعة بناءً عليها.

2. انقر كوتولس > إدراج > أدخل رمز الاستجابة السريعة.

نصيحة: إذا لم تتمكن من العثور على الميزة بهذا المسار ، فيرجى الضغط على قديم + S مفاتيح في نفس الوقت لفتح بحث وظائف Kutools مربع ، اكتب يدويًا رمز الاستجابة السريعة في مربع البحث ، يمكنك حينئذٍ رؤية ملف أدخل رمز الاستجابة السريعة الميزة مدرجة ، فقط انقر لتنشيط الميزة. انظر لقطة الشاشة:

الآن يتم عرض جزء إدراج رمز الاستجابة السريعة على الجانب الأيمن من المصنف.

3. في ال أدخل رمز الاستجابة السريعة جزء ، تحتاج إلى التكوين على النحو التالي.

شنومكس) في نطاق البيانات في المربع ، حدد نطاق الخلايا التي تحتوي على القيم التي تريد إنشاء رمز الاستجابة السريعة بناءً عليها ؛
شنومكس) في أدخل النطاق مربع ، حدد مجموعة من الخلايا الفارغة لإخراج رمز الاستجابة السريعة ؛
شنومكس) في مزيد من الخيارات قسم تكوين الحجم ولون الخط ولون الخلفية و مستوى تصحيح الخطأ لرمز الاستجابة السريعة كما تحتاج ؛
ملحوظة: لا يمكن أن يتجاوز حجم رمز الاستجابة السريعة 500 بكسل.
شنومكس) انقر فوق توليد زر. انظر لقطة الشاشة:

4. ثم أ كوتولس ل إكسيل ينبثق مربع الحوار ، انقر فوق حسنا.

5. ثم يتم إنشاء رموز QR في نفس الوقت. تحتاج إلى إغلاق ملف أدخل رمز الاستجابة السريعة جزء في حالة الانتهاء من إنشاء جميع رموز QR.

انقر للتحديث تعرف على المزيد حول هذه الميزة ...


مقالة ذات صلة:

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 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