Λειτουργία ABS Abs

Περιγραφή Abs

Επιστρέφει την απόλυτη τιμή ενός αριθμού.

Απλά παραδείγματα Abs

123	Sub Abs_Example ()MsgBox Abs (-12.5)Τέλος υπο

Αυτός ο κωδικός θα επιστρέψει 12.5

Abs Syntax

Στο πρόγραμμα επεξεργασίας VBA, μπορείτε να πληκτρολογήσετε "Abs (" για να δείτε τη σύνταξη για τη συνάρτηση Abs:

Η συνάρτηση Abs περιέχει ένα όρισμα:

Αριθμός: Μια αριθμητική τιμή.

Παραδείγματα συνάρτησης Excel VBA Abs

μπορείτε να αναφέρετε ένα κελί που περιέχει ημερομηνία:

1234567

Sub Abs_Example1 ()Dim cell As RangeΓια κάθε κελί εντός εμβέλειας ("A2: A4")cell.Offset (0, 1) = Abs (cell.Value)Επόμενο κελίΤέλος υπο

Το αποτέλεσμα θα είναι το ακόλουθο. (Δείτε Β2: Β4)

Τα ακόλουθα 2 παραδείγματα και τα δύο θα επιστρέψουν 12.

1	MsgBox Abs (-12)

1	MsgBox Abs (12)

Για να βρείτε έναν αριθμό πλησιέστερο στο 2 όταν δίνεται ένας πίνακας αριθμών (1.5, 3.1, 2.1, 2.2, 1.8), μπορείτε να χρησιμοποιήσετε τον ακόλουθο κώδικα.

1234567891011121314151617181920

Sub Abs_Example2 ()Dim NumbersDim στοιχείοDim πιο κοντινή τιμή ως διπλόDim diff As DoubleDim minDiff As DoubleminDiff = 100Αριθμοί = πίνακας (1.5, 3.1, 2.1, 2.2, 1.8)Για κάθε στοιχείο σε αριθμούςdiff = Abs (στοιχείο - 2)Αν διαφέρει <minDiff ΤότεminDiff = διαφοράcloseestValue = στοιχείοΤέλος εανΕπόμενο στοιχείοMsgBox "Η πλησιέστερη τιμή:" & closeestValueΤέλος υπο

Το αποτέλεσμα θα είναι 2,1 ως εξής.