Vba: cara memformat sel sebagai persentase

Anda dapat menggunakan sintaks dasar berikut di VBA untuk memformat setiap sel dalam rentang sebagai persentase.

 SubFormatPercent ()
    Dim i As Integer

    For i = 2 To 11
    Range(" A " & i).NumberFormat = " 0.00% "
    Next i
    
End Sub

Contoh khusus ini memformat setiap sel dalam rentang A2:A11 sebagai nilai persentase dengan dua tempat desimal.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Format Sel sebagai Persentase Menggunakan VBA

Misalkan kita memiliki daftar nilai berikut di Excel:

Katakanlah kita ingin memformat setiap nilai sebagai persentase.

Misalnya:

• 0,22 harus diformat sebagai 22%.
• 0,35 harus diformat sebagai 35%.

Dan seterusnya.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubFormatPercent ()
    Dim i As Integer

    For i = 2 To 11
    Range(" A " & i).NumberFormat = " 0.00% "
    Next i
    
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Setiap nilai kini diformat sebagai persentase dengan dua tempat desimal.

Perhatikan bahwa jumlah angka nol setelah titik desimal di properti NumberFormat menentukan jumlah angka desimal yang akan ditampilkan di setiap persentase.

Kita dapat menggunakan sintaks berikut untuk tidak menampilkan tempat desimal di setiap persentase:

 SubFormatPercent ()
    Dim i As Integer

    For i = 2 To 11
    Range(" A " & i).NumberFormat = " 0% "
    Next i
    
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa tempat desimal telah dihapus dari setiap nilai persentase.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk properti VBA NumberFormat di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara mengurutkan lembar berdasarkan beberapa kolom
VBA: Cara menghitung jumlah baris dalam jangkauan
VBA: cara memfilter kolom