Justin tiene números de pieza que usa habitualmente en una hoja de trabajo, como 660501C016971. Le gustaría aplicar un formato personalizado a la celda y que el número de pieza se muestre automáticamente con guiones en la ubicación adecuada, como 6605-01-C01-6971.

Desafortunadamente, esto no se puede hacer con un formato personalizado. ¿Por qué? Porque los formatos personalizados son para mostrar números, no texto. Hay un formato de texto, designado por el símbolo «arroba» (@), pero eso es todo; no hay otros y no se pueden definir otros.

Dado que no se pueden usar formatos personalizados, queda uno por encontrar una solución. Una forma de hacerlo es examinar los números de pieza y ver si la parte de texto del número se puede eliminar y el número de pieza aún se puede utilizar. Por ejemplo, el número de Justin es 660501C016971. Si el formato del número de pieza siempre requiere la letra C en el mismo punto del número de pieza (y no hay otras letras posibles allí), entonces simplemente puede eliminar la C y quedarse con el número 660501016971. , puede desarrollar un formato personalizado que incluya guiones en los lugares adecuados y la letra C en el lugar adecuado. El formato personalizado se vería así:

0000-00-C00-0000

Con el formato aplicado a una celda que contiene el número 660501016971, terminaría mostrando un número de pieza con el formato correcto:

6605-01-C01-6971. Sin embargo, este enfoque tiene inconvenientes. El mayor inconveniente es que si alguna vez desea exportar los números de pieza a otro programa, tal vez como un archivo CSV, lo que termina exportando es el número original sin el formato o la letra C.

Otra solución es utilizar una fórmula para mostrar los números de pieza en el formato que desee. Puede ingresarlos en una celda sin guiones y luego usar la fórmula para agregar los guiones en los lugares apropiados.

Entonces, al crear informes, simplemente debería ocultar la columna que contiene los números de pieza sin los guiones. Aquí hay una fórmula que funcionará, siempre que el número de pieza sin guiones esté en la celda A1:

=LEFT(A1,4) & "-" & MID(A1,5,2) & "-" & MID(A1,7,3) & "-" & RIGHT(A1,4)

Si trabaja bastante con los números de pieza, es posible que desee una forma de agregar y eliminar los guiones fácilmente. La mejor forma de hacerlo es con una macro. Puede desarrollar una macro que le permitirá agregar y eliminar los guiones de un número de pieza en un rango seleccionado de celdas. El siguiente es un ejemplo de tal macro.

Sub DashesIn()

DoDashes ("In")

End Sub
Sub DashesOut()

DoDashes ("Out")

End Sub
Private Sub DoDashes(What As String)

Dim c As Range     Dim J As Integer

For Each c In Selection.Cells         If c.Value <> "" Then             J = InStr(c.Value, "-")

Select Case What                 Case "Out"

While J > 0                         c.Value = Left(c.Value, J - 1) & _                           Mid(c.Value, J + 1, Len(c.Value))

J = InStr(c.Value, "-")

Wend                 Case "In"

If J = 0 Then                         c.Value = _                           Left(c.Value, 4) & "-" & _                           Mid(c.Value, 5, 2) & "-" & _                           Mid(c.Value, 7, 3) & "-" & _                           Right(c.Value, 4)

End If             End Select         End If     Next c End Sub

Tenga en cuenta que en realidad hay tres macros en esta lista. El primero (DashesIn) agrega guiones a un número de pieza, mientras que el segundo (DashesOut)

los elimina. Simplemente seleccione las celdas que contienen los números de pieza y luego ejecute la macro que realizará la operación que desea realizar.

Tanto DashesIn como DashesOut llaman a la rutina común, DoDashes, para hacer el trabajo. La macro examina todas las celdas de la selección y luego realiza cualquier operación que deba realizarse en el contenido de esas celdas.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (3231) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Using_a_Custom_Format_to_Add_Dashes [Usando un formato personalizado para agregar guiones].