Cella con menů |
|
| Storico
discussioni |
|
| Cella con menů a comparsa di
Roberto |
Avrei bisogno di un codice per una macro che mi
permetta di avere un menů a comparsa nel momento che seleziono una
determinata cella.
Cioč se clicco su una cella si deve aprire
una tendina con delle opzioni di scelta che rimangano poi come
valore/testo della stessa cella.
Non sň se mi sono spiegato...
Grazie per un possibile input di idee...
Roberto |
|
| di apoben64 |
Ciao Roberto,benvenuto andando per gradi , potresti
usare una combobox , la quale prevede la creazione di menů a tendina
che si carica da un’ elenco a parte, e una volta fatta la scelta
questa appare nella cella prescelta.
Quello che adesso non si
capisce, e cioč il fine “selezionare una determinata cella “, Quale
? “ cliccare su una cella “ e ottenere l’apparizione del menu a
comparsa o della combobox. Nel senso che qualsiasi tipo di comando
della cella avviene o puň avvenire con qualche evento della cella
stessa , es. cambio colore,valore, formattazione, ecc.
Quindi
dovresti essere un po’ piů preciso !
Magari visionare un file
d’esempio di quello che vuoi fare puň essere utile !
Facci
sapere !
|
|
| di Mauro |
La routine seguente va inserita nel modulo di
foglio da utilizzare.
Un click col tasto dx del mouse sulla
cella "A1" avvia la finestra "Userform1".
Private Sub
Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As
Boolean)
On Error GoTo 10
If
ActiveCell.Address(RowAbsolute:=False, _
columnabsolute:=False)
= "A1" Then
Userform1.Show
End If
Exit Sub
10:
If Err.Number <> 1004 Then
Msg = "Errore " &
Str(Err.Number) & " generato da " _
& Err.Source &
Chr(13) & Err.Description
MsgBox Msg, , "Errore",
Err.HelpFile, Err.HelpContext
End If
Exit Sub
End
Sub |
|
| |