Bir Excel sayfasına birden çok sütun eklemek için VBA nasıl kullanılır?

Microsoft Excel'e çok sayıda sütun veya satır eklemek gariptir ve hatalara açıktır. Düzinelerce veya daha fazla sütun girmeniz gerektiğinde, kolaylık ve doğruluk için bu VBA prosedürünü kullanın.

<a href="https://www.techrepublic.com/a/hub/i/r/2020/09/30/066430f7-ad48-4db7-bf68-edff4fd725a1/resize/770x/59b01afe935e9ea6edfd7ca90d26cf65/analyst-woman-working -with-spreadsheet-report-software-picture-id1249379723.jpg" target="_blank" data-component="modalEnlargeImage" data-headline="

" data-credit="Resim: iStock/AndreyPopov">

Resim: iStock/AndreyPopov

Microsoft Excel'de sütun ve satır eklemek yaygın bir iştir ve neyse ki, aynı anda çok fazla sütun (veya satır) girmeye çalışmadığınız sürece basittir. Seçiminiz ekrandan çıktıktan sonra seçim süreci zorlaşır ve hata yapmak kolaydır. 20 sütunu manuel olarak eklemeyi deneyin, ne demek istediğimi anlayacaksınız. Şimdi 100 veya 500 eklediğinizi hayal edin! Bunu bir kez bile yapmanız gerekiyorsa, bunun yerine bu makaledeki VBA prosedürünü kullanmak isteyeceksiniz!

GÖRMEK: Her kullanıcının ustalaşması gereken 83 Excel ipucu (Teknoloji Cumhuriyeti)

kullanıyorum Microsoft 365 üzerinde Windows 10 64 bit sistem, ancak önceki sürümleri kullanabilirsiniz. İndirilebilir .xlsx, .xls veya .cls dosyalarını kullanın kodunu almak için. Excel Online, makroları desteklemez.

Excel'de manuel olarak sütunlar nasıl eklenir

Bir sütun veya hatta birkaç sütun eklemek kolaydır ve muhtemelen sürece zaten aşinasınızdır. Eğer öyleyse, bir sonraki bölüme geçmekten çekinmeyin. Değilse devam edelim.

İşlem basittir: Yeni bir sütun eklemek istediğiniz yerin sağındaki sütunu seçin. Seçime sağ tıklayın ve Ekle'yi seçin. Bir sütun seçerseniz, Excel bir sütun ekler. Üç sütun seçerseniz Excel üç sütun ekler. Aynı rutin, satır eklerken de çalışır.

Şimdi herhangi bir boş sayfada C ve D sütunları arasına aşağıdaki gibi bir sütun ekleyelim:

  1. Yeni sütunu eklemek istediğiniz yerin sağındaki sütun olan D sütununu seçerek başlayın. Bir sütunun tamamını seçmek için sütun başlığını (D harfli gri hücre) tıklayın.
  2. Seçili sütun D'ye sağ tıklayın.
  3. Ortaya çıkan alt menüden Ekle'yi seçin (Şekil A).
  4. Şekil B yeni sütunu gösterir. Turuncu sütun D idi; şimdi E sütunu. C sütununa hiçbir şey olmuyor. Ayrıca, Excel'in sütun başlığı hücrelerini uygun şekilde güncellediğine dikkat edin.

Şekil A

<a href="https://www.techrepublic.com/a/hub/i/2021/06/12/fc8a4a8b-b1cc-4dd1-9c4b-ef0de486255e/excelcolumnsmacro-a.jpg" target="_blank" veri- component="modalEnlargeImage" data-headline="

&nbsp; Ekle'yi seçin.

" data-credit="http://www.techrepublic.com/">excelcolumnsmacro-a.jpg" data-original="https://www.techrepublic.com/a/hub/i/2021/06/12/fc8a4a8b-b1cc-4dd1-9c4b-ef0de486255e/excelcolumnsmacro-a.jpg

Şekil B

