Visual Basic contoh untuk menghapus baris kosong

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 110759 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Berikut kode Visual Basic menempatkan sel-sel yang kosong jangkauan dan menghapus seluruh baris yang berisi sel. Menampilkan kode kotak dialog yang meminta pengguna untuk jumlah baris proses. Makro dimulai pada sel aktif dan bergerak ke bawah tertentu jumlah baris.

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. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.

Visual Basic contoh

' The following code deletes blank rows from the active worksheet.

Dim Counter
Dim i As Integer

Sub DelRow()

' Input box to determine the total number of rows in the worksheet.
Counter = InputBox("Enter the total number of rows to process")
Activecell.Select
' Loops through the desired number of rows.
For i = 1 To Counter
    ' Checks to see if the active cell is blank.
    If ActiveCell = "" Then
        Selection.EntireRow.Delete

        ' Decrements count each time a row is deleted. This ensures
        ' that the macro will not run past the last row.
        Counter = Counter - 1
    Else
        ' Selects the next cell.
        ActiveCell.Offset(1, 0).Select
    End If

Next i

End Sub
				
Catatan: Anda juga dapat menghapus baris yang berisi spasi atau lainnya non- menampilkan karakter. Untuk melakukannya, mengubah baris yang berbunyi
Jika ActiveCell = "" kemudian

-untuk-

Jika Len(Trim(ActiveCell)) = 0 kemudian

Properti

ID Artikel: 110759 - Kajian Terakhir: 14 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Excel 97 Standard Edition
Kata kunci: 
kbprogramming kbmt KB110759 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:110759
Sanggahan Konten KB yang Tidak Lagi Diperbarui
Artikel ini berisi tentang produk yang tidak lagi didukung oleh Microsoft. Oleh karena itu, artikel ini disajikan ?sebagaimana adanya? dan tidak akan diperbarui.

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