Foros del Web » Soporte técnico » Ofimática »

[SOLUCIONADO] [Excel] Error condicional con VB

Estas en el tema de [Excel] Error condicional con VB en el foro de Ofimática en Foros del Web. Hola qué tal, Este es el codigo: Código: Function MiRedondeo(numero As Double) As Double Dim entero As Long Dim decima As Double entero = Int(numero) ...
  #1 (permalink)  
Antiguo 25/03/2014, 07:20
 
Fecha de Ingreso: enero-2009
Mensajes: 14
Antigüedad: 10 años, 7 meses
Puntos: 0
[Excel] Error condicional con VB

Hola qué tal,

Este es el codigo:

Código:
Function MiRedondeo(numero As Double) As Double
  Dim entero As Long
  Dim decima As Double
  entero = Int(numero) 'Obtenemos el entero
  decima = numero - entero 'Obtenemos la parte decimal

'Hacemos un condicional
If decima = 0.3 Then
 MiRedondeo = 1
Else
 MiRedondeo = 0
End If
End Function

Así, sin mas complicaciones lo que debería hacer es que si mi numero dado tiene un decimal igual a 0.3 ese numero se convierte en 1, pero no lo hace, bueno sí lo hace, unicamente para los numeros 0.3 y 1.3 para cualquier otro numero, digase 2.3, 33.3, 104.3 me devuelve 0 (cero).

WTH!
Me gustaría saber que pedo, porqué hace eso, como lo soluciono?

Saludos y gracias de antemano
  #2 (permalink)  
Antiguo 26/03/2014, 08:35
 
Fecha de Ingreso: agosto-2007
Mensajes: 1.945
Antigüedad: 12 años
Puntos: 39
Respuesta: [Excel] Error condicional con VB

Con 13 sea menos sean mas mensajes en el foro de la WEB, te dirán lo mismo que a todos, aunque pienso que son un tanto flexibles TAN CLARO como esto:

Aquí, en tu mensaje solo una exposición de lo que te pasa y LO QUE PRETENDES obtener y en tu libro de ejemplo, ESTE con la estructura de tu libro a subir y un ejemplo de lo que pretendes obtener.

En un párrafo de las normas dice que adjuntes un ejemplo para que así el experto tenga una idea de lo que te pasa y lo que pretendes y así poder ayudarte.

Sin que subas un ejemplo, tal vez te quedes esperando el 2020
El ejemplo no necesariamente tiene que sr completo pero algo con la estructura de tu libro y con el ejemplo de lo que quieres que haga, complete, solicite, busque ect ect.

Tu Fecha de Ingreso: 31/01/2009
__________________
Las contraseñas son como la ropa interior: Nunca dejarlas donde la gente pueda verlas
http://i64.tinypic.com/rho40i.jpg
  #3 (permalink)  
Antiguo 26/03/2014, 14:23
 
Fecha de Ingreso: julio-2006
Ubicación: Madrid
Mensajes: 943
Antigüedad: 13 años, 1 mes
Puntos: 56
Respuesta: [Excel] Error condicional con VB

Hola,

Prueba así (en rojo la modificación):

Cita:
Function MiRedondeo(numero As Double) As Double
Dim entero As Long
Dim decima As Double
entero = Int(numero) 'Obtenemos el entero
decima = numero - entero 'Obtenemos la parte decimal

'Hacemos un condicional
If Round(decima,1) = 0.3 Then
MiRedondeo = 1
Else
MiRedondeo = 0
End If
End Function
Saludos!

Pd: Para JoaoM, No creo que estés muy autorizado para expresarte de ese modo. Si puedes aportar algo, apórtalo, pero participar para regañar a la gente por nada.....
  #4 (permalink)  
Antiguo 28/03/2014, 08:37
 
Fecha de Ingreso: enero-2009
Mensajes: 14
Antigüedad: 10 años, 7 meses
Puntos: 0
Respuesta: [Excel] Error condicional con VB

Aja, muchísimas gracias jchuk, con esa leve correción empezo a funcionar correctamente.
  #5 (permalink)  
Antiguo 28/03/2014, 17:32
 
Fecha de Ingreso: julio-2006
Ubicación: Madrid
Mensajes: 943
Antigüedad: 13 años, 1 mes
Puntos: 56
Respuesta: [Excel] Error condicional con VB

OK, me alegro,

Fue un placer
  #6 (permalink)  
Antiguo 29/03/2014, 11:46
 
Fecha de Ingreso: agosto-2007
Mensajes: 1.945
Antigüedad: 12 años
Puntos: 39
Respuesta: [Excel] Error condicional con VB

Cita:
Iniciado por jchuk Ver Mensaje

Pd: Para JoaoM, No creo que estés muy autorizado para expresarte de ese modo. Si puedes aportar algo, apórtalo, pero participar para regañar a la gente por nada.....
NO regañe a nadie ni soy moderador ni administrador, solo recordé las normas que rigen en esta WEB.

