Λειτουργίες υπόθεση σε VBA

Μάθετε τις λειτουργίες περίπτωση της VBA ώστε να μπορείτε να κεφαλαιοποιήσει αυτόματα ή να εφαρμόσει πεζών στο κείμενο , αντί να απαιτείται από τους χρήστες του προγράμματός σας για να το κάνετε χειροκίνητα . Μάθετε την « Select Case " δήλωση να μειωθεί ο συνωστισμός στον κώδικά σας . Η γνώση που έχετε κερδίσει από την εκμάθηση αυτών των καταστάσεων μπορεί να σας βοηθήσει γραπτώς δηλώσεις έθιμο περίπτωση , όπως αυτές που αγνοούν λέξεις όπως "η " και " ένα " για να παράγουν τη σωστή κεφαλαιοποίηση στις επικεφαλίδες του εγγράφου . UCase
Η

Η συνάρτηση VBA UCase μετατρέπει το κείμενο της ενιαίας επιχειρηματολογία του σε όλα τα κεφαλαία γράμματα . Για παράδειγμα , το τρέξιμο τη δήλωση " Debug.Print UCase ( " γεια " ) θα οδηγήσει σε " ΓΕΙΑ ". Δεν χρειάζεται ένα πρόγραμμα για να δοκιμάσετε αυτό , αλλά μπορείτε να εκτελέσετε το παράδειγμα που μόλις δοθεί από την VBA " παράθυρο Άμεση " . Ανοίξτε το περιβάλλον προγραμματισμού VBA , κάνοντας κλικ στο κουμπί " Visual Basic" στην καρτέλα Προγραμματιστής , στη συνέχεια, πατήστε το κουμπί " Άμεση " στοιχείο στο μενού Παράθυρο VBA. Πληκτρολογήστε το "debug " δήλωση που μόλις περιέγραψα δείτε να εμφανίζεται το " ΓΕΙΑ " κείμενο .
λειτουργία LCase
Η LCase
Η

VBA μετατρέπει το κείμενο εισόδου σε όλα τα πεζά , το οποίο είναι χρήσιμο εάν θέλετε να συγκρίνετε συμβολοσειρές κειμένου με διαφορετικές περιπτώσεις . για παράδειγμα , εάν το πρόγραμμά σας έχει μια μεταβλητή "x " η αξία των οποίων είναι "Hello" και τιμή " y ", του οποίου η τιμή είναι " Γεια σας ", τότε η σύγκριση "x = y " θα επιστρέψει " False ", διότι οι υποθέσεις δεν ταιριάζουν . η σύγκριση " LCase ( x ) = LCase ( y ) " θα δώσει " True ", ωστόσο, επειδή η δήλωση αλλάζει την κατάσταση όλων των επιστολών για να μειώσει .

Η Select Case
Η

η Επιλέξτε τη λειτουργία υπόθεση αντικαθιστά αρκετά , αν τότε καταστάσεις. η πρόταση Select Case δοκιμάζει μια μεταβλητή , ενώ οι δηλώσεις ατομική υπόθεση παρέχει κανάλια για την εκτέλεση του προγράμματος με βάση τα αποτελέσματα των δοκιμών . μπορείτε να έχετε πολλές δηλώσεις υπόθεση , όπως απαιτείται . Εάν θέλετε να βεβαιωθείτε ότι το πρόταση Select Case πιάνει όλες τις πιθανές συνθήκες , να περιλαμβάνει πρόταση Case Else πριν από την ανακοίνωση End Select . ένα παράδειγμα δείχνει πώς λειτουργεί Select Case .

Public Sub TestCase ( )

Dim ηλικία

ηλικία = InputBox ( "Παρακαλώ εισάγετε την ηλικία σας . " )

Select Case ηλικία

υπόθεση 13 έως 19 :

MsgBox " . είσαι ένας έφηβος "

υπόθεση 20 έως 29 :

MsgBox " είσαι στα είκοσί σας "

υπόθεση είναι > = 30 :

MsgBox " είσαι πάνω 30 . " γλώσσα VBA

End Select

End Sub
εικόνων του Word υπόθεση Ακινήτου
Η

Microsoft Word έχει μια λειτουργία που μοιάζει με το ακίνητο που ονομάζεται «υπόθεση» για την εφαρμογή του τίτλου , πρόταση και άλλες περιπτώσεις στο κείμενο. για να δείτε αυτό το ακίνητο σε δράση , πληκτρολογήστε κάποιο πεζό κείμενο σε ένα νέο έγγραφο , και επιλέξτε αυτό το κείμενο κάνοντας διπλό κλικ . Κάντε κλικ στην καρτέλα και, στη συνέχεια του Word "Προγραμματιστής " κάντε κλικ στο κουμπί " Visual Basic" για να μπείτε στο περιβάλλον προγραμματισμού VBA . Επικολλήστε τον ακόλουθο πρόγραμμα σε κεντρικό παράθυρο του περιβάλλοντος. Αυτό το πρόγραμμα χρησιμοποιεί το ακίνητο υπόθεση του Word για να μετατρέψετε το επιλεγμένο κείμενο πρώτα να καταδικάσει την περίπτωση , στη συνέχεια, στην υπόθεση τίτλος . Εκτελέστε το πρόγραμμα πατώντας "F5 . " Το κείμενο που επιλέξατε θα αλλάξει την περίπτωση κάθε φορά που πατάτε το " Enter".

γ. ( )

MsgBox ( "Εδώ είναι υπόθεση φράση ... " )

Selection.Range.Case = wdTitleSentence

MsgBox ( " Πατήστε " Enter " για να δείτε την περίπτωση του τίτλου " )

Selection.Range.Case = wdTitleWord

End Sub
Η
εικόνων