Moderatori: Anthony47, Flash30005
=SOMMA(SE(F2:O2="";0;1)*(MATR.TRASPOSTA(2^(RIF.RIGA(INDIRETTO("1:10"))-1))))
Function scomponi3(MyVal)
ListaVal = Array(16384, 8192, 4096, 2048, 1024, 512, 256, 128, 64, 32, 16, 8, 4, 2, 1)
ListaAnni = Array(2022, 2021, 2020, 2019, 2018, 2017, 2016, 2015, 2014, 2013, 2012, 2011, 2010, 2009, 2008)
For Contr = 0 To 14
Parag = ListaVal(Contr)
If Parag <= MyVal Then
MyVal = MyVal - Parag
scomponi3 = scomponi3 & ListaAnni(Contr) & ","
End If
Next Contr
End Function
CUT
...
scomponi3 = scomponi3 & ListaAnni(Contr) & ","
End If
Next Contr
scomponi3 = Left(scomponi3, Len(scomponi3) - 1)
End Function
For Contr = 14 To o Step -1
Function scomponi3(MyVal)
ListaVal = Array(16384, 8192, 4096, 2048, 1024, 512, 256, 128, 64, 32, 16, 8, 4, 2, 1)
ListaAnni = Array(2022, 2021, 2020, 2019, 2018, 2017, 2016, 2015, 2014, 2013, 2012, 2011, 2010, 2009, 2008)
For Contr = 0 To 14
Parag = ListaVal(Contr)
If Parag <= MyVal Then
MyVal = MyVal - Parag
scomponi3 ="," & ListaAnni(Contr) & scomponi3
End If
Next Contr
scomponi3 = Right(scomponi3, Len(scomponi3) - 1)
End Function
Torna a Applicazioni Office Windows
Creare/ripristinare un “Immagine di sistema” - Win 10/11 Autore: m.paolo |
Forum: Sistemi Operativi Windows Risposte: 0 |
Creare un file Excel con fogli visibili in base all'accesso Autore: JanVathek |
Forum: Applicazioni Office Windows Risposte: 28 |
Access 2003: creare maschera per inserire dati su più tabell Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 1 |
Creare ricevuta generica da foglio excel Autore: tommy95 |
Forum: Applicazioni Office Windows Risposte: 1 |
Visitano il forum: Nessuno e 25 ospiti