Döngü içerisinde seçili satırın minimum değerini bulma

[spasmex97]

Arkadaşlar kolay gelsin uzatmadan
araç rotalama problemi için dijkstra algoritması kullanıyorum , seçili bi satırım olacak o satırın sütunları arasında minimum değeri arayıp bulmak istiyorum bir sonraki iterasyonun satırı ise bir öncekinin sütunu olacak (i,j ) ler (j, ...) olacak sonra j. satırda aynı minimum değeri arayacağım daha sonrasında da bulunan değerin hücresini temizleyip sonuna kadar bu şekilde ilerletmek istiyorum fakat seçili satırdaki minimum değeri bulmayı yapamadım yardımcı olabilir misiniz?

 

[Haluk]

Dijkstra's algorithm with VBA

This article shows how to use Dijkstra's algorithm to solve the tridimensional problem stated below. Dijkstra's algorithm - Wikipedia Actually, this is a generic solution where the speed inside the holes is a variable. The original problem is...

www.mrexcel.com

.

 

[spasmex97]

Dijkstra's algorithm with VBA

This article shows how to use Dijkstra's algorithm to solve the tridimensional problem stated below. Dijkstra's algorithm - Wikipedia Actually, this is a generic solution where the speed inside the holes is a variable. The original problem is...

www.mrexcel.com

.

istediğim şey bu kod değil sadece döngü içerisinde satırın minimum değerini bulmak istiyorum benim kullandığım yapıya uymuyor attığınız algoritma

 

[Korhan Ayhan]

Aradığınız komut bu olabilir mi?

Deger = WorksheetFunction.Min(Selection)

 

[spasmex97]

selection nu belirlemek için bir döngü kullanıyorum aslında tam olarak bi range belirlemiyorum sadece arama yaptığım satıra gelince o satırdaki minimum değeri bulmak istiyorum yani spesifik bir range yi bu döngüde nasıl belirlerim bilmiyorum
i. satırdaki minimum değerimi bulduktan sonra i,j hücresini silip j. satıra atlamam gerekiyor döngü tüm dolu hücreleri silene kadar devam etmek zorunda

 

[Korhan Ayhan]

Bu durumda örnek dosya paylaşınız.

 

[spasmex97]

Set Range = Sheets("sayfa4").Range("Bi:Ki")
Dim a As Integer
a = 0
    For i = 4 To i + 1
        For j = i + 1 To 11
            If Sheets("sayfa4").Cells(i, j) > 0 And Sheets("sayfa4").Cells(i, j) = Application.WorksheetFunction.Min(Range) Then
                a = a + 1
                Sheets("sayfa4").Cells(i, j).ClearContents
                Sheets("sayfa4").Cells(15 + a, 1) = i
                Sheets("sayfa4").Cells(15 + a, 2) = j
               
           
                    i = j - 1
            End If
        Next j
    Next i

And Sheets("sayfa4").Cells(i, j) = Application.WorksheetFunction.Min(Range)
tam bu kısım seçili olan satırın minimum değerini aramakla görevlendirmek istiyorum ama beceremedim

dosya paylaşımını bulamadığım için bu şekilde cevap verebildim

 

[Haluk]

Öncelikle, kullandığınız değişkeni "Range" değil, "xRng" gibi bir isimle değiştirin çünkü "Range" Excel için "özel" bir ifadedir.

.

 

[spasmex97]

Öncelikle, kullandığınız değişkeni "Range" değil, "xRng" gibi bir isimle değiştirin çünkü "Range" Excel için "özel" bir ifadedir.

.

evet farkettim fakat kod hata vermemesine rağmen herhangi bir çıktı vermiyor

 

[Haluk]

Aktif sayfada C4:J4 aralığına muhtelif değerler girdikten sonra, denemek için aşağıdaki ufak kodu çalıştırın. Eğer işinize yarıyorsa, kendi kodunuzu gözden geçirip uyarlamaya çalışın.

Sub Test()
    Dim xRng As Range
    Set xRng = Range("C4:J4")
    MsgBox Application.Min(xRng)
End Sub

.

 

[kulomer46]

Merhaba

Yukardaki mesajları inceleyince kendimce 20 x 20 lik bir tabloda Dijkstra Algoritması üreten program yazdım.
Belki Dijkstra Algoritması mantığı farklıdır fakat mesajlardan anladığım kadarıyla yaptım.
Belki bir fikir verebilir.

Kolay Gelsin. Selamlar...

Dijkstra_Algoritmasi_Ornegi_14.12.2020.xlsm dosyasını indir - download

Dijkstra_Algoritmasi_Ornegi_14.12.2020.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[spasmex97]

Aktif sayfada C4:J4 aralığına muhtelif değerler girdikten sonra, denemek için aşağıdaki ufak kodu çalıştırın. Eğer işinize yarıyorsa, kendi kodunuzu gözden geçirip uyarlamaya çalışın.

Sub Test()
    Dim xRng As Range
    Set xRng = Range("C4:J4")
    MsgBox Application.Min(xRng)
End Sub

.

yaklaşım biçimi doğru fakat ("c4:j4) ifadesinde 4 değerleri sürekli değişebilir olabilmesi lazım bunu çözebilirsem problemde çözülmüş demektir

 

[Haluk]

Artık işin o kısmı size ait ...

.

 

[spasmex97]

Artık işin o kısmı size ait ...

.

çözemediğim için buraya danışmıştım ama

 

[Korhan Ayhan]

Bu şekilde olabilir mi?

Application.WorksheetFunction.Min(Sheets("sayfa4").Range("B" & i & ":K" & i))

 

[spasmex97]

Bu şekilde olabilir mi?

Application.WorksheetFunction.Min(Sheets("sayfa4").Range("B" & i & ":K" & i))

evet teşekkür ederim işe yaradı kodu biraz güncelledim ama şuan başka ve daha büyük bir problemle karşı karşıyayım