celso joaquim Postado Novembro 24 Denunciar Share Postado Novembro 24 Oi. Alguém pode me dizer como resolver o erro overflow na linha de comando abaixo indicada com >>>>>>: Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "Digite o diametro do moinho.", , MsgTexto Text1.SetFocus Exit Sub End If If Text2.Text = "" Then MsgBox "Digite o comprimento do moinho.", , MsgTexto Text2.SetFocus Exit Sub End If If Text8(0).Text = "" Then MsgBox "Digite o percentual de água.", , MsgTexto Text8(0).SetFocus Exit Sub End If If Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text8(0).Text = "" Or Text9.Text = "" Then MsgBox "Não deixe nenhum campo" & Chr(13) + Chr(10) & "das informações gerais vazio.", vbOKOnly, MsgTexto End If Text23.Text = Format(Pi * ((Val(Text1.Text) / 2) ^ 2) * Val(Text2.Text) * 1000, "###") Text6.Text = Format(Val(Text23.Text) * Val(Text3.Text) * Val(Text4.Text) * Femp / 100, "###") Text7.Text = Format(Val(Text23.Text) * Val(Text5.Text) / 100, "###") Text26.Text = Format(-Val(Text9.Text) / (((1 - Val(Text8(0).Text) / 100) * (Val(Text9.Text) - 1)) - Val(Text9.Text)) * 1000, "####") Text12.Text = Format(Val(Text7.Text) * Val(Text26.Text) / 1000, "####") >>>>>>> Text10.Text = Format((Val(Text7.Text) * Val(Text26.Text)) * Val(Text8(0).Text) / 100000, "###") Text27.Text = Format((100 - (Val(Text8(0).Text))) * 100, "") Text11.Text = Format(Val(Text7.Text) * Val(Text9.Text) * (Val(Text27.Text) / 10000), "####") Text18.Text = Format(Val(Text6.Text) * Val(Text13.Text) / 100, "###") & " Kg" Text19.Text = Format(Val(Text6.Text) * Val(Text14.Text) / 100, "###") & " Kg" Text20.Text = Format(Val(Text6.Text) * Val(Text15.Text) / 100, "###") & " Kg" Text21.Text = Format(Val(Text6.Text) * Val(Text16.Text) / 100, "###") & " Kg" Text22.Text = Format(Val(Text6.Text) * Val(Text17.Text) / 100, "###") & " Kg" Text24.Text = Format(42.3 * (Val(Text25.Text) / 100) / Sqr(Val(Text1.Text)), "###") Text1.SetFocus End Sub Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Frank K Hosaka Postado Novembro 24 Denunciar Share Postado Novembro 24 Eu não consegui chamar uma caixa de texto como Text8(0). Como você conseguiu? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 celso joaquim Postado Novembro 24 Autor Denunciar Share Postado Novembro 24 Foi um acidente. Não sei como. E não consegui modificar. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
celso joaquim
Oi. Alguém pode me dizer como resolver o erro overflow na linha de comando abaixo indicada com >>>>>>:
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Digite o diametro do moinho.", , MsgTexto
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "Digite o comprimento do moinho.", , MsgTexto
Text2.SetFocus
Exit Sub
End If
If Text8(0).Text = "" Then
MsgBox "Digite o percentual de água.", , MsgTexto
Text8(0).SetFocus
Exit Sub
End If
If Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text8(0).Text = "" Or Text9.Text = "" Then
MsgBox "Não deixe nenhum campo" & Chr(13) + Chr(10) & "das informações gerais vazio.", vbOKOnly, MsgTexto
End If
Text23.Text = Format(Pi * ((Val(Text1.Text) / 2) ^ 2) * Val(Text2.Text) * 1000, "###")
Text6.Text = Format(Val(Text23.Text) * Val(Text3.Text) * Val(Text4.Text) * Femp / 100, "###")
Text7.Text = Format(Val(Text23.Text) * Val(Text5.Text) / 100, "###")
Text26.Text = Format(-Val(Text9.Text) / (((1 - Val(Text8(0).Text) / 100) * (Val(Text9.Text) - 1)) - Val(Text9.Text)) * 1000, "####")
Text12.Text = Format(Val(Text7.Text) * Val(Text26.Text) / 1000, "####")
>>>>>>> Text10.Text = Format((Val(Text7.Text) * Val(Text26.Text)) * Val(Text8(0).Text) / 100000, "###")
Text27.Text = Format((100 - (Val(Text8(0).Text))) * 100, "")
Text11.Text = Format(Val(Text7.Text) * Val(Text9.Text) * (Val(Text27.Text) / 10000), "####")
Text18.Text = Format(Val(Text6.Text) * Val(Text13.Text) / 100, "###") & " Kg"
Text19.Text = Format(Val(Text6.Text) * Val(Text14.Text) / 100, "###") & " Kg"
Text20.Text = Format(Val(Text6.Text) * Val(Text15.Text) / 100, "###") & " Kg"
Text21.Text = Format(Val(Text6.Text) * Val(Text16.Text) / 100, "###") & " Kg"
Text22.Text = Format(Val(Text6.Text) * Val(Text17.Text) / 100, "###") & " Kg"
Text24.Text = Format(42.3 * (Val(Text25.Text) / 100) / Sqr(Val(Text1.Text)), "###")
Text1.SetFocus
End Sub
Link para o comentário
Compartilhar em outros sites
2 respostass 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.