Prezados, necessito com urgência, criar um programa no VBA ( Não tenho afinidade com VBA o meu conhecimento é muito limitado) que vai monitorar os valores de temperatura e umidade.
Tipo a temperatura deverá ser no minimo 20°C e no max 30°C para ser ideal, e a umidade entre 75 a 85, caso a temperatura esteja acima de 30 graus e a umidade esteja 85 e 90 mostra mensagem de atenção, caso a temperatura esteja abaixo de 30 e a umidade a umidade abaixo de 30 mostra mensagem de alarme. da forma que fiz não funcionou.
Sub Monitor_Temp_Umidade()
Dim Temp_Ideal, Umid_Ideal As Boolean
Pergunta
Cleisonjr
Prezados, necessito com urgência, criar um programa no VBA ( Não tenho afinidade com VBA o meu conhecimento é muito limitado) que vai monitorar os valores de temperatura e umidade.
Tipo a temperatura deverá ser no minimo 20°C e no max 30°C para ser ideal, e a umidade entre 75 a 85, caso a temperatura esteja acima de 30 graus e a umidade esteja 85 e 90 mostra mensagem de atenção, caso a temperatura esteja abaixo de 30 e a umidade a umidade abaixo de 30 mostra mensagem de alarme. da forma que fiz não funcionou.
Sub Monitor_Temp_Umidade()
Dim Temp_Ideal, Umid_Ideal As Boolean
Temp_Ideal = Range("C4").Value
Umid_Ideal = Range("D4").Value
If (Temp_Ideal >= 20) Or (Temp_Ideal <= 30) And (Umid_Ideal >= 75) Or (Umid_Ideal <= 85) Then
'Ideal'
Range("E4").Value = "Ideal"
Else
If (Temp_Ideal > 30) And (Umid_Ideal > 85) Or (Umid_Ideal <= 90) Then
'Atenção'
Range("E4").Value = "Atencão"
Else
If (Temp_Ideal) > 30 And (Umid_Ideal < 30) Then
'Alarme'
Range("E4").Value = "Alarme"
MsgBox "Atenção" + "!", vbCritical, "EMERGENCIA"
End If
End If
End If
End Sub
desde já agradeço a compreensão e a colaboração.
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.