Etiketler bizim için birçok yönden yararlıdır. Excel'de Microsoft Word yardımıyla etiket oluşturabilirsiniz. Ancak, bazı durumlarda, bu çok fazla güçlük ve zaman alıcı olabilir. Bu nedenle, Word olmadan Excel'de etiket oluşturmak isteyebilirsiniz. Bu makale, Word olmadan Excel'de etiketlerin nasıl oluşturulacağına dair adım adım bir kılavuz göstermektedir.

Alıştırma Çalışma Kitabını İndirin

Alıştırma çalışma kitabını aşağıdaki bağlantıdan indirebilirsiniz.

Etiketler Nedir?

Genel olarak etiket, üzerine iliştirildiği nesneyi veya ürünü tanımlayan bir çıkartma veya kağıt parçasıdır. Etiketler çok çeşitli uygulamalarda kullanılır. Örneğin, insanların adresleri zarfa yapıştırabilmeleri için etiketler oluşturmaları gerekir. Ayrıca, bilgisayarlarımızdaki donanımlara iliştirilmiş etiketler görebiliriz, böylece onları tanımlayabilir ve özellikleri hakkında bilgi sahibi olabiliriz.

4 Adımda Excel'de VBA Kullanarak Word Olmadan Etiket Oluşturma

Excel'de aşağıdakilerin yardımı olmadan etiket oluşturmak çok uygundur Microsoft Word Üstelik çok fazla zaman ve güçlük tasarrufu sağlar.

Şimdi, aşağıdakileri içeren bir veri kümeniz olduğunu varsayalım Adresler Noel kartlarınızı göndermek istiyorsunuz. Bu noktada, bunlar için etiketler oluşturmak istiyorsunuz Adresler Bu durumda, bunu yapmak için aşağıdaki adım setlerini takip edebilirsiniz.

Adım 01 : Excel'de Verileri Yeni Bir Sayfaya Kopyalama

• İlk olarak, sütundaki adresleri kopyalayın ve bir Yeni Sayfa hücreden başlayarak A1 .

Adım 02 : Excel'de VBA Penceresi Açma ve Modül Oluşturma

• Ardından, tuşuna basın ALT + F11 açmak için VBA Pencere.
• Şimdi, üzerinde çalışmakta olduğunuz sayfayı seçin ve Sağ Tıklama Bu durumda, bu Sayfa 2 .
• Ardından, sırayla şunları seçin Ekleme > Modül .

Sonunda, bu adımlar dizisi VBA penceresini açın ve yeni bir Modül sayfanızda.

Adım 03 : Kodu Excel'e Ekleyin

• Bu noktada, aşağıdaki kodu kopyalayın ve boş kutuya yapıştırı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 = 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 

💡 Kod Açıklaması:

Bu aşamada yukarıda kullanılan kodu açıklayacağım. Gördüğünüz gibi bu kodun iki kısmı var. Bir kısmı sub AskForColumn () olarak adlandırılacak olan Bölüm 01 ve diğeri de alt Createlabels() olarak adlandırılacak olan Bölüm 02 Şimdi bu iki bölümü de tek tek açıklayacağım.

Bölüm 01 :

Bu noktada, kodu farklı bölümlere ayırdım ve aşağıdaki ekran görüntüsünde bölümlerin her birini numaralandırdım. Dolayısıyla, burada her bölümü numaralarına göre açıklayacağım.

• Bölüm 1: Bu bölüm bir alt ad oluşturur AskForColumn .
• Bölüm 2: Burada farklı değişkenler bildiriyoruz.
• Bölüm 3: Bu bölümde, sütundaki satır sayısını sayıyoruz.
• Bölüm 4: Şimdi, burada bir InputBox sütun sayısını sormak için.
• Bölüm 5: Bu bölümde, bir İçin döngüsünü kullanırız. Adım anahtar sözcüğünü girdiğimiz sayı kadar döngüyü çalıştırmak için InputBox .
• Bölüm 6 : Bu aşamada, sütunun hücresini farklı satır ve sütunlara dağıtmak için bu bölümü kullanıyoruz. Transpoze ve mülk Yeniden Boyutlandır .
• Bölüm 7: Son olarak, bu bölümdeki ekstra içerikleri siliyoruz.

