Risultati da 1 a 24 di 24

Discussione: due quesiti su calendario



  1. #1
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    572

    due quesiti su calendario

    Buongiorno a tutti vorrei porre due domande in merito ai calendari...1°ho creato un foglio in cui ho inserito il calendario che si trova in excel (calendar 12.0) ma quando lo apro mi da sempre il mese di maggio (il periodo in cui l ho fatto) si può fare qualcosa affinche quando lo apro mi visualizzi il mese e giorno corrente? 2° nel forum ho trovato un calendario molto bello(non ricordo l autore) per utilizzarlo avrei bisogno di una modifica affinche mi scriva la data selezionata ad esempio in A1 (su quello preimpostato in excel ci riesco in questo ho fatto delle prove senza successo (troppo codice che non conosco))....grazie Danilo le password sono123 sia per foglio che per vba
    File Allegati File Allegati

  2. #2
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: due quesiti su calendario

    Il primo
    Codice: 
     Sub CommandButton1_Click()
     UserForm1.Calendar1.Value = Date
     UserForm1.Show
     End Sub
    Il secondo
    Codice: 
    Private Sub CmB24_Click()
    On Error GoTo Fine
        'Frm_Scelta.Label1 = "24 " & Me.Label1.Caption
        Sheets("calendario").Cells(1, 1) = "24 " & Me.Label1.Caption
        Frm_Calendario.Hide
    Fine:
    End Sub

  3. #3
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    572

    Re: due quesiti su calendario

    grazie Raffaele...1° quesito risolto....danilo

    ----------Post unito in automatico----------

    il secondo come arrivo a casa provo ....grazie sei gentilissimo

  4. #4
    L'avatar di Berna11
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Latina
    Età
    62
    Messaggi
    2294
    Versione Office
    Excel 2010
    Likes ricevuti
    910
    Likes dati
    451

    Re: due quesiti su calendario

    Ciao a tutti
    Per quello che ti da sempre maggio
    Codice: 
    Private Sub UserForm_Activate()
    Me.Calendar1.Value = Now
    End Sub
    ti allego il file
    File Allegati File Allegati

  5. #5
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    572

    Re: due quesiti su calendario

    grazie berna11 funziona.....
    raffaele ho messo il codice che mi hai postato al posto di private sub cmb24_click() che cèra ma non scrive niente in A1....dove sbaglio? allego file
    File Allegati File Allegati

  6. #6

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: due quesiti su calendario

    Ciao Danilo

    Prova a guardare il file allegato (non metto il codice VBA in quanto più volte inserito nel forum in altre discussioni)

    Alfredo
    File Allegati File Allegati

  7. #7
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    572

    Re: due quesiti su calendario

    perfetto Alfredo...quello che chiedevo...permettimi un'altra domanda facendo cosi mando il risultato in A1 (ho visto dov'è il codice per cambiare la cella di destinazione) ma se volessi inserire due date (tipo dal/al) come modifico la riga di codice per inserire anche una seconda cella di destinazione?

  8. #8

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: due quesiti su calendario

    Ciao Danilo

    Devi variare questo codice

    Codice: 
    Private Sub mEsegui(ByVal s As String)
    Range("A1").Value = Format(CDate(tgl.Caption & " " & frmCalendario.Label1.Caption), "mm/dd/yyyy")
    tgl.Value = False
    End Sub
    in

    Codice: 
    Private Sub mEsegui(ByVal s As String)
        ActiveCell.Value = Format(CDate(tgl.Caption & " " & frmCalendario.Label1.Caption), "mm/dd/yyyy")
        tgl.Value = False
    End Sub
    Poi ti metti su a1 lanci Scelta e scegli la data poi vai dove vuoi rilanci Scelta ed inserisci la seconda data.

    Questa è la via più semplice.

    Alfredo

  9. #9
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    572

    Re: due quesiti su calendario

    si buona strada.... ma se volessi impostare due celle di destinazione fisse tipo A1 e C1 seza attivare le celle manualmente è fattibile perche con il calendario preimpostato che c'è su excel sono riuscito a farlo cosi
    Codice: 
    
    Private Sub Calendar1_Click()
    ActiveSheet.Unprotect "123"
        If Sheets(1).[C2] = "" Then
            Sheets(1).[C2] = Calendar1.Value 'inviamo la data ad una cella del foglio1
        Else
            Sheets(1).[E2] = Calendar1.Value
              
        End If
    ActiveSheet.Protect "123"
    End Sub

  10. #10

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: due quesiti su calendario

    Beh certo con il calendario incorporato la cosa è più semplice.

    Quello che ho fatto io prevede l'utilizzo di moduli di classe grazie ai quali è possibile associare un unico codice che viene eseguito quale che sia il togglebutton cliccato sul calendario.

    Alfredo

  11. #11
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    572

    Re: due quesiti su calendario

    grazie ....mi ci metto e provo a fare un po di modifiche...vediamo che esce fuori

  12. #12
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: due quesiti su calendario

    Ciao a tutti
    In merito a >>>Sheets("calendario").Cells(1, 1) = "24 " & Me.Label1.Caption
    Mi ero dimenticato di dire che devi modificare tutti Private Sub CmB (dovrebbero essere 31)
    L'altra userform la puoi eliminare

    Ps se conosci già la data finale, Ex in cella A1 ci va la data del calendaro, se quella finale è ex dopo 10 giorni
    Sheets("calendario").Cells(1, 1) = "24 " & Me.Label1.Caption
    Sheets("calendario").Cells(1, 2) = Sheets("calendario").Cells(1, 1) +10

    Altro sistema con il doppio_click, se non presente inserisce la data sulla cella cliccata. Se già presente si apre il calendario ed inserisce nella cella accanto una nuova data, però devi dirmi in quale cella deve andare

  13. #13
    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

    Re: due quesiti su calendario

    Ciao Danilo il tuo lavoro e molto Articolato e Ben fatto , per qui non metto mano in quanto ci Capisco poco .
    Però ho apportato una modifica al tuo Calendario e guarda se potrebbe starti bene una cosa di questo Genere .
    Anche solo da Adattarlo alle tue Esigenze ciao
    File Allegati File Allegati

  14. #14

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: due quesiti su calendario

    Volevo solo segnalare che nel calendario di Danilo se si seleziona un mese cha ha numero di giorni diverso da 30 i CommandButton rimangono sempre 30 ed il loro numero non si adegua ai giorni del mese selezionato.

    Per cui se si sceglie Dicembre (o un altro mese che ha 31 giorni) non si può inserire la data del 31.
    Alfredo

  15. #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

    Re: due quesiti su calendario

    Grazie del Suggerimento Alfrimpa , Sicuramente nei prossimi giorni che sono un pochino più Tranquillo con il mio lavoro le Darò un Occhiata un pochino più da vicino.
    Però nel Frattempo Vi invito a Scaricare quest'altro mio lavoro e Modificato a Dovere si può Tranquillamente adattarlo al Lavoro di Danilo.
    Grazie e Fatemi Sapere
    File Allegati File Allegati

  16. #16
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    572

    Re: due quesiti su calendario

    grazie a tutti delle risposte e dei suggerimenti......io non sono un programmatore ma uno che assembla pezzi di codice presi per lo più su questo eccezionale forum dove sto imparando qualcosa certo che se Excel è un oceano io sono sulla vetta dell' himalaya ...per quanto riguarda la discussione cercavo di capire come far scrivere due date usando il calendario scaricato dal forum.....con quello di default ci riesco bene con quest altro meno.....complimenti a tutti voi per la preparazione e la voglia di condvidere...

  17. #17
    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

    Re: due quesiti su calendario

    Ciao Danilo Spero di Essere riuscito a soddisfare tutte le tue Richieste sul tuo Calendario ,
    prova a Dare un occhiata a questo Programma ciao e Fammi sapere .
    Nel Frattempo saluto tutti gli altri Partecipanti a questa discussione e vi Auguro un Buon Fine Settimana
    File Allegati File Allegati

  18. #18
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    572

    Re: due quesiti su calendario

    Ciao Maurizio veramente uno splendido lavoro che utilizzerò sicuramente (ho già usato altre tue cose in passato)....complimenti ancora e grazie dell'impegno....Danilo

  19. #19
    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

    Re: due quesiti su calendario

    Sono contento che ti sia piaciuto , ma sopratutto che ti sia utile ciao e nuovamente Grazie

  20. #20
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    572

    Re: due quesiti su calendario

    Ho modificato la sub con le celle di destinazione delle date (ne volevo due fisse tipo C2 ed E2).....
    Codice: 
    Private Sub lbl_Click()
    If Sheets(1).[C2] = "" Then
        Sheets(1).[C2] = CDate(lbl.Caption & frmCalendario.MeseAnno)
         Else
            Sheets(1).[E2] = CDate(lbl.Caption & frmCalendario.MeseAnno)
        End If
    End Sub
    ...grazie ancora Maurizio e a tutti gli amici che hanno dato il loro contributo...Danilo

  21. #21
    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

    Re: due quesiti su calendario

    Danilo dimenti cavo di dirti che nelle proprietà dell'userform dovresti Cambiare L'etichetta ShowModal da True a false.
    Cosi facendo puoi Selezionare le celle da te desiderate, anche sè hai l'userform aperto.
    Cosi facendo puoi anche selezionare la cella C2 e inserire la tua Data e poi selezionare la Cella E2 e inserire un altra data diversa, tutto qui Ciao

  22. #22
    L'avatar di marxitpa
    Clicca e Apri
    Data Registrazione
    Nov 2017
    Località
    gallarate
    Messaggi
    22
    Versione Office
    excel 2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: due quesiti su calendario

    Molto interessante il "Calendario Danilo Finito".
    Ultima modifica fatta da:alfrimpa; 12/11/17 alle 15:00

  23. #23

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: due quesiti su calendario

    @ Marxipta.

    Ho cancellato il tuo messaggio perchè su questo forum il crossposting è vietato dal regolamento.

    http://www.excelvba.it/Forum/forum.php?f=2
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  24. #24
    L'avatar di marxitpa
    Clicca e Apri
    Data Registrazione
    Nov 2017
    Località
    gallarate
    Messaggi
    22
    Versione Office
    excel 2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: due quesiti su calendario

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    @ Marxipta.

    Ho cancellato il tuo messaggio perchè su questo forum il crossposting è vietato dal regolamento.

    http://www.excelvba.it/Forum/forum.php?f=2
    mi scuso ...

Discussioni Simili

  1. Calendario
    Di D@nilo nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 25/01/17, 15:53
  2. calendario
    Di Anton70 nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 19/05/16, 23:37
  3. Calendario
    Di nick0573 nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 11/03/16, 17:03
  4. Calendario
    Di dautattmaui nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 27/02/16, 20:22
  5. Macro access e altri quesiti
    Di Andrea_Ra nel forum Domande su Microsoft Access
    Risposte: 13
    Ultimo Messaggio: 26/02/16, 15:29

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
  •