تنزيل

Excel
كائنات الباركود في جدول بيانات

 Standard أو أعلى

تضمين الباركود وتشغيله تلقائيًا في ورقة Excel

Excel 365, 2024, 2021, 2019, 2016, 2013, 2010
فيما يلي وصف موجز لكيفية إضافة رمز شريطي إلى مستند Excel وربطه بمحتوى خلية.

أولاً، قم بتشغيل Excel وإنشاء أو فتح مستند.

تأكد من تهيئة Excel بحيث تظهر علامة التبويب المطور. للقيام بذلك، انتقل إلى خيارات Excel بالنقر فوق علامة التبويب ملف. سيؤدي ذلك إلى التبديل إلى عرض Backstage. ثم انقر فوق خيارات في مجموعة علامات التبويب على اليسار.ActiveBarcode: Barcode, Excel


1


ضمن تخصيص الشريط، قم بتمكين خيار المطور في علامات التبويب الرئيسية، ثم أغلق نافذة الخيارات.ActiveBarcode: Barcode, Excel


2


يمكنك الآن تضمين عنصر التحكم ActiveBarcode في المستند الخاص بك. حدد علامة التبويب المطور . انقر فوق الزر إدراج من نطاق عناصر التحكم ActiveX ، ثم حدد المزيد من عناصر التحكم.ActiveBarcode: Barcode, Excel


3


يظهر مربع حوار على الشاشة:ActiveBarcode: Barcode, Excel


4


حدد ActiveBarcode وانقر فوق OK. سيتم الآن إنشاء رمز شريطي داخل المستند. سيكون رمزًا شريطيًا قياسيًا من نوع EAN-128. هذا هو النوع الافتراضي. يمكنك تغييره إلى أي نوع من أنواع الرموز الشريطية التي يدعمها ActiveBarcode: QR Code, GS1/EAN-128, Data Matrix, GTIN/EAN-13, Code 39, Code 93, GS1-Data Matrix, Code 128, PDF417, DUN-14, EAN-8, EAN-14, EAN-18, ISBN, ITF-14, NVE, PZN8, SCC-14, SSCC-18 ...يمكنك الآن تعديل هذا الرمز الشريطي. يمكنك تغيير النوع والنص والألوان وما إلى ذلك. للقيام بذلك، انقر بزر الماوس الأيمن داخل الرمز الشريطي. ستفتح قائمة منبثقة: ActiveBarcode: Barcode, Excel


5


حدد كائن ActiveBarcode ثم خصائص. سيتم فتح مربع حوار خصائص ActiveBarcode. يمكنك تعديل الرمز الشريطي كما تريد هنا.

بدلاً من ذلك، يمكنك استخدام مربع حوار خصائص Excel. للقيام بذلك، انقر فوق الزر خصائص في نطاق عناصر التحكم:ActiveBarcode: Barcode, Excel


6


إنشاء رابط بين خلية والباركود: افتح مربع حوار خصائص Excel كما هو موضح أعلاه. قم بتنشيط كائن الباركود بالنقر عليه مرة واحدة. سيتم الآن عرض خصائص كائن الباركود في مربع حوار الخصائص. ابحث عن الخاصية المسماة LinkedCell. تُنشئ هذه الخاصية رابطًا بين خلية والباركود:ActiveBarcode: Barcode, Excel


7


أدخل اسم الخلية للرابط في هذه الخاصية. هذا كل شيء!

إذا كنت ترغب في إنشاء رمز شريطي يشفر البيانات من عدة خلايا، يجب عليك أولاً دمج هذه الخلايا في خلية مساعدة. ثم قم بتوصيل هذه الخلية المدمجة بكائن الرمز الشريطي.

في المثال التالي، يتم دمج محتويات الخلايا B3 و B4 في الخلية B6. الخلية B6 مرتبطة بكائن الباركود.ActiveBarcode: Barcode, Excel

استخدام الباركود وأتمتته باستخدام VBA في Excel

يمكنك استخدام VisualBasic for Applications (VBA) لحل العديد من المشكلات في Excel. سنوضح لك هنا كيفية تضمين عنصر التحكم ActiveBarcode واستخدامه وحذفه باستخدام VBA:

تضمين عنصر التحكم ActiveBarcode في ورقة:
في هذا المثال، سيتم وضع عنصر تحكم الباركود مباشرة فوق خلية. ثم يبدو أن الباركود سيكون داخل الخلية.

أولاً نقرأ حجم الخلايا:
CurrentCell = "C3"
MyHeight = Range(CurrentCell).Height
MyWidth = Range(CurrentCell).Width
MyTop = Range(CurrentCell).Top
MyLeft = Range(CurrentCell).Left
يرجى ملاحظة أن الخلية يجب أن يكون لها حجم أدنى حتى يتسنى إدخال الرمز الشريطي فيها. إذا كانت الخلية صغيرة جدًا، فسيتم عرض خطأ في الحجم. لذلك نقوم بتغيير حجم الخلية إلى 30 بكسل:
' Enlarge the cell height to 30 pixels
Range(CurrentCell).RowHeight = 30
ستقوم الوظيفة التالية بإنشاء عنصر تحكم الباركود مباشرة فوق الخلية:
ActiveSheet.OLEObjects.Add(ClassType:="ACTIVEBARCODE.BarcodeCtrl.1", Link:=False, _
 DisplayAsIcon:=False, Width:=MyWidth , Height:=MyHeight, Top:=MyTop + 2,_
 Left:=MyLeft + 4).Select
يمكنك ربط كائن الباركود مباشرة بخلية:
ActiveSheet.OLEObjects(MyBarcode).LinkedCell = "B7"
للحصول على وصول سهل إلى عنصر التحكم، نقوم بتخزين اسم عنصر التحكم في المتغير MyBarcode:
MyBarcode = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
الآن يمكنك استخدام خصائص وأساليب كائن الباركود كما تريد:
' set properties
ActiveSheet.OLEObjects(MyBarcode).Object.Font.Size = 8
ActiveSheet.OLEObjects(MyBarcode).Object.Type = 14 ' Code 128
ActiveSheet.OLEObjects(MyBarcode).Object.Text = Range("C3")
إذا لم تعد بحاجة إلى عنصر التحكم، يمكنك حذفه من الورقة:
ActiveSheet.OLEObjects(MyBarcode).Delete
تلميح: إذا كان من الضروري أن يقوم Windows بمعالجة الأحداث القادمة (التي يشار إليها غالبًا باسم KeepWindowsAlive) داخل ماكرو، فيمكنك فرض ذلك باستخدام وظيفة VBA التالية:
DoEvents
قد يكون ذلك ضروريًا، على سبيل المثال، إذا كان على عنصر التحكم أن يرسم نفسه من جديد.