Avatar billede malldiverne Nybegynder
24. marts 2015 - 13:06 Der er 1 kommentar og
1 løsning

Find og marker mindste tal med en farve i hver række

Jeg har et stort antal rækker med x-antal kolonner i hver række
Jeg mangler en kode der kan finde den mindste tal-værdi i hver række og evt. marker denne med en farve, og dernæst gå videre til række og gentage dette.

Jeg har prøvet lidt med funktionen MINDSTE(), men kan ikke helt dreje den????

Håber i kan hjælpe,

Mvh

Martin
Avatar billede jensenweb_dk Nybegynder
24. marts 2015 - 19:08 #1
Hej Martin

Prøv denne her


Sub FindMindste()
    Dim i As Long
    Dim j As Long
    Dim dblMinValue As Double
   
   
    For i = 1 To 10 '-- Antal rækker
        dblMinValue = WorksheetFunction.Min(Range("A" & i & ":GR" & i))
       
        For j = 1 To 200 -- Antal kolonner
            If Cells(i, j).Value = dblMinValue Then
                Cells(i, j).Interior.Color = RGB(200, 200, 200) '-- Farven på den mindste værdi
            End If
        Next
    Next
End Sub
Avatar billede malldiverne Nybegynder
24. marts 2015 - 20:32 #2
Det virker perfekt, mange tak skal du have ;) !!!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester