הורדה

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 Object ואז Properties. תיבת הדו-שיח ActiveBarcode property תיפתח. כאן תוכל לשנות את הברקוד כרצונך.

לחלופין, ניתן להשתמש בתיבת הדו-שיח 'מאפיינים' של 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
זה יכול להיות הכרחי, למשל, אם ה-Control צריך לצייר את עצמו מחדש.