07. november 2006 - 09:37Der er
12 kommentarer og 1 løsning
Finde det tal, som ligger nærmest et bestemt tal, i en liste
Jeg har brug for at kunne lave en funktion i excel, som gør det muligt at indtaste et tal, hvorefter at excel selv finder det tal, i en foruddeffineret list, som ligger nærmest det tal
F.eks. Jeg har en liste på nogle hundrende tal, og ønsker at finde det tal som ligger tættest på X. Jeg indtaster så X i en celle, og så skriver excel det tal fra listen, som ligger tættest på X, i en anden celle
Når jeg læser i "Hjælpefunktionen" i Excel, står der følgende i min: "Hvis LOPSLAG ikke kan finde opslagsværdi, og sorteret er SAND, anvendes den største værdi, der er mindre end eller lig med opslagsværdi"
Det finder jo ikke nærmeste tal, men nærmeste tal der er mindre end eller lig med opslagsværdi???
Kan du bruge en makro? - her er en model - til inspiration (måske):
Dim antalRæk, værdi, mindste, diff, mindsteDiff Private Sub worksheet_change(ByVal target As Excel.Range) If target.Row = 2 And target.Column = 3 And target.Value <> "" Then værdi = target.Value '"OpslagsVærdi" i C2 findNærmeste End If End Sub Private Sub findNærmeste() mindste = 0 mindsteDiff = 9999 antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
Cells(3, 3) = findVærdi(værdi) '"Resultat" i C3 End Sub Private Function findVærdi(værdi) For ræk = 1 To antalRæk diff = Abs(Cells(ræk, 1) - værdi)
If diff < mindsteDiff Then mindste = Cells(ræk, 1) 'liste i Kolonne A - også usorteret mindsteDiff = diff End If Next ræk findVærdi = mindste End Function
Function Tæt(Rng As Range, Selle) Dim x, y, z Application.Volatile z = 9999 For Each x In Rng If Abs(x - Selle) < z Then z = Abs(x - Selle): y = x Next Tæt = y End Function
i arket tast fx. =Tæt(A1:A500;B1) hvor tal du søger er i B1
supertekst/excelent: Jeg ønsker ikke at burges macros (det glemte jeg vist at skrive, sorry) janvogt: LOPSLAG kan ikke burges da listen er 2-dimentionel (matrix) kroholt: SLÅ.OP kan jeg ikke få til at virke mrjh: samme som janvogt, jeg kan kun få den til at virke på 1-dimentionelle lister
Jeg har ikke lige fået tjekket formlen i mrjh's sidste post, da jeg fandt en anden måde der virkede, men var mere besværlig. han kan godt få pointende, hvis han ligger et svar
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.