Excel VBA TextBoxes Planilha divisão resto

Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções

Planilha Excel VBA TextBoxes dividindo pelo restante


Este procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando um objeto Userform TextBoxes e Labels, vamos calcular a divisão de um determinado numero, retornaremos a parte inteira e também o resto usando a propriedade MOD.
‘//========’

Private Sub CommandButton1_Click()
txtNUM1.Value = “”
txtNUM2.Value = “”
lblMODO.Caption = “”
lblINTEIRO.Caption = “”
lblINFO.Caption = “”
txtNUM1.SetFocus
End Sub

Private Sub txtNUM1_Change()
sbCALCULO
End Sub

Private Sub txtNUM1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Or (KeyAscii = 48 And Len(txtNUM1) = 0) Then KeyAscii = 0
End Sub

Private Sub txtNUM2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
sbCALCULO
End Sub

Private Sub txtNUM2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Or (KeyAscii = 48 And Len(txtNUM2) = 0) Then KeyAscii = 0
End Sub

Function sbCALCULO()
x = Cells(Rows.Count, “k”).End(xlUp).Row ‘ + 1
If Len(txtNUM1) = 0 Or Len(txtNUM2) = 0 Then lblMODO.Caption = “”: lblINTEIRO.Caption = “”: Exit Function
lblMODO.Caption = txtNUM1 Mod txtNUM2
lblINTEIRO.Caption = (CLng(txtNUM1) – CLng(lblMODO.Caption)) / txtNUM2
lblINFO.Caption = “DIVISÃO:  [ ” & txtNUM1.Value & “/” & txtNUM2 & ” ]”
Cells(x + 1, “k”).Value = txtNUM1
Cells(x + 1, “m”).Value = txtNUM2
Cells(x + 1, “o”).Value = lblINTEIRO.Caption
Cells(x + 1, “q”).Value = lblMODO.Caption
Cells(x + 1, “s”).Value = Now()
End Function

‘//===========’ 

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.

Compre pelo PagSeguro		Compre pelo PayPal

Material Didático: Curso Excel VBA Expert

Baixe o exemplo de planilha contendo os macros acima:

Excel VBA TextBoxes Planilha divisão resto

<< Verifique seu email: Itens Excluídos, caso não esteja em Caixa de Entrada >>

Seu Nome - Receber o Arquivo por Email Seu Email Válido: para Enviar o Link do Arquivo

Excel VBA TextBoxes Planilha divisão resto