vba2003: aggiornare textbox TOTALE automaticamente

[karug64]

Salve a tutti.
Nel mio form ho quattro textbox in cui la proprieta' controlsource e' impostata su 4 celle del foglio "Word"
Quindi
t1.controlsource = word!B1
t2.controlsource = word!B2
t3.controlsource = word!B3
t4.controlsource = word!B4

tramite una routine che richiamo su un click scrivo sul foglio word nelle caselle B1,B2,B3 dei numeri
il textbox4 va compilato manualmente.

nel t5 avrei bisogno di avere il totale di t1+t2+t3+t4 in automatico, cioe' man mano che l'utente inserisca o modifichi i valori nei singoli textbox senza dover ricorrere ad un button (che sarebbe semplicissimo ....)

C'e' un modo per farlo o e' impossibile ?

Grazie

[ricky53]

Ciao,
puoi sfruttare l'evento "Change"

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
' Qui metti le istruzioni che ti occorrono
End Sub

del foglio sul quale stai inserendo/modificando i dati.

[Anthony47]

Da quello che dici mi pare che potresti sfruttare l' evento TextBox4_Change (non Worksheet_Change), in modo che man mano che carichi un valore venga sommato al valore dei textbox precedenti.
Trattandosi di "textbox" userai la funzione CDbl per convertire il text in valori numerici, e dovrai controllare anche che il text non sia "nullo"; insomma qualcosa come

Codice: Seleziona tutto

Private Sub TextBox4_Change()
Call Totale
End Sub

Sub Totale()
myTot = 0
If UserForm1.TextBox1.Text <> "" Then myTot = CDbl(TextBox1)
If UserForm1.TextBox2.Text <> "" Then myTot = myTot + CDbl(TextBox2)
'etc
'etc
UserForm1.TextBox5 = myTot
End Sub


Ho messo in una macro "Totale" a se' stante le istruzioni di calcolo del valore T5 perche' il mio consiglio e' di inserire una Call Totale anche in coda alla routine che scrive "sul foglio word nelle caselle B1,B2,B3", in modo da attivare anche in quella fase la compilazione del T5.
Se Textbox1-4 sono a loro volta modificabili, allora sara' necessario inserire ulteriori macro di evento TextBoxXy_Change (TextBox1_Change, TextBox2_Change, etc) tutte contenenti la stessa Call Totale.

Ciao