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,
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
Ciao e grazie
ciao Norman
funziona tutto, grazie 1000
Buona giornata e alla prossima....
ciao
Ti ringrazio per il cortese riscontro.
Nota che ho leggermente modificato il codice e ho aggiornato il mio file di prova Andrea20210214.xlsm
Alla prossima.
===
Regards,
Norman
per curiosità, cosa cambia rispetto quello che ho scaricato prima?
ciao Norman
funziona tutto, grazie 1000
Buona giornata e alla prossima....
ciao
Ti ringrazio per il cortese riscontro.
Nota che ho leggermente modificato il codice e ho aggiornato il mio file di prova Andrea20210214.xlsm
Alla prossima.
===
Regards,
Norman