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