Vba: "boş değilse" nasıl kullanılır?
Bir hücrenin boş olup olmadığını kontrol etmek için VBA’da Not IsEmpty’yi kullanabilirsiniz.
Bu sözdizimini bir makroda nasıl kullanabileceğinizi gösteren bir örnek:
Sub IfNotBlank()
Dim i As Integer
For i = 2 To 13
If Not IsEmpty(Range(" A " & i)) Then
Result = “ Cell is Not Empty ”
Else
Result = “ Cell is 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ücre için “Hücre boş değil” veya “Hücre boş” ifadesini yazdırır.
Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.
Örnek: VBA’da “Boş değilse” nasıl kullanılır?
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:
Sub IfNotBlank()
Dim i As Integer
For i = 2 To 13
If Not IsEmpty(Range(" A " & i)) Then
Result = “ Cell is Not Empty ”
Else
Result = “ Cell is 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:
Sub IfNotBlank()
Dim i As Integer
For i = 2 To 13
If Not IsEmpty(Range(" A " & i)) Then
Result = Range(" A " & i).Value
Else
Result = " 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:
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ını sayma
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ü