toda - formato texto vba

Cómo cambiar el formato de una celda a texto usando VBA

Question

Tengo una columna de "duración" en una hoja de Excel. Su formato de celda siempre cambia, quiero convertir la duración de minutos a segundos, pero debido al formato de celda siempre me da respuestas diferentes.

Estaba pensando que antes de hacer la conversión podría convertir ese formato de celda a texto para que lo considere como valor de texto y no intente auto-formatearlo.

Actualmente estoy copiando todos los datos en el Bloc de notas y luego guardándolos en la hoja de Excel para eliminar todo el formato anterior. ¿Hay alguna manera de automatizar el ajuste del formato de una celda al texto usando VBA?

Answer 1

Bueno, esto debería cambiar tu formato a texto.

Worksheets("Sheetname").Activate
Worksheets("SheetName").Columns(1).Select ''or Worksheets("SheetName").Range("A:A").Select
Selection.NumberFormat = "@"

Answer 2

Para responder a su pregunta directa, es:

Range("A1").NumberFormat = "@"

O

Cells(1,1).NumberFormat = "@"

Sin embargo, sugiero cambiar el formato a lo que realmente desea mostrar. Esto le permite retener el tipo de datos en la celda y usar fácilmente fórmulas de celda para manipular los datos.

Answer 3

Un punto: debe establecer la propiedad NumberFormat ANTES de cargar el valor en la celda. Tenía un número de nueve dígitos que todavía se mostraba como 9.14E + 08 cuando se configuró NumberFormat después de cargar la celda. Establecer la propiedad antes de cargar el valor hizo que el número apareciera como yo quería, como texto directo

O:

¿Podrías probar primero una autofit?
Excel_Obj.Columns ("A: V"). EntireColumn.AutoFit