[RESUELTO] Convertir macro de excel a ooobasic

[Faith]

Me pidieron que hiciera una calculadora en excel para saber los riesgos de diabetes segun Test FENDRISC
la hice en vba pero ahora la necesitan implementar en libreoffice y ciertamente estoy en lo que es macro en libreoffice me esta constando aprender de golpe.
quisiera si pueden ayudarme a convertir a macro ooobasic y ver si puedo hecharla andar. O darme las pautas que como puedo hacerlo, eso si bien explicado
porque no entiendo muy bien las macro en libreoffice. Se lo agradezco de antemano.

Código: Seleccionar todo

Private Sub CmdAgregar_Click()
Sheets("BasedeDatos").Activate
Range("a2").Select
ActiveCell.FormulaR1C1 = Me.TextBox1.Text
Range("b2").Select
ActiveCell.FormulaR1C1 = Me.TextBox2.Text
Range("c2").Select
ActiveCell.FormulaR1C1 = Me.TextBox4.Text
Range("d2").Select
ActiveCell.FormulaR1C1 = Me.ComboBox6.Text
Range("e2").Select
ActiveCell.FormulaR1C1 = Me.TextBox12.Text
Range("f2").Select
ActiveCell.FormulaR1C1 = Me.TextBox5.Text
Range("g2").Select
ActiveCell.FormulaR1C1 = Me.ComboBox1.Text
Range("h2").Select
ActiveCell.FormulaR1C1 = Me.TextBox6.Text
Range("i2").Select
ActiveCell.FormulaR1C1 = Me.ComboBox2.Text
Range("j2").Select
ActiveCell.FormulaR1C1 = Me.TextBox7.Text
Range("k2").Select
ActiveCell.FormulaR1C1 = Me.ComboBox3.Text
Range("l2").Select
ActiveCell.FormulaR1C1 = Me.TextBox8.Text
Range("m2").Select
ActiveCell.FormulaR1C1 = Me.ComboBox4.Text
Range("n2").Select
ActiveCell.FormulaR1C1 = Me.TextBox9.Text
Range("o2").Select
ActiveCell.FormulaR1C1 = Me.ComboBox5.Text
Range("p2").Select
ActiveCell.FormulaR1C1 = Me.TextBox10.Text
Range("q2").Select
ActiveCell.FormulaR1C1 = Me.TextBox15.Text

'Range("r2").Select
'ActiveCell.FormulaR1C1 = Me.TextBox5.Text

End Sub

Private Sub ComboBox1_Change()
If ComboBox1 = "Si" Then
TextBox6 = 0
Else
If ComboBox1 = "No" Then
TextBox6 = 2
End If
End If
End Sub

Private Sub ComboBox2_Change()
If ComboBox2 = "Todos los días" Then
    TextBox7 = 0
Else
    If ComboBox2 = "No todo los días" Then
    TextBox7 = 1
End If
End If
End Sub

Private Sub ComboBox3_Change()
If ComboBox3 = "Si" Then
TextBox8 = 0
Else
If ComboBox3 = "No" Then
TextBox8 = 2
End If
End If
End Sub

Private Sub ComboBox4_Change()
If ComboBox4 = "Si" Then
TextBox9 = 2
Else
If ComboBox4 = "No" Then
TextBox9 = 0
End If
End If
End Sub

Private Sub ComboBox5_Change()
If ComboBox5 = "No" Then
TextBox10 = 0
Else
If ComboBox5 = "Si, Abuelo/a, Tio/a primo/a en primer grado" Then
TextBox10 = 3
Else
If ComboBox5 = "Si, Padre, Madre, hermano/a, hijos" Then
TextBox10 = 5

End If
End If
End If
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub CommandButton3_Click()
' Boton Nuevo
Selection.EntireRow.Insert
'Cuadros de textos
Me.TextBox1.Text = Empty
Me.TextBox2.Text = Empty
Me.TextBox3.Text = Empty
Me.TextBox4.Text = Empty
Me.TextBox5.Text = Empty
Me.TextBox6.Text = Empty
Me.TextBox7.Text = Empty
Me.TextBox8.Text = Empty
Me.TextBox9.Text = Empty
Me.TextBox10.Text = Empty
Me.TextBox15.Text = Empty
Me.TextBox12.Text = Empty
Me.TextBox13.Text = Empty
Me.TextBox14.Text = Empty
Me.TextBox16.Text = Empty

