............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

MENSAJE AL INICIAR

Ver el tema anterior Ver el tema siguiente Ir abajo

MENSAJE AL INICIAR

Mensaje por Invitado el Jue Jul 07, 2011 9:58 am

buenas, tengo una aplicacion donde al inicar sale un mensaje, lo ubique en un modulo debajo de la hoja que se activa primero

MsgBox "DISTRIBUCIONES MULTILIBROS", , "BIENVENIDOS A"

pero como hago para que solo aparezca por unos segundos y desaparezca,

, se puede hacer, no logro cuadrar el tiempo o no lo se hacer. me ayudan por fa

LIB

Invitado
Invitado


Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por Cacho R el Jue Jul 07, 2011 12:15 pm

Inténtalo con:

-> un UserForm para el mensaje
-> un Do-Loop para medir el tiempo

Saludos, Cacho R.
avatar
Cacho R
Moderador
Moderador

Masculino Cantidad de envíos : 210
Ciudad - Pais : Buenos Aires
Version de Excel : Desde Multiplan (pre-Excel) hasta 2010
Fecha de inscripción : 29/06/2011

Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por Invitado el Jue Jul 07, 2011 2:10 pm

el mensaje es el que coloque aqui, seria algo asi:

Sub Auto_open()
Worksheets("Hoja2").ScrollArea = "$e$8:$k$26"
Hoja2.Activate
MsgBox "DISTRIBUCIONES MULTILIBROS", , "BIENVENIDOS A"
end sub

NO SE COMO colocarlo me sale error por todas partes, solictie le ayuda de vb pero tengo que hacerlo con un while y tiene son ejemplos cpar acuando se cumpla una condicion, pero en mi caso solo es un mensaje..

hay un ejemplo asi que colocaon a u forista

Application.Wait (Now() + TimeSerial(0, 0, 3)) pero no hace nada


Última edición por LIBORIO el Jue Jul 07, 2011 2:28 pm, editado 1 vez

Invitado
Invitado


Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por Tatayayan el Jue Jul 07, 2011 2:20 pm

Hola, a lo aportado por Kcho puedo decir:
1) Inserta un formulario, en el evento Initialize de pon

Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:00:02"), "QuitarPresentacion"
End Sub

2) en un módulo pon la macro:
Sub QuitarPresentacion()
Unload Presentacion
End Sub

3) en el evento open del libro ponés:
Private Sub Workbook_Open()
Presentacion.Show
End Sub

4) Opcionalmente puedes poner, si el tiempo es demasado, solo ten la precaucion de hacer clic sobre el formulario no otro objeto, o pon códigop similar en los otros objetos.
Private Sub UserForm_Click()
Unload Me
End Sub
avatar
Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por Invitado el Jue Jul 07, 2011 3:14 pm

TATAYAN una pregunta y no se puede arrglar segun el codigo que coloque aqui, ncesariamente hay que ahcer otro userform?? no se puede hacer en el MSgbox??


Invitado
Invitado


Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por Cacho R el Jue Jul 07, 2011 4:10 pm

Mi estimado Liborio: tienes que leer un poco más la ayuda del propio VBA.

En efecto, extraído de allí puedes ver:
La función MsgBox muestra un mensaje en un cuadro de diálogo, espera a que el usuario haga clic en un botón y devuelve un tipo Integer correspondiente al botón elegido por el usuario.
Sin embargo, estás pidiendo que el mensaje "se vaya solo" al cabo de unos instantes.

Luego: esa opción la brinda un UserForm.
avatar
Cacho R
Moderador
Moderador

Masculino Cantidad de envíos : 210
Ciudad - Pais : Buenos Aires
Version de Excel : Desde Multiplan (pre-Excel) hasta 2010
Fecha de inscripción : 29/06/2011

Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por GalileoGali el Jue Jul 07, 2011 9:18 pm

Un MsgBox ampliado funcionalmente viene de la mano del objeto WScript.Shell y Popup
A continuacion directamente desde la Pagina de Ivan Moala, pego

Las constantes no es necesario que se adosen al código, pero como cada quien buscara en elllas su propósito, las consigno igual:

Código:
Option Explicit

Const WaitTime            As Integer = 5 '// Time to wait in secs. Tiempo de espera en segundos
'// Button type constants
Const btnOK              As Integer = 0 '// Display OK button only. Presentar exclusivamente el Boton OK
Const btnOKCancel        As Integer = 1 '// Display OK and Cancel buttons. Idem para CANCEL
Const btnAbortRetryIgnore As Integer = 2 '// Display Abort, Retry, and Ignore buttons.
Const btnYesNoCancel      As Integer = 3 '// Display Yes, No, and Cancel buttons.
Const btnYesNo            As Integer = 4 '// Display Yes and No buttons.
Const btnReCancel        As Integer = 5 '// Display Retry and Cancel buttons.
'// Icon constants
Const IconStop As Integer = 16          '// Show "Stop Mark" icon. Mostrar ICONO de ATENCION
Const IconQ    As Integer = 32          '// Show "Question Mark" icon. Mostrar icono de Pregunta
Const IconExc  As Integer = 48          '// Show "Exclamation Mark" icon. Mostrar Icono de Exclamacion
Const IconInfo As Integer = 64          '// Show "Information Mark" icon. Mostrar icono de INFO.
'// Button defaults
Const btnDefault1 As Integer = 0        '// First button is default.  Botones que toma el foco por defecto
Const btnDefault2 As Integer = 256      '// Second button is default.
Const btnDefault3 As Integer = 512      '// Third button is default.
Const btnDefault4 As Integer = 768      '// Fourth button is default.
Const btnAppModal As Integer = 0        '// Application modal; _ Modal a Nivel de la Aplicacion Activa
                                        'the user must respond to the message box _
                                        'before continuing work in the current application.
Const btnSysModal    As Double = 4096    '// System modal; all applications are suspended _ Modal a nivel Sistema
                                        'until the user responds to the message box.
Const btnHelp        As Double = 16384  '// Adds Help button to the message box Agrega boton de Ayuda
Const btnMsgForegrnd As Double = 65536  '// Specifies the message box window as the foreground window
Const btnTextRight  As Double = 524288  '// Text is right aligned
Const btnRightLeft  As Double = 1048576 '// Specifies text should appear as right-to-left _
                                        'reading on Hebrew and Arabic systems
 
Sub Tester()
Dim WshShell As Object
Dim RetValue As Integer
Set WshShell = CreateObject("WScript.Shell")
RetValue = WshShell.Popup("Está de acuerdo con este comentario ?...Por favor, responda!...", 5, _
    "Necesitamos de su respuesta:", btnYesNo + IconInfo)
'// Valid Return values
'1 = OK Button, 2 = Cancel Button, 3 = Abort Button, 4 = Retry Button
'5 = Ignore Button, 6 = Yes Button, 7 = No Button
Select Case RetValue
  Case 6: MsgBox "Usted es alguien a todas luces POSITIVO!"
  Case 7: MsgBox "Por qué? Qué es lo equivocado?"
  Case -1: MsgBox "No quiere participar?!"
End Select
End Sub
Sub StatusMsgBox()
CreateObject("WScript.Shell").Popup _
    "Excel se encuentra iniciando el Cálculo de celdas", 2, "ATENCION"
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por Invitado el Vie Jul 08, 2011 9:25 am

hola, cacho me da mucha pena contradecirte por eso te envio un codigo para q lo pruebes alla en tu excel, y es como el que yo buscaba, es un MSGBOX.. que solo dura unos instantes... estamos todos para ayudarnos

Private Sub Workbook_Open()
x = Environ("username")
CreateObject("WScript.Shell").Popup "Hello " & x & ", una posible solución." _
& vbCr & "Espero resulte útil." & vbCr & "Avisa por favor.", 1, "Propuesta"
end sub

saludos, y gracias por responder

Cacho R escribió:Mi estimado Liborio: tienes que leer un poco más la ayuda del propio VBA.

En efecto, extraído de allí puedes ver:
La función MsgBox muestra un mensaje en un cuadro de diálogo, espera a que el usuario haga clic en un botón y devuelve un tipo Integer correspondiente al botón elegido por el usuario.
Sin embargo, estás pidiendo que el mensaje "se vaya solo" al cabo de unos instantes.

Luego: esa opción la brinda un UserForm.

Invitado
Invitado


Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por Invitado el Vie Jul 08, 2011 9:27 am

muy buen aporte sr.


GalileoGali escribió:Un MsgBox ampliado funcionalmente viene de la mano del objeto WScript.Shell y Popup
A continuacion directamente desde la Pagina de Ivan Moala, pego

Las constantes no es necesario que se adosen al código, pero como cada quien buscara en elllas su propósito, las consigno igual:

Código:
Option Explicit

Const WaitTime            As Integer = 5 '// Time to wait in secs. Tiempo de espera en segundos
'// Button type constants
Const btnOK              As Integer = 0 '// Display OK button only. Presentar exclusivamente el Boton OK
Const btnOKCancel        As Integer = 1 '// Display OK and Cancel buttons. Idem para CANCEL
Const btnAbortRetryIgnore As Integer = 2 '// Display Abort, Retry, and Ignore buttons.
Const btnYesNoCancel      As Integer = 3 '// Display Yes, No, and Cancel buttons.
Const btnYesNo            As Integer = 4 '// Display Yes and No buttons.
Const btnReCancel        As Integer = 5 '// Display Retry and Cancel buttons.
'// Icon constants
Const IconStop As Integer = 16          '// Show "Stop Mark" icon. Mostrar ICONO de ATENCION
Const IconQ    As Integer = 32          '// Show "Question Mark" icon. Mostrar icono de Pregunta
Const IconExc  As Integer = 48          '// Show "Exclamation Mark" icon. Mostrar Icono de Exclamacion
Const IconInfo As Integer = 64          '// Show "Information Mark" icon. Mostrar icono de INFO.
'// Button defaults
Const btnDefault1 As Integer = 0        '// First button is default.  Botones que toma el foco por defecto
Const btnDefault2 As Integer = 256      '// Second button is default.
Const btnDefault3 As Integer = 512      '// Third button is default.
Const btnDefault4 As Integer = 768      '// Fourth button is default.
Const btnAppModal As Integer = 0        '// Application modal; _ Modal a Nivel de la Aplicacion Activa
                                        'the user must respond to the message box _
                                        'before continuing work in the current application.
Const btnSysModal    As Double = 4096    '// System modal; all applications are suspended _ Modal a nivel Sistema
                                        'until the user responds to the message box.
Const btnHelp        As Double = 16384  '// Adds Help button to the message box Agrega boton de Ayuda
Const btnMsgForegrnd As Double = 65536  '// Specifies the message box window as the foreground window
Const btnTextRight  As Double = 524288  '// Text is right aligned
Const btnRightLeft  As Double = 1048576 '// Specifies text should appear as right-to-left _
                                        'reading on Hebrew and Arabic systems
 
Sub Tester()
Dim WshShell As Object
Dim RetValue As Integer
Set WshShell = CreateObject("WScript.Shell")
RetValue = WshShell.Popup("Está de acuerdo con este comentario ?...Por favor, responda!...", 5, _
    "Necesitamos de su respuesta:", btnYesNo + IconInfo)
'// Valid Return values
'1 = OK Button, 2 = Cancel Button, 3 = Abort Button, 4 = Retry Button
'5 = Ignore Button, 6 = Yes Button, 7 = No Button
Select Case RetValue
  Case 6: MsgBox "Usted es alguien a todas luces POSITIVO!"
  Case 7: MsgBox "Por qué? Qué es lo equivocado?"
  Case -1: MsgBox "No quiere participar?!"
End Select
End Sub
Sub StatusMsgBox()
CreateObject("WScript.Shell").Popup _
    "Excel se encuentra iniciando el Cálculo de celdas", 2, "ATENCION"
End Sub

Invitado
Invitado


Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por Invitado el Vie Jul 08, 2011 10:05 am

hola estoy implementado otro tipo de mensajes al iniciar en excel, se llama splah screen, es fenomenal, pero hay un problema que no he podido solucionar, y es el progress bar, baje uno de internet que me gusto mucho pero no se lo he podido añadir al userform (aproposito es mensaje splash screen es con userform). como hago eso, alguna idea, gracias..
esto es nuevo para mi por eso solicito ayuda, es decir como interso la animacion de la barra cargando en el userform, si quieren ver el archivo de ejemplo, hagan clic en esta ruta: http://www.ozgrid.com/download/Promo.zip. ejecutan el archivo y veran el mensaje. el editor de vb NO tiene pass, pueden mirar el cod..

la barras animadas para descargar estan en esta direccion:
http://www.recursosvisualbasic.com.ar/htm/tutoriales/control-progressbar.htm#descripcion

alli hay muchas de diferentes estilo, a mi me gusto esta: http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/440-barra-animada.htm

Invitado
Invitado


Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por GalileoGali el Sáb Jul 09, 2011 12:02 am

Revisa el link que has colocado del sitio de ozgrid, no he logrado descarga alguna. Por otra parte no es muy clara tu pregunta, es mas no entiendo si es una o mas preguntas....

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por Invitado el Sáb Jul 09, 2011 8:29 am

croe qe ifu lo ufitemete lcaro, ams NO upedo

http://www.ozgrid.com/Excel/excel-splash-screen.htm ok haz donde dice: Download Our Advanced Version of an Excel Workbook Splash Screen
alli te descargar un archivo llamado promo.. entonces asi s como quiero yo adaptarlo al mio, pero no puedo cargar la barra, la barra animada que me gusto esta en el mensaje de arriba..

GalileoGali escribió:Revisa el link que has colocado del sitio de ozgrid, no he logrado descarga alguna. Por otra parte no es muy clara tu pregunta, es mas no entiendo si es una o mas preguntas....

Invitado
Invitado


Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por GalileoGali el Sáb Jul 09, 2011 8:49 am

No entiendo
jhon nash es Liborio?
Liborio es jhon nash???

Si te fijas entre el Titulo del Tema y el link de descarga, puedes encontrar una explicacion de cómo se construye el archivo. Para la barra de progreso, puedes ver el código que es clarísimo, máxime que quien hace estas presentaciones de "apariencia profesional", es, generalmente, un profesonal o debería serlo....

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por Invitado el Sáb Jul 09, 2011 9:47 am

gracias como estaba en ingles me toco pasarlo a google para poder entender, lib y yo somos primos y estudiamos excel.. lo que si vi es que no explican como hacer las barritas azules , es decir la animacion, no se que herramienta utilizar, sera la barra de dezplazamiento???

GalileoGali escribió:No entiendo
jhon nash es Liborio?
Liborio es jhon nash???

Si te fijas entre el Titulo del Tema y el link de descarga, puedes encontrar una explicacion de cómo se construye el archivo. Para la barra de progreso, puedes ver el código que es clarísimo, máxime que quien hace estas presentaciones de "apariencia profesional", es, generalmente, un profesonal o debería serlo....

Invitado
Invitado


Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por GalileoGali el Sáb Jul 09, 2011 10:12 am

NUEVAMENTE REITERO:
basta con ver el codigo para que un profesional que quiera dar aspecto de tal a su proyecto, lo reproduzca y por qué no?: optimice

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por Invitado el Sáb Jul 09, 2011 10:17 am

mi amigo yo no soy profesional, copie el codigo tal cual segui las indicaciones en un libro nuevo o en blanco y me marca error por todas partes, creo que omitieron varaias cosas, no se, le preguntare a lib, pues noe

Invitado
Invitado


Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por Cacho R el Sáb Jul 09, 2011 12:42 pm

Mi estimado Liborio (primo hispano del ecuatoriense jhon nash).
En realidad no requieres apenarte por lo siguiente:
LIBORIO escribió:hola, cacho me da mucha pena contradecirte por eso te envio un codigo para q lo pruebes alla en tu excel, y es como el que yo buscaba, es un MSGBOX.. que solo dura unos instantes... estamos todos para ayudarnos

Private Sub Workbook_Open()
x = Environ("username")
CreateObject("WScript.Shell").Popup "Hello " & x & ", una posible solución." _
& vbCr & "Espero resulte útil." & vbCr & "Avisa por favor.", 1, "Propuesta"
end sub
A poco lo medites un instante, comprenderás que el método "MsgBox" no tiene nada que ver con el objeto "WScript.Shell", sugerido por Galileo. Por lo que aspiro que ya hayas comprendido que el método MsgBox requiere -efectivamente- intervención explícita del usuario.

En otro orden de cosas, tiendo a coincidir con Galileo en el sentido que has dado tantas referencias externas (se agradecen, por cierto) que ha quedado -un tanto- difuso que es lo que deseas obtener.
De hecho: me parece que lo que deseas obtener no es un mensaje en base a "WScript.Shell", sino en base a un UserForm (¿acaso no fue ésa la sugerencia inicial tanto de Tatayayán como mía?...).

En fin: se me ocurre que expresar un requerimiento conciso y específico es lo oportuno en este punto.
Saludos, Cacho R.


avatar
Cacho R
Moderador
Moderador

Masculino Cantidad de envíos : 210
Ciudad - Pais : Buenos Aires
Version de Excel : Desde Multiplan (pre-Excel) hasta 2010
Fecha de inscripción : 29/06/2011

Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por Invitado el Sáb Jul 09, 2011 2:30 pm


hola, precsisamente este codigigo fue con el que palique en emi archivo y me quedo muy bien
Cacho R escribió:Mi estimado Liborio (primo hispano del ecuatoriense jhon nash).
En realidad no requieres apenarte por lo siguiente:
LIBORIO escribió:hola, cacho me da mucha pena contradecirte por eso te envio un codigo para q lo pruebes alla en tu excel, y es como el que yo buscaba, es un MSGBOX.. que solo dura unos instantes... estamos todos para ayudarnos

Private Sub Workbook_Open()
x = Environ("username")
CreateObject("WScript.Shell").Popup "Hello " & x & ", una posible solución." _
& vbCr & "Espero resulte útil." & vbCr & "Avisa por favor.", 1, "Propuesta"
end sub
A poco lo medites un instante, comprenderás que el método "MsgBox" no tiene nada que ver con el objeto "WScript.Shell", sugerido por Galileo. Por lo que aspiro que ya hayas comprendido que el método MsgBox requiere -efectivamente- intervención explícita del usuario.

En otro orden de cosas, tiendo a coincidir con Galileo en el sentido que has dado tantas referencias externas (se agradecen, por cierto) que ha quedado -un tanto- difuso que es lo que deseas obtener.
De hecho: me parece que lo que deseas obtener no es un mensaje en base a "WScript.Shell", sino en base a un UserForm (¿acaso no fue ésa la sugerencia inicial tanto de Tatayayán como mía?...).

En fin: se me ocurre que expresar un requerimiento conciso y específico es lo oportuno en este punto.
Saludos, Cacho R.



Invitado
Invitado


Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por moises melgar el Lun Jul 11, 2011 11:31 am

Hola, disculpen por intervenir así de inmediato, pero para los miembros que no lo conocían, con respecto al userform, si es por la forma en que se mira que no les gusta usarlos sugiero ver esto:

USERFORM WINDOW STYLES de STEPHEN BULLEN

[Tienes que estar registrado y conectado para ver este vínculo]

Cuidense mucho.
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 557
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: MENSAJE AL INICIAR

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.