- Katılım
- 9 Haziran 2019
- Mesajlar
- 42
- Excel Vers. ve Dili
- Microsoft Excel 2010 - Türkçe
Herkese kolay gelsin...
For a = 1 to 9
Cells(1,1) = a
For b = 1 to 9
Cells(1,2) = b
For c = 1 to 9
Cells(1,3) = c
Next c
Next b
Next a
Şimdi burda rakamlardan herhangi biri diğerine eşit olduğu zaman bir sonraki döngüye geçmeden davam etmesini istiyorum. Yani
a = 1 b = 1 (b a ya eşit, b yi artir c ye geçme)
a = 1 b = 2 c = 1 (c a ya eşit c yi artir)
a = 1 b = 2 c = 2 (c b ye eşit c yi yine artir)
a = 1 b = 2 c = 3 (uygun. Devam et)
a = 1 b = 2 c = 4 ... gibi
Amaç iç içe fazla döngü olacağı icin ve bu sayilar 1 den 9 a degil daha fazla sayiya ilerleyecegi icin zaman kaybini önlemek. a = 5 iken b = 5 oldugu zaman b döngüsünde dakikalarca dönmesin direkt 6 ya geçsin istiyorum.
For a = 1 to 9
Cells(1,1) = a
For b = 1 to 9
Cells(1,2) = b
For c = 1 to 9
Cells(1,3) = c
Next c
Next b
Next a
Şimdi burda rakamlardan herhangi biri diğerine eşit olduğu zaman bir sonraki döngüye geçmeden davam etmesini istiyorum. Yani
a = 1 b = 1 (b a ya eşit, b yi artir c ye geçme)
a = 1 b = 2 c = 1 (c a ya eşit c yi artir)
a = 1 b = 2 c = 2 (c b ye eşit c yi yine artir)
a = 1 b = 2 c = 3 (uygun. Devam et)
a = 1 b = 2 c = 4 ... gibi
Amaç iç içe fazla döngü olacağı icin ve bu sayilar 1 den 9 a degil daha fazla sayiya ilerleyecegi icin zaman kaybini önlemek. a = 5 iken b = 5 oldugu zaman b döngüsünde dakikalarca dönmesin direkt 6 ya geçsin istiyorum.