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 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 | Citação
 

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

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje131
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana19637
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês33366
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10456195
Aprenda MS Excel VBA

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