Risultati da 1 a 7 di 7

Discussione: Taglia/Copia/Incolla Senza Indirizzi precisi



  1. #1
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    55
    Messaggi
    333
    Versione Office
    2013
    Mi Piace ricevuti
    35
    Mi Piace dati
    0

    Taglia/Copia/Incolla Senza Indirizzi precisi

    Ciao a tutti e ben tornati dalle Vacanze.
    Scherzi a parte il mio Problema e questo : Io vorrei poter visualizzare usando due pulsanti posizionati sul Foglio di Excel le due Tavolozze inerenti hai Colori di Windows e al Font e all' occorrenza vorrei anche che fatto Click su di un Colore sia di BackColor che di FontColor la cella ho la lettera - Parola ecc...! si colorassero del colore da me scelto.
    (P.s) Nel caso vi servisse per capire meglio il tutto : vi posso inserire il codice che io inserivo quando usavo il VB 6.0 che è questo :

    Codice: 
    CommonDialog1.CancelError = True
    On Error GoTo errhandler
    
    
    CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
    CommonDialog1.ShowFont
    
    
    RichTextBox1.Font.Name = CommonDialog1.FontName
    RichTextBox1.Font.Size = CommonDialog1.FontSize
    RichTextBox1.Font.Bold = CommonDialog1.FontBold
    RichTextBox1.Font.Italic = CommonDialog1.FontItalic
    
    RichTextBox1.Font.Strikethrough = CommonDialog1.FontStrikethru
    RichTextBox1.Font.Underline = CommonDialog1.FontUnderline
    
    
    RichTextBox1.Font = CommonDialog1.Color
    
    RichTextBox1.SetFocus
    errhandler:
    Logicamente per l'occasione mi Avvalevo dell'oggetto Commondialog che però in VBA io non vorrei usare .
    tutto qui ; Grazie per tutto l'aiuto che vorrete darmi in merito , Saluti da A.Maurizio

  2. #2
    L'avatar di dracoscrigno
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    ferrara
    Età
    40
    Messaggi
    625
    Versione Office
    office pro 2010
    Mi Piace ricevuti
    155
    Mi Piace dati
    98

    Re: Taglia/Copia/Incolla Senza Indirizzi precisi

    Citazione Originariamente Scritto da A.Maurizio Visualizza Messaggio
    ...Io vorrei poter visualizzare usando due pulsanti posizionati sul Foglio di Excel le due Tavolozze inerenti hai Colori....

    Logicamente... ... l'oggetto Commondialog che però in VBA io non vorrei usare
    praticamente vuoi ricostruire una finestra command dialog di sana pianta.
    C'è poco da aiutarti. ti devi mettere di buona volontà a disegnare un userform con tutti i suoi pulsanti e finestrelle... non ha mica senso. l' hai gia pronta e ti basta richiamarla:

    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
            Application.Dialogs(xlDialogEditColor).Show (10)
            Target.Interior.Color = ThisWorkbook.Colors(10)
        End If
    End Sub

  3. #3
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    55
    Messaggi
    333
    Versione Office
    2013
    Mi Piace ricevuti
    35
    Mi Piace dati
    0

    Tavolozza Dei Colori di Excel o Windows

    Ciao dracoscrigno in definitive ara proprio questo che io avrei voluto fare sin dall'inizio , solo che Io Avevo citato il Costrutto CommonDialog in quanto usando molti anni fa il VB 6.0 era un modo molto semplice e diretto per ottenere poi la stessa cosa.
    Però visto che sei cosi Gentile sapresi anche indicarmi come io possa ottenere la stessa cosa nel caso in qui ; Volessi richiamarla usando un Tasto Active Chiamato (Cmd_BackColor) in modo tale che io possa non usare un Indirizzo preciso sul foglio di Excel che io stò usando , Esempio :
    Sulla tua procedura io ho appena apportato una modifica che e questa :
    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Not Intersect(Target, ActiveCell) Is Nothing Then
            Application.Dialogs(xlDialogEditColor).Show (10)
            Target.Interior.Color = ThisWorkbook.Colors(10)
        End If
    End Sub
    Cosi facendo posso all'occorenza usare qualsiasi Cella del Foglio 1.
    Però se allo stesso tempo io mi trovassi sul foglio 2 o 3 piuttosto che sul foglio 4/5 esso non avrebbe Effetto.
    Per qui la mia domanda e nuovamente questa : E se io mi trovassi in un qualsiasi altro foglio come posso ottenere la stessa cosa ?
    Tutto qui !
    Grazie sin da ora per il tuo Contributo che mi hai offerto sei fantastico , Sinceri saluti da Maurizio

  4. #4
    L'avatar di Anthony
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Ivrea (TO)
    Messaggi
    228
    Versione Office
    2003-2010-2016
    Mi Piace ricevuti
    166
    Mi Piace dati
    31

    Re: Tavolozza Dei Colori di Excel o Windows

    A scopo puramente ludico scarica questi due file sul tuo Pc:
    https://www.dropbox.com/s/k6xvec88fe...yForm.frm?dl=0
    https://www.dropbox.com/s/jdowu29qg8...yForm.frx?dl=0

    Poi dal vba del tuo file esegui il comando Menu /Importa file; scegli il file AnthonyForm.frm dalla posizione in cui l'hai salvato.
    Ti verra' importata una userform che contiene un oggetto Spreadsheet con 56 caselle, che vengono formattate all'attivazione con 56 colori presenti nella tua palette di colori.
    Due radiobutton consentono di scegliere tra Font /Interior.
    Inserisci poi in un modulo standard questa macro:
    Codice: 
    Sub FlyPalette()
    AnthonyForm.Show vbModeless
    End Sub
    Associala a un pulsante, una icona nella Barra di accesso rapido, una combinazione di tasti della tastiera, oppure lanciala tramite Alt-F8.

    Quando si attiva la form puoi selezionare degli intervalli sul tuo foglio e cliccare una cella nella form: il font o lo sfondo della cella, a seconda della scelta fatta nei radiobutton, saranno colorati con quel colore.
    Rispetto al Dialogs(xlDialogEditColor) non ha tutti i colori possibili ma, lavorando in modalita' "modeless" ha qualche facilita' in piu' di uso, compreso che puoi cambiare selezione o foglio avendo la form dei colori sempre a disposizione.

    Ciao
    Anthony

  5. #5
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    55
    Messaggi
    333
    Versione Office
    2013
    Mi Piace ricevuti
    35
    Mi Piace dati
    0

    Re: Tavolozza Dei Colori di Excel o Windows

    Ciao Anthony cono contento di dialogare anche con te qui in questo forum.
    Domandina : Ma anche tu come me non dormi mai !
    Grazie per il tuo intervento come sempre sei un grande.
    E molto interessante ciò che mi hai proposto , però apportando anche qualche modifica al suggerimento di cromagno o giù di li, non era male il problema era solo che logicamente con il tuo contributo , lo potrei usare in qualsiasi foglio io abbia aperto.
    Mentre con quello del precedente suggerimento , lo posso solo usare su quel tipo di foglio .
    Ma comunque sia ora ho le basi per lavorarci un pochino su per qui vedrò cosa posso fare .
    Grazie di tutto sinceri saluti da A.Maurizio

  6. #6
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    2026
    Versione Office
    2007 - 2013
    Mi Piace ricevuti
    256
    Mi Piace dati
    39

    Re: Tavolozza Dei Colori di Excel o Windows

    @A.Maurizio

    Da "vecchio" iscritto dovresti sapere che il crossposting è vietato dal regolamento.

    http://www.pc-facile.com/forum/viewt...?f=26&t=107649

    Pertanto, anche se risolta, la discussione viene chiusa.

    P.S. Riapro la discussione ina quanto pur con lo stesso titolo le discussioni hanno contenuto diverso.
    Ultima modifica fatta da:alfrimpa; 17/10/16 alle 10:25
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"
    Cit. Berna11: "Se ti piace la risposta di qualcuno, oltre a ringraziarlo, puoi cliccare su "Mi Piace" in basso a sinistra del loro messaggio."

  7. #7
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    55
    Messaggi
    333
    Versione Office
    2013
    Mi Piace ricevuti
    35
    Mi Piace dati
    0

    Re: Tavolozza Dei Colori di Excel o Windows

    Hai pienamente Ragiona Alfrimpa , pero non capisco cosa centrasse il titolo "Taglia , copia , incolla) quando io questa richiesta l'avevo creata su pc_Facile proprio dal mio amico anthony
    Pero' ho lasciato inalterato e non ho dato molta importanza al caso .
    In quanto non lo avevo capito neanche io.
    Scusatemi tutti per l'accaduto, ma non era mia intenzione creare due domande uguali nello stesso forum.sinceri saluti da A.Maurizio

Discussioni Simili

  1. [Risolto] Taglia _ Copia _ incolla
    Di A.Maurizio nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 20/10/16, 17:19
  2. copia e incolla
    Di Gerardo Zuccalà nel forum Test dei vostri post
    Risposte: 0
    Ultimo Messaggio: 23/07/16, 19:18
  3. copia-incolla 1 a 1
    Di tk71 nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 04/02/16, 19:22
  4. Impedire comando taglia e incolla
    Di heavyduty79 nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 07/01/16, 17:39
  5. Copia ed incolla
    Di Gerardo Zuccalà nel forum Test dei vostri post
    Risposte: 1
    Ultimo Messaggio: 08/10/15, 17:20

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
  •