Vba: cara menggunakan istext untuk memeriksa apakah sel berupa teks

Anda dapat menggunakan metode IsText di VBA untuk memeriksa apakah sel tertentu berisi teks.

Fungsi ini akan mengembalikan True jika nilai sel tertentu dikenali sebagai teks.

Jika tidak, fungsi tersebut akan mengembalikan False .

Berikut cara umum untuk menggunakan fungsi ini dalam praktik:

 SubCheckText ()
    
    Dim i As Integer

    For i = 1 To 9
    
        If IsText(Range(" A " & i)) = True Then
            Range(" B " & i) = " Cell is Text "
        Else
            Range(" B " & i) = " Cell is Not Text "
        End If
    Next i
    
End Sub

Makro khusus ini akan memeriksa apakah setiap sel dalam rentang A1:A9 adalah teks.

Jika sel berupa teks, maka “Sel adalah Teks” akan dikembalikan pada sel yang sesuai dalam rentang B1:B9 .

Jika sel bukan teks, maka “Sel bukan teks” akan dikembalikan.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Cara menggunakan IsText di VBA

Misalkan kita memiliki kolom nilai berikut di Excel:

Misalkan kita ingin memeriksa apakah setiap sel di kolom A adalah teks.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubCheckText ()
    
    Dim i As Integer

    For i = 1 To 9
    
        If IsText(Range(" A " & i)) = True Then
            Range(" B " & i) = " Cell is Text "
        Else
            Range(" B " & i) = " Cell is Not Text "
        End If
    Next i
    
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kolom B menampilkan keluaran yang memberi tahu kita apakah setiap sel yang cocok di kolom A dikenali sebagai teks atau tidak.

Perhatikan bahwa sel yang berisi teks dan angka dikenali sebagai teks.

Agar sel dapat dikenali sebagai angka, sel tersebut harus berisi angka saja.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk fungsi VBA IsText di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

Bagaimana mengkonversi string ke int di VBA
Bagaimana mengkonversi string menjadi double di VBA
Bagaimana cara memeriksa apakah suatu string berisi string lain di VBA