Contoh makro menyisipkan/menghapus baris atau kolom pada beberapa lembar kerja di Excel

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 291305 - Melihat produk di mana artikel ini berlaku.
Untuk versi Microsoft Excel 2000 artikel ini, lihat 213631.
Untuk Microsoft Excel 98 dan versi sebelumnya dari versi Excel dari artikel ini, lihat 141690.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Artikel ini berisi contoh Microsoft Visual Basic untuk aplikasi makro)Sub prosedur) yang dapat Anda gunakan untuk memasukkan atau menghapus baris atau kolom di beberapa lembar kerja dalam Microsoft Excel.

INFORMASI LEBIH LANJUT

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Insinyur dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu. Namun, mereka tidak akan memodifikasi contoh ini untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan spesifik Anda.
Untuk memasukkan atau menghapus baris atau kolom pada beberapa lembar kerja, baik menggunakan a Untuk masing-masing...Berikutnya pernyataan untuk loop melalui semua lembar diperlukan atau memilih baris atau kolom sebelum Anda menjalankan penyisipan atau penghapusan.

CATATAN: Berikut contoh makro bekerja hanya pada berbagai bersebelahan kolom atau baris.

Contoh makro menggunakan loop untuk menyisipkan baris dalam beberapa lembar

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
				

Contoh makro untuk memilih kolom dan masukkan kolom baru

Berikut contoh makro memilih kolom seluruh sebelum menyisipkan baru kolom:
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
				

REFERENSI

Untuk informasi tambahan, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
213823 XL: Makro yang sel perubahan dimensi pada beberapa lembar kerja tidak berjalan sebagai diharapkan
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Properti

ID Artikel: 291305 - Kajian Terakhir: 23 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
Kata kunci: 
kbdtacode kbhowto kbprogramming kbmt KB291305 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:291305

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com