VBA İle En Kısa Mesafenin Tespit Edilerek Sıralanması

Katılım
25 Mayıs 2018
Mesajlar
21
Excel Vers. ve Dili
Excel 2016 - Türkçe
Altın Üyelik Bitiş Tarihi
25.05.2023
Merhaba,
Ekte paylaşılan excel dosyasında 10 şehrin birbirlerine olan uzaklıkları verilmiştir. Rassal olarak belirlenen bir şehrin diğer şehirlere olan uzaklıkları incelenerek rotanın en kısa mesafedeki şehre göre oluşturulması planlanacaktır. 10 şehrin tamamına da uğranmasını sağlayan rota başlangıç çözümü olarak kabul edilecektir. Sonrasında bu başlangıç çözümü rotasında yer alan şehirlerin yerleri birer birer kaydırılarak yeni rotalar oluşturulacaktır. Yeni oluşan rotalarla kat edilecek toplam mesafeler tespit edilerek en kısa mesafeye sahip olan rota optimum rota olarak belirlenecektir.
(Özetle anlatmam gerekirse 1. şehirden rotaya başlanıldığını varsayalım. 1. şehre en yakın şehir 3. şehir ise rota 1-3 şeklinde şekillenecektir. Sonrasında 3'ün diğer şehirlere olan uzaklıkları incelenerek en yakın şehir 5 ise yeni rota 1-3-5 olarak şekillenecektir. Rotanın 1-3-5-7 şeklinde başlangıç çözümü olduğunu varsayalım. Diğer kombinasyon 1-5-3-7 şeklinde, sonraki kombinasyon 1-5-7-3 şeklinde rotalar ortaya çıkaracaktır.(Toplam 81 rota olması gerekiyor.)Oluşan bu rotaların hepsinin toplam mesafesi hesaplanarak en kısa mesafeyi elde etmemizi sağlayan rota optimum rota olarak belirlenecektir.)
Çalışma dosyası ekte paylaşılmıştır.
Yardımcı olabilirseniz çok memnun olurum.
Saygılarımla
 

Ekli dosyalar

Katılım
25 Mayıs 2018
Mesajlar
21
Excel Vers. ve Dili
Excel 2016 - Türkçe
Altın Üyelik Bitiş Tarihi
25.05.2023
Sanırım uzaklık matrisini kullanarak bir dizi oluşturmam gerekiyor. Yardımcı olabilir misiniz ?
 
Üst