Venedo al dunque... ho deciso di costruire una userform per un foglio di calcolo e sto costruendone l'impalcatura (sono all' inizio) che poi modificherò inserendo altre cose, il problema è che non riesco a far fare una sottrazione e mostrarla sottoforma di formato valuta
Faccio un esempio, nell' immagine seguente è stato inserito un importo di 15000 euro sulla casella denominata AMMONTARE (questa sarebbe la base) poi nella casella COMPONENTE 1 ho inserito 8000 euro, ed ecco ora arriva il problema : nella casella COMPONENTE 2 in automatico drovrebbe comparire il valore 7000 euro invece mi compare 7 ??? non capisco dove sta l'errore
nel codice seguente ho inserito dappertutto il formato che desidero ma solo nella sub della textbox2 non viene eseguito e non capisco perchè, ho provato anche a variare il codice tipo cose come....
Private Sub TextBox2_Change()
Dim componente2 As Currency
componente2 = Val(TextBox4.Value) - Val(TextBox1.Value)
TextBox2.Value = componente2
creando prima una variabile... e altre varianti più o meno fantasiose ma non ho risolto comunque il problema
Qual è il codice corretto per far comparire 7000 € nella casella dove ora sta il 7 ?
legenda dell' immagine a seguire:
su Textbox4 c'è = 15000
su textbox1 c'è = 8000
su textbox2 c'è = 7
- Codice: Seleziona tutto
Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "#,#00.00 €")
TextBox2.Value = Val(TextBox4.Value) - Val(TextBox1.Value)
End Sub
Private Sub TextBox2_Change()
TextBox2 = Format(TextBox2, "#,#00.00 €")
TextBox2.Value = Val(TextBox4.Value) - Val(TextBox1.Value)
End Sub
Private Sub TextBox4_AfterUpdate()
TextBox4 = Format(TextBox4, "#,#00.00 €")
TextBox2.Value = Val(TextBox4.Value) - Val(TextBox1.Value)
End Sub
GRAZIE per la vostra attenzione