Formul kısaltma

[Huseyinkis]

Merhaba Excel Vb. öğrenmeye çalışıyorum ama daha yolun başındayım

Aşağıdaki formulu Vb de nasıl kısaltabiliriz örnek formul yazabilirmisiniz.

şimdiden teşekkürler.

Function HSO(HSO1 As Long, HSO2 As Long, HSO3 As Long, SUZ1 As Long, SUZ2 As Long)
Dim ALW1, ALW2, ALW3, BLW1, BLW2, BLW3

If HSO1 = SUZ1 Then
ALW1 = 1
Else
ALW1 = 0
End If

If HSO2 = SUZ1 Then
ALW2 = 1
Else
ALW2 = 0
End If

If HSO3 = SUZ1 Then
ALW3 = 1
Else
ALW3 = 0
End If

If HSO1 = SUZ2 Then
BLW1 = 1
Else
BLW1 = 0
End If

If HSO2 = SUZ2 Then
BLW2 = 1
Else
BLW2 = 0
End If

If HSO3 = SUZ2 Then
BLW3 = 1
Else
BLW3 = 0
End If

HSO = ALW1 + ALW2 + ALW3 + BLW1 + BLW2 + BLW3
End Function

 

[Korhan Ayhan]

Selamlar,

Tam olarak ne hesaplamak istediğinizi anlamadım fakat aşağıdaki şekilde kısaltabilirsiniz.

Option Explicit
 
Function HSO(HSO1 As Long, HSO2 As Long, HSO3 As Long, SUZ1 As Long, SUZ2 As Long)
    If HSO1 = SUZ1 Then
        HSO = HSO + 1
    End If
    
    If HSO2 = SUZ1 Then
        HSO = HSO + 1
    End If
    
    If HSO3 = SUZ1 Then
        HSO = HSO + 1
    End If
    
    If HSO1 = SUZ2 Then
        HSO = HSO + 1
    End If
    
    If HSO2 = SUZ2 Then
        HSO = HSO + 1
    End If
    
    If HSO3 = SUZ2 Then
        HSO = HSO + 1
    End If
End Function

 

[Huseyinkis]

Slm :


Eğersay formulunun yapmak istedim yapmak istediğim A1 ile A?? arasında bulunan sayılar arasında B1 ile B?? arasındaki sayılardan kaç edet var onu bulmak istiyorum.


Eğersay(A1:A5;B1) + Eğersay(A1:A5;B2)+Eğersay(A1:A5;B3) normalde eğer say kullanarak bu şekilde işimi hallediyorum fakat buda iç içe bazen 10 veya 15 tane oluyo bunu tek formule döküp Deneme(Alan;AranacakDeğer1;AranacakDeğer2;AranacakDeğer...15) şeklinde yapmaya çalışmıştım. inşallah anlata bilmişimdir


Teşekkürler..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki formülü kullanabilirsiniz.

=TOPLA.ÇARPIM(--(EĞERSAY(B1:B5;A1:A1000)))

Ayrıca Sn. yurttas beyin aşağıdaki linkteki çalışmasını inceleyiniz.

Sumproduct-Topla.Çarpım Fonksiyonu ve Uygulamaları

 

[Huseyinkis]

Çok Teeşekkür ederim