[RESUELTO] Problemas con msgBox y vbYesNo

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...

[RESUELTO] Problemas con msgBox y vbYesNo

Notapor VaccaTola » Vie Feb 08, 2019 7:00 pm

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
VaccaTola
 
Mensajes: 2
Registrado: Vie Feb 08, 2019 6:48 pm

Re: Problemas con msgBox y vbYesNo

Notapor mauricio » Vie Feb 08, 2019 7:32 pm

El uso de la constante vbYesNo, es propia de VBA, no de LibreOffice.
Código: Seleccionar todo   Expandir vistaContraer vista
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
AOO 4.1 | LibO 6.1.5 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5738
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: México, D.F.

Re: Problemas con msgBox y vbYesNo

Notapor VaccaTola » Sab Feb 09, 2019 4:46 pm

Ahora si, muchas gracias por tu ayuda...
windows 10, libre office 6.1.4.2
VaccaTola
 
Mensajes: 2
Registrado: Vie Feb 08, 2019 6:48 pm


Volver a Macros y API UNO

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado