Forumda emeği geçen herkese merhaba. Arkadaşlar aşağıdaki kodlar kombinasyon kodları. AF2:AF7 aralığında 1 den 6 ya kadar rakamlar var. Bu rakamlar daha sonra değişebilir. Yapmak istediğim bu aralığın ikili kombinasyonunu alıp bunları toplamak. Ama bunu yaparken yardımcı sutun kullanmak istemiyorum. Doğrudan değişkenlere atayıp sonucu UserForm2.label1
üzerinde görmek istiyorum. İki gündür uğraşıyorum ancak buraya kadar getirebildim. Kombinasyon değerlerini a ve b değişkenlerine atıyor ama nihai toplamı vermiyor. nihai toplam = 175 olacak. İlgilenen arkadaşlara şimdiden teşekkürler.
Dim x, xx As Byte
Dim a, b, sonuç As Integer
For x = 2 To 6
For xx = x + 1 To 7
a = a + 1
b = b + 1
sonuç = sonuç + 1
a = Cells(x, "AF").Value
b = Cells(xx, "AF").Value
sonuç = a * b
sonuç = sonuç + 1
Next xx
sonuç = sonuç + 1
Next x
Label1 = sonuç
üzerinde görmek istiyorum. İki gündür uğraşıyorum ancak buraya kadar getirebildim. Kombinasyon değerlerini a ve b değişkenlerine atıyor ama nihai toplamı vermiyor. nihai toplam = 175 olacak. İlgilenen arkadaşlara şimdiden teşekkürler.
Dim x, xx As Byte
Dim a, b, sonuç As Integer
For x = 2 To 6
For xx = x + 1 To 7
a = a + 1
b = b + 1
sonuç = sonuç + 1
a = Cells(x, "AF").Value
b = Cells(xx, "AF").Value
sonuç = a * b
sonuç = sonuç + 1
Next xx
sonuç = sonuç + 1
Next x
Label1 = sonuç