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)
Comentários
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
Assine o RSS dos comentários