calcoli tra valori in textbox

[VelenoPartecipante Veleno]

Sub Calcola_area()
If TextBox1.Value <> "" And TextBox2.Value <> "" Then TextBox3 = TextBox1.Value * TextBox2.Value
TextBox3 = Format(TextBox3, "#,##")
End Sub

perche' questa condizione?

[VelenoPartecipante Veleno]

Sub Calcola_area()
If TextBox1.Value <> "" And TextBox2.Value <> "" Then TextBox3 = TextBox1.Value * TextBox2.Value
TextBox3 = Format(TextBox3, "#,##")
End Sub

poi questa mi intriga da morire a che servira'? Boh 

[VelenoPartecipante Veleno]

Buongiorno. Stavo rifacendo i compiti ed ho intuito la tua perplessità.

Quando il mio cliente vuole una misura diversa da quelle indicate in combobox allora viene scritto in rosso 25% affianco alla textbox .All'inizio ho dichiarato una variabile double prezzo e la ho inizializzata a 77,81 € qui deve intervenire la maggiorazione di prezzo cioe' area *prezzo*1.25 .

Spero di essere stato chiaro Grazie 

[GiuseppeMNPartecipante GiuseppeMN Karma: 19 pts]

Buona giornata a Tutti;
come promesso condivido gli sviluppi di questa Discussione.

In Skype, con la condivisone dello schermo, ho proposto una soluzione senza ComboBox e senza TestBox.

In allegato il File è protetto per consentire a @veleno, che saluto, di valutare le protezioni; i Codici VBA sono:

`Option Explicit

Private Sub ListBox_Lunghezza_Change()
Cells(2, 7).Value = ListBox_Lunghezza.Value
End Sub
Private Sub ListBox_Larghezza_Change()
Cells(6, 7).Value = ListBox_Larghezza.Value
End Sub`

Come di consueto,dopo aver aperto il File, il File va salvato nella Directory (Cartella) di servizio, chiuso e riaperto.

 

A disposizione.

Giuseppe

Allegati:

You must be logged in to view attached files.

[Autore]

Articoli