Muliplos de un numero

[wernser412]

Quiero pasar este codigo de vb6 a vba de excel , lo he intentado pero solo me da una multiplicacion!

Private Sub CommandButton1_Click()
Dim b As Integer

n = TextBox1
Z = TextBox2


For...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[wernser412]

El codigo es de:

igual al video, pero quiero dar las respuesta en un textbox

 

[Héctor Miguel]

igual al video, pero quiero dar las respuesta en un textbox

si va a ser por un control "textbox", asegurate de darle una altura...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[wernser412]

si va a ser por un control "textbox", asegurate de darle una altura apropiada y cambia tu codigo por el siguiente (y lo analizas)...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Héctor Miguel]

Estoy viendo como hacer para que me de asi en una celda:
{2 , 4, 6 , 8 , ... }

eso es mas sencillo que "manipular" un textbox multilinea...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[wernser412]

eso es mas sencillo que "manipular" un textbox multilinea (p.ej.)

Function multiplosDeXEnY(x As Long, y As Long, Optional sep As String...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[sblandan]

¿Se puede hacer para los divisores de un numero?

 

[Héctor Miguel]

¿Se puede hacer para los divisores de un numero?

p.ej. asi:

Function divisoresDeX(x As Long, Optional sep As String = ",") As...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[wernser412]

Bueno he modificado un poco y me salió para fracciones equivalentes o amplificación.

Function FRACCIONESEQUIVALENTES(a As Long, b As Long, y As Long, Optional sep As String = ", ") As...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[wernser412]

a que te refieres con "simplificacion" (exactamente) ?

quiza solo esta de sobra la variable (NO declarada) "losmultiplos" y mejor lo pasas...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Héctor Miguel]

si lo que buscas es una UDF que te devuelva lo mismo

ya que "estamos" en esto, esta puede servir como base ?

Function...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Revisa el adjunto.

 

[wernser412]

Revisa el adjunto.

Bueno me sirvió bastante en forma cadena, solo falta que cuando esta en forma irreducible se repita la fracción:
4/3 = 4/3...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Héctor Miguel]

solo falta que cuando esta en forma irreducible se repita la fracción

por este comentario (que no has confirmado si cuentas con esa...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Héctor Miguel]

columna "E" ligeramente reducida por la funcion LET(...

incluso puedes usar el nombre para calculos adicionales (p.ej.)
- incluir la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Function Reducir(Fracción As String) As String
Dim Num As Long, Den As Long, Reducción As String
Num = Split(Fracción, "/")(0)
Den = Split(Fracción, "/")(1)
For x = 1 To Num
   If Num Mod...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[wernser412]

eso es mas sencillo que "manipular" un textbox multilinea (p.ej.)

Function multiplosDeXEnY(x As Long, y As Long, Optional sep As String...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Esta consulta ya ha sido resuelta, abre una nueva y sube un archivo Excel con un ejemplo explicando lo que quieres.