Neste artigo, mostraremos como adicionar o controle RefEdit no formulário do usuário e fazer referência ao intervalo de células usando-o.
Neste exemplo, criamos um formulário do usuário realçador que podemos usar para destacar o intervalo de células com a cor amarela.
Coletamos dados de amostra que consistem no nome e hora de login do membro da equipe.
Adicionando RefEdit no formulário do usuário
Adicione um formulário de usuário, clique no controle RefEdit na caixa de ferramentas e selecione e solte o controle no formulário de usuário.
Explicação lógica
Para destacar a célula, clique no botão Realce. Isso abrirá o formulário do usuário. Selecione o intervalo usando RefEdit. Clique no sinal de traço para selecionar as células.
Para selecionar células adjacentes, pressione a tecla Shift enquanto se move para outra célula. Para selecionar células não adjacentes, pressione a tecla Control enquanto seleciona células diferentes. As células selecionadas serão circundadas por linhas pontilhadas e o endereço da célula aparecerá na caixa.
As células selecionadas serão destacadas em amarelo ao pressionar o botão OK. O evento de clique do botão Ok contém o código VBA para destacar as células selecionadas.
Siga abaixo para o código
Option Explicit Sub running () UserForm1.Show End Sub 'Adicione o código abaixo no botão "Ok" no formulário do usuário Option Explicit Private Sub CommandButton1_Click () Dim SelectRange As Range Dim Address1 As String On Error GoTo Last' Obtenha o endereço do controle RefEdit Address1 = RefEdit1.Value 'Defina o objeto SelectRange Range para o intervalo especificado no controle RefEdit Set SelectRange = Range (Address1)' Destaque o intervalo selecionado na cor amarela SelectRange.Interior.Color = RGB (255, 255, 0) 'Descarregue o formulário do usuário. Descarregue-me por último: End Sub
Se você gostou deste blog, compartilhe com seus amigos no Facebook. Além disso, você pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar nosso trabalho e torná-lo melhor para você. Escreva para nós no site de e-mail