Excel - Come fare il seguente?

[Stormjohn]

Salve ragazzi, è il mio primo post qui e spero di trovarmi bene ; tutto bene?

Avrei un problemino con una cosa su excel, praticamente dovrei calcolare in maniera automatica dei prezzi per alcuni clienti in un Hotel, e i prezzi sono giornalieri, divisi in periodi:
-Periodo A: 01/05 - 11/06, prezzo = 50€
-Periodo B: 12/06 - 25/06 , prezzo = 55€
-Periodo C: 26/06 - 09/07, prezzo = 60€

Ora, se un cliente dovesse venire dal 08/06 al 01/07, come posso fare tramite una formula, il calcolo? in modo tale da replicarlo per ogni cliente..

Vi ringrazio in anticipo, vi lascio un link con un immagine di excel, e la tabella dei prezzi

https://ibb.co/w7hxdvP

[Anthony47]

Intanto Benvenuto nel forum

Non fare la tabellina dei prezzi come l'hai pensata ma in una tabella di questo tipo:

La prima colonna indica "a partire da questa data"; la seconda indica "la tariffa da quella data fino alla prossima fascia". Io ho usato S2:T20

Ora se hai una data in B2, puoi ottenere la tariffa relativa a quella data usando cerca.vert:

Codice: Seleziona tutto

=CERCA.VERT(B2;$S$2:$T$20;2)

Ovviamente hai un problema se la data di permanenza capita a cavallo di due fasce; in questo caso se vuoi calcolare la tariffa complessiva come somma delle tariffe giornaliere dovrai usare una formula che cerca la tariffa per tutte le giornate e le somma. Ad esempio se la data di checkin e' in B2 e la data di checkout e' in B3 puoi usare la formula

Codice: Seleziona tutto

=SOMMA(CERCA.VERT(RIF.RIGA(INDIRETTO("A"&B2&":A"&B3-1));$S$1:$T$10;2))

Se non hai Office 365 allora dovrai confermare la formula con la combinazione Contr-Maiusc-Enter, non il solo Enter

Ciao

[Stormjohn]

Grazie mille per il supporto, ho office 2013, e provando a fare sia enter, sia CTRL+SHIFT+ENTER mi rilascia #N/D:
https://ibb.co/LS4xhyV

[Anthony47]

ho office 2013, e provando a fare sia enter, sia CTRL+SHIFT+ENTER mi rilascia #N/D

E ci credo: nella tabella usi A-B-C invece che le date...
Devi creare una tabella come quella che ti ho fatto vedere: Data (a partire da) /Tariffa

Ciao

[Stormjohn]

Ah ok ora funziona, anche se ottengo un problemino:

-Se seleziono due celle ed eseguo il codice con CTRL + SHIFT + ENTER mi da il risultato (1270€), mentre se seleziono solo una cella, con la stessa combinazione di tasti di prima, mi da 50€... Forse selezionando due celle, identifica come se fosse una matrice? Come posso far apparire il risultato (1270) in una sola cella?

[Anthony47]

Quale versione di Office usi?
Intanto prova a usare la formula confermandola col solo Enter e dì come si comporta

Ciao+

[Stormjohn]

Quale versione di Office usi?
Intanto prova a usare la formula confermandola col solo Enter e dì come si comporta

Ciao+

Ciao, uso office 2013, se premo solo enter mi rilascia 50, stessa cosa se premo CTRL SHIFT ENTER

[Anthony47]

Non sono riuscito a risolvere lo strano fenomeno per cui il risultato corretto si ottiene solo selezionando piu' celle; quindi cambiamo approccio e usiamo una "funzione personalizzata".
1) Da Excel, premi Alt-F11 per aprire il tuo editor delle macro
2) Menu /Inserisci /Modulo, per inserire un "modulo macro" vuoto
3) In questo modulo incolla il seguente codice:

Codice: Seleziona tutto

Function QuotaTot(ByVal CkIn As Date, CkOut As Date, ByRef Param As Range) As Single
Dim xDate, xFare, I As Long, AllFare As Single
Dim myMatch
'
xDate = Application.WorksheetFunction.Transpose(Application.WorksheetFunction.Index(Param, 0, 1))
For I = CkIn To CkOut - 1
    myMatch = Application.Match(I, xDate)
    AllFare = AllFare + Param.Cells(myMatch, 2).Value
Next I
QuotaTot = AllFare
End Function


Questo ti creera' la funzione QuotaTot, la cui sintassi e':

Codice: Seleziona tutto

QuotaTot(Data di Checkin; Data di CheckOut; TabellaParametriTariffe)

In TabellaParametriTariffe, la prima colonna sono date in ordine rigorosamente crescente e in seconda colonna sono le tariffe che si applicano a partire da quella data.


Quindi, con gli esempi fatti finora, la formula che potrai usare sara'

Codice: Seleziona tutto

=QuotaTot(B2;B3;$S$1:$T$10)

Il file deve essere salvato in formato ".xlsm"

Ciao