'Cuadros combinados
Me.ComboBox1.Text = Empty
Me.ComboBox2.Text = Empty
Me.ComboBox3.Text = Empty
Me.ComboBox4.Text = Empty
Me.ComboBox5.Text = Empty
Me.ComboBox6.Text = Empty

End Sub

Private Sub CommandButton4_Click()
 TextBox15.Value = Str$(Round(Val(TextBox2.Value) + Val(TextBox4.Value) + Val(TextBox5.Value) + Val(TextBox6.Value) + Val(TextBox7.Value) + Val(TextBox8.Value) + Val(TextBox9.Value) + Val(TextBox10.Value)))
End Sub

Private Sub CommandButton5_Click()
Sheets("Reporte").Range("b8").Value = TextBox16.Value
Call imprimir

Sheets("Reporte").Range("h11").Value = importe
Sheets("Reporte").Range("e11").Value = ComboBox1.Value
Sheets("Reporte").Range("I3").Value = "000" & TextBox3
Sheets("Reporte").Range("E8").Value = GRADO
Sheets("Reporte").Range("I5").Value = Label3.Caption
Sheets("Reporte").Activate

Unload UserForm1
Load UserForm1
UserForm1.Show
End Sub

Public Sub espacios(seleccion As Selection, lineas As Integer)
Dim i As Integer
For i = 1 To lineas
seleccion.TypeParagraph
Next
End Sub
End Sub

Private Sub TextBox1_Change()
If TextBox1 >= 0 And TextBox1 <= 44 Then
TextBox2 = 0
ElseIf TextBox1 >= 45 And TextBox1 <= 54 Then
TextBox2 = 2
ElseIf TextBox1 >= 55 And TextBox1 <= 64 Then
TextBox2 = 3
ElseIf TextBox1 >= 65 And TextBox1 < 120 Then
TextBox2 = 4
End If

End Sub

Private Sub TextBox12_Change()

If ComboBox6 = "Hombre" Then
    If TextBox12 >= 0 And TextBox12 <= 93 Then
        TextBox5 = 0
    Else
        If TextBox12 >= 94 And TextBox12 <= 102 Then
            TextBox5 = 3
        Else
            TextBox5 = 4
        End If
    End If
Else
    If TextBox12 >= 0 And TextBox12 <= 79 Then
        TextBox5 = 0
    Else
        If TextBox12 >= 80 And TextBox12 <= 87 Then
            TextBox5 = 3
        Else
            TextBox5 = 4
        End If
    End If
End If

End Sub

Private Sub TextBox3_Change()
 If TextBox3 > 0 And TextBox3 < 25 Then
 TextBox4 = 0
 ElseIf TextBox3 <= 26 And TextBox3 <= 30 Then
 TextBox4 = 1
 ElseIf TextBox3 >= 31 And TextBox3 > 40 Then
 TextBox4 = 3
 End If
End Sub

Private Sub UserForm_Initialize()

ComboBox1.AddItem "Si"
ComboBox1.AddItem "No"
ComboBox1.Value = ""

ComboBox2.AddItem "Todos los días"
ComboBox2.AddItem "No todo los días"
ComboBox2.Value = ""

ComboBox3.AddItem "Si"
ComboBox3.AddItem "No"
ComboBox3.Value = ""

ComboBox4.AddItem "Si"
ComboBox4.AddItem "No"
ComboBox4.Value = ""

ComboBox5.AddItem "No"
ComboBox5.AddItem "Si, Abuelo/a, Tio/a primo/a en primer grado"
ComboBox5.AddItem "Si, Padre, Madre, hermano/a, hijos"
ComboBox5.Value = ""

ComboBox6.AddItem "Hombre"
ComboBox6.AddItem "Mujer"
ComboBox6.Value = ""

End Sub

[mauricio]

Hola...

Es mucho mejor que agregues un archivo con el código y los objetos usados, así no obligas a quien quiera ayudarte a empezar de cero...

Saludos

[Faith]

Gracias mauricio por tu pronta repuesta ya hago envio de la macro creada en excel.
espero me puedas ayudar.

[fornelasa]

Haciendo unas primeras pruebas me parece que tu sistema trabaja normalmente en LO 5.2.7
Los errores que se presentan son errores propios del usuario y no en sí por la incompatibilidad de lenguajes entre macros de ambos programas.
¿Que es lo que no te funciona?

[Faith]

el macro lo voy a correr en maquinas que tienen lubuntu 14.04 y libreoffice 4.2 y ahi no me corren.
me podrias explicar mejor de esos errores que son por parte de la programación que ejecute.
gracias

[fornelasa]

Aquí un ejemplo de como corre en LO 5.2.7

me podrias explicar mejor de esos errores que son por parte de la programación que ejecute.

Pues por ejemplo aquí (en el archivo parece no esta definido el Label3.Caption:

Código: Seleccionar todo

Sheets("Reporte").Range("I5").Value = Label3.Caption

[Faith]

Si tienes razon esa parte no la habia validado... dije que lo iba hacer despues y mira hasta que tu me lo recordaste de nuevo.
Si a mi en libreoffice 5.3 bajo win 10 me corre bien pero cuando ya lo llevo a las maquinas que tiene lubuntu 14.04 y libreoffice 4.2
ahi si no responde por eso quiero pasar la macro a ooo basic pero estoy nuevo en esto.

[fornelasa]

Después de hacer un análisis me parece que tu macro no jala ni en Excel aceptablemente; al menos no en partes.
Por ejemplo: ¿como deben registrarse los registros correctamente que han sido capturados cuando pulsas el botón agregar, puedes aclararlo?
¿Cual es el procedimiento correcto para cuando pulsas el botón reporte?
Me parece que subiste una macro que ni siquiera esta terminada completamente en Excel
Saludos.

[Faith]

Voy a revisar lo que me preguntas creo que envie la que tenia en prueba disculpa es que cuando me dijeron pasarlo a libreoffice empece a modificar.

[Faith]

tenias toda la razón te hago envio del archivo correcto lo estuve probando antes se subirlo. mil disculpas

[fornelasa]

Tal vez algo similar a esto:
Saludos, Federico.

[fornelasa]

Solo como nota al archivo .ods previo:
Creo tienes varias pequeñas "incongruencias" en tu archivo de Excel como por ejemplo creo esta mala instrucción:

Código: Seleccionar todo

Private Sub TextBox3_Change()
 If TextBox3 > 0 And TextBox3 < 25 Then
 TextBox4 = 0
 ElseIf TextBox3 <= 26 And TextBox3 <= 30 Then 'OJO OJO
 TextBox4 = 1
 ElseIf TextBox3 >= 31 And TextBox3 > 40 Then
 TextBox4 = 3
 End If
End Sub

[Faith]

Gracias, esta de lujo lo voy a probar en lubuntu con libreoffice y te digo los resultados.
me podrias recomendar si hay un lugar en el foro donde ya se haya hablado con respecto a ver primero el reporte y luego mandarlo a imprimir.
Me disculpo desde ya pero ahorita que lo veo, se me vino esa parte. gracias por todo el apoyo brindado

[fornelasa]

lo voy a probar en lubuntu con libreoffice y te digo los resultados.

ok, espero que no haya problema por ahí.

Editado: Espero tu confirmación.

me podrías recomendar si hay un lugar en el foro donde ya se haya hablado con respecto a ver primero el reporte y luego mandarlo a imprimir.
Me disculpo desde ya pero ahorita que lo veo, se me vino esa parte. gracias por todo el apoyo brindado

No recuerdo, pero plantea tu pregunta en el foro, obvio con un ejemplo mas sencillo no como este

Recuerda, ya todo esta documentado, si deseas aprender oooBasic aquí esta el secreto de la vida , mira este extraordinario libro.
https://forum.openoffice.org/es/forum/v ... =50&t=1545

[Faith]

Ok, voy a buscar en el foro y leere el libro que me recomiendas ya que libreoffice es muy interesante ahora que lo estoy viendo. gracias nuevamente

[Faith]

Hola fornelasa ya probe el archivo que convertiste a ooobasic muy bueno y trabaja bien es tanto asi que le hice algunas modificaciones y esta de lujo. Gracias
escribo porque te dije que lo iba a probar y luego te avisaba como funcionaba.
Pero necesito una ayuda más quisiera que se abriera el formulario sin necesidad de abrir calc se podra esto y como se haria y donde he estado leyendo en el foro pero la mayoria es solo para base algo que quise modificarlo para calc pero no pude. saludos y espero me puedas ayudar gracias de antemano

[fornelasa]

Pero necesito una ayuda más quisiera que se abriera el formulario sin necesidad de abrir Calc se podrá esto

Hasta donde yo sé no, no es posible, necesariamente debe ejecutarse Calc y así lanzar la macro.

Otra posible opción la he puesto en el archivo previo enviado, por favor bájalo y mira.

Saludos.

[Faith]

Si, asi es lo que deseo como lo hago creo que al modificar el archivo no me lo realiza. saludos

[fornelasa]

Solo agregué en la macro CommandButton1_Click() estas dos lineas

Código: Seleccionar todo

ooDoc = ThisComponent.CurrentController
ooDoc.getFrame.getContainerWindow.Visible = FALSE

Y en la macro Salir una linea

Código: Seleccionar todo

ooDoc.getFrame.getContainerWindow.Visible = TRUE

Los códigos anteriores solo hacen visible o no visible el libro actual

Obviamente en las variables globales (hasta arriba) hay que poner:

Código: Seleccionar todo

Dim ooDoc As Object

Saludos.

[Faith]

Oh ya entiendo, voy a verificarlo.
Ok gracias voy a ver esa parte del codigo gracias de nuevo

[Faith]

Hola fornelasa ya agregue las lineas y hace como tu me dijiste y esta muy bien.
solo algo que me ocurre agregue dentro del formulario calculadora de fendrisc un boton que llama otro form que trabaja ejecutando el calculo IMC, y lo hace todo bien pero cuando le doy cerrar a este form, el boton cerrar no me responde del formulario fendrisc valga la redundancia, podrias orientarme que estoy haciendo mal gracias

[fornelasa]

En el modulo tres intenta hasta arriba introducir esta linea

Código: Seleccionar todo

Dim oDialogo As Object

Saludos.

[Faith]

Si fornelasa eso era, gracias.
sigo con si se podria ver primero el reporte antes de imprimirse he buscado en el foro pero no encuentro algo muy claro no se si tu me puedes orientar, y ese reporte tambien lo quiero convertir a pdf me puedes indicar como.

[fornelasa]

Un posible ejemplo para darnos una idea de como hacerlo para la vista previa:
Mira el evento asignado a vista creada en Herramientas <> Personalizar <> Sucesos (Eventos)
Saludos.

[Faith]

Si esta excelente la vista previa pero podria verse los datos ingresados de la forma segun el boton reporte pero no mandarse a imprimir sino primero ver si esta bien y luego imprimirlo.
y si se puede indicame como hacer que el form de imc el resultado me lo envie al campo numerico peso o indicarme en el foro un lugar donde puedo ver esa parte, ya he buscado pero nada.
Gracias me haz ayudado enormemente y estado aprendiendo a la velocidad de la luz con todo tu apoyo.

[fornelasa]

ummmmmm, recuerda es un tema por pregunta.
El tema original era "Convertir macro de excel a ooobasic"

Lo que pasa es que también no entiendo muy bien tu lógica del diseño del archivo.

En base a mi lógica aquí una/otra propuesta con el archivo original:

1) Agregar solo sirve para agregar el registro actual
2) Vista previa solo sirve para vista previa
3) Imprimir solo sirve para imprimir el registro actual
4) Limpiar solo sirve para limpiar el formulario
5) Cerrar solo sirve para cerrar el formulario y salir

Si tu impresora es por default PDF entonces se imprimirá en PDF

Ojala puedas adaptarlo a tus necesidades.

Saludos.

[Faith]

Ya pude hacer que los datos ingresados se vean en la vista preliminar. gracias
Sigo peleando con otras situaciones que no me dan pero ... bueno estoy ahi viendo como hago saludos.
Y gracias por todo el apoyo brindado

[fornelasa]

ok
Puedes preguntar las nuevas dudas abriendo más temas con preguntas puntuales y si gustas ahí podemos enlazar este tema como referencia.

Bien, suponiendo que este post estuviera resuelto entonces aquí nos dicen como hacerlo.

https://forum.openoffice.org/es/forum/v ... f=3&t=2668

Saludos, Federico.