Programação  
 
Conhecimento computador >> Programação >> Programação Visual Basics >> 
Como exibir um Spinner Quando uma macro VBA está funcionando
A melhor maneira para permitir um aumento de usuário ou diminuir um valor em seu aplicativo Microsoft Excel quando uma macro está em execução é usando um botão de rotação. Uma macro é comumente usado para gravar uma seqüência de ações que podem ser posteriormente executado por executar o macro manualmente ou clicando em um botão . Uma macro é criada através do uso de Visual Basic for Applications (VBA) , uma linguagem de programação de computador usado em aplicativos do Microsoft Office para automatizar tarefas de rotina como a exibição de um spinner . Instruções
1

Abra o Microsoft Excel , clique na guia "Desenvolvedor" e clique no ícone "Inserir " no painel " Controles " . Clique em " Button" e clique na planilha para adicionar um novo botão de comando. Clique no botão " Girar" abaixo " Controles ActiveX " e adicioná-lo à planilha.
2

botão direito do mouse o spinner e clique em "Propriedades" para exibir a janela de propriedades. Escolha "Falso" ao lado da propriedade "Visível " . Clique no ícone e digite " Macros " " IncrementValues ​​" abaixo " Nome da macro . " Clique no botão "Criar" para criar uma nova macro.
3

Copie e cole o seguinte código para criar um " While ... Loop" e atualizar a planilha com valores cada vez que o usuário clica no botão giratório : .

Sheet1.SpinButton1.Visible = True

do While ( counter < > 10)

Range (" A1") Selecione

Range (" A1") . Valor = contador

Range (" A2 " ) . Selecione

Range (" A2 " ) . Value = " corrida Macro ... "

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

DoEvents

loop

Range (" A1 ") . Selecione

Range (" A1") . Value = " "

Range (" A2 " ) . Selecione

Range (" A2 " ) . Value = " Macro terminou . "

Sheet1.SpinButton1.Visible = False

counter = 0
4

Adicione a seguinte linha de código no topo do seu módulo para criar um mundial variável :

contador global As Integer
5

Volte para o Microsoft Excel e clique-direito " Button 1 ". Clique em " Atribuir Macro" e clique em " IncrementValues ​​". Clique em " OK".
6

botão direito do mouse no botão giratório e clique em " Ver código " para abrir um módulo de código VBA. Copie e cole o seguinte código para aumentar ou diminuir o valor da variável global :

Sub SpinButton1_SpinDown Privado ( )

contador = contador - 1

End Sub

Private Sub SpinButton1_SpinUp ()

contador = contador + 1

End Sub
7

Volte para o Microsoft Excel e clique em " Button 1 " para iniciar a execução do macro e exibir o controle giratório . Clique na seta para cima do botão giratório para aumentar ou na seta para baixo para diminuir . A macro vai esconder o spinner e parar de correr quando a variável global é igual a 10 .

Anterior :

Próximo : No
  Os artigos relacionados
·Como fazer Animated Widgets 
·Como fazer um menu drop Down ou Tab em Visual Basic 6 
·A função de callback para DLL 
·Como converter Bits para Bytes em VB.Net 
·Pode Visual Basic Script escutar uma porta Telnet 
·Como usar o SQLite em Vb.net 
·Como ativar um intervalo em VBA 
·Como substituir uma caixa de texto com outro que preenc…
·Como determinar a contagem de páginas para diálogo de…
·Como fazer um botão de reset no VBA 
  Artigos em destaque
·Como encontrar um triângulo dentro de um triângulo us…
·Como adicionar um novo campo em uma tabela com o PHP pa…
·Como verificar -mail Formato Com PHP 
·Como construir um motor de jogo para Iniciantes 
·Como definir largura em uma coluna GridView 
·Como depurar VBScript 
·Como converter uma consulta do Access para MySQL 
·Como ordenar uma lista ligada em Java 
·Como editar no Windows Script Host 
·Função Puxadores em MATLAB 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados