Excel'de birden çok çalışma sayfasına satır veya sütun eklemek/silmek için örnek makro
Özet
Bu makale, Microsoft Excel'de birden çok çalışma sayfasına satır veya sütun eklemek veya silmek için kullanabileceğiniz örnek bir Microsoft Visual Basic for Applications makrosu (Alt yordamı) içerir.
Daha fazla bilgi
Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna zımni garantiler, satılabilirlik veya belirli bir amaca uygunluk da dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri belirli bir yordamın işlevselliğini açıklamaya yardımcı olabilir. Ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmeyeceklerdir. Birden çok çalışma sayfasında satır veya sütun eklemek veya silmek için ya gerekli tüm sayfalarda döngü yapmak üzere bir For Each...Next deyimi kullanın ya da ekleme veya silme işlemini gerçekleştirmeden önce satırları veya sütunları seçin.
Not
Aşağıdaki örnek makrolar, yalnızca bitişik sütun veya satır aralığında çalışır.
Birden çok çalışma sayfasına satır eklemek için döngü kullanan örnek makro
Sub Insert_Rows_Loop()
Dim CurrentSheet As Object
' Loop through all selected sheets.
For Each CurrentSheet In ActiveWindow.SelectedSheets
' Insert 5 rows at top of each sheet.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet
End Sub
Sütun seçmek ve yeni sütun eklemek için örnek makro
Aşağıdaki örnek makro, yeni sütunlar eklemeden önce sütunun tamamını seçer:
Sub Select_Insert_Column()
Dim MyRange as Object
' Store the selected range in a variable.
Set MyRange = Selection
' Select the entire column.
Selection.EntireColumn.Select
' Insert Columns in all selected sheets.
Selection.Insert
' Reselect the previously selected cells.
MyRange.Select
End Sub
Geri Bildirim
https://aka.ms/ContentUserFeedback.
Çok yakında: 2024 boyunca, içerik için geri bildirim mekanizması olarak GitHub Sorunları’nı kullanımdan kaldıracak ve yeni bir geri bildirim sistemiyle değiştireceğiz. Daha fazla bilgi için bkz.Gönderin ve geri bildirimi görüntüleyin