Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
ciao a tutti
Ho una Userfom che tramite delle textbox inserisce dei valori in un foglio excel, questi valori servono per fare un calcolo e il relativo risultato appare nella cella A1
Volevo sapere se è possibile inserire nella stessa Userform una text box (o qualcos'altro) che mi fa vedere il risultato nella cella A1 "in diretta"
Grazie
Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.
Risposta accettata dall'autore della domanda
Ciao Andrea,
per curiosità, cosa cambia rispetto quello che ho scaricato prima?
L'espressione
Me.Label11.Caption = .Range(sCellaConFormula).Value
diventa
Me.Label11.Caption = .Range(sCellaConFormula).Text
===
Regards,
Norman
Risposta accettata dall'autore della domanda
Ciao Andrea,
come puoi vedere il risultato che deve apparire sulla Label è quello della cella L7
se ti serve la password è "0"
Nel modulo di codice della tua Userform, sostituisci il codice con:
'========>>
Option Explicit
Private Const sCellaConFormula As String = "L7"
Private Sub TextBox1_Change()
With Worksheets("NIPPLO")
.Cells(7, 6).Value = TextBox1.Text
Me.Label11.Caption = .Range(sCellaConFormula).Text
End With
End Sub
Private Sub TextBox10_Change()
With Worksheets("NIPPLO")
.Cells(9, 5).Value = TextBox10.Text
Me.Label11.Caption = .Range(sCellaConFormula).Text
End With
End Sub
Private Sub TextBox2_Change()
With Worksheets("NIPPLO")
.Cells(7, 3).Value = TextBox2.Text
Me.Label11.Caption = .Range(sCellaConFormula).Text
End With
End Sub
Private Sub TextBox3_Change()
With Worksheets("NIPPLO").Cells(7, 4)
.Value = TextBox3.Text
Me.Label11.Caption = .Range(sCellaConFormula).Text
End With
End Sub
Private Sub TextBox4_Change()
With Worksheets("NIPPLO")
.Cells(8, 4).Value = TextBox4.Text
Me.Label11.Caption = .Range(sCellaConFormula).Text
End With
End Sub
Private Sub TextBox5_Change()
With Worksheets("NIPPLO")
.Cells(7, 5).Value = TextBox5.Text
Me.Label11.Caption = .Range(sCellaConFormula).Text
End With
End Sub
Private Sub TextBox7_Change()
With Worksheets("NIPPLO")
.Cells(11, 5).Value = TextBox7.Text
Me.Label11.Caption = .Range(sCellaConFormula).Text
End With
End Sub
Private Sub TextBox6_Change()
With Worksheets("NIPPLO")
.Cells(7, 2).Value = TextBox6.Text
Me.Label11.Caption = .Range(sCellaConFormula).Text
End With
End Sub
Private Sub TextBox8_Change()
With Worksheets("NIPPLO")
.Cells(11, 6).Value = TextBox8.Text
Me.Label11.Caption = .Range(sCellaConFormula).Text
End With
End Sub
Private Sub TextBox9_Change()
With Worksheets("NIPPLO")
.Cells(11, 7).Value = TextBox9.Text
Me.Label11.Caption = .Range(sCellaConFormula).Text
End With
End Sub
'<<========
Potresti scaricare il file aggiornato Andrea20210214.xlsm
===
Regards,
Norman
Ciao Andrea,
Private Sub TextBox1_Change()
Worksheets("NIPPLO").Cells(7, 6).Value = TextBox1.Text
End Sub
Private Sub TextBox10_Change()
Worksheets("NIPPLO").Cells(9, 5).Value = TextBox10.Text
End Sub
Private Sub TextBox2_Change()
Worksheets("NIPPLO").Cells(7, 3).Value = TextBox2.Text
End Sub
Private Sub TextBox3_Change()
Worksheets("NIPPLO").Cells(7, 4).Value = TextBox3.Text
End Sub
Aggiungi un Label (Label1) e prova il seguente codice:
'========>>
Option Explicit
'-------->>
Private Sub TextBox1_Change()
With Worksheets("NIPPLO")
.Cells(7, 6).Value = TextBox1.Text
Me.Label1.Caption = .Range("A1").Value
End With
End Sub
'-------->>
Private Sub TextBox10_Change()
With Worksheets("NIPPLO")
.Cells(9, 5).Value = TextBox10.Text
Me.Label1.Caption = .Range("A1").Value
End With
End Sub
'-------->>
Private Sub TextBox2_Change()
With Worksheets("NIPPLO")
.Cells(7, 3).Value = TextBox2.Text
Me.Label1.Caption = .Range("A1").Value
End With
End Sub
'-------->>
Private Sub TextBox3_Change()
With Worksheets("NIPPLO")
.Cells(7, 4).Value = TextBox3.Text
Me.Label1.Caption = .Range("A1").Value
End With
End Sub
'<<========
===
Regards,
Norman
ciao Norman
Private Sub TextBox1_Change()
Worksheets("NIPPLO").Cells(7, 6).Value = TextBox1.Text
End Sub
Private Sub TextBox10_Change()
Worksheets("NIPPLO").Cells(9, 5).Value = TextBox10.Text
End Sub
Private Sub TextBox2_Change()
Worksheets("NIPPLO").Cells(7, 3).Value = TextBox2.Text
End Sub
Private Sub TextBox3_Change()
Worksheets("NIPPLO").Cells(7, 4).Value = TextBox3.Text
End Sub
Ciao Andrea,
Ho una Userfom che tramite delle textbox inserisce dei valori in un foglio excel, questi valori servono per fare un calcolo e il relativo risultato appare nella cella A1
Volevo sapere se è possibile inserire nella stessa Userform una text box (o qualcos'altro) che mi fa vedere il risultato nella cella A1 "in diretta"
Se posti il codice che inserisce i dati dalle TextBox nel foglio, lo aggiornerò in modo da riportare il valore della cella A1 in un'etichetta sulla Userform.
===
Regards,
Norman