Visual Basic para Aplicaciones - formato de celdas excel

Life is soft - evento anual de software empresarial
 
Vista:

formato de celdas excel

Publicado por Monica (3 intervenciones) el 21/11/2002 19:50:29
Quisiera saber como seria la linea de codigo de visual basic para darle un formato a una columna de excel ejem el nro es 2 y lo quiero en la celda de excel como 002.....GRACIAS a quien me pueda ayudar!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:formato de celdas excel

Publicado por Leonel (11 intervenciones) el 22/11/2002 04:14:52
No necesitas codigo para formater una celda como tu quieres,
no se que version de office tengas en la XP viene un formato numerico llamao especial que formatea como tu quieres, esta es para codigos potales de España.
Ahora si no viene en tu office este formato haz lo siguiente
pon un numero cualquiera en cualquier celda, selecciona esta celda,
En el menu selecciona
1.-Formato->Celdas...
2.- en el dialogo hasta abjo en la lista selecciona personalizar,
3.- A la derecha aprece una lista, con un textbox encima que dice Estándar.
4.- Borra Estándar.
5.- pon cuantos ceros quieras.
6.- presiona Aceptar. y ve el resultado.
este formato solo es para este libro, si lo deseas en otros libro lo vuelves a crear

espero te sea de Ayuda
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:formato de celdas excel

Publicado por Manuel Pastrana (2 intervenciones) el 11/12/2002 16:07:47
Dato=2
With x1Hoja.Cells(Fila, Columna)
.Select
.Value = rsGranValorRiesgo!Tasa_Dt
.NumberFormat = "00#,##0"
End With

o

Número=2
Dato=trim(str(Número))

if Len(Dato)<3 then
for x%=3 to Len(Dato)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:formato de celdas excel

Publicado por Manuel Pastrana (2 intervenciones) el 11/12/2002 16:08:42
Dato=2
With x1Hoja.Cells(Fila, Columna)
.Select
.Value = Dato
.NumberFormat = "00#,##0"
End With

o

Número=2
Dato=trim(str(Número))

if Len(Dato)<3 then
for x%=3 to Len(Dato)
Dato="0" & Dato
next x%
With x1Hoja.Cells(Fila, Columna)
.Select
.Value = Dato
End With
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar