esercizio 11 sequenza giorni

Hai un problema con Excel?

Nuova discussione

[RISOLTO] esercizio 11 sequenza giorni
di ninai data: 11/07/2015 11:18:59
Visto che nessuno è venuto in soccorso, propongo io l' esercizio

Per pigrizia ho pescato in archivio fra quelli di possibile interesse e con soluzioni potenzialmente varie.

In sintesi, si tratta di estrarre, partendo da una data iniziale, le date successive che corrispondo ad uno o più giorni della settimana.
Esempio, partendo dall 11/7/2015, estrarre una sequenza di date successive, corrispondenti a Martedì - giovedì - sabato ( o altri).

Propongo un file di base (con formule trasformate in valori) dove bisogna trovare, con formule, le date con sfondo arancio, inserendo i dati nelle celle a sfondo giallo.
La soluzione che ho io prevede una colonna di appoggio, vedete se si può fare con formula unica.
di Albatros54 data: 11/07/2015 11:33:10
@ninai cambia estensione al file , perche non si puo scaricare
Ciao
Gioacchino
di ninai data: 11/07/2015 12:37:04
scusate ma l' eccessiva lunghezza del titolo del file tagliava l'estensione, è valido solo quello con l'estensione completa, gli altri se possibile, andrebbero cancellati
di Raffaele_53 data: 11/07/2015 17:57:23
Professore, mi stai facendo diventare matto (lo sono già)
1) VBA escluso?
2) Solo formule..., posso usare una/due colonne d'appoggio? Oppure è vietato pure quelle?
Quasi ci sono, mà il file sarebbe molto pesante.
di ninai data: 11/07/2015 21:17:05
ciao Raffaele

Piano con lo sforzo che con il caldo è pericoloso

per le colonne di appoggio , la mia soluzione (che poi non ricordo se è mia), ne prevede una, fai come vuoi, volevo vedere se si poteva fare senza.

Per il VBA, se vuoi pubblica ma non sarò certo io a commentarlo
di Vecchio Frac data: 12/07/2015 09:09:21
cit. "Visto che nessuno è venuto in soccorso, propongo io l' esercizio"
---> Bravo Ninai, alla fine stavo per farlo io e hai avuto anche una buona idea su come fare ^_^
di Marius44 data: 12/07/2015 15:03:43
Salve a tutti
Ho provato a cimentarmi con le formule ma, ad un certo punto, mi sono arenato. Per non impazzire mi sono dedicato al VBA. Vi propongo una mia soluzione che, oltre ad estrarre le date (in colonna "F") cambia il colore della cella interessata colonna "A".
Anche se non è necessario spiego: dopo aver inserito la/le "x" (in maiuscolo o minuscolo) selezionare Estrai. Per cancellare selezionare Cancella x.
Buon divertimento e aspetto le soluzioni con le formule per ... imparare e non impazzire.
Ciao,
Mario

di Vecchio Frac data: 12/07/2015 18:25:33
Riporto la mia proposta con VBA. E' abbastanza sempliciotta ma non mi viene in mente altro :)
Si tratta di una Function che restituisce una collection di date e si usa per esempio così in Immediata:
for each d in get_dates (range("a2"), range("c3:c9"), 10):?d:next
sulla base dati fornita da Ninai (dove A2 contiene la data iniziale, il range C3:C9 i criteri di selezione spuntati con x; infine 10 sono il numero di date restituite a partire dalla data iniziale).
Con le formule, purtroppo, non ci so fare :)

Option Explicit

Function get_dates(initial_date As Date, criteria As Range, iterations As Integer) As Collection
Dim criterium As Variant, coll As Collection, crit As String, current_date As Date, new_date As Date
Dim i As Integer, count As Integer
    
    Set coll = New Collection
    current_date = DateAdd("d", 1, initial_date)
    
    For Each criterium In criteria.Cells
        i = i + 1
        If Trim(criterium) <> "" Then crit = crit & i & ","
    Next
    If crit = "" Then Exit Function
    crit = Left(crit, Len(crit) - 1)
    
    Do
        If InStr(crit, Weekday(current_date, vbSunday)) > 0 Then
            coll.Add current_date
            count = count + 1
        End If
        current_date = DateAdd("d", 1, current_date)
    Loop Until count > iterations
    Set get_dates = coll
