Domanda Stampare valori su una checkboxlist Visual Basic 2019

Alertix

Utente junior
26 Settembre 2020
26
3
2019
2
Visual Basic:
 Dim y As Integer = 0
            Dim u As Integer
            u = Form4.CheckedListBox1.Items.Count

            For y = 1 To y
                If Form4.CheckedListBox1.SelectedItem(y).Checked = True Then
                    a.Cells(i, 103).value = Form4.CheckedListBox1.SelectedItem(y).ToString
                End If
            Next
Ho provato ad utilizzare questo codice ma non mi funziona i è l'indice della riga di un foglio excel, l'altra volta ho risolto usando le checkbox ma purtroppo ora mi serve perforza una checkboxlist
 

Alertix

Utente junior
26 Settembre 2020
26
3
2019
2
Non va comunque ho messo u e non va mi da errore su l'if
Impossibile trovare il membro pubblico 'Checked' nel tipo 'Char'.
 

muni

VBA Expert
Expert
25 Novembre 2018
547
30
Roma
2013
38
Cancella tutto e scrivi

Codice:
        Dim item As String

        For Each item In CheckedListBox1.CheckedItems
            If CheckedListBox1.GetItemCheckState(CheckedListBox1.Items.IndexOf(item)) Then
                MsgBox(item.ToString)  ' <---- Utilizza item.ToString per salvare il valore nella cella
            End If
        Next
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!