Inhoudsopgave
Abs Beschrijving:
Retourneert de absolute waarde van een getal.
Voorbeelden van eenvoudige buikspieren
| 123 | Sub Abs_Example()MsgBox Abs(-12.5)Einde sub |
Deze code retourneert 12.5
Abs-syntaxis
In de VBA-editor kunt u "Abs(" typen om de syntaxis voor de Abs-functie te zien:
De functie Abs bevat een argument:
Nummer: Een numerieke waarde.
Voorbeelden van Excel VBA Abs-functie
u kunt verwijzen naar een cel die een datum bevat:
| 1234567 | Sub Abs_Example1()Dim cel als bereikVoor elke cel binnen bereik ("A2:A4")cel.Offset(0, 1) = Abs(cel.Waarde)Volgende celEinde sub |
Het resultaat is als volgt (zie B2:B4)
De volgende 2 voorbeelden geven beide 12 terug.
| 1 | MsgBox Abs(-12) |
| 1 | MsgBox Abs(12) |
Om een getal te vinden dat het dichtst bij 2 ligt wanneer een getallenreeks (1.5, 3.1, 2.1, 2.2, 1.8) wordt gegeven, kun je de volgende code gebruiken.
| 1234567891011121314151617181920 | Sub Abs_Example2()Gedimde nummersGedimd itemDim dichtstValue As DoubleDim diff als dubbelDim min Verschil als dubbelminDiff = 100Getallen = Matrix (1.5, 3.1, 2.1, 2.2, 1.8)Voor elk item in cijfersdiff = Abs(item - 2)Als diff < minDiff DanminDiff = diffdichtstbijzijnde waarde = itemStop alsVolgende itemMsgBox "De dichtstbijzijnde waarde: " & closeValueEinde sub |
Het resultaat is 2.1 als volgt.