End Function

di Raffaele_53 data: 12/07/2015 22:59:51
Secondo me la soluzione è molto più facile. Vedremmo...

Le mie sono banali

1) dato che i "GIORNO.SETTIMANA" sono il 3,5,7
In A1 =SE(O(GIORNO.SETTIMANA(42195+RIF.RIGA();1)=3;GIORNO.SETTIMANA(42195+RIF.RIGA();1)=5;GIORNO.SETTIMANA(42195+RIF.RIGA();1)=7);42195+RIF.RIGA();"") e trascino giù.

2) Idem, stavolata ho spostato la tabella in A1:B7
In C2 =SE(O(E(GIORNO.SETTIMANA(42195+RIF.RIGA();1)=1;B$1= "X");E(GIORNO.SETTIMANA(42195+RIF.RIGA();2)=1;B$2= "X");E(GIORNO.SETTIMANA(42195+RIF.RIGA();1)=3;B$3= "X");E(GIORNO.SETTIMANA(42195+RIF.RIGA();1)=4;B$4= "X");E(GIORNO.SETTIMANA(42195+RIF.RIGA();1)=5;B$5= "X");E(GIORNO.SETTIMANA(42195+RIF.RIGA();1)=6;B$6= "X");E(GIORNO.SETTIMANA(42195+RIF.RIGA();1)=7;B$7= "X"));42195+RIF.RIGA();"") e trascino giù.

di ninai data: 12/07/2015 23:31:47
Ciao Raffaele
scusa, non riesco a capire la tua proposta, tieni presente che i giorni della settimana non sono prestabiliti, sono da scegliere , in quantità ed in qualità, in base alle X.
Usa il mio file, metti le formule nelle celle a sfondo arancio ed eventuali appoggio e lo rialleghi con il tuo nome.

Per le proposte in VBA (voi ve la suonate e voi ve la ballate)
di Raffaele_53 data: 13/07/2015 03:07:37
Pensavo che questi quesiti fossero un gioco, era facile farlo col VBA.
L'altra sera ho provato con vari modi (solo mal di testa), più tardi mi è venuta questa stramberia che non è una vera soluzione.

Allegato in foglio2, in foglio1 ho modificato la formula in G1.
Copia/incolla valori in H dopo si eliminano i duplicati e si formatta in data
In J1 non ho usato 42195 ma la data in A2

Ps in foglio1 cella A3 puoi mettere =PICCOLO(G:G;RIF.RIGA()-1) e trascini giù
di ninai data: 13/07/2015 07:11:01
Bene Raffaele
hai fatto senza colonna di appoggio ma vi sono le righe vuote.
Ripeto, la soluzione che ho io in archivio prevede celle di appoggio (D3:D9), vediamo se si trova una soluzione migliore, vi do ancora qualche giorno.
di Vecchio Frac data: 13/07/2015 08:27:01
cit. "Pensavo che questi quesiti fossero un gioco"
---> Certo che lo sono, senza premi però tranne l'elogio e il diritto di proporre un nuovo "esercizio":)

@Ninai
cit. "Per le proposte in VBA (voi ve la suonate e voi ve la ballate)"
---> Oh LOL :)
di Marius44 data: 13/07/2015 12:41:03
@vecchio frac
@ninai
cit. "Per le proposte in VBA (voi ve la suonate e voi ve la ballate)"
---> Oh LOL :)

