Risultati da 1 a 9 di 9

Discussione: Casella di testo con formato di controllo



  1. #1
    L'avatar di Gius
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Teramo
    Messaggi
    19
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    3

    Casella di testo con formato di controllo

    Ciao a tutti…
    Cortesemente mi dite se è possibile inserire nelle caselle di testo il riferimento del menu a tendina, tramite il formato di controllo, ed eventualmente come fare? Ho già un foglio con l’inserimento nella cella di riferimento ed è ok, ora vorrei farlo all’interno di una casella di testo…. Grazie per l’aiuto
    File Allegati File Allegati

  2. #2

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6840
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    166
    Ciao Gius

    Quello che chiedi di fare non credo sia possibile con i con il controllo modulo da te usato bensì vanno utilizzati gli ActiveX e gestirli con VBA.

    Questa la macro associata alla Combobox1 (ActiveX) presente sul foglio del file che ti allego.

    Codice: 
    Private Sub ComboBox1_Change()
    Sheets("Controllo").Shapes("CasellaDiTesto 3").Select
    Selection.Characters.Text = ComboBox1.Value
    Range("a1").Select
    End Sub
    File Allegati File Allegati

  3. #3

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6840
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    166
    Scusa ti riallego il file perché ho apportato una piccola miglioria nel codice

    Codice: 
    Private Sub ComboBox1_Change()
    Application.ScreenUpdating = False
    Sheets("Controllo").Shapes("CasellaDiTesto 3").Select
    Selection.Characters.Text = ComboBox1.Value
    Range("a1").Select
    Application.ScreenUpdating = True
    End Sub
    File Allegati File Allegati

  4. #4
    L'avatar di Gius
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Teramo
    Messaggi
    19
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    3
    Grazie mille.... era quello che volevo.....

    :255::255::255:

  5. #5

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6840
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    166
    Grazie del riscontro Gius e non dimenticare di spuntare la discussione come "RISOLTA".

    Alfredo

  6. #6

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6840
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    166
    Volevo anche chiedere, a chi ne sa più di me, perché se scrivo una macro del genere (che dovrebbe fare la stessa cosa della precedente) non funziona.

    Codice: 
    Private Sub ComboBox1_Change()
    Application.ScreenUpdating = False
    Sheets("Controllo").Shapes("CasellaDiTesto 3").Characters.Text = ComboBox1.Value <=======
    Application.ScreenUpdating = True
    End Sub
    dandomi come errore: "Proprietà o metodo non supportati dall'oggetto" sulla istruzione indicata.

    Grazie

    Alfredo

  7. #7

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4050
    Versione Office
    2013
    Likes ricevuti
    1240
    Likes dati
    931
    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Volevo anche chiedere, a chi ne sa più di me, perché se scrivo una macro del genere (che dovrebbe fare la stessa cosa della precedente) non funziona.

    Codice: 
    Private Sub ComboBox1_Change()
    Application.ScreenUpdating = False
    Sheets("Controllo").Shapes("CasellaDiTesto 3").Characters.Text = ComboBox1.Value <=======
    Application.ScreenUpdating = True
    End Sub
    dandomi come errore: "Proprietà o metodo non supportati dall'oggetto" sulla istruzione indicata.

    Grazie

    Alfredo
    Ciao Alfredo,
    non so darti una spiegazione alla "scossa" (che saluto).... quel che so è che se non usi la selezione, dopo aver identificato la "shape" devi usare il metodo "TextFrame" per poter agire sul testo.

    Quindi dovresti modificare in questo modo:

    Codice: 
    Private Sub ComboBox1_Change()
    Application.ScreenUpdating = False
    Sheets("Controllo").Shapes("CasellaDiTesto 3").TextFrame.Characters.Text = ComboBox1.Value '<=======
    Application.ScreenUpdating = True
    End Sub

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

  8. #8

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6840
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    166
    Ciao Tore e grazie della risposta.

    Ora che ho visto il tuo suggerimento ho la sensazione di ricordare di aver già visto l'istruzione da te segnalata ossia "TextFrame"

    Un caro saluto

    Alfredo

  9. #9

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4050
    Versione Office
    2013
    Likes ricevuti
    1240
    Likes dati
    931
    Forse di pende dal fatto che selezionando la "shape" stai dando per scontato che le azioni successive riguardino un determinato tipo di "shape" (una casella di testo in questo caso)...diciamo che è un pò una scorciatoia.
    Se provassi ad inserire un immagine e la chiamassi "CasellaDiTesto 3" (rinominando con un altro nome la "CasellaDiTesto 3" precedente), otterresti un errore a questa riga (in rosso):

    Codice: 
    Private Sub ComboBox1_Change()
    Application.ScreenUpdating = False
    Sheets("Controllo").Shapes("CasellaDiTesto 3").Select
    Selection.Characters.Text = ComboBox1.Value
    Range("a1").Select
    Application.ScreenUpdating = True
    End Sub
    proprio perchè stavolta la "shape" non ha nessun "Characters" da modificare (essendo un immagine).
    File Allegati File Allegati

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

Discussioni Simili

  1. reset casella di controllo
    Di Mammut65 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 30/11/16, 17:35
  2. Casella di testo con formato di controllo
    Di Gius nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 23/06/16, 15:16
  3. casella di controllo
    Di CRISTIAN nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 05/05/16, 18:29
  4. Controllo moduli - casella di controllo
    Di CRISTIAN nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 03/05/16, 22:55
  5. Casella di controllo
    Di michele.ta nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 29/03/16, 16:32

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •