Abs Description
Vráti absolútnu hodnotu čísla.
Jednoduché príklady abs
123 | Sub Abs_Example ()Abs MsgBox (-12,5)Koniec pod |
Tento kód sa vráti 12.5
Abs syntax
V editore VBA môžete zadaním „Abs (“ zobraziť syntax funkcie Abs:
Funkcia Abs obsahuje argument:
Číslo: Číselná hodnota.
Príklady funkcie abs. Excel VBA
môžete odkazovať na bunku obsahujúcu dátum:
1234567 | Sub Abs_Example1 ()Dim bunka ako rozsahPre každú bunku v rozsahu („A2: A4“)cell.Offset (0, 1) = Abs (cell.Value)Ďalšia bunkaKoniec pod |
Výsledok bude nasledujúci. (Pozri B2: B4)
Nasledujúce 2 príklady vrátia 12.
1 | Abs MsgBox (-12) |
1 | Abs MsgBox (12) |
Ak chcete nájsť číslo najbližšie k 2, keď je zadané pole čísel (1,5, 3,1, 2,1, 2,2, 1,8), môžete použiť nasledujúci kód.
1234567891011121314151617181920 | Sub Abs_Example2 ()Tlmené číslaTmavá položkaStmaviť najbližšiu hodnotu ako dvojitúDim diff As DoubleDim minDiff As Doublemin. rozdiel = 100Čísla = pole (1,5, 3,1, 2,1, 2,2, 1,8)Pre každú položku v číslachdiff = abs (položka - 2)Ak je rozdiel <min. Rozdiel PotomminDiff = rozdielnearestValue = položkaKoniec AkNasledujúca položkaMsgBox „Najbližšia hodnota:“ & najbližšia hodnotaKoniec pod |
Výsledkom bude 2,1, ako je uvedené ďalej.