Type Mismatch hatasını gideremiyorum

[krycek]

merhabalar,
aşağıdaki kodlarda R'nin hesaplandığı satırda "type mismatch" hatasını alıyorum. neden kaynaklandığını bulamadım. xnumbers isimli bir add-in yüklemiştim. acaba xnumbers fonksiyonlarını yanlış biçimde mi çağırmışım? referans olarak xnumbers.xla yı göstermiştim. yardımcı olabilirseniz çok sevinirim.

Sub alfa()
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim R As Double
Dim x As Double

Worksheets(1).Activate
For j = 2 To 100
    For i = 2 To 51
        For n = 0 To 20
            R = (((XNUMBERS.xfact(n)) * (3 + (2 * n))) / ((n + 1) * (n + 2))) * ((XNUMBERS.Poly_Jacobi(1, 1, Cells(1, j), n)) ^ 2) * (XNUMBERS.Poly_Jacobi(2, 0, (Cells(i, 1)) ^ 2, n))
            x = x + R
        Next n
            Cells(i, j).Value = ((1 - Cells(1, j)) ^ 2) * ((1 - ((Cells(i, 1) ^ 2))) ^ 2) * x
            x = 0
    Next i
Next j

End Sub

 

[krycek]

yok mu yardım edebilecek biri?

 

[snx111]

ben çalıştırdım
sayfa 0 larla doldu dogrumudur ?

 

[snx111]

Sub alfa()
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim R As Double
Dim x As Double
On Error Resume Next
Worksheets(1).Activate
For j = 2 To 100
    For i = 2 To 51
        For n = 0 To 20
            R = (((XNUMBERS.xfact(n)) * (3 + (2 * n))) / ((n + 1) * (n + 2))) * ((XNUMBERS.Poly_Jacobi(1, 1, Cells(1, j), n)) ^ 2) * (XNUMBERS.Poly_Jacobi(2, 0, (Cells(i, 1)) ^ 2, n))
            x = x + R
        Next n
            Cells(i, j).Value = ((1 - Cells(1, j)) ^ 2) * ((1 - ((Cells(i, 1) ^ 2))) ^ 2) * x
            x = 0
    Next i
Next j

End Sub

 

[krycek]

ben çalıştırdım
sayfa 0 larla doldu dogrumudur ?

yok çalışması halinde beklediğim sonuç o değildi, ama şimdi işlemlerdeki hatamı bulabilirim sayenizde. çunku hiç çalıştıramamıştım, çok teşekkür ederim. üzerinde uğraşmaya devam edeceğim.

 

[krycek]

ben çalıştırdım
sayfa 0 larla doldu dogrumudur ?

bu xnumbers.poly_jacobi fonksiyonunu düzgün çalıştıramıyorum galiba. çünkü sanırım "on error resume next" dediğimizde her işlemde hata algılayıp diğer işleme geçiyo ve böylelikle hiç işlem yapmadan tüm sonuçları 0 olarak geri döndürüyo.

 

[snx111]

x = Cells(1, j).Value 
R = XNUMBERS.Poly_Jacobi(1, 1, x, n)

fonksiyonu sadeleştirdim ama yine hata veriyor belkide hata yapımcıda veya veri 0 olduğundan ...

 

[krycek]

R = XNUMBERS.Poly_Jacobi(1, 1, x, n)

fonksiyonu sadeleştirdim ama yine hata veriyor belkide hata yapımcıda veya veri 0 olduğundan ...

yok veri 0 olduğunda da 0'dan farklı bir sonuç vermeli. ama sanırım dediğiniz gibi hata yapımcıda olabilir.
normal excel çalışma sayfasında elle argümanları girdiğimde sorunsuz doğru sonuç veriyor ama vba'da çağırdığımda hep hata veriyor. benim için kötü haber:frown:
çok teşekkür ederim yardımınız için.

 

[snx111]

elle çalışan vba da da çalışır ; gerekli fonksiyonları ayırıp ; kopyalayıp sayfa1 re ve modüldeki kodunuzuda ; atl atla tek sayfada deneyin ; bağ istiyor olabilir.

amaç xnumbersi devre dışı bırakıp sadece lazım olan function kısmını almak

 

[krycek]

tam olarak doğru anladım mı bilmiyorum ama deneyeceğim

 

[snx111]

Ben denedim işi bıraktım =false

Birde şu x = Cells(1, j).Value
R = XNUMBERS.Poly_Jacobi(1, 1, x, n) 1 1 ler a ve b deger almalımı a= b= denmelimi oda takıldı aklıma ?

 

[krycek]

Ben denedim işi bıraktım =false

Birde şu x = Cells(1, j).Value
R = XNUMBERS.Poly_Jacobi(1, 1, x, n) 1 1 ler a ve b deger almalımı a= b= denmelimi oda takıldı aklıma ?

ya sizi de uğraştırdım çok
normal çalışma sayfasında elle referans da girsem doğrudan 1 gibi bir sayı da girsem doğru sonucu veriyodu. = kullanmamıştım hiç.
bu arada ben xnumbers'ın kullanma kılavuzuna baktım da şöyle bir örnek code gördüm:

Sub Test()
Dim a, b, c, DgtMax
DgtMax = Range("B2")
a = Range("B3")
b = Range("B4")
c = XNUMBERS.xdiv(a, b,
DgtMax)
Range("B5") = "'" & c
End Sub

buna göre fonksiyonun geri döndürdüğü sonuç string bi ifade mi oluyo?

 

[snx111]

string /variant/value hepside olabilir...

 

[krycek]

string /variant/value hepside olabilir...

anladım, yardımınız için çok çok teşekkür ederim, sizi de uğraştırdım çok.

 

[krycek]

string /variant/value hepside olabilir...

şu haliyle düzgün çalıştı sonunda:

Sub alfa()
Dim i,j,n As Integer
Dim a, b, c, d, e, R, x As Double

Worksheets(1).Activate
For j = 2 To 101
    For i = 2 To 51
        For n = 0 To 20
            d = Cells(1, j)
            e = Cells(i, 1)
            Cells(100, 1) = XNUMBERS.xfact(n)
            a = Range("A100")
            Cells(101, 1) = XNUMBERS.Poly_Jacobi(1, 1, d, n)
            b = Range("A101")
            Cells(102, 1) = XNUMBERS.Poly_Jacobi(2, 0, (e) ^ 2, n)
            c = Range("A102")
            
            R = ((a) * (3 + (2 * n)) / ((n + 1) * (n + 2))) * ((b) ^ 2) * (c)
            x = x + R
        Next n
        Cells(i, j).Value = ((1 - Cells(1, j)) ^ 2) * ((1 - ((Cells(i, 1) ^ 2))) ^ 2) * x
        x = 0
        
    Next i
Next j

End Sub
Sub ConvertText()
    For Each cell In Selection
        cell.Value = Val(cell.Value)
    Next
    Selection.NumberFormat = "General"
End Sub

 

[snx111]

Bende tam böyle yapsana diyecektim .... (yalan)

 

[krycek]

Bende tam böyle yapsana diyecektim .... (yalan)

:biggrin: ya çok sagolun siz referans istiyo olabilir falan demeseniz aklıma gelmezdi zaten benim hiç.