<a href="https://www.techrepublic.com/a/hub/i/2021/06/12/da3d3d48-0019-4558-a7e0-0c4a17784a4c/excelcolumnsmacro-b.jpg" target="_blank" veri- component="modalEnlargeImage" data-headline="

&nbsp; Turuncu sütun artık E sütunudur.

" data-credit="http://www.techrepublic.com/">excelcolumnsmacro-b.jpg" data-original="https://www.techrepublic.com/a/hub/i/2021/06/12/da3d3d48-0019-4558-a7e0-0c4a17784a4c/excelcolumnsmacro-b.jpg

Turuncu sütun artık E sütunudur.

Fikrinizi değiştirirseniz, sütunları silmek için Ctrl + Z tuşlarına basın. Birkaç yeni sütun girmek için asla özel bir prosedüre ihtiyacınız olmaz. Peki ya 10, 15 ve hatta 100 yeni sütun eklemeniz gerekirse? Bu kadar çok sütunu sağa seçmek en iyi ihtimalle garip olacaktır çünkü hepsine erişmek için ekranı kaydıracaksınız. Kaç sütun seçtiğinize ayak uydurmak zordur. Bu koşullar altında, bunun yerine bir VBA prosedürü kullanmak isteyebilirsiniz.

Excel'de sütun eklemek için VBA prosedürü nasıl kullanılır?

prosedür Liste A seçili hücreyle çalışır ve tam olarak manuel işlemin yaptığı gibi çalışır. İlk olarak, makro birkaç tamsayı değişkeni tanımlar, i ve j: i, eklenecek sütun sayısını tanımlayan bir giriş değeri depolar ve j bir sayaçtır. Sonraki satır, prosedürü çalıştırmadan önce kullanıcının tıkladığı hücreye dayalı olarak tüm sütunu seçmek için ActiveCell özelliğini kullanır. For-döngüsü daha sonra, seçilen sütunun soluna (xlToLeft) uygun sayıda sütun eklemek için giriş değerini, i'yi kullanır. Prosedür, seçilen sütunun sağına da eklemek için yeterince çok yönlüdür. Basitçe xlToLeft (for döngüsünde) yerine xlToRight kullanın.

Liste A

Alt InsertColumns()

'Birden çok sütun ekleyin. Kullanıcı istediği sütun sayısını girer.

Dim i Tamsayı Olarak

Dim j Tamsayı Olarak

ActiveCell.EntireColumn.Select

'Kullanıcı eklenecek sütun sayısını girer.

i = InputBox("Lütfen eklenecek sütun sayısını giriniz", "Sütun(lar)ı Girin")

'Döngü, eklenecek sütun sayısını sayar.

j = 1 için i

Selection.Insert Shift:=xlToLeft 'xlToRight

sonraki j

Alt Bitiş

Şerit sürümü kullanıyorsanız, çalışma kitabını makro etkin bir dosya olarak kaydettiğinizden emin olun, aksi takdirde prosedür çalışmaz. Bir menü sürümü kullanıyorsanız bu adımı atlayabilirsiniz.

Prosedüre girmek için Alt + F11 tuşlarına basarak Visual Basic Düzenleyicisini açın. Soldaki Proje Gezgini'nde, prosedürü herhangi bir sayfada çalıştırabilmeniz için ThisWorkbook'u seçin. Kodu manuel olarak girebilir veya içe aktarabilirsiniz. indirilebilir .cls dosyasıe. Ek olarak, makro, indirilebilir .xlsx ve .xls dosyaları. Kodu manuel olarak girerseniz, bu web sayfasından yapıştırmayın. Bunun yerine, kodu bir metin düzenleyiciye kopyalayın ve ardından bu kodu ThisWorkbook modülüne yapıştırın. Bunu yapmak, aksi takdirde hatalara neden olabilecek tüm hayali web karakterlerini kaldıracaktır.

