EVET/HAYIR ADEDİ:  TRUE -1 FALSE 0

Elinizde 10 adet boolean tipinde değişken var. Bunlardan kaçının TRUE olduğunu nasıl bulursunuz? Siz hiç düşünmeden bunların değerlerini toplamanızı öneriyorum.

Dim a as boolean, b as boolean .... f as boolean
...
msgbox ((a + b + c + d + e + f) * -1 ) & " adedi TRUE yapılmış."

Zira TRUE değerinin VBA'daki sayısal karşılığı -1, FALSE değerininki ise 0'dır. Bu haliyle TRUE olanları toplayıp -1 ile çarpmak yeterli oluyor. Eşit mi, değil mi sorularının çok olduğu kodlarda işinize yarayabilir.

Mesela 10 adet seçim kutusundan en az 3 tanesinin seçilmesi gerektiğini karşımızdaki kişiye şöyle anlatabiliriz:

If ( Check1 + Check2 + ... + Check10 ) > -3 Then _
MsgBox "En az üç seçenek işaretlemelisiniz."

Bir de şunu deneyin:

If ( IsNull(Text1) + IsNull(Text2) ... + IsNull(Text10) ) = -10 Then _
MsgBox "En az bir değer girmelisiniz."

Serkan Şahinoğlu
PC Magazine, Kasım 2000