Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Cálculo do volume d...
 
Notifications
Clear all

Cálculo do volume de um objeto.

 
2024 - VBA & Macros
Post Recente por klarc28 7 anos atrás
3 Posts
3 Usuários
0 Reactions
1,040 Visualizações
RSS
 rhudenr
(@rhudenr)
Posts: 19
Active Member
Topic starter
 

Bom dia, gostaria de saber se é possível, desenvolver em VBA, uma planilha que calcule o volume de um objeto e informe quantos cabem em uma caixa com área e volume já definidos.
Exemplo: Hoje eu tenho uma relação em que armazeno todas as caixas e suas respectivas características e realizo esse cálculo manualmente, gostaria de automatizar o procedimento inserindo o tamanho do objeto e que seja calculado automaticamente e já informando a caixa necessária.

 
Postado : 03/01/2018 6:29 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

rhudenr,

Bom dia!

Anexe um arquivo, compactado com .ZIP, informando como é efetuado esse cálculo. Informe, inclusive, como deve ser o resultado esperado. Tudo isso facilitará a rápida resposta por parte de todos os usuários.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 03/01/2018 7:14 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
Private Sub CommandButton1_Click()

On Error Resume Next

Dim volume, altura, comprimento, largura As Double

altura = CDbl(txtAltura.Text)
largura = CDbl(txtLargura.Text)
comprimento = CDbl(txtComprimento.Text)

volume = altura * largura * comprimento


If volume < 100 Then
txtCaixa.Text = "pequena"
End If

If volume >= 100 And volume < 200 Then
txtCaixa.Text = "média"
End If

If volume >= 200 Then
txtCaixa.Text = "grande"
End If


End Sub
 
Postado : 03/01/2018 7:32 am
Forum Jump:
  Tópico Anterior
Próximo Tópico