INSERIMENTO CODICE
 
Notifiche
Cancella tutti

La consultazione del forum è libera per tutti.

Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).

Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.

INSERIMENTO CODICE

 

cromagno
(@cromagno)
Excel Guru Moderatore
Registrato: 7 mesi fa
Post: 120
Avviatore di Topic  
Sub QuestaFunziona()
    
    Range("J8").Value = "IO"
    Range("J9").Value = "TU"
    Range("J10").Value = "NOI"
    Range("J11").Value = "VOI"

    With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
                Link:=False, DisplayAsIcon:=False, Left:=96, Top:=31.5, Width:=129.75, _
                Height:=57)
        .Name = "MyComboTest"
        .ListFillRange = "J8:J11"
        .LinkedCell = "K2"
        .Object.Value = "scegli"
        .Object.ForeColor = vbCyan
        .Object.ListRows = 3
        .Object.TextAlign = 2
        .Object.Font.Name = "Times New Roman"
        .Object.Font.Bold = True
        .Object.Font.Italic = True
        .Object.Font.Size = 14
    End With
End Sub
Versione di Excel
Excel 2019
Sistema operativo
Windows

"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."


Quota
Condividi:

[]
×