Abs Popis
Vrátí absolutní hodnotu čísla.
Jednoduché příklady abs
| 123 | Sub Abs_Example ()Abs MsgBox (-12,5)End Sub |
Tento kód vrátí 12.5
Abs syntaxe
V editoru VBA můžete zadat „Abs (“ a zobrazit syntaxi pro funkci Abs:
Funkce Abs obsahuje argument:
Číslo: Číselná hodnota.
Příklady funkce Excel VBA Abs
můžete odkazovat na buňku obsahující datum:
| 1234567 | Sub Abs_Example1 ()Dim buňka jako rozsahPro každou buňku v dosahu ("A2: A4")cell.Offset (0, 1) = Abs (cell.Value)Další buňkaEnd Sub |
Výsledek bude následující. (Viz B2: B4)
Následující 2 příklady vrátí 12.
| 1 | Abs MsgBox (-12) |
| 1 | Abs MsgBox (12) |
Chcete -li najít číslo nejblíže 2, když je zadáno pole čísel (1,5, 3,1, 2,1, 2,2, 1,8), můžete použít následující kód.
| 1234567891011121314151617181920 | Sub Abs_Example2 ()Dim NumbersTmavá položkaZtlumit nejbližší hodnotu jako dvojnásobekDim diff As DoubleDim minDiff As Doublemin. rozdíl = 100Čísla = pole (1,5, 3,1, 2,1, 2,2, 1,8)Pro každou položku v číslechdiff = Abs (položka - 2)Pokud je rozdíl <minDiff ThenminDiff = rozdílnearestValue = položkaKonec IfDalší položkaMsgBox "Nejbližší hodnota:" & nejbližší hodnotaEnd Sub |
Výsledkem bude 2.1.
