› Sviluppare funzionalita su Microsoft Office con VBA › USERFORM CON CHECKBOX
-
AutoreArticoli
-
Buongiorno ho creato una userform con checkbox che mi restituisce VERO o FALSO.
se volessi trasformare quel vero in una Parola come "AUT" e il FALSO in vuoto, come posso fare?
Ho risoloto con la formula del =se(.....), ma volevo direttamente in VBA.
Grazie come sempre
Allegati:
You must be logged in to view attached files.Ciao @ammon!
Io faei così:
If UserForm1.CheckBox1.Value = True Then
'Settaggio con vlaore desiderato
Else
'Settaggio con vlaore desiderato
End IfCiao @ammon!
Non ti offendere, ma se hai difficoltà ad attribuire un valore ad una cella, andiamo male!
Ad ogni modo per esempio potrebbe essere così:
ThisWorkbook.Worksheets("NOMEFOGLIO").Range("A", Riga).Value = "VALORE"
si è così..sto cercando di capire..
in ogni caso dovrebbe implementarsi in qst codice
Private Sub CommandButton1_Click() Application.ScreenUpdating = False Sheets("A").Select 'si seleziona un'altro foglio Dim iRow As Integer iRow = 2 While Cells(iRow, 1).Value <> "" iRow = iRow + 1 Wend Cells(iRow, 1) = Cells(iRow, 1).Offset(-1, 0) + 1 Cells(iRow, 2) = Textnome.Text Cells(iRow, 3) = Textdata.Text Cells(iRow, 4) = Textdestinazione.Text Cells(iRow, 5) = Textpartenza.Text Cells(iRow, 6) = CheckBox1 Unload Me Sheets(1).Select End Sub
Prova così
`Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Cells(1, 1) = "AUT" Else Cells(1, 1) = "" End If End Sub`
Allegati:
You must be logged in to view attached files.risolto così
Private Sub CheckBox1_Click() Sheets("A").Select 'si seleziona un'altro foglio Dim iRow As Integer iRow = 2 While Cells(iRow, 1).Value <> "" iRow = iRow + 1 Wend If CheckBox1.Value = True Then Cells(iRow, 6) = "AUT" Else Cells(iRow, 6) = "" End If End Sub
GRAZIE A TUTTI...
-
AutoreArticoli