Vba: hücrenin boş olup olmadığı nasıl kontrol edilir (örneklerle)
VBA’da bir hücrenin boş olup olmadığını kontrol etmek için aşağıdaki temel sözdizimini kullanabilirsiniz:
SubCheckBlank ()
Dim i As Integer
For i = 2 To 13
If IsEmpty(Range(" A " & i)) Then
Result = “ Cell is Empty ”
Else
Result = “ Cell is Not Empty ”
End If
Range(" B " & i) = Result
Next i
End Sub
Bu özel örnek, A2:A13 aralığındaki her hücrenin boş olup olmadığını kontrol eder ve ardından B2:B13 aralığında eşleşen her hücreye “Hücre boş” veya “Hücre boş değil” değerini atar.
Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.
Örnek: VBA kullanılarak hücrenin boş olup olmadığı nasıl kontrol edilir
Excel’de aşağıdaki basketbol takımı adları listesine sahip olduğumuzu varsayalım:
A2:A13 aralığındaki her hücrenin boş olup olmadığını kontrol etmek ve ardından sonuçları B2:B8 aralığında karşılık gelen hücrelerde görüntülemek istediğimizi varsayalım.
Bunun için aşağıdaki makroyu oluşturabiliriz:
SubCheckBlank ()
Dim i As Integer
For i = 2 To 13
If IsEmpty(Range(" A " & i)) Then
Result = “ Cell is Empty ”
Else
Result = “ Cell is Not Empty ”
End If
Range(" B " & i) = Result
Next i
End Sub
Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:
B sütunu bize A sütunundaki karşılık gelen hücrelerin her birinin boş olup olmadığını söyler.
A sütununda değer boş değilse, B sütununda takım adının kendisini döndürmek için aşağıdaki makroyu da kullanabilirsiniz:
SubCheckBlank ()
Dim i As Integer
For i = 2 To 13
If IsEmpty(Range(" A " & i)) Then
Result = “ Cell is Empty ”
Else
Result = Range(" A " & i).Value
End If
Range(" B " & i) = Result
Next i
End Sub
Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:
Hücre boş değilse, B sütunu artık A sütunundaki takım adını döndürüyor.
Not : VBA IsEmpty yöntemine ilişkin tüm belgeleri burada bulabilirsiniz.
Ek kaynaklar
Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:
VBA: Bir dizedeki karakterlerin oluşumları nasıl sayılır?
VBA: bir dizenin başka bir dize içerip içermediği nasıl kontrol edilir
VBA: hücrenin “Eğer” içermesi durumunda” formülü