(Casi OT) Para aprender a dividir

los felicitos son unos amantes de excel de verdad digno de
admiración

On 28 jul, 22:42, "julian-vlc-sp" wrote:

> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>
Este casi OT surge porque tengo un hijo que está aprendiendo a dividir y
tengo que corregirle las divisiones.

Saber el cociente y el resto es muy fácil, pero cuando se equivoca y tengo
que decirle donde se ha equivocado tengo que hacer toda la división y es una
lata.

Poniendo cada cifra del dividendo en una casilla y después de pelearme unas
horas con mi Excel XP he logrado tener la división como se hace a mano, es
decir:

____
123123 |321
¬¬¬¬¬
2682 383
1143
180

Salvo que las pruebas no hayan sido suficientes, creo que funciona bien.

Si alguien lo quiere y/o necesita que lo pida y lo cuelgo por aquí o se lo
hago llegar.

Si alguien tiene algo hecho y quiere mostrarlo, servirá para ver distintas
formas de hacerlo.

Si alguien no está en ninguno de los casos anteriores pero se anima, le
invito a que haga algo y nos lo muestre.

P.D.: Las multiplicaciones por varios números también las tengo hechas, pero
poniéndole ceros a la derecha a los subproductos es fácil

SALUDOS.
Julián-Valencia-Españahttp://ijulian.iespana.es/

Buenas tardes a todos.
A mi tambien me dio curiosidad por intentar trabajarlo, aunque no
conozco el que presentó Julian, aquí les envío un código que hace algo
de lo que dicen. Aunque no me puedo comparar a ustedes en el tema de
excel, solo estoy aprendiendo con todos sus aportes.

Sub div()

Dim dividendo As String
Dim divisor As String
Dim residuo As String
Dim resultado As String


dividendo = Range("A1").Value
divisor = Range("B1").Value
Range("A1").Activate
Range("b2").Value = Int(dividendo / divisor)

If Val(dividendo) >= Val(divisor) Then
If Val(divisor) <> 0 Then
For i = 1 To Len(dividendo)
residuo = residuo & Mid(dividendo, i, 1)
If residuo >= Val(divisor) Then
ActiveCell.Offset(1, 0).Value = residuo
ActiveCell.Offset(1, 0).Activate
End If
If residuo >= Val(divisor) Then
'resultado = Int(residuo / Val(divisor))
'Range("b2").Value = Range("b2").Value & resultado
residuo = residuo Mod divisor

End If

Next i
ActiveCell.Offset(1, 0).Value = residuo

Else
MsgBox "No está definida la división por cero"
End If

Else
MsgBox "la division es menor que uno"
End If



End Sub


Cordial saludo
Boris

Hola Boris, tu programa funciona bien. Pero has de definir la variable "i".

Saludos,

Xavier

Quitar MAC para contestar. Gracias.

"Boris" escribió en el mensaje news:
On 28 jul, 22:42, "julian-vlc-sp" wrote:

> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>
Este casi OT surge porque tengo un hijo que está aprendiendo a dividir y
tengo que corregirle las divisiones.

Saber el cociente y el resto es muy fácil, pero cuando se equivoca y tengo
que decirle donde se ha equivocado tengo que hacer toda la división y es una
lata.

Poniendo cada cifra del dividendo en una casilla y después de pelearme unas
horas con mi Excel XP he logrado tener la división como se hace a mano, es
decir:

____
123123 |321
¬¬¬¬¬
2682 383
1143
180

Salvo que las pruebas no hayan sido suficientes, creo que funciona bien.

Si alguien lo quiere y/o necesita que lo pida y lo cuelgo por aquí o se lo
hago llegar.

Si alguien tiene algo hecho y quiere mostrarlo, servirá para ver distintas
formas de hacerlo.

Si alguien no está en ninguno de los casos anteriores pero se anima, le
invito a que haga algo y nos lo muestre.

P.D.: Las multiplicaciones por varios números también las tengo hechas, pero
poniéndole ceros a la derecha a los subproductos es fácil

SALUDOS.
Julián-Valencia-Españahttp://ijulian.iespana.es/