Bölüm 02 :

Bu durumda da kodu farklı bölümlere ayırdım ve aşağıdaki ekran görüntüsünde her bir bölümü numaralandırdım. Dolayısıyla burada her bir bölümü numaralarına göre açıklayacağım.

• Bölüm 1: Bu bölüm bir alt ad oluşturur Createlabels() .
• Bölüm 2: Bu bölümde güneşi şöyle adlandırıyoruz AskForColumn() koşmak için.
• Bölüm 3: Bu noktada, bu bölüm aşağıdakileri tanımlar Hücre Formatı kullanarak tüm hücreler için Hücreler mülk.

Adım 04 : Excel'de Word Olmadan Etiket Oluşturmak için Kodu Çalıştırın

• Şimdi, basın F5 alt sistemi çalıştırmak için Createlabels () .
• Sonuç olarak, ekranınızda aşağıdaki ekran görüntüsü gibi bir kutunun belirdiğini göreceksiniz.
• Bu noktada, etiketlerinizin yer almasını istediğiniz sütun sayısını girin.
• Daha sonra TAMAM. .

• Son olarak, aşağıdaki ekran görüntüsü gibi etiketlerinizi oluşturmuş olacaksınız.

💡 Notlar :

• Bu yöntem yalnızca verilerinizi tek bir sütunda tutuyorsanız işe yarayacaktır.
• Etiketleri oluşturduktan sonra, kenarlıkları Tüm Sınırlar seçeneklerinde Ev sekmesi.
• Ayrıca, şu alt programı çalıştırdığınızdan emin olun Createlabels() . Bu durumda, eğer denizaltıyı çalıştırırsanız, AskForColumn () istediğiniz sonucu alamazsınız.
• Ayrıca, sütundaki adreslerden başka bir şey girmeyin A .

Daha fazlasını okuyun: Excel Listesinden Word'de Etiket Oluşturma (Adım Adım Kılavuz)

Word Olmadan Excel'de Etiketler Nasıl Yazdırılır

Yukarıda belirtilen adımları kullanarak etiketleri oluşturduktan sonra, şimdi şunları yapmak isteyebilirsiniz etiketleri yazdırın Şimdi, eğer bunu yapmak istiyorsanız, aşağıdaki adımları takip edebilirsiniz.

Adımlar :

• İlk olarak, şu adrese gidin Sayfa Düzeni sekmesine tıklayın.
• Ardından, aşağıdaki Sayfa Kurulumu Düğme.

• Bundan sonra, şu adrese gidin Kenar Boşlukları .
• Şimdi, düzenleyin Üst ve Alt için marjlar 0.5 ve ardından Sol ve Doğru. için marjlar 0.215 .
• Sonuç olarak, üzerine tıklayın TAMAM. .

• Şimdi, basın CTRL + P açmak için Yazdır Menü.
• Bu noktada, üzerine tıklayın Ölçeklendirme Yok ve 4 seçenek görünecektir.
• Ardından, bu seçeneklerden şunları seçin Tüm Sütunları Tek Sayfaya Sığdırın .

• Son olarak, yazdırmaya hazırsınız.
• Bu durumda, baskı önizlemeniz aşağıdaki ekran görüntüsü gibi olacaktır.

Daha fazlasını okuyun: Etiketleri Excel'den Word'e Posta ile Birleştirme (Kolay Adımlarla)

Sonuç

Son olarak, umarım bu makaleden aradığınızı bulmuşsunuzdur. Herhangi bir sorunuz varsa, lütfen aşağıya bir yorum bırakın. Ayrıca, bunun gibi daha fazla makale okumak istiyorsanız, web sitemizi ziyaret edebilirsiniz ExcelWIKI .