Por eso te digo y repito no soy quien para tal fin a que tu mensionas, las normas están para leerlas amigo y cumplirlas.
Si tte ofendi a ti o a otro usuario, no me queda mas que pedirles disculpas pero, RECUERDA las normas que rigen para TODOS
__________________
Las contraseñas son como la ropa interior: Nunca dejarlas donde la gente pueda verlas
http://i64.tinypic.com/rho40i.jpg
  #7 (permalink)  
Antiguo 29/03/2014, 14:25
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 12 años, 5 meses
Puntos: 88
De acuerdo Respuesta: [Excel] Error condicional con VB

Cita:
Iniciado por JoaoM Ver Mensaje
... En un párrafo de las normas dice que adjuntes un ejemplo para que así el experto tenga una idea de lo que te pasa y lo que pretendes y así poder ayudarte ...
¿Puedo decir que jamás he leído tal Norma en este Foro?...

Es decir: No es que tal adjunto no ayude a entender el problema: ¡Eso es obvio!

Pero afirmar:
Cita:
Iniciado por JoaoM Ver Mensaje
... las normas están para leerlas amigo y cumplirlas.
me parece que excedería las normativas de este Foro, y debería ser -por lo tanto- un comentario en tono de sugerencia y no de imposición o reproche.

De no ser así (me refiero a la efectiva existencia de tal Norma): ¿Alguien tendría la amabilidad de orientarme sobre este particular?...
Saludos, Cacho R.
  #8 (permalink)  
Antiguo 31/03/2014, 12:01
Avatar de Omura
Colaborador
 
Fecha de Ingreso: julio-2006
Ubicación: Peru
Mensajes: 3.491
Antigüedad: 13 años, 2 meses
Puntos: 185
Respuesta: [Excel] Error condicional con VB

sobre esta norma...
Cita:
En un párrafo de las normas dice que adjuntes un ejemplo para que así el experto...
no se si sea el caso, me parece haber leído algo similar... pero en otro foro, con una mecánica totalmente distinta en el tema de preguntas y respuestas

JoaoM usar MAYUSCULAS según las normas de netiqueta es gritar, eso sumado a tu forma de responder si puede ser malinterpretado, me queda claro que tu intención no era la de atacar, lamentablemente al ser texto plano, no vemos expresiones ni escuchamos tonos de voz, por eso para algunos tu mensaje si puede ser tomado de esa forma y caer en la si existente norma 2.10...
Cita:
2.10 Los usuarios deben usar un lenguaje cortés, respetuoso y gentil...
si bien se dan varios casos en los que se solicita ayuda sin dar detalles del problema, en este caso en particular, al tratarse de una función personalizada, no era necesario indicar estructura de la hoja, celdas, ni nada por el estilo, simplemente era un error de código y con el ejemplo que dio era mas que suficiente para comprender por donde iba la falla.

creo que para casos en que la pregunta no este bien formulada y/o no incluya datos básicos bastaría con ignorarla o en todo caso decir... tu consulta no esta clara / bien formulada, para que podamos ayudarte por favor da mas detalles o algo similar.

creo que esto queda sobrando...
Cita:
Iniciado por JoaoM Ver Mensaje
Con 13 sea menos sean mas mensajes...
Cita:
Tu Fecha de Ingreso: 31/01/2009
finalmente, la consulta que genero este post ya fue solucionada, aclarado lo otro (no hubo mala intención de ninguna parte), no hace falta seguir con el tema
__________________
Mi error era de código... pero de código genético.
  #9 (permalink)  
Antiguo 01/04/2014, 09:47
 
Fecha de Ingreso: agosto-2007
Mensajes: 1.945
Antigüedad: 12 años
Puntos: 39
Respuesta: [Excel] Error condicional con VB

En tono amigable y de aclaratoria
Cita:
JoaoM usar MAYUSCULAS según las normas de netiqueta es gritar, eso sumado a tu forma de responder si puede ser malinterpretado, me queda claro que tu intención no era la de atacar, lamentablemente al ser texto plano, no vemos expresiones ni escuchamos tonos de voz, por eso para algunos tu mensaje si puede ser tomado de esa forma y caer en la si existente norma 2.10...
Estoy de acuerdo contigo sobre el uso de MAYUSCULAS.
Creo y dime si me equivoco; el uso de mayúsculas en un post completo o parcial en que la mayoría de las líneas son en mayúsculas, pero que no, (pienso yo) para referenciar una determinada palabra.
Aquí "Escribir claro (sin errores en lo posible)" tomo el párrafo que dice:
Cita:
En lo posible, intenta respetar no solo las reglas ortográficas, sino las gramaticales, utiliza los signos de puntuación dónde sea necesario para hacer la lectura más comprensible. Dirígete a los usuarios con respeto y educación, y nunca escribas tu mensaje completamente con MAYUSCULAS, porque ya deberías saber que eso se toma como una falta de respeto, como que el usuario grita, y nadie quiere eso.
Mis saludos y no tomen como critica destructiva mi comentario, no fue esa mi intención y si de dar una guía al usuario para que reciba una respuesta de algún experto en el asunto de su preocupación.

Para mi, cerrado el tema
__________________
Las contraseñas son como la ropa interior: Nunca dejarlas donde la gente pueda verlas
http://i64.tinypic.com/rho40i.jpg

Etiquetas: basic, condicional, excel, visual
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 01:56.