Cuando se trabaja en una hoja de cálculo Microsoft Excel 2010, la forma en que el texto pueden ser muy importantes. Mientras que usted puede controlar la forma de introducción de texto en las celdas , si ha importado información de otra fuente , puede contener todo tipo de formato y caracteres que no desea en su hoja de cálculo. Si los datos se encuentra en todas las tapas y contiene puntuacion , puede utilizar VBA , el lenguaje incorporado en la programación, en escribir una macro rápida que va a cambiar la capitalización y eliminar todo signo de puntuacion de texto en la hoja de cálculo . Instrucciones
1
Abra la hoja de cálculo de Excel 2010 en el que desea eliminar puntuacion y utilizar un caso diferente. Haga clic en la pestaña de " desarrollador " en la parte superior de la pantalla. Haga clic en el botón " Grabar macro ", ubicado en el extremo izquierdo de la cinta .
2
Type " RemovePunctuationCaps " en el campo " Nombre de la macro " . Ingrese " q " en el campo "Clave de acceso directo" . Haga clic en " Aceptar " para cerrar la ventana. Haga clic en el botón " Stop" en la cinta para detener la grabación de la macro .
3
clic en el botón "Visual Basic " en la cinta para iniciar el editor de VBA. Haga doble clic en "Módulo 1 " en la parte izquierda del editor. Si ya ha creado un módulo en este libro , usted tendrá que hacer clic en el último módulo de la lista, en lugar de " Módulo 1 ". Verá " RemovePunctuationCaps Sub ()" en la parte derecha de la ventana.
4 Haga clic en la parte derecha de la ventana. Arrastre el puntero del ratón sobre el texto verde entre "Sub Quitar ... " y "End Sub ". Eliminar todo el texto para que los " End Sub " líneas " Sub " y es todo lo que existe.
5
Copia y pega el siguiente código entre el " End Sub " líneas en el "Sub " y VBA editor:
rng As Range
For Each rng En Selección
rng.Value = StrConv ( rng.Text , vbProperCase )
Siguiente rng
Esto establecerá una variable llamada " rng " y proporcione el código necesario para cambiar su selección en la caja apropiada. Si usted prefiere usar minúsculas , cambie " vbProperCase " para
6
Escriba el siguiente fragmento de código entre el último código y el " " End Sub "línea" vbLowerCase . "
< p> Con CreateObject ( " vbscript.regexp " )
. patrón = " [ ^ A- Za- z0- 9 \\ ]"
. Global = True
Para Cada rng En Selection.SpecialCells ( xlCellTypeConstants )
rng.Value = . Reemplazar ( rng.Value , vbNullString )
Siguiente rng
extremo con
esto eliminará toda la puntuacion de las celdas seleccionadas.
7
Haga clic en la "X " en la esquina superior derecha del editor para cerrarlo. Haga clic en la celda o celdas en las que tiene el texto que desea convertir. Pulse " Ctr- Q " y la macro ejecutará la tarea.
