[RESUELTO] Problemas con msgBox y vbYesNo

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
VaccaTola
Mensajes: 2
Registrado: Vie Feb 08, 2019 6:48 pm

[RESUELTO] Problemas con msgBox y vbYesNo

Mensaje por VaccaTola »

Buenas tardes, soy novata en el foro y en la creación de macros, asi que mis disculpas antes de nada si no es aqui donde tengo que poner mi duda.

Mi problema es el siguiente estoy creando una macro donde se pueda contestar un si o un no, esta sería la macro,... pero en vez de darme las dos opciones si o no, solo me aparece aceptar. El caso es que despues de reescribirlo y de intentarlo y volverlo a intentar me funciono, asi que la guarde y a otro cosa, al dia siguiente ya no me funciona, empece de nuevo y nada, despues de varios intento lo consegui, pero cuando salgo de Calc y vuelvo a entrar ya no me funciona,... y la verdad es que me estoy volviendo loca, y la necesitaba para otra hoja que estoy realizando, alguien me puede ayudar, le pase a alguien mas ...
Gracias de antemano..

Sub Obtener_valor_del_mensaje()
'primero pongo la pregunta
resultado = MsgBox("¿Quieres saludar?", vbYesNo, "Saludar")

'ahora manejo el resultado a mi antojo
If resultado = vbYesNo Then
msgbox "Hola"
else
msgbox "Adios"
End If

End Sub
Última edición por VaccaTola el Sab Feb 09, 2019 4:49 pm, editado 1 vez en total.
windows 10, libre office 6.1.4.2
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Problemas con msgBox y vbYesNo

Mensaje por mauricio »

El uso de la constante vbYesNo, es propia de VBA, no de LibreOffice.

Código: Seleccionar todo

Const MB_YESNO As Integer = 4
Const IDYES As Integer = 6


Sub Main

'primero pongo la pregunta
resultado = MsgBox("¿Quieres saludar?", MB_YESNO, "Saludar")

'ahora manejo el resultado a mi antojo
If resultado = IDYES Then
    msgbox "Hola"
else
    msgbox "Adios"
End If

End Sub
Toda la información del uso de MsgBox viene en la ayuda del programa, solo presiona F1
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
VaccaTola
Mensajes: 2
Registrado: Vie Feb 08, 2019 6:48 pm

Re: Problemas con msgBox y vbYesNo

Mensaje por VaccaTola »

Ahora si, muchas gracias por tu ayuda...
windows 10, libre office 6.1.4.2
Responder