E no, mio caro; se poi dovrai dichiarare un "vincitore" (dell'encomio e basta) un giudizio dovrai pur darlo, magari dicendo "mi piace di più per i colori" oppure "per come è disposta la videata", o altro.

Non siete d'accordo?

ciao a tutti,
Mario
di cromagno data: 13/07/2015 13:03:37
Buongiorno a tutti,
sono impazzito per due giorni in quanto ero convinto di dover usare una formula matriciale...
Alla fine, credo di aver trovato una soluzione utilizzando una formula più semplice (applicata alla colonna F):
=SE(VAL.ERRORE(CONFRONTA("x";$C$3:$C$9;0));"";F2+SE(O(VAL.ERRORE(CONFRONTA("x";INDIRETTO("$C$"&GIORNO.SETTIMANA(F2)+3&":$C$9");0));GIORNO.SETTIMANA(F2)=7);CONFRONTA("x";$C$3:$C$9;0)+(7-GIORNO.SETTIMANA(F2));CONFRONTA("x";INDIRETTO("$C$"&GIORNO.SETTIMANA(F2)+3&":$C$9");0)))

Per quel che ho provato, sembra funzionare...
Comunque lascio il file in allegato.
di ninai data: 13/07/2015 14:25:02
Bravo Cromagno, sembra funzionare e senza nessun appoggio!!!
vediamo se arriva qualcos'altro.
di Textomb data: 13/07/2015 16:09:20
ho testato la formula di cromagno e pare che non funzioni in qualunque condizione.
ho difatti spostato le "x" coinvolgendo altri giorni della settimana ma la formula non risponde correttamente.
di Vecchio Frac data: 13/07/2015 16:37:17
@textomb
Io non trovo errori, il foglio apre rispondere bene.
A che condizioni hai testata la formula?
di cromagno data: 13/07/2015 16:43:06
Ciao Textomb,
ho riprovato il file dopo quello che hai scritto...
non so che dirti, sembra rispondere a tutte le variazioni
di Textomb data: 13/07/2015 17:06:56
Mi correggo.
La formula risponde bene.
scusate il disagio.
di Marius44 data: 13/07/2015 19:46:46
Salve a tutti

@ textomb
cit: scusate il disagio
Non ti scuso! Aspetto una TUA soluzione con le formule per imparare. La formula di cromagno (io non ci sarei mai arrivato) in effetti "riporta" tutte le date successive a quella iniziale per i giorni richiesti. Probabilmente ti aspettavi che "estraesse" da quelle a sinistra quelle corrispondenti ai giorni contrassegnati da x

@ninai
cit: Propongo un file di base ... dove bisogna trovare, con formule, le date con sfondo arancio, inserendo i dati nelle celle a sfondo giallo.
Poi hai allargato anche al VBA

Ciao,
Mario
di ninai data: 13/07/2015 20:38:27
ciao

cit.
"scusate il disagio"

Scusate il disagio, sta m..chia!!

devi pagare da bere!!

il mio intento era con le formule , ma visto che siete VBA dipendenti, non vi volevo fare soffrire

La soluzione di cromagno è ottima (ancora non l'ho neanche studiata/capita), allego la mia (non ricordo se l'ho fatta io o no) , con colonna di appoggio.

in D3:
=SE.ERRORE(CONFRONTA("x";C4:$C$10;0);7-RIF.RIGA(D1)+CONFRONTA("x";$C$3:$C$9;0))
e trascini fino a D9

in A3:
=A2+INDICE($D$3:$D$9;GIORNO.SETTIMANA(A2))
e trascini in basso quanto si vuole
di Textomb data: 14/07/2015 09:00:24
Vi propongo una prima release... Non mi piace molto. Ma spero di trovare il tempo per migliorarla.
in A3 e poi trascinare in basso. Non ci sono colonne di appoggio.
=INDICE(A2+RIF.RIGA($1:$7);CONFRONTA(PICCOLO(SE($C$3:$C$9="x";RIF.RIGA($1:$7));--(RESTO(RIGHE($A$3:A3);CONTA.VALORI($C$3:$C$9))=0)*CONTA.VALORI($C$3:$C$9)+RESTO(RIGHE($A$3:A3);CONTA.VALORI($C$3:$C$9)));GIORNO.SETTIMANA(A2+RIF.RIGA($1:$7));0))
confermare con Ctrl-Maiusc-invio
di Marius44 data: 14/07/2015 10:25:58
Scusatemi tutti, forse è la vecchiaia, ma avevo capito che bisognava "estrarre" dall'ELENCO DATOCI le date che corrispondevano ai giorni con la "x" (ed è questo che fa il mio elaborato).
Tutti gli altri, invece, hanno assunto la seconda parte del testo, cioè "le date SUCCESSIVE che corrispondono ad uno o più giorni della settimana."

@Textomb
Ti sei salvato in ... corner (ma la tua formula me la studierò per benino come quella di cromagno).

Cordialmente,
Mario
di Raffaele_53 data: 14/07/2015 13:33:07
Ciao a tutti.
Non sò dove abbia letto che se le formule non ci riescono, il VBA è inutile. Sappiamo tutti che "in certi file" con tante formule, queste sarebbero lente e il VBA più veloce.
EDIT--> Intendevo dire "con tante formule, queste sarebbero pesanti e il VBA più snello"<--EDIT

Non sò quante ore abbia provato senza risultati validi.
Complimenti a cromagno, l'indiretto è stata una bella idea.
Ero arciconvinto del MATR.SOMMA.PRODOTTO che non sono riuscito ad abbinare.

Ps. Textomb, prova a cambiare la data iniziale 11/07/2015 in 10/06/2015
Vale anche per me (sul file cromagno), che con una sola cella d'appoggio in E2 =INT(RESTO(F2;7))...Potevo farne a meno con SE(INT(RESTO(F2;7))=INT(RESTO(F$2;7))

F3 =SE(INT(RESTO(F2;7))=E$2;F2+CONFRONTA("x";$C$3:$C$9;0);F2+CONFRONTA("x";INDIRETTO("$C$"&GIORNO.SETTIMANA(F2)+3&":$C$9");0))
...funziona, però se la data iniziale non è INT(RESTO(F2;7)) = 0 (non funziona).
di Textomb data: 15/07/2015 10:46:22
L'avevo precisato che la formuletta non mi piaceva...
Questa invece mi garba di più.
L'ho testata velocemente e pare che risponde in modo corretto.
in A3 riporare la formula e trascinare in basso:
=A2+AGGREGA(15;6;CONFRONTA(($C$3:$C$9="x")*RIF.RIGA($1:$7);GIORNO.SETTIMANA(A2+RIF.RIGA($1:$7));0);1)
Si tratta di una matriciale e quindi confermare con ctrl-maiusc-invio.
di Vecchio Frac data: 15/07/2015 11:16:58
Però si applica a Excel >= versione 2010 :)
(AGGREGA non è disponibile fino a Excel 2007 compreso)
di Raffaele_53 data: 15/07/2015 11:59:40
Posso fare un quesito?
Tre persone che dichiarano che 24/3=17
Tutti tre hanno ragione.
Ps(non c'entra la matematica, solo "il loro punto di vista/calcolato")

PPs matematica fatta con altri metodi
di Textomb data: 15/07/2015 13:21:41
@VF
Hai ragione. Però le funzioni "aggiunte" dovrebbero far parte delle armi a disposizione.
In ogni caso, si può ovviare al problema utilizzando questa formula.
=A2+PICCOLO(SE.ERRORE(CONFRONTA(($C$3:$C$9="x")*RIF.RIGA($1:$7);GIORNO.SETTIMANA(A2+RIF.RIGA($1:$7));0);8);1)

@Raffaele
Io non ho mica capito cosa vuoi dire...
di Vecchio Frac data: 15/07/2015 13:44:27
@textomb
grazie per la precisazione :)

@raffaele
una base diversa da quella decimale?

di Textomb data: 16/07/2015 13:04:47
per completezza propongo una soluzione anche in versione UDF.
Questa restituisce lo stesso risultato ottentuto con le formule.
In A3 riportare la funzione e trascinare in basso.
=nextDate(A2;$C$3:$C$9)

Option Explicit

Function nextDate(firstDate As Date, criteria As Range) As Date
Dim k As String, j As Byte

    If criteria.Find("x") Is Nothing Then Exit Function
    For j = 1 To 7 'N. gg. settimana
            If criteria.Cells(j) = "x" Then
                k = k & "," & j
            End If
    Next
    
    Do
        firstDate = firstDate + 1
    Loop Until InStr(k, WorksheetFunction.Weekday(firstDate)) <> 0
    
    nextDate = firstDate

End Function

di ninai data: 16/07/2015 20:38:45
ciao a tutti

complimenti per le soluzioni trovate.
Confesso che non le ho capite granchè, ma il caldo non mi permette troppi sforzi.

Non mi va di decretare un "vincitore" ma pur avendo una gradevole attrazione per quella di Textomb vorrei assegnare il "Titolo" a cromagno, in quanto il primo ad aver centrato a pieno il bersaglio (pertanto sei invitato a proporre il prossimo esercizio).

In verità voglio punire textomb per aver concluso un mio argomento con un codice VBA
Come dice un "amabile" collega del forum (scossa): "io sto al VBA come l'acqua sta ad una pianta finta"

