Excel makroları içinde gelişmiş denetimli formüller yazma


Bazen excel’deki formüllerin yetmediği durumlar olabilir. Mesela içiçe 5 eğer fonksiyonu veya karmaşık matematiksel hesaplamalar gibi. Bu durumlarda excel makrolarını kullanabilirsiniz.
Aşağıdaki ekte bulunan makro bundan evvel  şu makalede anlattığımız python ile yaptığımız parasal değere karşılık risk analizi yapan formülasyonun  excel makrosu dili (VBA) ile yazılmış halidir.
Şu adresten indirip makro alanına import edebilirsiniz.
https://docs.google.com/open?id=0B2QbjSFSlgaMX2NJWkU2U0dhT28

Makro kaynak kodları ise şöyle:

Sub VeriKontrol()
    ‘For dongumuzu acalim
    For i = 1 To 99
        ‘Parasal degerimizi tanimliyoruz
        Dim parasal_deger As Long
        ‘Sonra bu degere A1,A2,A3… hucremizden aldigimiz degeri atiyoruz her seferinde
        parasal_deger = Range(“A” & i)
        
        ‘Parasal degerimizi checkediyoruz.
        ‘Bunun icin parasal degeri x sayalim
        Dim x As Long
        x = parasal_deger
        ‘Risk degerimizi varsayian olarak 0 atayalim
        Dim risk As Integer
        risk = 0
        ‘If blogumuz pythondaki : yerine Then ve sonda Endif kullandik
        If x > 10000 And x
            risk = 1
        ElseIf x > 100000 And x
            risk = 2
        ElseIf x > 500000 And x
            risk = 3
        ElseIf x > 1000000 And x
            risk = 4
        ElseIf x > 2000000 Then
            risk = 5
        Else:
            risk = 0
        End If
        ‘Simdi hesaplanan risk degerimizi B sutunumuza siraliyoruz
        Range(“B” & i) = risk
        ‘For dongumuzu guzel guzel next ile devam ettiryoruz
        Next i
End Sub

Reklamlar

Yayınlayan

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Google fotoğrafı

Google hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Connecting to %s