? Å kunne validere mengden data som registreres av en bruker kan hjelpe deg å holde kontroll over dine data i en Excel-arbeidsbok . I Excel kan du bruke Visual Basic for Applications , også kjent som VBA , for å sjekke hvor mye som ble skrevet inn i en bestemt celle . I VBA kan du bruke " SelectionChange " hendelse for å sjekke når brukeren flyttes fra en celle til en annen. Inne i " SelectionChange " prosedyre kan du bruke celler " Character" eiendom for å få antall tegn i cellen. Instruksjoner
en
Launch Microsoft Office Excel 2007 og klikk på "Utvikler " fanen . Klikk på " Visual Basic "-ikonet fra " Code" -panelet for å åpne Visual Basic Editor . ». Ark1 " Dobbeltklikk på " Ark1 " på "Project Explorer »-panelet for å åpne koden modul for
2
Opprett en ny " SelectionChange " sub prosedyren ved å skrive følgende VBA -kode:
Private Sub Worksheet_SelectionChange ( ByVal Target As Range )
3
Lag en String variabel som brukes for å få teksten inn av brukeren : en
Dim userString As String
4
starte en "hvis " statement og sjekk om de ble skrevet inn i "A1" overstige 10 tegn. Skriv inn følgende kode :
p Hvis Cells ( 1 , 1 ) Characters.Count > 10 Da
5
vise en meldingsboks om tegnene overstiger grensen på 10 tegn . :
MsgBox " A1 har en grense på 10 tegn "
6
Få verdien angitt av brukeren og avkorte den til 10 tegn ved å skrive følgende kode :
< p > userString = Cells ( 1 , 1 ) . Verdi
userString = Venstre ( userString , 10 )
7
Lagre den avkortede strengen tilbake i "A1" og avslutte "If" uttalelse: .
Cells ( 1 , 1 ) Verdi = userString
End If
8
End prosedyren ved å skrive følgende : en
End Sub