› Sviluppare funzionalita su Microsoft Office con VBA › calcoli automatici in userform
-
AutoreArticoli
-
Ciao a tutti,
provando a farlo da solo, ho cercato di realizzare un calcolo automatico nella mia userform1 tramite questo codice
Private Sub TxtDaPag_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim accordato As Double Dim acconto As Double Dim nettoAPagare As Double Dim numeroRate As Integer Dim importoRata As Double ' Recupera i valori dalle textbox accordato = TxtAccord.Value acconto = TxtAccTo.Value numeroRate = TxtNumRate.Value ' 1. Calcolo Netto a Pagare TxtNetto_a_Pagare.Value = TxtAccord.Value - TxtAccTo.Value ' 2. Calcolo Importo Rata (senza interessi) If numeroRate > 0 Then TxtDaPag.Value = TxtNetto_a_Pagare.Value / TxtNumRate.Value Else MsgBox "Il numero di rate deve essere maggiore di zero." Exit Sub End If End SubQuando però vado a confermare l'inserimento dei dati da trasferire nel foglio di lavoro, questa cosa me la fa però prima mi segnala un errore in queste righe del codice stesso
' Recupera i valori dalle textbox accordato = TxtAccord.Value acconto = TxtAccTo.Value numeroRate = TxtNumRate.ValueDove sbaglio ?
Oltretutto non riesco a settare bene la tabulazione anche se a vederla mi sembra giusta, ma da TxtDaPag a CmdInvia, invece che andarci direttamente come da ordine di tabulazione stessa, il cursore compie di nuovo tutto il giro delle textbox presenti nella userform1. Tutto questo, cher prima funzionava bene, ovviamente usando il tasto TAB.
E' possibile risolvere per favore ?
Grazie a tutti, allego file esempio
Allegati:
You must be logged in to view attached files. -
AutoreArticoli