edit
allego file con le soluzioni (formule) adottate
di cromagno data: 17/07/2015 10:13:16
Buongiorno,
proverò a proporre qualcosa che sia all'altezza (prima però mi guardo i primi esercizi proposti da voi), ma se dovesse passare troppo tempo, non esitate a proporne voi.
... non tanto perchè non voglio proporne uno ma perchè la vedo assai difficile mettervi in difficoltà...
Ciao a tutti
di Vecchio Frac data: 17/07/2015 10:31:36
I destinatari degli esercizi dovrebbero essere tutti gli utenti del forum, non solo quelli "esperti". Perciò anche un esercizio alla portata di chi non pensa sia una banalità. Basterà che chi lo risolve subito (tra gli utenti esperti più bravi) si astenga dal fornire immediatamente una soluzione.
Quindi... ti invito a inventarti qualcosa (puoi pescare idee anche da internet o da un libro di esercizi) :)
di ninai data: 17/07/2015 10:34:08
cit.
... non tanto perchè non voglio proporne uno ma perchè la vedo assai difficile mettervi in difficoltà...

Come aveva fatto notare qualcuno in precedenza (forse VF), forse sarebbe meglio che non siano difficili ma che si prestino a tante soluzioni, così vengono fuori tanti approcci diversi allo stesso problema.

(predico bene e razzolo male, lo so)
di alfrimpa data: 17/07/2015 10:48:15
Infatti.... ed aggiungo se vi andate a "spulciare" i precedenti esercizi vi accorgerete che gli interventi degli utenti "iscritti" si contano a malapena sulle dita di una mano (se non ricordo male uno dei pochi è proprio Cromagno) mentre di utenti "non iscritti" non c'è n'è uno che sia uno.

Anche l'ultima proposta (Il gioco del Nim) che è stata già pubblicata da qualche giorno è, per ora, a zero risposte.

Non che io sia contrario ad iniziative del genere (tutt'altro), ho voluto solo commentare questa situazione.

Io stesso (che mi ritengo "appassionato" "esperto" non lo so) mi sono trovato in seria difficoltà quando ho provato a risolvere qualche esercizio (ma questo è sicuramente un mio limite).

Alfredo
di Vecchio Frac data: 17/07/2015 10:57:34
cit. "Anche l'ultima proposta (Il gioco del Nim) che è stata già pubblicata da qualche giorno è, per ora, a zero risposte. "
---> Non dico che è un mio fallimento, ma quasi.
di Textomb data: 17/07/2015 11:06:24
Cari Utenti del Forum. Appassionati, Esperti e non...
Solo per precisare. (ovviamente è solo una mia impressione..)
L'esercizio proposto da ninai non era facile. Direi per nulla.
L'esercizio del mese proposto da VF non è facile. Ma per nulla.
In ogni caso condivido le iniziative.
di Vecchio Frac data: 17/07/2015 11:20:08
@textomb
Il "Gioco del mese" *non* è un esercizio.
E' un modello completo (quindi non ci si aspetta che venga risolto), avente finalità didattica, che illustra, mediante un progetto ludico, qualche funzionalità interessante. Sono accettate integrazioni e suggerimenti, ma non ha bisogno di essere modificato perchè sa stare in piedi da solo.

Per gli esercizi periodici invece ci si rimette alla sensibilità degli autori :)
gioco del mese...
di cromagno data: 17/07/2015 11:33:21
@VF
Essendo la descrizione abbastanza lunga, aspettavo di avere un pò di tempo per poter "guardare" il file a dovere e finalmente ci sono riuscito poco fa... molto interessante
Per il fatto delle partecipazioni (almeno per quel che mi riguarda)... forse dipende proprio dal fatto che non è un esercizio e quindi risulta difficile integrare qualcosa che dia un valore aggiuntivo ad una cosa già di per se funzionante (anche se come hai detto, è sempre possibile apportare migliorie... l'avversario VBA sarebbe davvero interessante).
A parte tutto, ribadisco... interessante
di Vecchio Frac data: 17/07/2015 11:55:09
cit. "molto interessante"
---> Lo è, guardate che il merito è di scossa: il contributo è tutto suo.
di brontolo (utente non iscritto) data: 17/07/2015 19:00:47
@ alfrimpa, afferma:
[QUOTE]
se vi andate a "spulciare" i precedenti esercizi vi accorgerete che gli interventi degli utenti "iscritti" si contano a malapena sulle dita di una mano ... mentre di utenti "non iscritti" non c'è n'è uno che sia uno.
[/QUOTE]

Da Utente "non iscritto":
[QUOTE]
Sono cosapevole di aver fatto interventi poco interessanti e assai poco professionali, ma, almeno ci ho provato!
[/QUOTE]

Ergo, molto idegnamente ma almeno uno che sia uno ... ci ha provato.

Con osservanza.
di alfrimpa data: 17/07/2015 19:49:58
Perdonami Brontolo hai tutte le mie scuse.

Il tuo nome mi era sfuggito; mi cospargo il capo di cenere.

Alfredo

P.S. Però la sostanza del discorso non è che cambi.
di Raffaele_53 data: 17/07/2015 21:52:44
Ps cromagno è ancora un Utente?
di brontolo (utente non iscritto) data: 17/07/2015 22:22:12
Vista la risposta velatamente sarcastica di alfrimpa, cerco di fare chiarezza; alfrimpa, non mi sento assolutamente "offeso" per non essere stato preso in considerazione da te, ci mancherebbe.

La mia risposta doveva semplicemente ricordare che la tua affermazione non era coerente con la realtà; altri Utenti "non iscritti", molto più qualificati di "brontolo", sono intervenuti in altri Esercizi.

Voglio dire, prima di fare affermazioni, peraltro gratuite, sarebbe più corretto documentarsi opportunamente.
Poi, se ti senti gratificato nel fare questo tipo di interventi, e sparare nel mucchio, non saprei proprio che dirti.

Ovviamente, se ritieni di cospargerti il capo di cenere, è un tuo problema.
di Raffaele_53 data: 17/07/2015 22:34:13
brontolo rileggi quanto hai scritto
Non sono il numero 1. però vorrei evitare conflitti.
alfrimpa e una persona a modo e se Tu credi il contrario "peggio per Te"
malinteso
di ninai data: 18/07/2015 00:45:26
Brontolo
anche io credo che hai mal interpretato il post di Alfredo. Non credo volesse essere sarcastico, e capisco che si fa fatica a ricordare chi e dove si interviene negli argomenti. Io ad esempio, se passa qualche ora non ricordo più dove sono intervenuto se poi mi rispondono dopo giorni neanche ricordo cosa gli ho consigliato.
Spero vi chiariate, non vi è motivo di alterco.
di Vecchio Frac data: 18/07/2015 10:51:21
Bè ragazzi "brontolo" deve pur onorare il suo nick no? ^_^
Comunque, restiamo nei binari corretti e non alimentiamo... grazie.
di Raffaele_53 data: 18/07/2015 12:33:14
PPs cromagno è ancora un Utente? Farlo salire di grado?
di cromagno data: 18/07/2015 12:56:06
Ciao Raffaele,
ti ringrazio per la proposta di promozione, ma non credo proprio di essermela ancora guadagnata
Tra l'altro ho iniziato a far parte di questo forum (dietro consiglio di un vecchio utente... Harry Bosh) per imparare dalle risposte dei veri "utenti esperti" e occasionalmente aiutare qualche altro utente.
Grazie comunque per il pensiero
di Mauro data: 18/07/2015 18:24:30
Cromagno, avevo intenzione di contattarlo per proporgli di entrare nel gruppo (se poi ha le referenze del buon HB... a maggior ragione). Andiamo a votazione ma spostiamo la discussione su Area51
di Mister_x (utente non iscritto) data: 21/07/2015 21:35:43
ciao ragazzi
sono ritornato per pochi giorni e ho visto questo esercizio con le varie proposte,
quindi ho pensato di includere anche un mio intervento utilizzando la formattazione condizionale
su una spece di calendario variabile in colonna A
le formattazioni condizionali sono 2 la prima colora di rosso i giorni scelti, la seconda nasconde i vari giorni non scelti su questa spece di calendario
dove in base alla data iniziale viene creato

1° INDIRETTO("C"&CONFRONTA(TESTO(A3;"gggg");B$1:B$9;0))<>0
2° INDIRETTO("C"&CONFRONTA(TESTO(A3;"gggg");B$1:B$9;0))=0
posto il file in versione 2003

ciao a tutti

Vuoi Approfondire?