Vídeo recomendado
https://youtu.be/diWPPPhW-9E

LABEL FIXAR VALOR

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
willianrc
Colaborador
Colaborador
Mensagens: 40
Registrado em: Qua Nov 23, 2016 7:28 am

LABEL FIXAR VALOR

Mensagem por willianrc »

Ola,
Alguem sabe como deixar o valor na label?, mesmo quando fecha e abre o formulario o valor fique la?
Detalhe: Nao pode usar celulas

Código: Selecionar todos

Private Sub CommandButton1_Click()

Dim NewLabel As Object
Dim myValue As Variant

myValue = InputBox("Digite um valor")

Set NewLabel = Me.Controls.Add("Forms.Label.1")
With NewLabel
  .Tag = myValue 'Usar no lugar de "Name"
  .Caption = .Tag 'Name inicia do Label2 pois existe o Label1 no formulário
  .Top = 50
  .Left = 50
End With
ThisWorkbook.Save
End Sub


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
LaerteB
Colaborador
Colaborador
Mensagens: 96
Registrado em: Qui Out 19, 2017 8:20 am

Re: LABEL FIXAR VALOR

Mensagem por LaerteB »

Boa tarde, willianrc

Veja a solução que dei no outro Fórum (que tu abriste com o mesmo assunto), segue abaixo:

"Não vi o seu arquivo, mas se for "somente" para fechar o formulário que contenha a Label e que os dados
permaneçam quando voltar a abri-lo, use este exemplo: "UserForm1.Hide"; desta forma o formulário ficará
oculto e todos os dados contidos em textbox ou nessa Label ficarão "intactos".. quando retornar ao formulário
os seus dados estarão lá.. :)

Espero que isto o ajude ;)

Veja as regras sobre o Título ou conteúdo dos Textos em "Caixa Alta". "

Dica: Você criou um Tópico com o mesmo assunto em outro Fórum.. quando lançar a mesma dúvida, você
poderá informar com os Links deles para que os integrantes deste(s) Fórum(ns) que tenham perguntas
semelhantes possam acompanhar ...
(e aqueles que querem ajudar possam verificar se já foi solucionado, para não "amarrá-los" depois que
foi resolvido), fazendo isso em todos os Fóruns que tenha aberto; se tiver a(s) solução(ões) em algum
deles coloque o link desta solução nos outros :)...

LaerteB :)


Responder