Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA ότι αθροίζει τους αριθμούς ανά χρώμα.
Κατάσταση:
Δανείσατε χρήματα σε δύο δώδεκα άτομα. Μερικοί άνθρωποι το έχουν επιστρέψει (σε μαύρο χρώμα) και μερικοί εξακολουθούν να σας χρωστάνε χρήματα (κόκκινο). Θέλετε να μάθετε πόσα χρήματα εξακολουθείτε να λαμβάνετε.
1. Αρχικά, δηλώνουμε δύο μεταβλητές τύπου Integer. Ένα με όνομα toReceive και ένα με όνομα i. Αρχικοποιούμε τη μεταβλητή toReceive με τιμή 0.
Dim toReceive As Integer, i As Integer
toReceive = 0
2. Δεύτερον, ξεκινάμε ένα βρόχο For Next.
Για i = 1 έως 12
3. Τώρα ελέγχουμε κάθε αριθμό και μόνο αν το χρώμα του αριθμού είναι κόκκινο προσθέτουμε τον αριθμό στο toReceive.
Αν κελιά (i, 1) .Font.Color = vbRed Τότε
toReceive = toReceive + Cells (i, 1). Αξία
Τέλος εαν
4. Μην ξεχάσετε να κλείσετε το βρόχο.
Επόμενο i
5. Τέλος, εμφανίζουμε τα χρήματα που πρέπει να λάβουμε. Χρησιμοποιούμε τον τελεστή & για να συνδέσουμε (να ενώσουμε) δύο συμβολοσειρές. Αν και το toReceive δεν είναι συμβολοσειρά, λειτουργεί εδώ.
MsgBox "Ακόμα για να λάβετε" & toReceive & "dollar"
6. Τοποθετήστε τη μακροεντολή σας σε ένα κουμπί εντολών και δοκιμάστε την.
Αποτέλεσμα:
