Associare colore textbox a colore cella excel

Ciao a tutti, volevo sapere se fosse possibile colorare una textbox dello stesso colore di una cella excel, usando naturalmente vb. Grazie in anticipo

Buona sera, terrasamba;
la mia proposta non è sicuramente la più performante, anzi.
Può comunque essere una base di partenza su cui riflettere.

Per modificare il colore di un TextBox credo si debba agire sul colore definito con RGB.
Faccio un esempio:

Private Sub TextBox1_GotFocus()
Select Case ActiveCell.Interior.ColorIndex
        Case 6
            TextBox1.BackColor = RGB(255, 255, 0)     '     Giallo
        Case 44
            TextBox1.BackColor = RGB(255, 204, 0)     '     Oro
        Case 3
            TextBox1.BackColor = RGB(255, 0, 0)       '     Rosso
    End Select
End Sub

chiaramente se desideri gestire tutti i 40 colori della tavolozza, diventa molto, forse troppo, laborioso.

Se hai qualche suggerimento, fammi sapere. Grazie

Giuseppe

Originariamente inviato da GiuseppeMN

Buona sera, terrasamba;
la mia proposta non è sicuramente la più performante, anzi.
Può comunque essere una base di partenza su cui riflettere.

Per modificare il colore di un TextBox credo si debba agire sul colore definito con RGB.
Faccio un esempio:

Private Sub TextBox1_GotFocus()
Select Case ActiveCell.Interior.ColorIndex
        Case 6
            TextBox1.BackColor = RGB(255, 255, 0)     '     Giallo
        Case 44
            TextBox1.BackColor = RGB(255, 204, 0)     '     Oro
        Case 3
            TextBox1.BackColor = RGB(255, 0, 0)       '     Rosso
    End Select
End Sub

chiaramente se desideri gestire tutti i 40 colori della tavolozza, diventa molto, forse troppo, laborioso.

Se hai qualche suggerimento, fammi sapere. Grazie

Giuseppe

Buonasera,
cosi va benissimo! Alla fine avevo deciso di colorare le textbox in base al valore che la stessa textbox prendeva da una cella; a me servivano solo 2 colori e, grazie al tuo consiglio, sono andato a cercare su google i codici dei colori che mi interessavano (metto il link casomai possa servire a qualcuno): Color Palette and the 56 Excel ColorIndex Colors

Grazie mille!