Risultati da 1 a 16 di 16

Discussione: Excel 2010 dal calendario inserire la data su TextBox o Label.



  1. #1
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Excel 2010 dal calendario inserire la data su TextBox o Label.

    Gent.mi,

    una gentilezza su excel 2010.

    Ho realizzato un calendario che con la formattazione condizionale ho il colore alle
    domeniche ed il colore al giorno odierno e con le convalide dati ho l'elenco dei mesi e
    degli anni ed inoltre il calcolo della pasqua.
    Per completare, gradirei applicare sempre con la formattazione condizionale, le festività
    annuali possibilmente con la scritta su una cella il corrispondente nome della festività;
    al secondo foglio, ho inserito in una cella i mesi, nella seconda gli anni, nella terza i
    giorni delle festività e nella quarta i nomi delle festività.
    Inoltre, gradirei se è possibile che, cliccando su una data, abbia un colore e che mi
    scriva su un TextBox o Label situato su una UserForm la data nel seguente formato:
    (dd/mm/yyyy).
    Anticipatamente ringrazio e fiducioso, saluto cordialmente
    Domenico.

  2. #2
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona giornata, Domenico;
    aiuterebbe molto poter vedere il File che hai già realizzato; senza eventuali Dati sensibili, ma, con le indicazioni del risultato che desideri ottenere.

    Questo eviterebbe, a Chi desidera aiutarti, dover ricostruire una struttura che potrebbe non essere quella da Te voluta.


    A disposizione.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  3. #3
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1
    Gent.mo GiuseppeMN,

    ringrazio per la gentile attenzione e l'occasione per porgere un buon inizio d'anno
    estensibile ai collaboratori del forum.
    Invio il link del file ed approfitto per chiedere se si può anche ritoccare la
    formattazione condizionale delle domeniche.

    http://www.mediafire.com/download/yn...Calendario.rar

    Potrai notare che le domeniche sono colorate in rosso anche l'ultima cella (con il numero
    7) che non centra del mese corrente.

    Saluto.
    Domenico.

  4. #4
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona sera, Domenico;
    finalmente riesco a riprendere questa Discussione.

    Quello che vorrei proporti è il "Calendario" nel quale ho evidenziato in "Giallo" le Festività infrasettimanali; se questo tipo di approccio, può essere compatibile con le Tue Esigenze, posso provare a modificare UserForm in modo che compaia la "Festività".


    A disposizione.

    Buona serata.

    Giuseppe
    File Allegati File Allegati
    Windows XP Excel 2000 - Windows 10 Excel 2013

  5. #5
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Vorrei condividere il File con UserForm.

    Non è il massimo, ma, aiuta.


    A disposizone.

    Buona serata a Tutti.

    Giuseppe
    File Allegati File Allegati
    Windows XP Excel 2000 - Windows 10 Excel 2013

  6. #6
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1
    Gent.mo GiuseppeMN,

    ringrazio della disponibilità e gentilezza.
    Lo scopo che mi sono avventurato sulla creazione del calendario è scaturito da un problema
    rilevato ad un programma realizzato, grazie ai Vostri suggerimenti, inserendo come
    componente aggiuntivo il calendario.
    Programma funzionante allorchè portato da mio figlio su chiavetta per farlo vedere e dopo
    una formattazione del pc, notavo la sparizione del calendario; giustamente, pensato
    successivamente, mancavano i due plugin (Mscal.ocx e Mscomct2.ocx) e pensavo che questi
    venissero memorizzati con il programma.
    Gradirei invece e scusami, la cosa fondamentale è che cliccando sulla data, quest'ultima
    dovrebbe apparire sulla Textbox situato sulla UserForm prendendo il posto del vecchio
    calendario.
    Invio il file affinchè, tempo permettendo, suggerisci cosa dovrei fare.
    Non ho inserito il calendario che mi hai inviato è che da ieri sono dietro per capire il
    funzionamento e le relative formule.
    Scusami se approfitto, cordialmente saluto.
    Domenico.
    http://www.mediafire.com/download/y0...denzario+1.rar

  7. #7
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona giornata, Domenico;
    purtroppo, il mio Excel 2013 non dispone del "Calendar".
    Ho dovuto costruirmelo da solo, reso disponibile in Forum in altra Discussione, ma, è sicuramente preferibile poter disporre di quello ufficiale Microsoft®
    Per quanto riguarda l'impostazione che ho ritenuto ptoporti, l'unico consiglio che mi permetto di darti è quello di vedere come ho gestito le Date delle Festività infrasettimanali; le ho rese dinamiche in funzione dell'anno selezionato nella Cella "H3" del Foglio di lavoro Scadenziario.

    Ho apprezzato la Tua Formula per il calcolo della Pasqua; non la conoscevo, fino ad ora avevo sempre utilizzato:
    Codice: 
     =ARROTONDA.DIFETTO(DATA($A$1;5;GIORNO(MINUTO($A$1/38)/2+56));7)-34
    In Cella "A1" deve esserci l'anno di riferimento.

    Se la necessità è semplicemente quella di riportare in UserForm la data selezionata sul Calendario, non ci sono problemi, ma, ripeto, molto meglio poter disporre del Calendario ufficiale.


    A disposizione.

    Buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  8. #8
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1
    Gent.mo GiuseppeMN,

    in linea di massima, il programma dovrà essere utilizzato altrove ed è il motivo che ho
    creato il calendario e non quello della Microsoft.
    Gentilmente se puoi corregere il codice per inserire la data scelta.
    per imparare ho rifatto il calendario 2 che ho ricevuto, funziona e trovo difficoltà di
    inserire nella formattazione condizionale il colore per le festività infrasettimanali.
    Nell'auugurare buon pranzo, saluto.
    Domenico.

  9. #9
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0
    Ciao Pacifico Guarda Sè Questo lavoro può fare al Caso Tuo.
    Allego il File
    File Allegati File Allegati

  10. I seguenti utenti hanno dato un "Like"


  11. #10
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1
    Gent.mo Maurizio,

    ringrazio della gentilezza, sembra che possa andare bene e, appena avrò completato
    l'inserimento all'UserForm del programmino in fase di realizzazione, sarà mia premura
    comunicare l'esito.

    Saluto.
    Domenico.

  12. #11
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona sera, Domenico.
    Consentimi un saluto a Maurizio (ben ritrovato, Maurizio; spero tutto bene. Buona serata).

    @ Domenico, in allegato il File con UserForm implementato.

    Quello che è ancora possibile fare é:
    - aggiungere il Calendario in UserForm
    - avere, per ogni giorno dell'anno, il Santo ricordato

    Poi, ovviamente, decidi Tu.



    A disposizione.

    Buona serata.

    Giuseppe
    File Allegati File Allegati
    Windows XP Excel 2000 - Windows 10 Excel 2013

  13. #12
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1
    Gent.mo Maurizio,

    il calendario l'ho inserito nell'UserForm e funziona perfettamente.
    La data viene visualizzata in una cella del foglio e gradirei che sia visualizzata in una
    TextBox dell'UserForm precisamente in UserForm_dati TextBox_Data. è possibile?

    Per Maurizio, ringrazio del nuovo file che proverò per l'uso che dovrei fare.
    E' simpatico, bello ed è completo; al momento con il calendario di Maurizio diventa unico
    foglio di lavoro anzichè avere tre fogli.
    Vi è l'imbarazzo di scelta.
    Ringrazio per la gentile disponibilità.
    Domenico.

  14. #13
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1
    Gent.mo Giuseppe,

    ho notato ora per la fretta, nel ringraziare sia a Maurizio che a te inserendo per due
    volte il nome di Maurizio e mi scuso.
    Auguro che Maurizio possa aiutare nella modifica.
    Non ho compreso il comando per far apparire la data estesa sulla TextBox2
    ho inserito un TextBox3 per provare con il risultatto negativo se gentilmente puoi
    spiegare il procedimento.
    Nel ringraziare per la gentilezza, cordialmente saluto.
    Domenico.

  15. #14
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0
    Per prima cosa Vorrei Approfittare per salutare Cordialmente Giuseppe .
    Poi per quello che riguarda il Problema di Pacifico , che saluto cordialmente anche lui .
    io mi sono ricordato che gli anni che furono , mi sono imbattutto ache io in Molteplivi programmani inerenti al Calendario e li Avevo risolti in questo modo : Invio File da Scaricare.
    Premetto che io amo da Sempre . più la forma di programmazione che non quella della Formattazione Condizionata , in quanto cosi facendo miro direttamente alla verifica di ciò che mi sono prefissato di fare sempre e comunque.
    Mantre ciò non posso dire per ciò che riguarda la formattazione Condizionata ; Porto un esempio :
    Io ho perso quasi due Mesi quando anni fà mi ero messo intesta di realizzare un programma che verificasse le giocate della Scadina del Super Enalotto .
    Ora : se mi fossi solo accontentato di voler Verificare una schedina di sole due Giocate ; Nulla era di più facile usare una formattazione condizionata.
    Però io avevo la neccessità di valutare 10 Giocate Settimanali , per un anno intero.
    Avevo anche diviso il tutto in due Fogli , ma ti posso assicurare : che era più le volte che il prospetto andava in crash , che quello che funzionava.
    Detto questo : in questi Quattro file cioè 3 + 1 che ti invieroò subito dopo senza commento , Rispecchiano un pochino tutto il tuo insieme che hai chiesto tu .
    Il problema e che nessuno di questi sfrutta un userForm ; però sono sicuro che con un pochino di buona volontà da parte tua; Non troverai fatica nel capire e nel trasferire il tutto in quella TextBox che vuoi tu.
    Ho anche pensato in una cosa molto Semplice che potrebbe essere Questa :

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    'Routine che serve Per dare La Possibilità al Giocatore di _
    Selezionare i Numeri che Formeranno la Calcolatrice per lo _
    Svolgimento del Gioco Usando semplicemente il Mouse
    Application.Calculate
    Application.Volatile

    Set Zona = Range("C5:G9")
    If Not Intersect(Target, Zona) Is Nothing Then
    Vcell = Target.Value
    Target.Interior.ColorIndex = 6
    If Range("A1") <> "" Then
    Range("A1").End(xlToLeft).Offset(0, 0).Value = Vcell '.Select
    Else
    Range("A1").Value = Vcell
    End If
    Cells(0, 1).Select
    End If

    Foglio1.ListBox1.AddItem 0
    Foglio1.ListBox1.AddItem 1
    Foglio1.ListBox1.AddItem 2
    Foglio1.ListBox1.AddItem 3
    Foglio1.ListBox1.AddItem 4
    Foglio1.ListBox1.AddItem 5
    Foglio1.ListBox1.AddItem 6
    Foglio1.ListBox1.AddItem 7
    Foglio1.ListBox1.AddItem 8
    Foglio1.ListBox1.AddItem 9


    Foglio1.ListBox1.AddItem "+"
    Foglio1.ListBox1.AddItem "-"
    Foglio1.ListBox1.AddItem "*"
    Foglio1.ListBox1.AddItem "/"
    Foglio1.ListBox1.AddItem "="


    Foglio1.ListBox1.AddItem "%"
    Foglio1.ListBox1.AddItem "^"
    Foglio1.ListBox1.AddItem "Rar"
    Foglio1.ListBox1.AddItem "£"
    Foglio1.ListBox1.AddItem "€"


    Foglio1.ListBox1.AddItem "Return"
    Foglio1.ListBox1.AddItem "Copy"
    Foglio1.ListBox1.AddItem "Reset"
    Foglio1.ListBox1.AddItem "SQR"






    If Not (Target = "C5" Or Target & "D5" Or Target & "E5" _
    Or Target & "C6" Or Target & "D6" Or Target & "E6" _
    Or Target & "C7" Or Target & "D7" Or Target & "E7" _
    Or Target & "D8" Or Target & "F5" Or Target & "F6" _
    Or Target & "F7" Or Target & "F8" Or Target & "F9" _
    Or Target & "C9" Or Target & "D9" Or Target & "E9" _
    Or Target & "G5" Or Target & "G6" Or Target & "G7" _
    Or Target & "G8" Or Target & "G9" Or Target & "C8" _
    Or Target & "E8") Then

    Range("A1").Value = Foglio1.Label1.Activate




    Select Case Target


    Case Is = "0"
    If Target = "0" Then
    Zero_Click
    End If


    Case Is = "1"
    If Target = "1" Then
    Uno_Click
    End If


    Case Is = "2"
    If Target = "2" Then
    Due_Click
    End If


    Case Is = "3"
    If Target = "3" Then
    Tre_Click
    End If


    Case Is = "4"
    If Target = "4" Then
    Quattro_Click
    End If


    Case Is = "5"
    If Target = "5" Then
    Cinque_Click
    End If


    Case Is = "6"
    If Target = "6" Then
    Sei_Click
    End If


    Case Is = "7"
    If Target = "7" Then
    Sette_Click
    End If


    Case Is = "8"
    If Target = "8" Then
    Otto_Click
    End If


    Case Is = "9"
    If Target = "9" Then
    Nove_Click
    End If


    Case Is = "+"
    If Target = "+" Then
    Piu_Click
    End If


    Case Is = "-"
    If Target = "-" Then
    Call Meno_Click
    End If


    Case Is = "*"
    If Target = "*" Then
    Per_Click
    End If


    Case Is = "/"
    If Target = "/" Then
    Diviso_Click
    End If


    Case Is = "%"
    If Target = "%" Then
    Percentuale_Click
    End If


    Case Is = "£"
    If Target = "£" Then
    Lira_Click
    End If


    Case Is = "€"
    If Target = "€" Then
    Euro_Click
    End If


    Case Is = "^"
    If Target = "^" Then
    ElevatoPotenza_Click
    End If


    Case Is = "C"
    If Target = "C" Then
    Cancella_Click
    End If


    Case Is = "Return"
    If Target = ("Return") Then
    Rientro_Click
    End If


    Case Is = "Copy"
    If Target = "Copy" Then
    Memorizza_Click
    End If


    Case Is = "Reset"
    If Target = "Reset" Then
    Reset_Click
    End If


    Case Is = "SQR"
    If Target = ("SQR") Then
    RadiceQuadrata_Click
    End If


    Case Is = "."
    If Target = "." Then
    Virgola_Click
    End If


    Case Is = "="
    If Target = "=" Then
    Uguale_Click
    End If


    End Select
    End If
    Foglio1.Label1.Activate
    Range("A1").Select
    End Sub

    Premessa : Questo listato lo avevo adattato per creare la Mia Calcolatrice sfruttando le Celle Del Foglio 1 di Excel al posto dei Semplici tasti.
    Per qui i Ti ho messo Tutta la parte del Click sù cella.
    Mentre tu puoi anche solo Usare la prima Parte che è :

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    'Routine che serve Per dare La Possibilità al Giocatore di _
    Selezionare i Numeri che Formeranno la Calcolatrice per lo _
    Svolgimento del Gioco Usando semplicemente il Mouse
    Application.Calculate
    Application.Volatile

    Set Zona = Range("C5:G9")
    If Not Intersect(Target, Zona) Is Nothing Then
    Vcell = Target.Value
    Target.Interior.ColorIndex = 6
    If Range("A1") <> "" Then
    Range("A1").End(xlToLeft).Offset(0, 0).Value = Vcell '.Select
    Else
    Range("A1").Value = Vcell
    End If
    Cells(0, 1).Select
    End If

    Poi vedi Tu Sinceri saluti e se puoi Cacci sapere come e andata; Cordiali Saluti da Maurizio
    File Allegati File Allegati

  16. #15
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Altro programma Sempre indirizzato a Pacifico

    4* File da Scaricare
    File Allegati File Allegati

  17. #16
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona sera, Domenico.

    @ Pacifico437 , scrive:
    Non ho compreso il comando per far apparire la data estesa sulla TextBox2
    Sono partito con il concetto che un TextBox rende un Valore in Formato Testo.

    Analizzando le proprietà dei TextBox, potrai notare che:
    - ControlSource in TextBox1 è K9
    - ControlSource in TextBox2 è K8
    Ora, utilizzando l'evento:
    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Formula As String
    
        If Not Intersect(Target, Range("C7:I12")) Is Nothing Then
            Formula = "=IFERROR(VLOOKUP(R" & ActiveCell.Row & "C" & ActiveCell.Column & ",Mesi!R3C6:R17C7,2,0),"""")"
            Cells(8, 11).FormulaR1C1 = Formula        
            Cells(8, 12) = Cells(ActiveCell.Row, ActiveCell.Column)
            Cells(9, 11).FormulaR1C1 = "=UPPER(TEXT(R8C12,""gggg - gg/mmmm/aaaa""))"
        End If
    End Sub
    Vengono popolate le Celle:
    - K8 (Cells(8,11)) la ricorrenza
    - L8 (Cells(8,12)) la Data
    - K9 (cells(9,11)) la Data in Formato gggg - gg/mmmm/aaaa ("gggg" e "mmmm" in Maiuscolo)

    Ogni volta che il Cursore viene posizionato in una delle Celle del Range "C7:I12", queste tre Celle assumeranno il Valore a loro assegnato.

    Per verificare quanto sopra
    - Seleziona le Celle K8, L8 e K9
    - definisci il Colore del Carattere "Automatico" (attualmente il colore è "Bianco")
    - senza attivare UserForm, nel Calendario, seleziona una Data
    Supponendo di aver selezionato la Data "06/01/2016", il risultato sarà:
    - K8 =SE.ERRORE(CERCA.VERT($E$8;Mesi!$F$3:$G$17;2;0);"")
    - L8 06/01/2016
    - K9 =MAIUSC(TESTO($L$8;"gggg - gg/mmmm/aaaa"))
    ora, prova a cancellare i Valori delle Celle K8, L8, K9, attivare UserForm e ripetere la selezione precedente; vedrai che il risultato sarà:
    - K8 Epifania
    - L8 06/01/2016
    - K9 MERCOLEDÌ - 06/GENNAIO/2016

    @ Pacifico437 , scrive:
    ... ho inserito un TextBox3 per provare con il risultatto negativo se gentilmente puoi
    spiegare il procedimento ...
    Questo è un passaggio che non mi è chiaro; non dovrebbero esistere risultati con Valori negativi.

    Nel caso in cui venga selezionata una Data "Vuota" oppure una Data che non sia una Festività infrasettimanale, UserForm riporterà i Valori come sopra indicato; solamente la Cella "K9" risulterà "Vuota".

    La "Ricorrenza" verrebbe sempre riportata solo nel caso in cui, nel Foglio di lavoro "Mesi", nelle Colonne "F:G" fossero stati riportati, in Colonna "F" tutti i giorni dell'anno e, in Colonna "G" il Santo ricordato in quella Data.

    In questo caso, l'unica attenzione andrebbe rivolta a "Pasqua" e "Lunedì dell'Angelo" che, essendo Date variabili, dovranno essere calcolate all'inizio del'elenco (Celle F3, F4).

    Spero di essere stato esaustivo senza essere prolisso; le informazioni che chiedevi, a mio avviso, necessitavano di una dettagliata dissertazione.



    A disposizione.

    Buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

Discussioni Simili

  1. [Risolto] Calendario in una cella di excel 2010
    Di Daniel nel forum Domande su Excel VBA e MACRO
    Risposte: 15
    Ultimo Messaggio: 24/10/16, 17:18
  2. Controllo Calendario nell'Excel 2010
    Di davide574 nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 30/08/16, 09:35
  3. Ottenere al centro della Label o TextBox un testo o un numero
    Di Pacifico437 nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 11/06/16, 19:40
  4. Excel 2010 problema sul calendario
    Di Pacifico437 nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 15/12/15, 11:08
  5. Excel 2010 inserire un colore una cella .
    Di Pacifico437 nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 17/11/15, 23: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
  •