İçindekiler
Microsoft Excel'den olağan etiket yazdırma işlemi, elektronik tabloların Microsoft Word ile posta yoluyla birleştirilmesini içerir. Ancak bazı kişiler tüm işleri Excel içinde tamamlamayı tercih eder. Neyse ki, Word ile uğraşmadan Excel'de etiketleri yazdırmanın bir yolu var. Bu eğitim, bunun nasıl başarılacağına odaklanacaktır.
Alıştırma Çalışma Kitabını İndirin
Veri seti ve tanıtım için kullanılan makroyu içeren çalışma kitabını aşağıdaki bağlantıdan indirebilir ve şablon olarak kullanabilirsiniz.
Word.xlsm Olmadan Etiket Yazdırma
Bu, yazdırılabilir etiketleri içeren dosyadır.
Word Olmadan Etiket Yazdırma.pdf
Word Olmadan Excel'de Etiket Yazdırmak için Adım Adım Prosedür
için etiket yazdırma Microsoft word kullanmadan doğrudan Excel'den, Excel elektronik tablosunu uygun etiket boyutuyla yazdırmamız yeterlidir. Etiket boyutuna uyan hücre boyutunu dönüştürebiliriz. Görevi bizim için gerçekleştirmek için VBA kodunu kullanacağız.
İlk olarak, aşağıdaki veri kümesine sahip olduğumuzu varsayalım.
Önce her bir veriyi etiketlere dönüştüreceğiz ve ardından Word'den yardım almadan Excel'de yazdıracağız.
Excel'de Uygulamalar için Microsoft Visual Basic (VBA) kullanmak amacıyla, öncelikle Geliştirici Şeridinizdeki sekme. Nasıl yapabileceğinizi görmek için buraya tıklayın şeridinizde Geliştirici sekmesini gösterme Bunu elde ettikten sonra, bu etiketleri Word olmadan Excel'de yazdırmak için gösterdiğimiz adımları izlemeye devam edin.
Adım 1: Verileri Yeni Sayfaya Kopyalayın
VBA kodunun buradaki seçimi yalnızca hücre girişleri şu hücreden başlıyorsa düzgün çalışabilir A1 Bu nedenle, öncelikle tüm etiketleri içeren veri kümemizi bu şekilde düzenlememiz gerekir. Veri kümenizin hücre dışında herhangi bir yerde başlaması durumunda A1 Bizimki gibi, hücrede başlayan B5 önce bunları yeni bir elektronik tabloya kopyalayın ve en başa koyun. Şöyle bir şey görünmelidir.
Şimdi VBA kodu ile çalışmaya hazır olmalıdır.
Adım 2: VBA Kodu Ekleme
Ardından, etiketleri istediğimiz boyut ve şekle ayarlamak için VBA kodunu eklememiz gerekir. VBA kodunu eklemek için-
- İlk olarak, şu adrese gidin Geliştiriciler sekmesine tıklayın.
- Ardından şunları seçin Visual Basic bir şey yok. Kod Grup.
- Sonuç olarak, VBA penceresi açılacaktır. Ekleme sekmesine gidin ve Modül açılır menüsünden seçin.
- Bundan sonra, modüle gidin ve aşağıdaki kodu yazın.
'Bu Kod Excel'de Etiketler Oluşturacak Sub Createlabels() Application.Run "AskForColumn" Cells.Select Selection.RowHeight = 75.75 Selection.ColumnWidth = 34.14 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .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
🔎 Kod Açıklaması
Bu VBA kodunda iki bölüm veya alt bölüm vardır - CreateLabel alt ve AskForColumn İlk olarak AskForColumn alt öğesinde neler olup bittiğini açıklayacağız ve ardından kodun nasıl çalıştığını açıklamak için CreateLabel alt öğesine geçeceğiz.
Bölüm 1:
Daha iyi anlaşılması için bölümü farklı bölümlere ayırdık. Tartışmanın sonundaki şekle bakın.
👉
Bölüm 1: Bu bölüm, alt programın adını bildirir AskForColumn .
👉
Bölüm 2: Bu bölümü refrg, vrb ve data olmak üzere üç değişken tanımlamak için kullandık.
👉
Bölüm 3: Bu bölümde, refrg ve data için değerler belirledik.
👉
Bölüm 4: Bu noktada kod, elektronik tabloda bir giriş kutusu gösterir.
👉
Bölüm 5: Bu bölümde, bir İçin döngüsü giriş kutusuna girilen sayı için çalıştırılır.
👉
Bölüm 6: Kodun bu bölümü artık hücreleri yeniden boyutlandırır.
👉
Bölüm 7: Son olarak, bu bölüm ekstra içeriği temizler.
Bölüm 2:
Önceki bölüme benzer şekilde, bu alt bölümü de farklı bölümlere ayırdık. Görsel bölüm için tartışmanın sonundaki şekli takip edin.
👉
Bölüm 1: Kodun bu kısmı alt adı bildirir Createlabels .
👉
Bölüm 2: Bu komut, kodun bu noktasında bir önceki alt öğeyi çalıştırır.
👉
Bölüm 3: Bu kısım her hücreyi VBA kullanarak biçimlendirir Hücreler mülk.
Adım 3: VBA Kodunu Çalıştırın
Kodu girdikten sonra VBA penceresini kapatın. Kodu şimdi çalıştırmak için aşağıdaki adımları izleyin.
- İlk olarak, şu adrese gidin Geliştirici sekmesine tıklayın.
- İkinci olarak, şunları seçin Makrolar bir şey yok. Kod Grup.
- Şimdi Makro kutusunu seçin, ardından Createlables altında Makro adı .
- Daha sonra Koşmak .
- Ardından, istediğiniz sütun sayısını seçin. Biz gösterim için 3 sütun seçiyoruz. TAMAM. .
Elektronik tablo şimdi otomatik olarak bu şekilde görünecektir.
Etiketler artık Word kullanmadan Excel'de yazdırılmaya hazırdır.
Daha fazlasını okuyun: Word'de Excel'den Etiket Yazdırma (Kolay Adımlarla)
Adım 4: Özel Kenar Boşluklarını Ayarlayın
Etiketleri yazdırmak için, yazdırılan sayfa için doğru kenar boşluklarını ayarlamamız gerekir. Bunun için, etiket konumunu etkilemeyecek veya sayfadaki herhangi bir etiketi tehlikeye atmayacak şekilde uygun boyutu seçmeliyiz. Özel kenar boşluklarını ayarlamak için aşağıdaki adımları izleyin.
- Her şeyden önce, şu adrese gidin Sayfa Düzeni sekmesine tıklayın.
- Daha sonra Sayfa Kurulumu düğmesini şekilde gösterildiği gibi her grubun sağ alt kısmında bulabilirsiniz.
- Sonuç olarak Sayfa Kurulumu kutusu açılacaktır. Şimdi Kenar Boşlukları sekmesi var.
- Ardından, yazdırılan sayfanız için istediğiniz kenar boşluğu uzunluklarını seçin. Biz aşağıdakileri seçtik.
- İşiniz bittikten sonra TAMAM. .
Adım 5: Yazdırma için Ölçeklendirme Seçeneklerini Seçin
Etiket yazdırmak için uygun ölçeklendirme de önemlidir. Örneğin, şimdiye kadar yaptığımız şey sayfayı bu şekilde yazdıracaktır.
Amacımız kesinlikle bu değil. Bu yüzden sayfayı tek bir sayfaya sığdırmamız gerekiyor. Bunu yapmak için-
- İlk olarak, aşağıdaki tuşlara basarak baskı önizleme bölümüne gidin Ctrl+P klavyenizde.
- Görünümün sol alt kısmında şunları bulabilirsiniz Ayarlar Bunun altında ise Ölçeklendirme sondaki seçenekler.
- Şimdi ölçeklendirme seçeneğine tıklayın ve Tek Sayfada Fit Sheet açılır menüsünden seçin.
Etiketlerin ölçeklendirilmesi bu noktada tamamlanacaktır.
Daha fazlasını okuyun: Excel'de Adres Etiketleri Nasıl Yazdırılır (2 Hızlı Yol)
Adım 6: Elektronik Tabloyu Yazdırın
Hala baskı önizleme ekranındayken Yazdır görünümün sol üst köşesinde.
Üzerine tıkladığınızda Word'den herhangi bir yardım almadan Excel'deki tüm etiketleri yazdıracaktır.
Hatırlanması Gerekenler
👉 VBA kodunu çalıştırmadan önce, tüm etiketlerinizin şu hücreden başladığından emin olun A1 .
👉 Tüm etiketlerin sayfaya sığması için yazdırmadan önce uygun kenar boşluğunu ve ölçeklendirmeyi seçin. Aksi takdirde, bazıları kesilebilir.
👉 VBA kodu eylemleri geri döndürülemez. Bu nedenle, bir kod çalıştırmadan önce gerekli verilerinizin yedeklendiğinden emin olun.
Sonuç
Bunlar, Microsoft Word kullanmadan veya posta birleştirme yapmadan Excel'de etiket yazdırmak için izlenecek adımlardı. Umarım artık Word olmadan Excel'de etiket yazdırabilirsiniz. Umarım bu kılavuzu yararlı ve bilgilendirici bulmuşsunuzdur. Herhangi bir sorunuz veya öneriniz varsa, aşağıdaki yorumlarda bize bildirin.
Bunun gibi daha fazla rehber için şu adresi ziyaret edin Exceldemy.com .