Δημιουργία τέσσερις μεταβλητές που θα χρησιμοποιήσετε για να ελέγξετε για ένα χαρακτήρα tab πληκτρολογώντας τον ακόλουθο κώδικα VBA :
Dim tabString Όπως String Dim
χαρα Όπως String
Dim μήκος As Integer
Dim xCntr As Integer 2
Προσθέστε ένα string με μια καρτέλα με το " tabString " μεταβλητή με την προσθήκη του παρακάτω κώδικα :
tabString = " καλό " και vbTab & " πρωί"
εικόνων 3
Αποκτήστε το μήκος της συμβολοσειράς πληκτρολογώντας τα ακόλουθα :
μήκος = Len ( tabString )
Η 4
Loop μέσα από κάθε χαρακτήρα της συμβολοσειράς και ελέγξτε για το χαρακτήρα χρησιμοποιώντας την καρτέλα " ( 9 ) Χρ " λειτουργία με την προσθήκη του παρακάτω κώδικα VBA :
χαρακτήρας = Αριστερά ( tabString , 1 )
Για xCntr = 0 Για μήκος - 1
tabString = Δεξιά ( tabString , Len ( tabString ) - 1 )
Αν char = Chr ( 9 ) στη συνέχεια
MsgBox " Αριθμός ευρετηρίου " & xCntr & "είναι μια καρτέλα στο String . "
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα