Daftar Isi
Label berguna bagi kita dalam banyak hal. Anda dapat membuat label di excel dengan bantuan Microsoft Word. Namun, dalam beberapa kasus, hal ini mungkin merepotkan dan memakan waktu. Jadi, Anda mungkin ingin membuat label di Excel tanpa Word. Artikel ini menunjukkan panduan langkah demi langkah tentang cara membuat label di Excel tanpa Word.
Unduh Buku Kerja Praktik
Anda bisa mengunduh buku kerja latihan dari tautan di bawah ini.
Membuat Label Tanpa Word.xlsmApa itu Label?
Secara umum, label adalah stiker atau selembar kertas yang menggambarkan objek atau produk yang dilekatkan padanya. Label digunakan dalam berbagai aplikasi. Misalnya, orang perlu membuat label untuk alamat sehingga mereka dapat melampirkannya ke amplop. Selain itu, kita dapat melihat label yang dilampirkan pada perangkat keras di komputer kita sehingga kita dapat mengidentifikasi mereka dan mengetahui tentang spesifikasinya.
4 Langkah untuk Membuat Label Tanpa Word di Excel Menggunakan VBA
Sangat mudah untuk membuat label di Excel tanpa bantuan Microsoft Word Selain itu, ini menghemat banyak waktu dan kerumitan.
Sekarang, mari kita asumsikan Anda memiliki dataset dengan daftar Alamat Anda ingin mengirim kartu Natal Anda. Pada titik ini, Anda ingin membuat label untuk kartu-kartu ini. Alamat Dalam hal ini, Anda dapat mengikuti serangkaian langkah di bawah ini untuk melakukannya.
Langkah 01 : Menyalin Data ke Sheet Baru di Excel
- Pertama, salin alamat di kolom dan tempelkan ke dalam file Lembar Baru mulai dari sel A1 .
Langkah 02 : Buka Jendela VBA dan Buat Modul di Excel
- Kemudian, tekan ALT + F11 untuk membuka VBA jendela.
- Sekarang, pilih sheet yang sedang Anda kerjakan dan Klik Kanan Dalam hal ini, itu adalah Lembar 2 .
- Berikutnya, pilih secara berurutan Sisipkan > Modul .
Pada akhirnya, rangkaian langkah ini akan membuka VBA jendela dan menyisipkan jendela Modul di lembar Anda.
Langkah 03 : Masukkan Kode di Excel
- Pada titik ini, salin kode berikut ini dan tempelkan di kotak kosong.
'Kode Ini Akan Membuat Label di Excel Sub Createlabels() Application.Run "AskForColumn" Cells.Select Selection.RowHeight = 75.75 Selection.ColumnWidth = 34.14 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub Sub AskForColumn() Dim refrg As Range Dim vrb As Long Dim dat As Long Set refrg = Cells(Rows.Count, 1).End(xlUp) dat = 1 On Error Resume Next incolno = InputBox("Enter Number ofColumns Desired") For vrb = 1 To refrg.Row Step incolno Cells(dat, "A").Resize(1, incolno).Value = _ Application.Transpose(Cells(vrb, "A").Resize(incolno, 1))) dat = dat + 1 Next Range(Cells(dat, "A"), Cells(refrg.Row, "A")).ClearContents End Sub
💡 Penjelasan Kode:
Pada tahap ini, saya akan menjelaskan kode yang digunakan di atas. Seperti yang Anda lihat, ada dua bagian dari kode ini. Satu bagian berisi sub AskForColumn () yang akan disebut sebagai Bagian 01 , dan yang lainnya berisi sub Membuat label() yang akan disebut sebagai Bagian 02 Sekarang, saya akan menjelaskan kedua bagian ini satu per satu.
Bagian 01 :
Pada titik ini, saya telah membagi kode ke dalam beberapa bagian yang berbeda dan menomori setiap bagian dalam tangkapan layar berikut. Akibatnya, di sini saya akan menjelaskan setiap bagian sesuai dengan nomornya.
- Bagian 1: Bagian ini menciptakan sub bernama AskForColumn .
- Bagian 2: Di sini, kita mendeklarasikan variabel-variabel yang berbeda.
- Bagian 3: Pada bagian ini, kita menghitung jumlah baris dalam kolom.
- Bagian 4: Sekarang, di sini kita membuat sebuah Kotak Masukan untuk menanyakan jumlah kolom.
- Bagian 5: Pada bagian ini, kami menjalankan Untuk Selain itu, kita juga menggunakan Langkah untuk menjalankan perulangan sebanyak yang kita masukkan ke dalam Kotak Masukan .
- Bagian 6 Pada tahap ini, di sini kita menggunakan bagian ini untuk mendistribusikan sel kolom ke dalam baris dan kolom yang berbeda dengan menggunakan aplikasi Transposisi dan properti Ubah ukuran .
- Bagian 7: Akhirnya, kita menghapus konten tambahan di bagian ini.
Bagian 02 :
Dalam hal ini, juga, saya telah membagi kode menjadi beberapa bagian yang berbeda dan menomori setiap bagian dalam tangkapan layar berikut. Akibatnya, di sini saya akan menjelaskan setiap bagian sesuai dengan nomornya.
- Bagian 1: Bagian ini menciptakan sub bernama Membuat label() .
- Bagian 2: Dalam bagian ini, kita menyebut matahari AskForColumn() untuk dijalankan.
- Bagian 3: Pada titik ini, bagian ini mendefinisikan Format Sel untuk semua sel menggunakan Sel properti.
Langkah 04 : Jalankan Kode untuk Membuat Label Tanpa Word di Excel
- Sekarang, tekan F5 untuk menjalankan sub Createlabels () .
- Akibatnya, Anda akan melihat kotak muncul di layar Anda seperti gambar di bawah ini.
- Pada titik ini, masukkan jumlah kolom yang Anda inginkan untuk label Anda.
- Kemudian, klik pada OK .
- Akhirnya, label Anda akan dibuat seperti gambar di bawah ini.
💡 Catatan :
- Metode ini hanya akan berfungsi jika Anda memiliki data Anda dalam satu kolom.
- Setelah membuat label, Anda bisa menambahkan batas menggunakan perintah Semua Perbatasan opsi di dalam Rumah tab.
- Juga, pastikan Anda menjalankan sub Membuat label() Dalam hal ini, jika Anda menjalankan sub, AskForColumn () Anda tidak akan mendapatkan hasil yang Anda inginkan.
- Selain itu, jangan memasukkan apa pun selain alamat di kolom A .
Baca selengkapnya: Cara Membuat Label di Word dari Daftar Excel (Panduan Langkah-demi-Langkah)
Cara Mencetak Label di Excel Tanpa Word
Setelah membuat label menggunakan langkah-langkah yang disebutkan di atas, sekarang Anda mungkin ingin mencetak label Sekarang, jika Anda ingin melakukannya, Anda dapat mengikuti langkah-langkah di bawah ini.
Langkah-langkah :
- Pertama, pergi ke Tata Letak Halaman tab dari bagian atas halaman.
- Berikutnya, klik pada Pengaturan Halaman tombol.
- Setelah itu, pergi ke Margin .
- Sekarang, edit Atas dan Bawah margin untuk 0.5 dan kemudian mengedit Kiri dan Benar margin untuk 0.215 .
- Akibatnya, klik pada OK .
- Sekarang, tekan CTRL + P untuk membuka Cetak menu.
- Pada titik ini, klik pada Tidak ada penskalaan dan 4 opsi akan muncul.
- Berikutnya, dari opsi-opsi itu pilih Sesuaikan Semua Kolom pada Satu Halaman .
- Akhirnya, Anda siap mencetak.
- Dalam hal ini, pratinjau cetak Anda akan seperti gambar di bawah ini.
Baca selengkapnya: Cara Mail Merge Label dari Excel ke Word (Dengan Langkah Mudah)
Kesimpulan
Akhir kata, saya harap Anda menemukan apa yang Anda cari dari artikel ini. Jika Anda memiliki pertanyaan, silakan berikan komentar di bawah ini. Selain itu, jika Anda ingin membaca lebih banyak artikel seperti ini, Anda dapat mengunjungi situs web kami ExcelWIKI .