? In der Lage , die Menge der Daten, die von einem Benutzer eingegeben kann Ihnen helfen, die Kontrolle über Ihre Daten in einer Excel-Arbeitsmappe zu validieren. In Excel können Sie Visual Basic für Applikationen , die auch als bekannt VBA verwenden , um die Anzahl der Zeichen in einer bestimmten Zelle eingegeben überprüfen . In VBA können Sie die " SelectionChange " Ereignis , um zu überprüfen , wenn der Benutzer bewegt von einer Zelle zur anderen. Im Inneren des " SelectionChange "-Verfahren können Sie die Zellen "Character" -Eigenschaft, um die Anzahl der Zeichen in der Zelle zu erhalten. Anleitung
1
Starten Sie Microsoft Office Excel 2007 und klicken Sie auf die Registerkarte "Entwicklertools" . Klicken Sie auf " Visual Basic " -Symbol aus dem "Code" Fenster, um den Visual Basic- Editor zu öffnen. " . Tabelle1 " Double -click " Tabelle1 " auf der " Projekt-Explorer " Fenster, um den Code -Modul für offene
2
Neues " SelectionChange " Sub-Prozedur , indem Sie den folgenden VBA-Code :
private Sub Worksheet_Change (ByVal Target As Range)
3
erstellen String-Variable verwendet, um den Text vom Benutzer eingegebenen bekommen :
Dim userString As String
4
starten Sie eine "If" -Anweisung und überprüfen, ob die Charaktere in "A1" eingetragen 10 Zeichen nicht überschreiten. Geben Sie den folgenden Code:
Wenn Cells (1, 1 ) Characters.Count > 10 Dann
5
eine Meldung angezeigt , wenn die Zeichen die Grenze von 10 Zeichen nicht überschreiten. :
MsgBox " A1 hat ein Limit von 10 Zeichen "
6
sie den Wert vom Anwender eingegeben und kürzen es auf 10 Zeichen , indem Sie den folgenden Code:
< p > userString = Cells (1 , 1). Wert
userString = Left ( userString , 10)
7
Speichern Sie die abgeschnittenen String zurück in "A1" und das Ende der "If" Erklärung : .
Cells (1, 1 ) Wert = userString
End If
8
Ende das Verfahren durch folgende Eingabe:
End Sub