Buenas tardes a todos.
A mi tambien me dio curiosidad por intentar trabajarlo, aunque no
conozco el que presentó Julian, aquí les envío un código que hace algo
de lo que dicen. Aunque no me puedo comparar a ustedes en el tema de
excel, solo estoy aprendiendo con todos sus aportes.

Sub div()

Dim dividendo As String
Dim divisor As String
Dim residuo As String
Dim resultado As String


dividendo = Range("A1").Value
divisor = Range("B1").Value
Range("A1").Activate
Range("b2").Value = Int(dividendo / divisor)

If Val(dividendo) >= Val(divisor) Then
If Val(divisor) <> 0 Then
For i = 1 To Len(dividendo)
residuo = residuo & Mid(dividendo, i, 1)
If residuo >= Val(divisor) Then
ActiveCell.Offset(1, 0).Value = residuo
ActiveCell.Offset(1, 0).Activate
End If
If residuo >= Val(divisor) Then
'resultado = Int(residuo / Val(divisor))
'Range("b2").Value = Range("b2").Value & resultado
residuo = residuo Mod divisor

End If

Next i
ActiveCell.Offset(1, 0).Value = residuo

Else
MsgBox "No está definida la división por cero"
End If

Else
MsgBox "la division es menor que uno"
End If



End Sub


Cordial saludo
Boris

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Gracias Boris


SALUDOS.
Julián-Valencia-España
http://ijulian.iespana.es/


"Boris" escribió en el mensaje
news:
On 28 jul, 22:42, "julian-vlc-sp" wrote:

> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>
Este casi OT surge porque tengo un hijo que está aprendiendo a dividir y
tengo que corregirle las divisiones.

Saber el cociente y el resto es muy fácil, pero cuando se equivoca y tengo
que decirle donde se ha equivocado tengo que hacer toda la división y es
una
lata.

Poniendo cada cifra del dividendo en una casilla y después de pelearme
unas
horas con mi Excel XP he logrado tener la división como se hace a mano, es
decir:

____
123123 |321
¬¬¬¬¬
2682 383
1143
180

Salvo que las pruebas no hayan sido suficientes, creo que funciona bien.

Si alguien lo quiere y/o necesita que lo pida y lo cuelgo por aquí o se lo
hago llegar.

Si alguien tiene algo hecho y quiere mostrarlo, servirá para ver distintas
formas de hacerlo.

Si alguien no está en ninguno de los casos anteriores pero se anima, le
invito a que haga algo y nos lo muestre.

P.D.: Las multiplicaciones por varios números también las tengo hechas,
pero
poniéndole ceros a la derecha a los subproductos es fácil

SALUDOS.
Julián-Valencia-Españahttp://ijulian.iespana.es/

Buenas tardes a todos.
A mi tambien me dio curiosidad por intentar trabajarlo, aunque no
conozco el que presentó Julian, aquí les envío un código que hace algo
de lo que dicen. Aunque no me puedo comparar a ustedes en el tema de
excel, solo estoy aprendiendo con todos sus aportes.

Sub div()

Dim dividendo As String
Dim divisor As String
Dim residuo As String
Dim resultado As String


dividendo = Range("A1").Value
divisor = Range("B1").Value
Range("A1").Activate
Range("b2").Value = Int(dividendo / divisor)

If Val(dividendo) >= Val(divisor) Then
If Val(divisor) <> 0 Then
For i = 1 To Len(dividendo)
residuo = residuo & Mid(dividendo, i, 1)
If residuo >= Val(divisor) Then
ActiveCell.Offset(1, 0).Value = residuo
ActiveCell.Offset(1, 0).Activate
End If
If residuo >= Val(divisor) Then
'resultado = Int(residuo / Val(divisor))
'Range("b2").Value = Range("b2").Value & resultado
residuo = residuo Mod divisor

End If

Next i
ActiveCell.Offset(1, 0).Value = residuo

Else
MsgBox "No está definida la división por cero"
End If

Else
MsgBox "la division es menor que uno"
End If



End Sub


Cordial saludo
Boris