makrodaki sıkıntı

[khun]

çalışan makrom bu sefer bu hatayı vermekte.uzman arkadaşlar bakabilirmisiniz.

 

[khun]

makro

arkadaşlar ekteki makroya bakma fırsatınız olursa sevinirim calculate trend statistics butonuna bastığımızda hesaplayıp figure sayfası açılıp grafiksel görüntünün açılması gerekir

 

[Ömer BARAN]

Merhaba.

Belgenizi ve kodlarınızı çok incelemedim (zaten kodlarla ilgilenmeye başlayalı da çok olmadı).

Belgenizdeki Annual data sayfasının adına fareyle sağ tıklayın ve KOD GÖRÜNTÜLEyi seçin, açılan ekranın sağ tarafındaki;
Private Sub MannKendall(ByVal nYears As Double, x() As Double, s As Double, Z As Double, signif As String)
başlıklı kod blokunun aşağıdaki satırında makro çalışmayı durduruyor, yapılan matematiksel işlemin de ne olduğuna bakmadım
ama sanırım s adlı değişkenin durumuna göre Z için bir değer hesaplanıyor.

    Z = Switch(s > 0, (s - 1) / Sqr(varS), s < 0, (s + 1) / Sqr(varS), s = 0, 0#)

Hata oluşan bu satırın sol başına ' şeklinde TEK TIRNAK ekleyip, hemen altına aşağıdaki satırları ekleyerek dener misiniz?

    Select Case s
        Case Is > 0
            Z = ((s - 1) / Sqr(varS))
        Case Is < 0
            Z = ((s + 1) / Sqr(varS))
        Case Is = 0
            Z = 0
        End Select

 

[khun]

ömer bey peki mevcut hata satırını iptalmi ediyoruz

 

[khun]

ömer bey ekteki dosyada sizin yazdığınız yazılım çalıştımı?

 

[Ömer BARAN]

Önceki cevabımda; koyu renklendirip vurgulayarak belirtmiştim.
Hata veren Z=..... şeklindeki satırın başına TEK TIRNAK ekleyerek etkisiz hale getirin veya o satırı silin.

Ayrıca deneme yapmadan cevap yazmam, elbette denedim.

Önceki cevabımdaki ilave kod satırları; kod'un o satırından önce,
-- s değeri 0'dan büyükse Z = ((s - 1) / Sqr(varS)) şeklinde,
-- s değeri 0'dan küçükse Z = ((s + 1) / Sqr(varS)) işlemini,
-- s değeri 0 ise Z=0
işlemini yapıyor.

 

[khun]

ömer bey çok teşekkür ederim...

 

[Ömer BARAN]

ömer bey çok teşekkür ederim...

İhtiyaç görüldüyse mesele yok, iyi günler dilerim.