Unduh

Excel
Objek barcode dalam lembar kerja

 Standard atau lebih tinggi

Sisipkan dan otomatiskan kode batang dalam lembar kerja Excel

Excel 365, 2024, 2021, 2019, 2016, 2013, 2010
Berikut ini adalah penjelasan singkat tentang cara menambahkan barcode ke dokumen Excel dan menghubungkannya dengan isi sel.

Pertama, buka Excel dan buat atau buka dokumen.

Pastikan Anda telah mengonfigurasi Excel sehingga tab Pengembang muncul. Untuk melakukannya, buka Opsi Excel dengan mengklik tab File. Hal ini akan membawa Anda ke tampilan Backstage. Kemudian, klik Opsi di grup tab di sebelah kiri.ActiveBarcode: Barcode, Excel


1


Di bawah menu Customize Ribbon, aktifkan opsi Developer pada tab utama, lalu tutup jendela opsi.ActiveBarcode: Barcode, Excel


2


Anda sekarang dapat menyisipkan elemen kontrol ActiveBarcode ke dalam dokumen Anda. Pilih tab Pengembang. Klik tombol Sisipkan dari rentang Kontrol ActiveX, lalu pilih Kontrol Lainnya.ActiveBarcode: Barcode, Excel


3


Sebuah kotak dialog muncul di layar:ActiveBarcode: Barcode, Excel


4


Pilih ActiveBarcode dan klik OK. Sebuah barcode akan dibuat di dalam dokumen Anda. Barcode tersebut akan berupa barcode EAN-128 standar. Ini adalah jenis default. Anda dapat mengubahnya menjadi jenis barcode apa pun yang didukung oleh 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 ...Anda sekarang dapat memodifikasi barcode ini. Anda dapat mengubah jenis, teks, warna, dan sebagainya. Untuk melakukannya, klik kanan di dalam barcode. Menu pop-up akan muncul: ActiveBarcode: Barcode, Excel


5


Pilih objek ActiveBarcode, lalu pilih Properties. Kotak dialog properti ActiveBarcode akan terbuka. Anda dapat memodifikasi barcode sesuka Anda di sini.

Sebagai alternatif, Anda dapat menggunakan dialog properti Excel. Untuk melakukannya, klik tombol Properti di rentang Kontrol:ActiveBarcode: Barcode, Excel


6


Buat tautan antara sel dan kode batang: Buka dialog properti Excel seperti yang dijelaskan di atas. Aktifkan objek kode batang dengan mengkliknya sekali. Properti objek kode batang sekarang akan ditampilkan di dialog properti. Cari properti yang bernama LinkedCell. Properti ini membuat tautan antara sel dan kode batang:ActiveBarcode: Barcode, Excel


7


Masukkan nama sel untuk tautan ke properti ini. Selesai!

Jika Anda ingin membuat barcode yang mengenkode data dari beberapa sel, Anda harus terlebih dahulu menggabungkan sel-sel tersebut ke dalam sel bantu. Kemudian hubungkan sel gabungan ini dengan objek barcode.

Dalam contoh berikut, isi sel B3 dan B4 digabungkan ke dalam sel B6. Sel B6 terhubung dengan objek barcode.ActiveBarcode: Barcode, Excel

Menggunakan dan mengotomatisasi barcode dengan VBA di Excel

Anda dapat menggunakan Visual Basic for Applications (VBA) untuk menyelesaikan banyak hal di Excel. Di sini kami akan menunjukkan kepada Anda cara menyisipkan, menggunakan, dan menghapus kontrol ActiveBarcode dengan VBA:

Menyematkan Kontrol ActiveBarcode ke dalam Lembar Kerja:
Dalam contoh ini, kontrol barcode akan ditempatkan langsung di atas sel. Kemudian, barcode tersebut akan terlihat seolah-olah berada di dalam sel.

Pertama, kita membaca ukuran sel:
CurrentCell = "C3"
MyHeight = Range(CurrentCell).Height
MyWidth = Range(CurrentCell).Width
MyTop = Range(CurrentCell).Top
MyLeft = Range(CurrentCell).Left
Harap diperhatikan bahwa sel harus memiliki ukuran minimum agar barcode dapat muat di dalamnya. Jika sel terlalu kecil, pesan kesalahan ukuran akan ditampilkan. Oleh karena itu, kami mengubah tinggi sel menjadi 30 piksel:
' Enlarge the cell height to 30 pixels
Range(CurrentCell).RowHeight = 30
Fungsi berikut akan membuat kontrol barcode tepat di atas sel:
ActiveSheet.OLEObjects.Add(ClassType:="ACTIVEBARCODE.BarcodeCtrl.1", Link:=False, _
 DisplayAsIcon:=False, Width:=MyWidth , Height:=MyHeight, Top:=MyTop + 2,_
 Left:=MyLeft + 4).Select
Anda dapat menghubungkan objek barcode secara langsung dengan sel:
ActiveSheet.OLEObjects(MyBarcode).LinkedCell = "B7"
Untuk mendapatkan akses mudah ke kontrol, kami menyimpan nama kontrol dalam variabel MyBarcode:
MyBarcode = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
Sekarang Anda dapat menggunakan properti dan metode objek barcode sesuka Anda:
' set properties
ActiveSheet.OLEObjects(MyBarcode).Object.Font.Size = 8
ActiveSheet.OLEObjects(MyBarcode).Object.Type = 14 ' Code 128
ActiveSheet.OLEObjects(MyBarcode).Object.Text = Range("C3")
Jika Anda tidak memerlukan kontrol tersebut lagi, Anda dapat menghapusnya dari lembar kerja:
ActiveSheet.OLEObjects(MyBarcode).Delete
Tips: Jika Windows perlu memproses peristiwa yang akan datang (sering disebut sebagai KeepWindowsAlive) dalam sebuah makro, Anda dapat memaksakan hal ini dengan menggunakan fungsi VBA berikut:
DoEvents
Hal ini mungkin diperlukan, misalnya jika Kontrol harus menggambar dirinya sendiri ulang.