Larghezza combobox convalida dati

Hai un problema con Excel?

Nuova discussione

Larghezza combobox convalida dati
di Il Toscanaccio (utente non iscritto) data: 17/09/2015 17:55:02
Salve a tutti!
In una colonna del foglio ho una combobox di convalida dati su elenco. Il problema è legato al fatto che la cella è stretta dato che l'orientamento del testo è verticale per cui vedo solo le prime 2 lettere dell'elenco a discesa del convalida dati.
La domanda è: c'è il modo di allargare la combobox in modo da vedere l'intero campo (che è di 5 caratteri) all'interno dell'elenco a discesa senza necessariamente allargare la cella stessa, permettendogli di invadere fino a che è visibile, la cella addiacente?
Grazie
di alfrimpa data: 17/09/2015 18:09:15
Non credo.

La Convalida Dati è legata alla cella per cui se allarghi/stringi la colonna la convalida avrà le stesse dimensioni.

Alfredo
di cromagno data: 17/09/2015 18:27:49
Ciao a tutti,
si potrebbero scrivere un paio di righe di codice nell'evento SelectionChange che allargano la cella (colonna) del convalida dati e la ridimensionano alla fine della routine...
di Il Toscanaccio (utente non iscritto) data: 17/09/2015 20:23:12
Scusa Cromagno:
nel senso in cui al momento che consulti l'elenco a discesa la colonna s'allarga ed una volta scelto torna alle dimensioni originali?
di alfrimpa data: 17/09/2015 20:31:50
No nel senso che quando il cursore è sulla colonna della convalida questa si allarga e si restringe quando si sposta il cursore.

Tore ho interpretato giusto?

Alfredo
di cromagno data: 17/09/2015 20:33:06
esattamente...
Ora non ho il pc e non mi azzardo a scrivere qualcosa senza prima averlo provato

[EDIT]
va bene anche se si seleziona la cella con il convalida dati. Una volta cambiata la selezione (quindi "not intersect" per capirci) la cella riprende le sue normali dimensioni.

di cromagno data: 17/09/2015 21:00:32
Ci provo...
al massimo verrà corretto
Supponendo che la cella con il convalida dati sia la F3...

Private sub Worksheets_SelectionChange (Byval target as range)
If Not Intersect (target, range("F3")) Is Nothing then
Target.Columnwidth = 20
Else
Range("F3").Columnwidth = 8
End if
End Sub

Vuoi Approfondire?