كيفية إنشاء كود 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. في ال أدخل رمز الاستجابة السريعة جزء ، تحتاج إلى التكوين على النحو التالي.
4. ثم أ كوتولس ل إكسيل ينبثق مربع الحوار ، انقر فوق حسنا.
5. ثم يتم إنشاء رموز QR في نفس الوقت. تحتاج إلى إغلاق ملف أدخل رمز الاستجابة السريعة جزء في حالة الانتهاء من إنشاء جميع رموز QR.
انقر للتحديث تعرف على المزيد حول هذه الميزة ...
مقالة ذات صلة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!