Cómo Limiit el número de caracteres de texto en una celda de Excel 2007?

Ser capaz de validar la cantidad de los datos introducidos por un usuario puede ayudar a mantener el control de sus datos en un libro de Excel. En Excel puede utilizar Visual Basic para aplicaciones, también conocidos como VBA, para comprobar la cantidad de caracteres introducidos en una célula particular. En VBA puede utilizar el evento "SelectionChange" para comprobar si el usuario pasó de una célula a otra. Dentro del procedimiento "SelectionChange" se pueden utilizar las células "Carácter" propiedad para obtener el número de caracteres en la celda.

Instrucciones

1 Lanzamiento de Microsoft Office Excel 2007 y haga clic en la pestaña "desarrollador". Haga clic en el icono de "Visual Basic" en el panel "código" para abrir el Editor de Visual Basic. Haga doble clic en "Hoja1" en el panel "Explorador de proyectos" para abrir el módulo de código para "Sheet1".

2 Crear un nuevo "SelectionChange" procedimiento sub escribiendo el siguiente código VBA:

Private Sub Worksheet_SelectionChange (blanco de ByVal como gama)

3 Crear una variable de cadena que se utiliza para obtener el texto introducido por el usuario:

Dim userString As String

4 Iniciar un "if" y comprobar si los caracteres introducidos en "A1" superan los 10 caracteres. Escriba el siguiente código:

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

5 Muestra un cuadro de mensaje si los personajes superan el límite de 10 caracteres:

MsgBox "A1 has a limit of 10 characters"

6 Obtener el valor introducido por el usuario y trunca a 10 caracteres escribiendo el siguiente código:

userString = Cells(1, 1).Value

UserString = Izquierda (userString, 10)

7 Guarde la cadena truncada de nuevo en "A1" y poner fin al "Si" declaración:

Cells(1, 1).Value = userString

Terminara si

8 Terminar el procedimiento escribiendo lo siguiente:

End Sub