** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - inputbox
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoinputbox

 Responder Responder
Autor
Mensaje
Manuel08 Ver desplegable
Asiduo
Asiduo


Unido: 09/Septiembre/2008
Estado: Sin conexión
Puntos: 304
Enlace directo a este mensaje Tema: inputbox
    Enviado: 09/Noviembre/2010 a las 11:06
Saludos, bueno tengo este código y quisiera que los datos que indico tengan un formato pero no sé cómo hacer para que los cumpla; ya que si pongo 2,3 o 2,33 lo hace correctamente; pero si pongo 2,333 me lo toma por miles.

dim a as variant
a = InputBox("Indique el coste unitario", "Coste por unidad o kilos")
Range("A2:A500") = a

Cómo podría decirle al inputbox que tiene que tener un formato decimal como 3,333

Gracias.


Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5511
Enlace directo a este mensaje Enviado: 09/Noviembre/2010 a las 11:46
Yo he probado así...
 
Dim a As Double ' Variant; ocupa el doble de almacenamiento.
a = Replace(InputBox("Indique el coste unitario", "Coste por unidad o kilos"), _
      ".", ",") ' permite entrar el "punto" como separador decimal.
 
... y me funciona sin problemas.
Aprendemos viendo respuestas de otros, también intentando resolver dudas (intenta ayudar cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
Manuel08 Ver desplegable
Asiduo
Asiduo


Unido: 09/Septiembre/2008
Estado: Sin conexión
Puntos: 304
Enlace directo a este mensaje Enviado: 09/Noviembre/2010 a las 11:55
Gracias AnSanVal

lo estaba haciendo así y no daba con el:

if a="" then

a = (InputBox("Indique el coste unitario", "Coste por unidad o kilos")
Worksheets("Cálculo").Columns("A").Replace _
    What:=".", Replacement:=",", _
    SearchOrder:=xlByColumns, MatchCase:=True
Range("A2:A500") = a
endif
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5511
Enlace directo a este mensaje Enviado: 09/Noviembre/2010 a las 12:15
Entiendo que eso quiere decir que te funciona. Cierro el hilo.
Aprendemos viendo respuestas de otros, también intentando resolver dudas (intenta ayudar cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable