| Casa | Hardware | Redes | Programación | software | Criticar | Sistemas |   
Programación  
  • C /C + + Programming

  • Lenguajes De Programación

  • Delphi Programación

  • Programación Java

  • JavaScript Programación

  • Programación PHP /MySQL

  • Perl Programming

  • Python Programming

  • Rubí Programación

  • Visual Basics Programación
  •  
    Conocimientos Informáticos >> Programación >> Visual Basics Programación >> Content
    Cómo mostrar un Spinner Cuando una macro VBA está en ejecución
    La mejor manera para que un usuario aumentar o disminuir el valor de la aplicación Microsoft Excel cuando se está ejecutando una macro es mediante el uso de un botón de la vuelta . Una macro es comúnmente utilizado para grabar una secuencia de acciones que posteriormente pueden ser ejecutadas por la ejecución de la macro manualmente o haciendo clic en un botón. Una macro se crea mediante el uso de Visual Basic para Aplicaciones ( VBA) , un lenguaje de programación utilizado en aplicaciones de Microsoft Office para automatizar tareas rutinarias tales como exhibir una ruleta . Instrucciones
    1

    lanzamiento Microsoft Excel , haga clic en la pestaña de " desarrolladores" y haga clic en el icono "Insertar " en el panel " Controles". Haga clic en " Button" y haga clic en la hoja de cálculo para añadir un nuevo botón de comando. Haga clic en " Selector cíclico " por debajo " Controles ActiveX " y añadirlo a la hoja de cálculo.

    2 Haga clic con el spinner y haga clic en "Propiedades" para mostrar la ventana de propiedades . Elija "False" junto a la propiedad "Visible " . Haga clic en el icono de " Macros " y tipo " IncrementValues ​​" abajo " Nombre de la macro . " Haga clic en el botón "Crear " para crear una nueva macro.
    3

    Copia y pega el siguiente código para crear un " While ... Loop" y actualizar la hoja de cálculo con los valores cada vez que el usuario hace clic en el botón giratorio :

    Sheet1.SpinButton1.Visible = True

    Do While ( contador < > 10 )

    Range (" A1" ) Seleccione < . br>

    Range ("A1 ") . Valor = contador

    Range (" A2" ) . Seleccione

    Range (" A2" ) . Valor = "Macro corriendo ... "

    Application.Wait ahora + TimeValue ( " 00:00:02 " )


    DoEvents Loop

    Range (" A1 ") . Seleccione

    Range (" A1") . Valor = " "

    Range (" A2" ) . Seleccione

    Range (" A2" ) . Valor = "Macro terminó . "

    Sheet1.SpinButton1.Visible = False

    contador = 0
    4

    Añada la siguiente línea de código en la parte superior de su módulo para crear un mundial variables :

    counter Global As Integer
    5

    interruptor de nuevo a la derecha haga clic en Microsoft Excel y " Botón 1 ". Haga clic en " Asignar Macro " y haga clic en " IncrementValues ​​. " Haga clic en " Aceptar".
    6

    Haga clic con el botón giratorio y haga clic en " Ver código " para abrir un módulo de código VBA. Copia y pega el siguiente código para aumentar o disminuir el valor de variable global :

    SpinButton1_SpinDown Sub Private ()

    contador = contador - 1

    End Sub
    < p > Private Sub SpinButton1_SpinUp ()

    contador = contador + 1

    End Sub
    7

    volver a Microsoft Excel y haga clic en "Botón 1 " para iniciar la ejecución del macro y mostrar el control de número . Haga clic en la flecha hacia arriba del botón giratorio para aumentar o la flecha hacia abajo para disminuir . La macro ocultar el spinner y dejar de correr cuando la variable global es igual a 10 .

    Previous :

    next :
      Artículos relacionados
    ·Cómo convertir a entero Windows.Forms.TextBox 
    ·Cómo mostrar un conjunto de marcos en ASP.NET 
    ·Cómo utilizar la propiedad OnChange en VBA 
    ·Cómo poner un enlace en Visual Basic 2008 
    ·Cómo crear un usuario en Active Directory con Visual B…
    ·Cómo utilizar Telnet Con VB6 
    ·Cómo Ejecutar VBS Script 
    ·Cómo utilizar una tabla hash en una aplicación de Vis…
    ·Cómo utilizar Visual Basic Access para ordenar datos 
    ·Cómo crear un Programa de Presentación 
      Artículos destacados
    ·Cómo dividir Strings MySQL 
    ·Cómo instalar Python en Ubuntu manualmente 
    ·Cómo crear una etiqueta en PHP 
    ·¿Cómo llamar a una función que se basa en VB.NET 
    ·Cómo utilizar las funciones en Python 
    ·Cómo hacer comentarios en un archivo PHP 
    ·¿Cómo puedo cambiar la configuración regional de VBA…
    ·Cómo convertir archivos planos a XML 
    ·Cómo hacer XSL Ignorar la referencia DTD en XML 
    ·Cómo exportar Desde MySQL Workbench 
    Copyright © Conocimientos Informáticos http://ordenador.wingwit.com