Home Excel - Dicas Microsoft Excel VBA Excel VBA - Userforms e outros Excel planilha vba textbox legenda flutuante

Excel planilha vba textbox legenda flutuante

E-mail Imprimir PDF

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Esse procedimento do Aplicativo Microsot Excel VBA(Visual Basic Application), mostra um objeto TextBox  e acompanha
o Cursor de acordo com a célula selecionada, aproveitei também para incrementar o exemplo adicionando um objeto Image
do VBA.
Questão proposta: e Respondida

Objeto textbox e imagem(Saberexcel) acompanha o cursor:
Prezado Marcondes 
Preciso de um macro que ao usuario clicar em determinada célula,
um objeto TextBox acompanhe o cursor na folha de planilha, por
exemplo  uma coluna a direita do cursor(Celula) Ativa.
Se puder ajudar, sou-lhe muito grato.
(***) gostei  muito do Curso Completo MS Excel VBA.
João B. S. F. - Jundiai - SP

RESp: Prezado Amigo João Batista, Obrigado,
Fiz um macro para simulando sua necessidade, Na célula(D1), inseri uma condição,
se Celula(D1) for igual 1 mostra a Textbox e acompanha durante a digitação.
Isso você poderá inserir a condição desejada, intervalo de linhas, resultado de uma totalização de dados, ou data especifica, ou diferença datas,
ao selecionar determinada area servindo como um alerta,  
Espero que seja isso que esteja precisando,
Fique com Deus,  
Expedito Marcondes

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set vRegiao = Range("c8:g17")

If Not Intersect(Target, vRegiao) Is Nothing Then
   If Range("d5").Value = 1 Then
      Shapes("TextBox1").Visible = True
      Shapes("Image1").Visible = True
      Shapes("TextBox1").Left = Target.Offset(0, 1).Left
      Shapes("TextBox1").Top = Target.Offset(1, 0).Top
      Shapes("Image1").Left = Target.Offset(0, 5).Left
      Shapes("Image1").Top = Target.Offset(1, 0).Top
    Else
      Shapes("TextBox1").Visible = False
      Shapes("Image1").Visible = False
    End If
 Else
    Shapes("TextBox1").Visible = False
    Shapes("Image1").Visible = False
 End If
End Sub




Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.





Baixe o exemplo de planiha contendo os macros acima: <<< Registre-se em nosso Site >>>
Excel planilha vba textbox legenda flutuante (81.68 KB)

Última atualização em Seg, 26 de Novembro de 2012 15:56  

Comentários   

 
Roberto Rodrigues
# Roberto Rodrigues 21-01-2014 09:23
bom dia

gostaria de saber se tem alguma macro para ser inserida em uma label ou txtbox que por exemplo se a label for um valor escrito(texto) ela trave ou libere um botão do meu formulário userform.

estou procurando e não estou achando pode me ajudar
desde já agradeço
Responder | Responder com citação | Citar
 

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar


Google Associados

Depoimentos

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA