Toplamı 10 ve 20 olan sayılar

[mehmetaltin]

Arkadaşlar iki sayının toplamı 10 yada 20 olacak şekilde farklı farklı varyasyonları nasıl otomatik buldurabilirim.

Mesela 2+8 , 3+7 , 8+2 , 5+5 , 4+6 gibi..
Diğeri 12+8 , 1+19 , 15+5 gibi tüm farklı varyasyonları nasıl gösterebilirim...

 

[askm]

A1 hücresine bulmasını istediğiniz sayıyı yazın. B1 den itibaren varyasyonları yazacaktır.

Sub askm()
Application.ScreenUpdating = False
sayi = Range("A1")
For i = 0 To sayi
    a = a + 1
    Cells(a, 2) = i & "+" & sayi - i
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

 

[Merhum İdris SERDAR]

Alternatif (makrosuz)

http://s7.dosya.tc/server8/81h9f4/TOPLAMKOMB.xlsx.html

.