Opis aps
Vraća apsolutnu vrijednost broja.
Primjeri jednostavnih aps
123 | Sub Abs_Example ()MsgBox Abs (-12,5)Kraj podm |
Ovaj kôd će vratiti 12.5
Sintaksa Abs
U VBA Editor -u možete upisati "Abs (" da vidite sintaksu za funkciju Abs:
Funkcija Abs sadrži argument:
Broj: Numerička vrijednost.
Primjeri funkcije Excel VBA Abs
možete referencirati ćeliju koja sadrži datum:
1234567 | Sub Abs_Primjer1 ()Prigušena ćelija kao rasponZa svaku ćeliju u rasponu ("A2: A4")cell.Offset (0, 1) = Abs (cell.Value)Sljedeća ćelijaKraj podm |
Rezultat će biti sljedeći. (Pogledajte B2: B4)
Sljedeća 2 primjera vraćaju 12.
1 | MsgBox Abs (-12) |
1 | MsgBox Abs (12) |
Da biste pronašli broj najbliži 2 kada je dat niz brojeva (1.5, 3.1, 2.1, 2.2, 1.8), možete koristiti sljedeći kod.
1234567891011121314151617181920 | Sub Abs_Example2 ()Zatamnjeni brojeviZatamnjena stavkaZatamni najbližuVrijednost kao dvostrukoDim diff As DoubleDim minDiff kao dvostrukominDiff = 100Brojevi = niz (1.5, 3.1, 2.1, 2.2, 1.8)Za svaku stavku u brojevimadiff = Abs (stavka - 2)Ako je razlika <minDiff TadaminDiff = razlikanajbliža vrijednost = stavkaZavrši akoSljedeća stavkaMsgBox "Najbliža vrijednost:" & najbližaVrednostKraj podm |
Rezultat će biti 2.1 kako slijedi.