Πώς να Limiit τον αριθμό των χαρακτήρων κειμένου σε ένα κελί του Excel 2007

; είσαι σε θέση να επικυρώσει την ποσότητα των δεδομένων που εισάγει ο χρήστης μπορεί να σας βοηθήσει να διατηρήσετε τον έλεγχο των δεδομένων σας σε ένα βιβλίο εργασίας του Excel . Στο Excel , μπορείτε να χρησιμοποιήσετε τη Visual Basic for Applications , επίσης γνωστή ως VBA , για να ελέγξετε την ποσότητα του χαρακτήρες που έχουν εισαχθεί σε ένα συγκεκριμένο κελί . Στην VBA μπορείτε να χρησιμοποιήσετε το " SelectionChange " εκδήλωση για να ελέγξετε όταν ο χρήστης μετακινείται από ένα κύτταρο στο άλλο . Μέσα από τη διαδικασία " SelectionChange " μπορείτε να χρησιμοποιήσετε το κύτταρα "Character " περιουσία για να πάρει τον αριθμό των χαρακτήρων στο κελί . Οδηγίες
Η 1

Εκκίνηση του Microsoft Office Excel 2007 και κάντε κλικ στην καρτέλα "Προγραμματιστής " . Κάντε κλικ στο εικονίδιο " Visual Basic " από τον " κώδικα " παράθυρο για να ανοίξει το Visual Basic Editor. " . Φύλλο1 " διπλό κλικ " Φύλλο1 " για την " Εξερεύνηση έργου " παράθυρο για να ανοίξετε τη μονάδα κώδικα για 2

Δημιουργήστε ένα νέο " SelectionChange " διαδικασία ρουτίνας , πληκτρολογώντας τον παρακάτω κώδικα VBA :

Private Sub Worksheet_SelectionChange ( ByVal Target As Range)
εικόνων 3

Δημιουργήστε μια μεταβλητή String που χρησιμοποιείται για να πάρει το κείμενο που καταχωρίζεται από τον χρήστη:

Dim userString As String
Η 4

Ξεκινήστε μια " Αν " δήλωση και να ελέγξετε αν οι χαρακτήρες που έχουν εισαχθεί σε «Α1», υπερβαίνει το 10 χαρακτήρες . Πληκτρολογήστε τον ακόλουθο κώδικα :

Αν Cells ( 1 , 1 ) Characters.Count > 10 Τότε
5

οθόνης ένα πλαίσιο μηνύματος , εάν οι χαρακτήρες πρέπει να υπερβαίνει το όριο των 10 χαρακτήρων . :

MsgBox " Α1 έχει ένα όριο 10 χαρακτήρων "
Η 6

πάρει την τιμή που εισάγει ο χρήστης και περικόψτε το 10 χαρακτήρες πληκτρολογώντας τον ακόλουθο κώδικα :

userString = Cells ( 1 , 1 ) . Value

userString = Left ( userString , 10 )
Η

7 Αποθηκεύστε το κομμένο σειρά πίσω στο " A1" και τέλος το " Αν " δήλωση:

Cells ( 1 , 1 ) Value = userString

End If
8

Ολοκληρώστε τη διαδικασία, πληκτρολογώντας τα εξής : .

End Sub
Η
εικόνων