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,026 Visualizações
RSS
 rhudenr
(@rhudenr)
Posts: 0
New 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-vidal-nobre)
Posts: 4063
Famed 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.

 
Postado : 03/01/2018 7:14 am
 klarc28
(@klarc28)
Posts: 0
New 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