Problema con el valor de una Variable

Tienes que entrar en el Panel de control de windows y, en
configuración regional, poner España (suponiendo que este
sea tu país).





Mostrar la cita

Hola Grupo,
La configuracion de mi equipo hace que el punto decimal
(.)se reemplace por una coma (,)y el separador de
argumentos entonces es punto y coma (;).
Esto que no deberia tener trascendencia crea un conflicto
en uno de mis modulos de codigo.
Me explico:
En la celda A1 tengo el valor 1.17 (1,17) se ve en la
pantalla.

Sub MiProcedimiento
Dim MiVariable As Variant

MiVariable=Range("A1").Value
Range.("C5").FormulaR1C1 = "=ROUND(" & MiVariable & "*RC
[-1],0)"
End Sub

Esta ultima asignacion a la celda C5 me produce un error,
que al tratar de depurarlo deduzco que la cadena asignada
a la formula es:
"=ROUND(1,17*RC[-1],0)" cuando lo logico seria
"=ROUND(1.17*RC[-1],0)"

Se le ocurre a alguien como podria salvar este asunto?

Saludos,

Henry


.

Gracias Anonymous,
Pero no es eso lo que busco, yo no quiero cambiar la
configuracion de mi equipo, ya que eso no solucionaria
nada por que habria que cambiar la configuracion de los
equipos de todos mis clientes.
La idea es que el codigo funcione en forma adecuada, ya
que el valor que toma la variable deberia ser
interpretado como un numero.

Saludos,

Henry

Mostrar la cita

Tienes que entrar en el Panel de control de windows y, en
configuración regional, poner España (suponiendo que este
sea tu país).





Mostrar la cita

Hola Grupo,
La configuracion de mi equipo hace que el punto decimal
(.)se reemplace por una coma (,)y el separador de
argumentos entonces es punto y coma (;).
Esto que no deberia tener trascendencia crea un

conflicto
Mostrar la cita

Mostrar la cita

en uno de mis modulos de codigo.
Me explico:
En la celda A1 tengo el valor 1.17 (1,17) se ve en la
pantalla.

Sub MiProcedimiento
Dim MiVariable As Variant

MiVariable=Range("A1").Value
Range.("C5").FormulaR1C1 = "=ROUND(" & MiVariable

& "*RC
Mostrar la cita

Mostrar la cita

[-1],0)"
End Sub

Esta ultima asignacion a la celda C5 me produce un

error,
Mostrar la cita

Mostrar la cita

que al tratar de depurarlo deduzco que la cadena

asignada
Mostrar la cita

Mostrar la cita

a la formula es:
"=ROUND(1,17*RC[-1],0)" cuando lo logico seria
"=ROUND(1.17*RC[-1],0)"

Se le ocurre a alguien como podria salvar este asunto?

Saludos,

Henry


.

.

hola, Henry !

Mostrar la cita

Henry Sanchez escribio en el mensaje
... configuracion de mi equipo ... punto decimal ... coma (,) ... separador de argumentos ... punto y coma (;)
... crea un conflicto en uno de mis modulos de codigo ... A1 tengo el valor 1.17 (1,17) se ve en la pantalla.
Sub MiProcedimiento
Dim MiVariable As Variant
MiVariable=Range("A1").Value
Range.("C5").FormulaR1C1 = "=ROUND(" & MiVariable "*RC[-1],0)"
End Sub
... la celda C5 me produce un error que ... deduzco que la cadena asignada a la formula es:
"=ROUND(1,17*RC[-1],0)" cuando lo logico seria
"=ROUND(1.17*RC[-1],0)"

Mostrar la cita

anonymous escribio en el mensaje
... entrar en el Panel de control ... y en configuración regional, poner [...]

Mostrar la cita

Henry Sanchez escribio en el mensaje
... habria que cambiar la configuracion de los equipos de todos mis clientes.
... que el codigo funcione ... ya que el valor que toma la variable deberia ser interpretado como un numero.

[hasta donde se] hay un [pequeño] 'inconveniente' con las configuraciones regionales [separadores] ...
=>si 'se trata de'<= asignar a variables/argumentos_de_funciones, los valores [numericos] 'tomados' de celdas ...
=>cuando<= la configuracion 'actual' utiliza la coma ',' [o distinto de punto] como 'separador' de =>decimales<aunque la ayuda 'menciona' que la funcion CCur(MiVariable) 'debiera funcionar' [con distintas 'configuraciones']
=>NO 'funciona'<= cuando se trata de asignar a variables/argumentos... valores de celdas.. etc. :((

1.- podrias 'depositar' [directamente] un resultado [p.e.]
Range("c5") = [Application.]Round(Range("a1") * Range("c5").Offset(, -1), 0)

2.- 'tendrias que' sustituir la coma por el punto =>antes<= de su utilizacion 'correcta' [p.e.]
MiVariable = Application.Substitute(Range("a1"), ",", ".")
Range("c5").FormulaR1C1 = "=Round(" & MiVariable & "*RC[-1],0)"

3.- podrias 'obligar' a que excel 'evalue' [el valor 'real' de] la variable como una cadena de texto [p.e.]
MiVariable = Range("a1")
Range("c5").FormulaR1C1 = "=Round(""" & MiVariable & """*RC[-1],0)"

¿comentas?
saludos,
hector.

Muchas gracias Hector,
Ya perdi la cuenta de cuantas te debo.

Cualquiera de las tres soluciones debe servir, voy a
evaluar cual es la que se adapta mas a mi codigo.

Saludos,

Henry
Mostrar la cita

hola, Henry !

Mostrar la cita

Henry Sanchez escribio en el mensaje
... configuracion de mi equipo ... punto decimal ...

coma (,) ... separador de argumentos ... punto y coma (;)
Mostrar la cita

Mostrar la cita

... crea un conflicto en uno de mis modulos de

codigo ... A1 tengo el valor 1.17 (1,17) se ve en la
pantalla.
Mostrar la cita

Mostrar la cita

Sub MiProcedimiento
Dim MiVariable As Variant
MiVariable=Range("A1").Value
Range.("C5").FormulaR1C1 = "=ROUND(" & MiVariable "*RC

[-1],0)"
Mostrar la cita

Mostrar la cita

End Sub
... la celda C5 me produce un error que ... deduzco

que la cadena asignada a la formula es:
Mostrar la cita

Mostrar la cita

"=ROUND(1,17*RC[-1],0)" cuando lo logico seria
"=ROUND(1.17*RC[-1],0)"

Mostrar la cita

Mostrar la cita

anonymous escribio en el mensaje
... entrar en el Panel de control ... y en

configuración regional, poner [...]
Mostrar la cita

Mostrar la cita

Mostrar la cita

Mostrar la cita

Henry Sanchez escribio en el mensaje
... habria que cambiar la configuracion de los

equipos de todos mis clientes.
Mostrar la cita

Mostrar la cita

Mostrar la cita

Mostrar la cita

... que el codigo funcione ... ya que el valor que

toma la variable deberia ser interpretado como un numero.
Mostrar la cita

[hasta donde se] hay un [pequeño] 'inconveniente' con

las configuraciones regionales [separadores] ...
Mostrar la cita

=>si 'se trata de'<= asignar a

variables/argumentos_de_funciones, los valores
[numericos] 'tomados' de celdas ...
Mostrar la cita

=>cuando<= la configuracion 'actual' utiliza la coma ','

[o distinto de punto] como 'separador' de =>decimales<>aunque la ayuda 'menciona' que la funcion CCur
(MiVariable) 'debiera funcionar' [con
distintas 'configuraciones']
Mostrar la cita

=>NO 'funciona'<= cuando se trata de asignar a

variables/argumentos... valores de celdas.. etc. :
((
Mostrar la cita

1.- podrias 'depositar' [directamente] un resultado

[p.e.]
Mostrar la cita

Range("c5") = [Application.]Round(Range("a1") *

Range("c5").Offset(, -1), 0)
Mostrar la cita

2.- 'tendrias que' sustituir la coma por el punto

=>antes<= de su utilizacion 'correcta' [p.e.]
Mostrar la cita

MiVariable = Application.Substitute(Range

("a1"), ",", ".")
Mostrar la cita

Range("c5").FormulaR1C1 = "=Round(" & MiVariable

& "*RC[-1],0)"
Mostrar la cita

3.- podrias 'obligar' a que excel 'evalue' [el

valor 'real' de] la variable como una cadena de texto
[p.e.]
Mostrar la cita

MiVariable = Range("a1")
Range("c5").FormulaR1C1 = "=Round(""" & MiVariable

& """*RC[-1],0)"
Mostrar la cita

¿comentas?
saludos,
hector.

.

hola, Henry !

Mostrar la cita

... gracias ...

=> gracias a ti... [por el 'feed-back'] ;)

Mostrar la cita

Ya perdi la cuenta de cuantas te debo.

=> si alguna 'ha servido'...
- 'piensa' un numero...
- dividelo por 3.4116...
- obten la raiz cuadrada de su potencia 3...
- quita el numero que 'pensaste'...
- 'ese' resultado... multiplicalo por cero y...
- 'esas' son las que 'me debes'

saludos [y... perdon por el 'chascarrillo'] :))
hector.