Η συνάρτηση που μας υπολογίζει το βάρος ανά μέτρο μήκους οπλισμού ανάλογα με την διάμετρο (σε mm) περιγράφεται αμέσως παρακάτω :
Function baros(d) As Double
baros = 3.14159 * (d / 10) ^ 2 / 4 * 0.783
End Function
Με Alt - F11 μεταβαίνουμε σε φάση γραφής κώδικα VBA και με Insert Module ξεκινάμε την νέα συνάρτηση η οποία μπορεί να καλείται κανονικά όπως οι υπόλοιπες συναρτήσεις του Excel .
Κατεβάστε από εδώ ένα απλό και ενδεικτικό παράδειγμα. Είναι συμβατό με Excel 2007 .
Το παράδειγμα ήδη περιέχει την συνάρτηση baros . Απλά είναι ενδεικτικό και πολύ απλό , σε γενική μορφή και ο καθένας μπορεί να το τροποποιήσει κατά βούληση .
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου