Wie Limiit die Anzahl der Zeichen in einer Excel 2007-Zelle?

July 25

Wie Limiit die Anzahl der Zeichen in einer Excel 2007-Zelle?

Wird den Betrag der vom Benutzer eingegebenen Daten zu überprüfen, helfen Ihnen die Kontrolle über Ihre Daten in einer Excel-Arbeitsmappe zu halten. In Excel können Sie Visual Basic für Applikationen, auch bekannt als VBA, um die Menge des in einer bestimmten Zelle eingegebenen Zeichen zu überprüfen. In VBA können Sie das Ereignis "SelectionChange" um zu überprüfen, wenn der Benutzer aus einer Zelle zu einer anderen verschoben. Innerhalb der Prozedur "SelectionChange" können Sie die Eigenschaft Zellen "Zeichen", um die Anzahl der Zeichen in der Zelle zu erhalten.

Anweisungen

1 Starten Sie Microsoft Office Excel 2007 zu, und klicken Sie auf die Registerkarte "Entwickler" und klicken Sie auf das Symbol "Visual Basic", "Code" im Bereich Visual Basic-Editor zu öffnen. Doppelklicken Sie auf "Tabelle1" im Bereich "Projekt-Explorer" Öffnen Sie das Modul mit Code für "Sheet1."

2 Erstellen Sie eine neue "SelectionChange" Sub-Prozedur, indem Sie den folgenden VBA-Code eingeben:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

3 Erstellen einer String-Variablen verwendet, um den vom Benutzer eingegebenen Text abzurufen:

Dim userString As String4

Starten Sie "If"-Anweisung zu und prüfen Sie, ob in "A1" eingegebenen Zeichen länger als 10 Zeichen sein. Geben Sie den folgenden Code:

If Cells(1, 1).Characters.Count > 10 Then5

Ein Meldungsfeld wird angezeigt, wenn die Zeichen die 10 Zeichen überschreiten:

MsgBox "A1 has a limit of 10 characters"6

Erhalten Sie den vom Benutzer eingegebenen Wert zu und abgeschnitten Sie es auf 10 Zeichen, indem Sie den folgenden Code eingeben:

userString = Cells(1, 1).Value

userString = Left(userString, 10)7

Speichern der abgeschnittenen Zeichenfolge wieder in "A1" und die "If"-Anweisung zu beenden:

Cells(1, 1).Value = userString

End If8

Beenden Sie die Prozedur, indem Sie Folgendes eingeben:

EndSub