Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> software >> Microsoft Access >> .

Come Limiit il numero di caratteri di testo in una cella di Excel 2007

? Essere in grado di convalidare la quantità di dati inseriti da un utente può aiutare a mantenere il controllo dei dati in una cartella di lavoro di Excel . In Excel è possibile utilizzare Visual Basic, Applications Edition , noto anche come VBA , per controllare la quantità di caratteri inseriti in una determinata cella . In VBA è possibile utilizzare l' evento " SelectionChange " per verificare se l'utente ha spostato da una cella all'altra. All'interno della procedura di " SelectionChange " è possibile utilizzare la proprietà Cells "Character " per ottenere il numero di caratteri nella cella . Istruzioni
1

lancio di Microsoft Office Excel 2007 e fare clic sulla scheda " sviluppatori" . Fare clic sull'icona " Visual Basic " dal riquadro "Codice" per aprire l'editor di Visual Basic. . " Foglio1 " doppio clic su " Foglio1 " nel riquadro " Gestione progetti " per aprire il modulo di codice per
2

Creare un nuovo " SelectionChange " procedura sub digitando il seguente codice VBA :

Worksheet_SelectionChange private Sub ( obiettivo di ByVal come gamma )
3

creare una variabile String utilizzato per ottenere il testo immesso dall'utente :

Dim UserString As String
4

Avviare un "if" e verificare se i caratteri inseriti in " A1" superano i 10 caratteri. Digitare il seguente codice :

Cells ( 1 , 1 ) Characters.Count > 10 Allora
5

visualizzare un messaggio se i personaggi superano il limite di 10 caratteri . :

MsgBox "A1 ha un limite di 10 caratteri "
6

Prendi il valore immesso dall'utente e tronca a 10 caratteri , digitando il seguente codice :

UserString = Cells ( 1 , 1) . Valore

UserString = Sinistra ( UserString , 10 ) economici 7

Salva la stringa troncata torna a "A1" e terminare il " Se " dichiarazione: .

Cells ( 1 , 1 ) = valore UserString

End If
8

Fine della procedura digitando il seguente :

End Sub

 

software © www.354353.com