Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VBA: alueen läpikäyminen

pentiny [29.03.2005 17:38:56]

#

esim: solusta A1 B4:seen solujen läpikäyminen for each next funktiolla. Miten löytyy pienin arvo?

ts.

Mitä vikaa tässä on:

Private Sub läpikäyminen()

Set alue = Sheet1.Range("K4:K7")
Set solu = Sheet1.Cells(4, 11)

    For Each i In alue

        If i < solu Then

        Sheet3.Cells(19, 8) = i

        Else: Sheet3.Cells(19, 8) = solu

        End If
    Next
End Sub

Toi poimii vain ensimmäisestä tai toisesta solusta pienimmän arvon..

BadSource [29.03.2005 18:11:27]

#

Muuta näin

Private Sub läpikäyminen()
    'jos soluun asetetaan ensimmäinen arvo alalta, niin sitä ei tarvitse enään lisätä "alueeseen"
    Set alue = Sheet1.Range("K5:K7")
    Set solu = Sheet1.Range("K4").Value

    For Each i In alue
        If i.Value < solu Then Set solu = i.Value 'en ole varma vaatiiko tuota Set:iä...
    Next
    'tulostetaan pienin vasta, kun kaikki arvot on läpikäyty, niin vältetään turhaa ruudulle kirjoittelua
    Sheet3.Cells(19, 8) = solu
End Sub

pentiny [30.03.2005 00:39:16]

#

Kiitos, Toimii!

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta