Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA που μπορει αντίστροφες χορδές.
Κατάσταση:
Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:
1. Αρχικά, δηλώνουμε τέσσερις μεταβλητές. Μία μεταβλητή που ονομάζεται κείμενο τύπου συμβολοσειράς, μία μεταβλητή που ονομάζεται reversedText επίσης τύπου string, μία μεταβλητή που ονομάζεται μήκος τύπου Integer και μία μεταβλητή που ονομάζεται i του τύπου Integer.
Χαμηλό κείμενο ως συμβολοσειρά, αντίστροφο Κείμενο ως συμβολοσειρά, μήκος ως ακέραιος, και ως ακέραιος
2. Αρχικοποιούμε δύο μεταβλητές. Χρησιμοποιούμε τη συνάρτηση InputBox για να λάβουμε μια συμβολοσειρά κειμένου από τον χρήστη. Χρησιμοποιούμε τη συνάρτηση Len στο Excel VBA για να πάρουμε το μήκος μιας συμβολοσειράς.
text = InputBox ("Εισαγάγετε το κείμενο που θέλετε να αντιστρέψετε")
μήκος = Len (κείμενο)
3. Ξεκινάμε ένα βρόχο For Next.
Για i = 0 Σε μήκος - 1
4. Τώρα έρχεται το απλό κόλπο. Παίρνουμε τον τελευταίο χαρακτήρα από το κείμενο και τον τοποθετούμε στο μπροστινό μέρος του ReversedText. Μπορούμε να χρησιμοποιήσουμε τη συνάρτηση Mid στο Excel VBA για να εξαγάγουμε έναν χαρακτήρα από μια συμβολοσειρά. Χρησιμοποιούμε τον τελεστή & για να συνδέσουμε (να ενώσουμε) δύο συμβολοσειρές.
reversedText = reversedText & Mid (κείμενο, (μήκος - i), 1)
5. Μην ξεχάσετε να κλείσετε το βρόχο.
Επόμενο i
Παράδειγμα: text = "Car". Το μήκος του κειμένου είναι 3. Για i = 0 έως 2, εξάγουμε το υποσύρματο του κειμένου ξεκινώντας από το μήκος θέσης - i με μήκος 1. Έτσι, για i = 0, το Mid (κείμενο, 3, 1) ισούται με r. Τοποθετούμε το r στην πρώτη θέση του reversedText. Για i = 1, το Mid (κείμενο, 2, 1) ισούται με a. Προσθέτουμε ένα στο reversedText που γίνεται ra. Για i = 2, το Mid (κείμενο, 1, 1) ισούται με C. Προσθέτουμε C στο reversedText που γίνεται raC.
6. Τέλος, εμφανίζουμε το reversedText χρησιμοποιώντας ένα MsgBox.
msgbox reversedText
7. Δοκιμάστε το πρόγραμμα.
Αποτέλεσμα:
