Excel 2016, Excel 2013 ve Excel 365'te Barkodlar

Excel sayfasına barkod gömme ve otomatikleştirme

Excel 365, 2024, 2021, 2019, 2016, 2013, 2010

Burada, bir Excel belgesine nasıl barkod ekleneceği ve bir hücrenin içeriğiyle nasıl ilişkilendirileceği hakkında kısa bir açıklama bulunmaktadır.

İlk olarak, Excel'i başlatın ve bir belge oluşturun veya açın.

Excel'i Developer sekmesi görünecek şekilde yapılandırdığınızdan emin olun. Bunu yapmak için, Dosya sekmesine tıklayarak Excel Seçenekleri'ne gidin. Bu sizi Backstage görünümüne geçirecektir. Ardından, soldaki sekme grubunda Seçenekler'e tıklayın. ActiveBarcode: Barcode, Excel

Şeridi Özelleştir altında, ana sekmelerdeki Geliştirici seçeneğini etkinleştirin, ardından seçenekler penceresini kapatın. ActiveBarcode: Barcode, Excel

Artık ActiveBarcode kontrol öğesini belgenize gömebilirsiniz. Developer sekmesini seçin. ActiveX Controls aralığından Insert düğmesine tıklayın ve ardından More Controls öğesini seçin. ActiveBarcode: Barcode, Excel

Ekranda bir iletişim kutusu belirir: ActiveBarcode: Barcode, Excel

ActiveBarcode öğesini seçin ve Tamam öğesine tıklayın. Şimdi belgenizin içinde bir barkod oluşturulacaktır. Bu standart bir EAN-128 barkodu olacaktır. Bu varsayılan türdür. ActiveBarcode tarafından desteklenen herhangi bir barkod türüyle değiştirebilirsiniz: 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 ...Artık bu barkodu değiştirebilirsiniz. Türü, metni, renkleri vb. değiştirebilirsiniz. Bunu yapmak için barkodun içine sağ tıklayın. Bir açılır menü açılacaktır: ActiveBarcode: Barcode, Excel

ActiveBarcode Object öğesini ve ardından Properties öğesini seçin. ActiveBarcode özellik iletişim kutusu açılacaktır. Burada barkodu istediğiniz gibi değiştirebilirsiniz.

Alternatif olarak, Excel'in özellik iletişim kutusunu kullanabilirsiniz. Bunu yapmak için, Kontroller aralığındaki Özellikler düğmesine tıklayın: ActiveBarcode: Barcode, Excel

Hücre ve barkod arasında bir bağlantı oluşturun: Yukarıda açıklandığı gibi Excel özellik iletişim kutusunu açın. Barkod nesnesine bir kez tıklayarak etkinleştirin. Barkod nesnesinin özellikleri şimdi özellik iletişim kutusunda görüntülenecektir. LinkedCell adlı özelliği arayın. Bu özellik, bir hücre ile barkod arasında bir bağlantı oluşturur: ActiveBarcode: Barcode, Excel

Bu özelliğe bağlantı için hücrenin adını girin. İşte bu kadar!

Birkaç hücredeki verileri kodlayan bir barkod oluşturmak istiyorsanız, önce bu hücreleri yardımcı bir hücrede birleştirmeniz gerekir. Ardından bu birleştirilmiş hücreyi barkod nesnesine bağlamalısınız.

Aşağıdaki örnekte, B3 ve B4 hücrelerinin içerikleri B6 hücresinde birleştirilir. B6 hücresi barkod nesnesine bağlanır. ActiveBarcode: Barcode, Excel

VBA ile barkodları kullanma ve otomatikleştirme Excel

Excel'de birçok şeyi çözmek için VisualBasic for Applications (VBA) kullanabilirsiniz. Burada size ActiveBarcode kontrolünü VBA ile nasıl gömeceğinizi, kullanacağınızı ve sileceğinizi göstereceğiz:

ActiveBarcode Kontrolünü bir Sayfaya Yerleştirme:
Bu örnekte, bir barkod kontrolü doğrudan bir hücrenin üzerine yerleştirilecektir. O zaman barkod bir hücrenin içindeymiş gibi görünür.

Önce hücre boyutunu okuyoruz:

CurrentCell = "C3"
MyHeight = Range(CurrentCell).Height
MyWidth = Range(CurrentCell).Width
MyTop = Range(CurrentCell).Top
MyLeft = Range(CurrentCell).Left

Barkodun sığabilmesi için bir hücrenin minimum boyutta olması gerektiğini lütfen unutmayın. Hücre çok küçükse bir Boyut hatası görüntülenecektir. Bu yüzden hücrenin yüksekliğini 30 piksel olarak yeniden boyutlandırıyoruz:

' Enlarge the cell height to 30 pixels
Range(CurrentCell).RowHeight = 30

Aşağıdaki fonksiyon, barkod kontrolünü doğrudan hücrenin üzerinde oluşturacaktır:

ActiveSheet.OLEObjects.Add(ClassType:="ACTIVEBARCODE.BarcodeCtrl.1", Link:=False, _
 DisplayAsIcon:=False, Width:=MyWidth , Height:=MyHeight, Top:=MyTop + 2,_
 Left:=MyLeft + 4).Select

Barkod nesnesini doğrudan bir hücreye bağlayabilirsiniz:

ActiveSheet.OLEObjects(MyBarcode).LinkedCell = "B7"

Kontrole kolay erişim sağlamak için kontrolün adını MyBarcode değişkeninde saklarız:

MyBarcode = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name

Artık barkod nesnesinin özelliklerini ve metotlarını istediğiniz gibi kullanabilirsiniz:

' set properties
ActiveSheet.OLEObjects(MyBarcode).Object.Font.Size = 8
ActiveSheet.OLEObjects(MyBarcode).Object.Type = 14 ' Code 128
ActiveSheet.OLEObjects(MyBarcode).Object.Text = Range("C3")

Kontrole artık ihtiyacınız yoksa sayfadan silebilirsiniz:

ActiveSheet.OLEObjects(MyBarcode).Delete

İpucu: Windows'un yaklaşan olayları (genellikle KeepWindowsAlive olarak adlandırılır) bir makro içinde işlemesi gerekiyorsa, aşağıdaki VBA işlevini kullanarak bunu zorlayabilirsiniz:

DoEvents

Bu, örneğin Kontrolün kendisini yeni çizmesi gerekiyorsa gerekli olabilir.