Larghezza colonna ComboBox

Hai un problema con Excel?

Nuova discussione

Larghezza colonna ComboBox
di Paul (utente non iscritto) data: 01/12/2016 13:37:12
Ciao, ho un problema con un codice: ho una ComboBox che deve avere necessariamente una certa dimensione, ma vorrei che si allarghi ogni volta che viene selezionata, per poi tornare alla dimensione originale una volta che si è selezionato l'Item d'interesse.
Quando clicco sul DropButton effettivamente il box si allarga, però quando seleziono l'item non cambia più dimensione. Non capisco proprio perché, visto che l'altra azione compiuta con il ComboBox9_Change() non dà nessun tipo di problema
Private Sub ComboBox9_DropButtonClick() ComboBox9.Width = 150 End Sub Private Sub ComboBox9_Change() Range("c7").Value = ComboBox9.Value ComboBox9.Width = 90.75 End Sub
di alfrimpa data: 01/12/2016 14:15:54
Ciao Paul

Prova ad associare il secondo codice all'evento Click della combo.

Alfredo
di Paul (utente non iscritto) data: 01/12/2016 14:52:49
Ciao Alfredo,

ci ho già provato ma niente.

di Alessandro (utente non iscritto) data: 01/12/2016 15:14:06
Ciao prova così ti ho anche allegato un File

Private Sub UserForm_Activate()
With ComboBox1
     .AddItem "1"
     .AddItem "2"
     .AddItem "3"
     .AddItem "4"
     .AddItem "5"
     .AddItem "6"
     .AddItem "7"
     .AddItem "8"
     .AddItem "9"
     .AddItem "10"
End With
End Sub
Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If ComboBox1.Width = 150 Then
    ComboBox1.Width = 50
    Else
    ComboBox1.Width = 150
    End If
End Sub

di Paul (utente non iscritto) data: 01/12/2016 15:26:59
Grazie mille! è un'ottima soluzione!

Segnalo solo che se per sbaglio si clicca sulla casella cambia dimensione lo stesso e bisogna ricliccarci sopra per riportarlo alla dimensione standard... Detto questo va benissimo lo stesso, grazie ancora

Vuoi Approfondire?