Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Variar o Label
 
Notifications
Clear all

Variar o Label

 
2024 - VBA & Macros
Post Recente por adGere 8 anos atrás
5 Posts
2 Usuários
0 Reactions
989 Visualizações
RSS
 saran
(@saran)
Posts: 3
New Member
Topic starter
 

Bom dia gostaria de uma ajuda, estou fazendo um código e estou com dificuldade em variar o label para mudar de cor de acordo com a condição. Veja o código abaixo:

Dim linha1, linha2 As Integer

linha1 = 26
linha2 = 6

'Colocar o Label em Vermelho

For linha1 = 26 To 38

If Plan2.Range("Q" & linha2).Value = "+" And Plan3.Range("B" & linha1).Value <= Plan3.Range("D" & linha1).Text Then
Me.Label114.ForeColor = &HFF& 'Esse label teria variação do label114 ao label126
ElseIf Plan2.Range("Q" & linha2).Value = "-" And Plan3.Range("B" & linha1).Value >= Plan3.Range("D" & linha1).Text Then
Me.Label114.ForeColor = &HFF& 'Esse label teria variação do label114 ao label126

End If
Next linha1

 
Postado : 13/01/2017 8:54 am
 adGere
(@adgere)
Posts: 76
Trusted Member
 

Qual erro esta ocorrendo?
Em qual parte não esta funcionando?

 
Postado : 16/01/2017 8:28 pm
 saran
(@saran)
Posts: 3
New Member
Topic starter
 

Eu estou tentando fazendo um Dashboard com farois luminosos. Minha intenção é variar o label alternando as cores de acordo com o resultado.
Porém não consigo mudar do label114 até o Label126 numa mesma estrutura.
De acordo com o resultado ele ficaria, vermelho, amarelo, verde ou azul.
Não consigo variar esta linha do código
Me.Label114.ForeColor = &HFF& (Queria ir variando de acordo com o laço)
Tenho pouco conhecimento em vba excel.
Tentei fazer assim:
Me.Controls("Label" & i).ForeColor = &HFF& , onde o for seria de 114 a 126.

Não sei se ficou claro.

 
Postado : 17/01/2017 11:43 am
 saran
(@saran)
Posts: 3
New Member
Topic starter
 

Veja a mudança do código que fiz e não funcionou:

For linha1 = 26 To 38

For i = 114 To 126

If Plan2.Range("Q" & linha2).Value = "+" And Plan3.Range("B" & linha1).Value <= Plan3.Range("D" & linha1).Text Then

Me.Controls("Label" & i).ForeColor = &HFF&

ElseIf Plan2.Range("Q" & linha2).Value = "-" And Plan3.Range("B" & linha1).Value >= Plan3.Range("D" & linha1).Text Then

Me.Controls("Label" & i).ForeColor = &HFF&

End If

Next i

Next linha1

 
Postado : 17/01/2017 11:47 am
 adGere
(@adgere)
Posts: 76
Trusted Member
 

Você quer mudar a cor da fonte ou do fundo do label?
se postar uma planilha de exemplo fica mais facil.

 
Postado : 17/01/2017 7:39 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico