giorno settimanamesegiorno

Sono passati 88 giorni dall'inizio dell'anno che corrispondono a 13 settimane

Arcobaleno, domani sereno



* Chattina

Aggiorna Storia
  • mar: :resistere:
    Febbraio 15, 2022, 19:44:48
  • mar: Non mi ricordavo di essere un global moderator wauuuu Ok Prof ti lascio restaurare in pace!
    Febbraio 15, 2022, 19:43:56
  • mar: :Cartelli70:
    Febbraio 15, 2022, 19:41:14
  • mar: ad cazzum pure qui?
    Febbraio 15, 2022, 19:41:02
  • mar: ciaoooo sono in perlistrazione
    Febbraio 15, 2022, 19:40:44
  • mar: :okkey:
    Febbraio 15, 2022, 19:40:20
  • Loretta/Nina: ciao a tutti
    Ottobre 04, 2021, 19:23:02
  • Loretta/Nina: :tuffarsi:
    Settembre 21, 2021, 07:08:03
  • Loretta/Nina: Buon autunno a tutti
    Settembre 21, 2021, 07:01:35
  • nuvolotta: avventure testuali
    Luglio 06, 2020, 23:26:08
  • _jan_: ...gli ultimo però....!!
    Gennaio 14, 2019, 14:45:09
  • _jan_: vedi gli ultimi post in fondo.
    Novembre 24, 2018, 19:10:00
  • mar: Trovato :Amm9:
    Novembre 24, 2018, 18:57:51
  • mar: Chi cerca trova non vi trovo! :Cartelli2:
    Novembre 24, 2018, 18:57:05
  • mar: Vado a vedere le cartoline!
    Novembre 24, 2018, 18:52:38
  • mar: :Amore145:
    Novembre 24, 2018, 18:52:21
  • mar: :Amore178:
    Novembre 24, 2018, 18:52:07
  • _jan_: Welcome Visitor.  :Party133:
    Novembre 15, 2018, 10:03:24
  • Loretta/Nina: Benvenuto ligi  :Cartelli37:
    Ottobre 09, 2018, 13:19:25
  • nuvolotta: Cucù...  :Amore20:
    Settembre 16, 2018, 01:16:47
  • Loretta/Nina: :Party133:
    Settembre 01, 2018, 17:05:30
  • _jan_: Ciao ai visitors!!
    Settembre 01, 2018, 17:02:31
  • Loretta/Nina: :fischio: :979:
    Agosto 28, 2018, 16:20:48
  • ketty: ah beh, meno male. ora il tempo e' un po' brutto
    Agosto 26, 2018, 13:27:36
  • _jan_: No, no, soqquà. Ci passo ma....... non c'è mai nessuno. Ammiro Nuvolotta, solitaria e presente.
    Agosto 25, 2018, 10:34:41
  • ketty: ma Jan è andato in vacanza? :Cartelli70:
    Agosto 24, 2018, 20:51:59
  • ketty: ciao a tutti.
    Agosto 24, 2018, 20:50:12
  • nuvolotta: :faccina_fiore: ciao ragazzioli/ole...
    Agosto 19, 2018, 23:03:49
  • Loretta/Nina: :ciao: :Party133:
    Agosto 19, 2018, 20:24:28
  • _jan_: :Felici13:
    Agosto 04, 2018, 15:30:40
  • nuvolotta: Ferie... già fatte....
    Agosto 04, 2018, 09:54:58
  • _jan_: Auguri di buon onomastico a tutti gli Alfonso....
    Agosto 01, 2018, 11:10:21
  • _jan_: chiusp per ferie?
    Luglio 30, 2018, 19:50:58
  • _jan_: Buon onomastico a Donatella Seconda........ e la prima? :Shok145:
    Luglio 30, 2018, 06:59:38
  • _jan_: Buon onomastico a tutte le Marta.  :Amore20:
    Luglio 29, 2018, 07:44:31
  • _jan_: Ci sono altre nuove iscritte viste il 26 luglio 2018..... (mica saranno monache)....  :approva:
    Luglio 26, 2018, 18:39:04
  • _jan_: Oggi, 26 luglio 2018, abbiamo una nuova iscritta "Francesca".....Benvenuta Francesca.  :Party133:
    Luglio 26, 2018, 15:49:24
  • _jan_: Buon onomastico anche a tutte le Anna!!! .....
    Luglio 26, 2018, 10:30:21
  • _jan_: Auguri di Buon Onomastico a TUO..... (ogni giorno, credo)..... :sm269:
    Luglio 26, 2018, 10:28:52
  • ketty: ma.... quando è il tuo?
    Luglio 25, 2018, 19:52:19

* Emoticon aggiuntive e link al portale


Autore Topic: Vi piacerebbe creare un calendario  (Letto 2949 volte)

0 Utenti e 1 Visitatore stanno visualizzando questo topic.

Offline micdas

  • Administrator
  • Hero Member
  • *****
  • Post: 848
  • Sesso: Maschio
    • sito su Excel ed il suo vba
Vi piacerebbe creare un calendario
« il: Dicembre 23, 2008, 22:57:05 »
Voglio condividere con chi fosse interessato un calendario crfeato con Excel. :sei mio:

Innanzitutto occorre preparare alcuni elenchi. Per cui nel foglio2 metteremo questi elenchi:
nella colonna "A" i nomi dei mesi
nella colonna "D" la serie di numeri che vanno da 1 a 31
nella colonna "H" una serie di numeri da 1980 a 2033

Nel foglio1 disegnamo due caselle a discesa ma uno lo prendiamo dai moduli e l'altro dagli Strumenti di controllo



Per richiamare queste barre basta fare click destro su una delle barre degli strumenti di Excel.



Per popolare la casella a discesa presa dai Moduli:
click destro sul controllo e scegliere formato controllo per visualizzare la omonima finestra di dialogo
se ancora non selezionata, selezionare la linguetta "Controllo"
nella casella "Intervallo di input" scrivere:
Foglio2!$A$1:$A$12
(l'intervallo dove abbiamo scritto l'elenco dei mesi)
nella casella "Collegamento cella" scrivere
G1
(la cella che deve accogliere il valore da noi scelto)



Per popolare la casella a discesa presa dagli Strumenti di controllo:
dalla barra Strumenti di controllo cliccare sull'icona con un biglietto ed una manina per visualizzare la finestra "Proprietà"
se non selezionata, selezionare la casella a discesa
nella casella "ListFillRange" scrivere Foglio2!$H$1:$H$54 (l'intervallo in cui abbiamo scritto l'elenco degli anni)
Nella casella LinkedCell scrivere J1 (la cella che deve accogliere il valore da noi scelto)




La creazione del calendario.
Compiute queste operazioni preliminari possiamo iniziare la creazione del calendario:
nella cella "A1" la formula =DATA($J$1;$G$1;1)
nella cella "A2" la formula =DATA($J$1;$G$1;Foglio2!$D1)
nella cella "B2" la formula =GIORNO(A2)

vedremo una cosa del genere:
"A1": 01/01/2008
"A2": 01/01/2008
"B2": 1
però vorremmo:
"A1": gennaio
"A2": martedì
"B2": 1

Per ottenere questo occorre usare il formato celle.



Quindi:
Click destro sulla cella "A1"
selezionare Formato celle dal menù che ne viene fuori
scegliere la linguetta "Numero" se ancora non è selezionata
nell'elenco "Categorie" scegliere "Personalizzato
nella casella "Tipo" scrivere mmmm
premere OK

Ripetere le stesse operazioni sulla cella "A2"
ma, nella casella "Tipo", scrivere gggg

Ora siamo pronti al completamento del calendario.
Però desideriamo che il calendario mostri solo i giusti giorni del mese.
A seconda dei mesi i giorni possono essere 30 o 31 e Febbraio addirittura potrebbe avere 28 o 29 giorni.

Se riempissimo tutte le celle fino a coprire i 31 giorni, se il mese corrente è più breve di 31 giorni in fondo al nostro calendario vedremo che la sequenza dei giorni nella colonna "B" ricomincerà da 1 (cioè da 1 del mese successivo).
Questo fatto ci da la possibilità di usare, almeno nelle ultime righe, altre funzioni assieme alla formula =DATA($J$1;$G$1;Foglio2!$D1).

Selezionare le celle "A2" e "B2"
Trascinare le selezione fino alla riga 29
Così il calendario finisce col giorno 28
Nella "A30" scriviamo la formula
=SE(GIORNO(DATA($J$1;$G$1;Foglio2!$D29))<B20;"";DATA($J$1;$G$1;Foglio2!$D29))
Nella "B30" l'altra formula
=SE(A30="";"";GIORNO(A30))
Ora selezioniamo le celle "A30" e "B30"
Trasciniamo fino alla riga 32 in corrispondenza del 31° giorno


Con questo si conclude la creazione del calendario e possiamo iniziare a testarlo cambiando nelle caselle a discesa i mesi e/o gli anni.
Se tutto è stato eseguito correttamente ad ogni cambiamento del valore delle caselle a discesa vedremo cambiare il nostro calendario.

Buon divertimento ed auguri le le imminenti festività


 :coro: :coro: :xchristmas:
E' stupido pensare di non aver bisogno degli altri

Offline nuvolotta

  • Global Moderator
  • Capo di 3° classe
  • *
  • Post: 4190
  • Sesso: Femmina
    • Moon over the top
  • Onomastico: non lo festeggio
Re: Vi piacerebbe creare un calendario
« Risposta #1 il: Dicembre 24, 2008, 00:22:16 »
Grazie Mike!!! devo imparare ad usare excel e Calc... proverò a fare quel calendario... :-D

Chi non smanetta non impara

Offline micdas

  • Administrator
  • Hero Member
  • *****
  • Post: 848
  • Sesso: Maschio
    • sito su Excel ed il suo vba
Re: Vi piacerebbe creare un calendario
« Risposta #2 il: Dicembre 24, 2008, 01:05:08 »
Ciao Nuvy  :ciao:
ho provato le formule anche su Calc e funzionano anche lì.
C'è però una piccola differenza nella sintassi che include il nome del foglio.
In Excel si usa questa sintassi:
=DATA($J$1;$G$1;Foglio2!$D1)
=SE(GIORNO(DATA($J$1;$G$1;Foglio2!$D29))<B20;"";DATA($J$1;$G$1;Foglio2!$D29))
ossia il ! (punto esclamativo dopo il nome del foglio (Foglio2!$D1)

In Calc la sintassi usa il . (punto) al posto del punto esclamativo:
=DATA($J$1;$G$1;Foglio2.$D1)
=SE(GIORNO(DATA($J$1;$G$1;Foglio2.$D29))<B20;"";DATA($J$1;$G$1;Foglio2.$D29))

Per il resto è tutto simile

 :xchristmas:    :smilenatalizi:
E' stupido pensare di non aver bisogno degli altri