merhaba,
benim vba kodlarıyla hesap yaptırdığım bir dizim var ...dizimin herbir elemanın sonucunu msgbox da görebiliyorum..fakat tek tek gelio..
ben örneğin 4x4 lük bir dizimin 16 elemanını aynı anda msgbox da görmek istiyorum...16 tane ayrı ayrı msgbox sıralı karşıma gelmesin yani...bu mümkünmü...
kodlarımda kabaca şöle....(koddaki n=5 i dikkate almayın o değişken bir sayı onu inputboxla dış veri olarak alıcam şimdilik kod çalışıyomu die ölesine 5 değeri verdim..)
Sub Makro1()
Dim l(10) As Variant
Dim delta(50, 50) As Variant
n = 5
l(0) = 2
l(1) = 3
l(2) = 4
l(3) = 5
l(4) = 4
For x = 1 To n - 1
For y = 1 To n - 1
delta(x, y) = 0
Next y
Next x
For k = 1 To n - 1
delta(k, k) = delta(k, k) + (1 / 3) * (l(k - 1) + l(k))
delta(k, o) = (1 / 24) * (l(k - 1) ^ 3 + l(k) ^ 3)
Next k
For t = 1 To n - 2
delta(t, t + 1) = delta(t, t + 1) + (1 / 6) * l(t)
Next t
For u = 2 To n - 1
delta(u, u - 1) = delta(u, u - 1) + (1 / 6) * l(u - 1)
Next u
For a = 1 To n - 1
For b = 1 To n - 1
MsgBox delta(a, b)-->işte sorun.16 tane yerine.16 sını birden yazsın
Next b
Next a
End Sub
sevgiler ,saygılar
benim vba kodlarıyla hesap yaptırdığım bir dizim var ...dizimin herbir elemanın sonucunu msgbox da görebiliyorum..fakat tek tek gelio..
ben örneğin 4x4 lük bir dizimin 16 elemanını aynı anda msgbox da görmek istiyorum...16 tane ayrı ayrı msgbox sıralı karşıma gelmesin yani...bu mümkünmü...
kodlarımda kabaca şöle....(koddaki n=5 i dikkate almayın o değişken bir sayı onu inputboxla dış veri olarak alıcam şimdilik kod çalışıyomu die ölesine 5 değeri verdim..)
Sub Makro1()
Dim l(10) As Variant
Dim delta(50, 50) As Variant
n = 5
l(0) = 2
l(1) = 3
l(2) = 4
l(3) = 5
l(4) = 4
For x = 1 To n - 1
For y = 1 To n - 1
delta(x, y) = 0
Next y
Next x
For k = 1 To n - 1
delta(k, k) = delta(k, k) + (1 / 3) * (l(k - 1) + l(k))
delta(k, o) = (1 / 24) * (l(k - 1) ^ 3 + l(k) ^ 3)
Next k
For t = 1 To n - 2
delta(t, t + 1) = delta(t, t + 1) + (1 / 6) * l(t)
Next t
For u = 2 To n - 1
delta(u, u - 1) = delta(u, u - 1) + (1 / 6) * l(u - 1)
Next u
For a = 1 To n - 1
For b = 1 To n - 1
MsgBox delta(a, b)-->işte sorun.16 tane yerine.16 sını birden yazsın
Next b
Next a
End Sub
sevgiler ,saygılar
)) mükemmel odu....Çok teşekkür ederim Haluk bey...iyi çalışmalar...