[Spirosgr]

Καλησπέρα
Χωρίς να εξετάσουμε αν όλοι οι κώδικες του παρόντος βιβλίου είναι σωστοί,
ο τρόπος για να "μαζέψουμε" πολλούς αυτοματισμούς σε ένα κουμπί είναι ο εξής:
Έστω ότι έχουμε την εντολή sub doSomething () σε ένα κουμπί α'
την εντολή sub doMore () σε ένα κουμπί β' και
την εντολή sub ExecuteThat () σε ένα κουμπί γ'
Δημιουργούμε μια νέα συγκεντρωτική εντολή
στην οποία τοποθετούμε ως γραμμές κώδικα τις ονομασίες των 3 επιμέρους εντολών.
Παράδειγμα:
sub AllinOneMacro ()
doSomething
doMore
ExecuteThat
End sub
Εδώ πρέπει να προσεχθεί η σειρά που θα εκτελεστούν οι επιμέρους κώδικες.
Αν για παράδειγμα η doSomething εκτυπώνει και η doMore ταξινομεί τα προς εκτύπωση
πρέπει να αλλάξει η σειρά που θα εκτελεσθούν.
Παράδειγμα:
sub AllinOneMacro ()
doMore
doSomething
ExecuteThat
End sub
Τέλος συνδέουμε την νέα συγκεντρωτική εντολή σε ένα κουμπί δ'.
Αν δεν χρειαζόμαστε όλες ή κάποιες από τις επιμέρους ενέργειες να εκτελούνται και χωριστά
(για κάποιο λόγο) καταργούμε τα κουμπιά α', β', και γ' ή μέρος των κουμπιών.