Şimdi birkaç sütun eklemek için prosedürü kullanma zamanı. Makroyu çalıştırmadan önce, sütunu eklemek istediğiniz yerin sağındaki sütunda bir hücreye tıklayın. C ve D sütunları arasına 10 sütun eklemek için prosedürü kullanalım:

  1. D sütunundaki herhangi bir hücreyi tıklayın.
  2. Geliştiriciler sekmesini tıklayın.
  3. Kod grubunda Makrolar'a tıklayın.
  4. Ortaya çıkan iletişim kutusunda, içinde gösterilen InsertColumns() öğesini seçin. Şekil C ve Çalıştır'ı tıklayın.
  5. İstendiğinde, 10 (Şekil D) ve ardından Tamam'a tıklayın.

Şekil C

<a href="https://www.techrepublic.com/a/hub/i/2021/06/12/239f36cd-0b37-4f46-9bbe-2678af3a527e/excelcolumnsmacro-c.jpg" target="_blank" veri- component="modalEnlargeImage" data-headline="

&nbsp; Prosedürü seçin

" data-credit="http://www.techrepublic.com/">excelcolumnsmacro-c.jpg" data-original="https://www.techrepublic.com/a/hub/i/2021/06/12/239f36cd-0b37-4f46-9bbe-2678af3a527e/excelcolumnsmacro-c.jpg

Şekil D

<a href="https://www.techrepublic.com/a/hub/i/2021/06/12/cd2ee9bb-ea57-4419-b81f-7ed996586529/excelcolumnsmacro-d.jpg" target="_blank" veri- component="modalEnlargeImage" data-headline="

&nbsp; Eklenecek sütun sayısını girin.

" data-credit="http://www.techrepublic.com/">excelcolumnsmacro-d.jpg" data-original="https://www.techrepublic.com/a/hub/i/2021/06/12/cd2ee9bb-ea57-4419-b81f-7ed996586529/excelcolumnsmacro-d.jpg

Eklenecek sütun sayısını girin.

içinde görebileceğiniz gibi Şekil E prosedür, C ve D sütunları arasına 10 sütun girer. Bu, şu anda çok önemli görünmüyor çünkü bunu çok fazla çaba harcamadan manuel olarak yapabilirsiniz, ancak 20, 50 veya daha fazla sütun girdiğinizi hayal edin. Bu prosedür, çok sayıda sütun eklemeniz gerektiğinde size çok zaman ve emek kazandırır. Manuel işlemin aksine, Ctrl + Z tuşlarına basarak eklemeyi geri alamazsınız.

Şekil E

<a href="https://www.techrepublic.com/a/hub/i/2021/06/12/c0cbd31d-a5cf-4bbf-ba37-bae2a6048c0f/excelcolumnsmacro-e.jpg" target="_blank" veri- component="modalEnlargeImage" data-headline="

&nbsp; Prosedür birkaç yeni sütun ekledi.

" data-credit="http://www.techrepublic.com/">excelcolumnsmacro-e.jpg" data-original="https://www.techrepublic.com/a/hub/i/2021/06/12/c0cbd31d-a5cf-4bbf-ba37-bae2a6048c0f/excelcolumnsmacro-e.jpg

Prosedür birkaç yeni sütun ekledi.

Bonus ipucu

Bu prosedür hata işleme sunmaz. Şu anda, bir kullanıcı sayısal bir rakamdan başka bir şey girerse, prosedür bir hata döndürür. İndirilebilir tanıtım dosyaları, basit hata işlemeyi içeren ikinci bir prosedüre sahiptir. Bu dosya ayrıca seçili hücrenin üstüne veya altına birden çok satır eklemek için bir prosedür içerir.

Prosedürü her çalıştırmak istediğinizde tüm bu adımların üzerinden geçmek istemeniz pek olası değildir. Bunun yerine makroyu Hızlı Erişim Araç Çubuğuna ekleyin. Bunu yapmak için okuyun Hızlı erişim için QAT araç çubuğuna Office makroları nasıl eklenir.

Ayrıca bkz.

Source link

İlk yorum yapan olun

Bir yanıt bırakın

E-posta hesabınız yayımlanmayacak.


*