Abs Opis
Zwraca wartość bezwzględną liczby.
Proste przykłady abs
123 | Sub Abs_Przykład()MsgBox Abs(-12,5)Napis końcowy |
Ten kod zwróci 12,5
Składnia abs
W Edytorze VBA możesz wpisać „Abs (”, aby zobaczyć składnię funkcji Abs:
Funkcja Abs zawiera argument:
Numer: Wartość liczbowa.
Przykłady funkcji Excel VBA Abs
możesz odwołać się do komórki zawierającej datę:
1234567 | Sub Abs_Przykład1()Przyciemnij komórkę jako zakresDla każdej komórki w zakresie ("A2:A4")cell.Offset(0, 1) = Abs(komórka.Wartość)Następna komórkaNapis końcowy |
Wynik będzie następujący. (patrz B2:B4)
Poniższe 2 przykłady zwrócą 12.
1 | MsgBox Abs(-12) |
1 | MsgBox Abs(12) |
Aby znaleźć liczbę najbliższą 2, gdy podana jest tablica liczb (1.5, 3.1, 2.1, 2.2, 1.8), możesz użyć następującego kodu.
1234567891011121314151617181920 | Sub Abs_Przykład2()Liczby przyciemnionePrzyciemnij elementPrzyciemnij najbliżejWartość jako podwójnaDim diff jako podwójnyPrzyciemnij minDiff jako podwójneminRóżn. = 100Liczby = Tablica (1.5, 3.1, 2.1, 2.2, 1.8)Dla każdego przedmiotu w liczbachdiff = Abs(element - 2)Jeśli diff < minDiff WtedyminRóżn = różnicanajbliższa wartość = pozycjaZakończ, jeśliNastępny przedmiotMsgBox "Najbliższa wartość: " i najbliższaWartośćNapis końcowy |
Wynik będzie 2.1 jak poniżej.