3 sütün 9 satır arasındaki değerleri çarpmak varyasyon

[oxgyr]

merhaba arkadaşlar. yardımlarınız için şimdiden teşekkürler.

Sorum şu:


örnek vererek açıklıyorum:
A2:I2 arasındaki rakamların her birini
B3:I3
C4:I3 arasındaki rakamların her biri ile ayrı ayrı çarpımını almak istiyorum.

Yani

=ÇARPIM(A2;A3;A4)
=ÇARPIM(A2;B3;A4)
=ÇARPIM(A2;C3;A4)
=ÇARPIM(A2;D3;A4)

gibi bütün varyasyonları elde edebileceğim bir formül var mı?

 

[Mustafa MUTLU]

A5 den aşağıya doğru tüm çarpımları yapar.

Sub Carpim()
XX = 5
For MM1 = 1 To 9
For MM2 = 1 To 9
For MM3 = 1 To 9
Cells(XX, "A") = Cells(1, MM1) * Cells(2, MM2) * Cells(3, MM3)
XX = XX + 1
Next
Next
Next
End Sub

 

[oxgyr]

A5 den aşağıya doğru tüm çarpımları yapar.

Sub Carpim()
XX = 5
For MM1 = 1 To 9
For MM2 = 1 To 9
For MM3 = 1 To 9
Cells(XX, "A") = Cells(1, MM1) * Cells(2, MM2) * Cells(3, MM3)
XX = XX + 1
Next
Next
Next
End Sub

sonuçlar hep 0 olarak gözüküyor. nerede yanlış yapıyorum acaba?

 

[sakman26]

selam,
sizin yazdığınız formüllerdeki ÇARPIM ibaresini TOPLA.ÇARPIM olarak değiştirin. Deneyin..
kolay gelsin..

 

[oxgyr]

selam,
sizin yazdığınız formüllerdeki ÇARPIM ibaresini TOPLA.ÇARPIM olarak değiştirin. Deneyin..
kolay gelsin..

=TOPLA.ÇARPIM(A2:I2;A3:I3;A4:I4) bu şekilde mi? Bu şekildeki yöntem benim aradığım şey değil.


Daha anlaşılır şekilde açıklamam gerekirse;

1 2 3 4 5 6 7 8 9

1 2 3 4 5 6 7 8 9

1 2 3 4 5 6 7 8 9


1x1x1, 1x2x1, 1x3x1 1x4x1 1x5x1 1x6x1 1x7x1 1x8x1 1x9x1
2x1x1, 2x2x1 2x3x1 2x4x1 ....... gibi bütün sonuçları verecek

 

[sakman26]

şu halde ne yapılmak istendiğini anlamamışım demektir.

 

[ÖmerBey]

Mustafa Bey'in kodunu şu şekilde düzenleyip deneyiniz:

Sub Carpim()
XX = 5
For MM1 = 1 To 9
For MM2 = 2 To 9
For MM3 = 3 To 9
Cells(XX, "A") = Cells(2, MM1) * Cells(3, MM2) * Cells(4, MM3)
XX = XX + 1
Next
Next
Next
End Sub

 

[oxgyr]

Mustafa Bey'in kodunu şu şekilde düzenleyip deneyiniz:

Sub Carpim()
XX = 5
For MM1 = 1 To 9
For MM2 = 2 To 9
For MM3 = 3 To 9
Cells(XX, "A") = Cells(2, MM1) * Cells(3, MM2) * Cells(4, MM3)
XX = XX + 1
Next
Next
Next
End Sub

kod çalıştı fakat sonuçlar hatalı.

a2 a3 a4 satırlarına 1 değerini yazdım her birine ama sonuçların arasında 1 yoktu.

 

[ÖmerBey]

Ben farklı düşünmüştüm. Kodu aşağıdaki şekilde değiştiriniz.

Sub Carpim()
XX = 5
For MM1 = 1 To 9
For MM2 = [COLOR="Red"]1 [/COLOR]To 9
For MM3 = [COLOR="red"]1[/COLOR] To 9
Cells(XX, "A") = Cells(2, MM1) * Cells(3, MM2) * Cells(4, MM3)
XX = XX + 1
Next
Next
Next
End Sub

Yine olmadı diyorsanız örnek dosya paylaşınız...

 

[oxgyr]

Ben farklı düşünmüştüm. Kodu aşağıdaki şekilde değiştiriniz.

Sub Carpim()
XX = 5
For MM1 = 1 To 9
For MM2 = [COLOR="Red"]1 [/COLOR]To 9
For MM3 = [COLOR="red"]1[/COLOR] To 9
Cells(XX, "A") = Cells(2, MM1) * Cells(3, MM2) * Cells(4, MM3)
XX = XX + 1
Next
Next
Next
End Sub

Yine olmadı diyorsanız örnek dosya paylaşınız...

çok teşekkür ederim. bu sefer oldu.

balık güzel ama nasıl tutuluyor?

Bu makroyu nasıl oluşturdunuz aynı makroyu ben nasıl oluşturabilirim. sizin için zahmet olmayacaksa bu konuda da bilgi verebilir misiniz?

Burdaki mm neyi ifade ediyor?

Cells(XX, "A") ne demek gibi A sanırım a sütunu. fakat diğer değerlerin anlamları nedir?


MM1 ilk verinin aralığı
mm2 2. verinin aralığı.

cells(2,mm1) ilk verinin satır sırası
cells(3mm2) ikinci verinin satır sırası

sanırım.

xx=xx + 1 ne oluyor?

ve next next next

 

[ÖmerBey]

xx, mm1, mm2, mm3 bunların her biri birer değişken: Kodu yazan kişinin kendine göre yazdığı şeyler, değiştirilebilir
For ve Next de döngü: mm değerlerinin sırasıyla kaç olması gerektiğini belirtiyor.
xx = xx + 1 demek de her sefer xx değerini 1 artır demek oluyor vs.
Not: Sırf sorduğunuz için yazdım, bunlar makronun en temel konularıdır. Nasıl yapıldığını öğrenmek için makro eğitimine başlamanızı tavsiye ederim...

 

[oxgyr]

xx, mm1, mm2, mm3 bunların her biri birer değişken: Kodu yazan kişinin kendine göre yazdığı şeyler, değiştirilebilir
For ve Next de döngü: mm değerlerinin sırasıyla kaç olması gerektiğini belirtiyor.
xx = xx + 1 demek de her sefer xx değerini 1 artır demek oluyor vs.
Not: Sırf sorduğunuz için yazdım, bunlar makronun en temel konularıdır. Nasıl yapıldığını öğrenmek için makro eğitimine başlamanızı tavsiye ederim...

tekrar tekrar teşekkür ederim. şu an sıfırdan makro kullandım. umarım ilerletirim biraz daha