Ir para conteúdo
Fórum Script Brasil
  • 0

Duvida quanto ao VBA


Cleisonjr

Pergunta

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

  • 0

Veja se está em linha com o que espera/deseja

Sub Monitor_Temp_Umidade()
Dim Temp_Ideal As Integer
Dim Umid_Ideal As Integer

Temp_Ideal = Range("C4").Value
Umid_Ideal = Range("D4").Value

    If (Temp_Ideal >= 20) And (Temp_Ideal <= 30) Or (Umid_Ideal >= 75) And (Umid_Ideal <= 85) Then
        'Ideal'
        Range("E4").Value = "Ideal"
    ElseIf (Temp_Ideal > 30) And ((Umid_Ideal > 85) And (Umid_Ideal <= 90)) Then
        'Atenção'
        Range("E4").Value = "Atencão"
    ElseIf (Temp_Ideal) > 30 And (Umid_Ideal < 30) Then
        'Alarme'
        Range("E4").Value = "Alarme"
        MsgBox "Atenção" + "!", vbCritical, "EMERGENCIA"
    End If
End Sub
 

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...