Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Comparar dados
 
Notifications
Clear all

Comparar dados

 
2024 - VBA & Macros
Post Recente por koiso 10 anos atrás
6 Posts
2 Usuários
0 Reactions
1,374 Visualizações
RSS
 koiso
(@koiso)
Posts: 0
New Member
Topic starter
 

Bom dia

Estou a desenvolver um mini programa em VBA que me irá ser bastante útil no meu trabalho diário.

Basicamente o que preciso é que o programa VBA me compare valores e me de uma conclusão dessa comparação.
Se os valores introduzidos na textbox estiverem dentro de um intervalo, uma Label tomará o valor que eu pretendo, se estiver noutro intervalo, a label terá entao outro valor.

O codigo que estou a usar é o seguinte:

If textbox1 > 1000 Then
Label1 = "Não Satisfatório"
Label1.ForeColor = RGB(255, 0, 0)
ElseIf textbox1 <= 10 Then
Label1.Caption = "Satisfatório"
Label1.ForeColor = RGB(0, 255, 0)
Else
Label1.Caption = "Aceitável"
Label1.ForeColor = RGB(0, 0, 255)

Este código funciona se eu colocar na textbox valores como:1;2;3;4;5....
Mas eu queria que ele comparasse tambem se eu colocar valores como:<1;<=1;<2....

Grato pela ajuda

 
Postado : 30/03/2015 5:33 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu não compreendi sua dúvida.

Você pretende acrescentar na estrutura que já tem?

Att

 
Postado : 30/03/2015 5:43 am
 koiso
(@koiso)
Posts: 0
New Member
Topic starter
 

Bom dia alexandrevba,

Eu gostaria que ao colocar na minha textbox valors como <1 ou <=1 ele os fosse tambem comparar.

Por exemplo, como está o codigo agora
Se eu colocar na minha textbox1 o valor 1, a minha label1 retornará a mensagem "Satisfatório". Perfeito! :)
Se eu colocar na minha textbox1 o valor <1 a minha label1 retorna a mensagem "Não Satisfatório", esse valor como é <=10 eu queria que retornasse na label1 a mensagem "Satisfatório"

O problema aqui é que quando coloco os sinais de > ou < antes do numero na textbox a mensagem na label1 não aparece com a lógica do codigo

 
Postado : 30/03/2015 6:07 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Enquanto o pessoal não responde, poste seu arquivo modelo compactado!

Att

 
Postado : 30/03/2015 2:39 pm
 koiso
(@koiso)
Posts: 0
New Member
Topic starter
 

Boa tarde

Segue o meu arquivo modelo

Obrigado pela ajuda

 
Postado : 31/03/2015 7:26 am
 koiso
(@koiso)
Posts: 0
New Member
Topic starter
 

Reparei agora que o ficheiro que enviei não estava funcional.

Deixarei agora aqui o correto.

Peço desculpa e mais uma vez obrigado :P

 
Postado : 31/03/2015 8:18 am
Forum Jump:
  Tópico Anterior
Próximo Tópico