Personalizzare i caratteri di una combo box

Question

Buongiorno a tutti,

ho un paio di domande da porre su excel, la prima è che vorrei personalizzare i caratteri di una combo box. Nella combobox che ho creato ci sono due selezioni possibili:

"SI"

"NO"

Non riesco però a fare in modo che il "SI" compaia con il carattere in verde ed il "NO" in rosso.

C'è un qualche modo di personalizzare la selezione della combobox?

Il secondo problema è che quando seleziono nella combobox il valore "SI", la cella a destra della combo si dovrebbe colorare di verde mentre se seleziono "NO", si deve colorare in rosso.

Utilizzo Excel 2002 SP3 e SO Windows XP.

Ringrazio!

Answer 1

Ciao Kangarello,

Sostituisci il codice precedente con:

'=========>>

Option Explicit

'--------->>

Private Sub ComboBox1_Change()

    Dim rng As Range

    With Me.ComboBox1

        Set rng = .TopLeftCell.Offset(0, 1)

        Select Case .Value

        Case "SI"

            .ForeColor = vbRed

            rng.Interior.Color = vbRed

        Case "NO"

            .ForeColor = vbGreen

            rng.Interior.Color = vbGreen

        Case Else

            .ForeColor = &HFFFFFF

            rng.Interior.Color = xlNone

        End Select

    End With

End Sub

'<<=========

===

Regards,

Norman

Answer 2

Ciao,

ho scaricato la macro ma non mi fa selezionare nessuno dei due valori (SI, NO)

Answer 3

Ciao Kangarello,

Per sempre vedere il contenuto del controllo ComboBox, sostituisci

        Case Else

            .ForeColor = &HFFFFFF

con:

        Case Else

            .ForeColor = vbBlack

===

Regards,

Norman

Answer 4

Ciao Kangarello,

• Inserisci un controllo ComboBox activeX sul foglio 

Fai clic dx sulla linguetta del foglio di interesse

• Seleziona l'opzione Visualizza Codice dal **** menu contestuale risultante
• Incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Private Sub ComboBox1_Change()

    Dim rng As Range

    With Me.ComboBox1

        Set rng = .TopLeftCell.Offset(0, 1)

        Select Case .Value

        Case "SI"

            .BackColor = vbRed

            rng.Interior.Color = vbRed

        Case "NO"

            .BackColor = vbGreen

            rng.Interior.Color = vbGreen

        Case Else

            .BackColor = vbBlack

            rng.Interior.Colorinex = xlNone

        End Select

    End With

End Sub

'<<========= 

• Alt+Q per chiudere l'editor di VBA e tornare a Excel.
• Salva il file con l'estensione xlsm.

Potresti scaricare il mio file di prova Kangarello20160309.xlsm a: 

https://www.dropbox.com/s/b0w4wrx94atpulc/Kangarello20160309.xlsm?dl=0

===

Regards,

Norman