fucking machine in my head
istiyorum ki, benim istediğim rakamı hangi hücrelerin toplamı verir. evet bu kadar tarif edebildim. mümkün mü?
istiyorum ki,
benim istediğim rakamı hangi hücrelerin toplamı verir. evet bu kadar tarif edebildim. mümkün mü?
benim istediğim rakamı hangi hücrelerin toplamı verir. evet bu kadar tarif edebildim. mümkün mü?
0
en basit ve zahmetsizce dediğim gibi "hedef ara" ile yapılabilir. makro ile uğraşmadan. ama çoklu bir tabloda işinizi görmez.
0
Makro ile olur niye olmasin. İki dongu ile tum satir ve surunlar incelet. Hedef hucrenin degerinden kucuk tum hucreleri a+b, a+b+c, ... Seklinde toplamlarini sorgulat.
0
hangi hücreler?
iki hücrenin toplamı mı, üç hücrenin toplamı mı, ya da daha fazlası mı?
senin hücrelerin a1 den a25 e kadar gidiyor diyelim, hedef sayıyı da b1'e yazdık diyelim.
herhangi iki ikili için
Sub topla()
Dim i, j, k As Integer
k = 1
For i = 1 To 24
For j = 2 To 25
If Range("A" & i).Value + Range("A" & j).Value = Range("B1").Value Then
Range("C" & k).Value = "A" & i
Range("D" & k).Value = "A" & j
k = k + 1
End If
Next j
Next i
End Sub
aynı şekilde 3,4,...n için de yazılabilir.
iki hücrenin toplamı mı, üç hücrenin toplamı mı, ya da daha fazlası mı?
senin hücrelerin a1 den a25 e kadar gidiyor diyelim, hedef sayıyı da b1'e yazdık diyelim.
herhangi iki ikili için
Sub topla()
Dim i, j, k As Integer
k = 1
For i = 1 To 24
For j = 2 To 25
If Range("A" & i).Value + Range("A" & j).Value = Range("B1").Value Then
Range("C" & k).Value = "A" & i
Range("D" & k).Value = "A" & j
k = k + 1
End If
Next j
Next i
End Sub
aynı şekilde 3,4,...n için de yazılabilir.
0
