Per Leggend Joe Mike o Salvo

[joe]

non si a bisogno di risposte si comprende tutto dalla partenza.

In contrapposizione con quelli nati imparati,

io sono curioso, cerco soluzioni e cerco di imparare.

Ho risultati migliori quando è possibile risolvere i problemi che altri sanno creare

meglio di quanto so fare da me.

Dunque senza nulla voler togliere ai meriti di altri,

come corollario c'erano da capire sin dal principio una marea di cose,

che tu e Claudio avete reso ben esplicite.

Buona giornata.

 

[bubù]

Non ho modo di provarlo perché non ho Excel, ma credo che basta dirgli di fare più estrazioni

Inizio = EstrazioneFin-10

invece di -10 metti -100

-1000

Grazie, è esatto. Quindi se voglio esportare tutte quelle di un mese specifico cosa devo cambiare, qual'è la formula esatta da mettere ?


Grazie e buona giornata a tutti

 

[salvo50]

Ciao a Tutti

Ciao Bubu

Non c'è l'opzione di scegliere il mese specifico

 

[bubù]

Ciao a Tutti

Ciao Bubu

Non c'è l'opzione di scegliere il mese specifico

Grazie lo stesso andrà benissimo così , Grazie e scusa per il disturbo

 

[silop2005]

Grazie, è esatto. Quindi se voglio esportare tutte quelle di un mese specifico cosa devo cambiare, qual'è la formula esatta da mettere ?


Grazie e buona giornata a tutti

======================================

SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e SpazioLight.net V.1.0.38

======================

Ciao Bubù ,

======================

prova questa semplice soluzione

che ti spiego con le immagini.

Nel listato pubblicato dal bravo Salvo50,

Togli/cancelli il "-10" e metti "Ini" al posto di "Fin" a questa riga

da cosi :

Inizio = EstrazioneFin - 10

diventa cosi:

Inizio = EstrazioneIni

======================

Poi sulla barra sotto vicino alla data finale o attuale (prima di BA),

ci sta un pulsantino tipo x [X] (freccia BLU)

ci clicchi sopra e si apre una piccola finestra dove puoi selezionare (con le frecce avanti e indietro)

il mese che ti interessa dall'inizio alla fine

quando hai finito clicca sul pulsante [OK]

e fai partire lo script che ti stampa in Excel il mese che hai scelto.

In questa immagine ho scelto tutto il mese APRILE 2024:

=====================

======================

In questa altra immagine ho scelto tutto il mese di Marzo 2024 e relativa tabella in Excel:

=====================

======================

======================

Credo di esserti stato utile.

======================

Buon sabato a tutto il forum.

======================

A presto

Silop

 

[bubù]

Grazie Silop ,gentilissimo come sempre. Buona giornata

 

[joe]

Se lo scopo era quello di deridere qualcuno ...

... penso ... che si sia trasformato in un'arma a doppio taglio.

Se lo scopo era quello di primeggiare, c'è sempre qualcuno più puro che ti epura.

Dunque, un pochino di umiltà contrapposta a meno di supponenza, forse sarebbe utile da impararsi.

A tutti, me compreso.

Penso, tutti, si possa verificare che lo script Test_XlsFunction3.ls

presente tra gli esempi di Spaziometria dal 2012 fa esattamente quello che fa il programma proposto.

Con le stesse variabili le stesse funzioni lo stesso algoritmo.

Perché è lo stesso script, che poco sopra si è detto essere giusto all'opposto di un esempio sbagliato.

Diverso da quanto chiede Bubù.

Naturalmente esistono istruzioni sia in VbScript, sia in VbApplication, sia da inserire "da tastiera" nelle celle di Excel.

Sono istruzioni idonee a gestire le date, dunque potenzialmente-capaci di dividere tra di loro i mesi.

Questo è altro discriminante anch'esso capace di dividere, questa volta, chi sa e chi ha i titoli di studio del sapere,

da chi si fa bello facendo il bulletto nel far finta di sapere scopiazzando qua le la.

Non mi riferisco certo a Salvo ... che ha ben dimostrato al pari di Luigi e Mike grande altruismo,

capacità di tradurre e grande creatività. Così pure per è tutti quelli che si arrabbattano e regalano il loro lavori.

A tutti. Uno per tutti ... Silop.

Avvengono comportamenti negativi per abbindolare? per lucro? per desiderio di primeggiare? Bha! Chissà?

Penso sia l'invidia ad animare i nuovi avatar, l'utilizzo dei prestanome dietro cui nascondersi.

Il solito o il nuovo troll, il suckpuppet di turno che si crede di poter "inventarsi" o per rinforzare il suo gruppo di haters.

Dunque: "Venderò la mia sconfitta a chi ha bisogno di sentirsi forte".

Ai "signori" del forum sempre pronti alle critiche fatte di nulla.

 

[joe]

Ovvero ci vogliono le prove e queste sono:

Option Explicit
Sub Main
   ' questo esempio esporta in excel il range di estrazioni selezionato
   ' Rev.1.1 By Joe 04/05/2024
   Dim xlApp ' oggetto excel
   Dim idEstr,r,e,i,riga
   Dim Inizio,Fine,nEstrTot
   Dim nColor
   Dim sCoord
   Inizio = EstrazioneIni
   Fine = EstrazioneFin
   nEstrTot =(Fine + 1) - Inizio
   If XlsApriFile(xlApp) Then ' istanzia excel
      Call ScriviIntestazioneColonne ' scrive le intestazioni delle colonne
      ' ciclo per alimentare il foglio
      riga = 1
      For idEstr = Inizio To Fine ' cicla sulle estrazioni
         '------------------------------------------------
         'Queste istruzioni selezionano le Estrazioni Mensili
         If Mese(idEstr) = 3 Then 'Marzo
            If Anno(idEstr) = 2024 Then '2024
         '------------------------------------------------
               riga = riga + 1 ' incrementa la riga dove andra a scrivere
               i = 1
               nColor = vbWhite ' preimposta il colore della colonna
               ' scrive la prima colonna con la data
               Call XlsScriviC(riga,i,GetInfoEstrazione(idEstr))
               ' cicla sulle ruote dell'estrazione
               For r = 1 To 12
                  If r <> 11 Then
                     ' ad ogni cambio ruota inverte il colore della colonna
                     If nColor = vbCyan Then
                        nColor = vbWhite
                     Else
                        nColor = vbCyan
                     End If
                     ' ciclo per scrivere i numeri dell'estrazione
                     For e = 1 To 5
                        i = i + 1
                        sCoord = XlsGetLetteraFromColonna(i) & riga ' calcola la coordnata della cella dove scrivere
                        Call XlsScrivi(sCoord,Estratto(idEstr,r,e),,,,,nColor)
                     Next
                  End If
               Next
              
            End If
         End If
         Call AvanzamentoElab(Inizio,Fine,idEstr)
         If ScriptInterrotto Then Exit For
      Next
      Call XlsAutoFit("A1:" & XlsGetLetteraFromColonna(56) & nEstrTot) ' esegue la funzione di adattamento delle colonne
      Call XlsMostra ' mostra excel all'utente
   End If
End Sub
Sub ScriviIntestazioneColonne
   ' scrive l'intestazione delle colonne nel foglio
   Dim r,e,i
   Dim nPrimaCol,nUltimaCol,sCoordC1,sCoordC2
   sCoordC1 = "A1"
   Call XlsScrivi(sCoordC1,"Data",,,True)
   nPrimaCol = 1
   For r = 1 To 12
      If r <> 11 Then
         nPrimaCol = nPrimaCol + 1
         nUltimaCol =(nPrimaCol - 1) + 5
         sCoordC1 = XlsGetLetteraFromColonna(nPrimaCol) & "1" ' calcola le coordinate delle cellle relative alla ruota
         sCoordC2 = XlsGetLetteraFromColonna(nUltimaCol) & "1"
         Call XlsScrivi(sCoordC1,NomeRuota(r),,,True,,,,xlsCenter)
         Call XlsMerge(sCoordC1,sCoordC2,True) ' unisce le 5 celle contigue della ruota
         Call XlsFormatoCella(sCoordC1 & ":" & sCoordC2,,,,,,xlsCenter) ' imposta l'allineamento
         nPrimaCol = nUltimaCol
      End If
   Next
End Sub

Questo programma replica quanto già presentato da Silop.

Riproduce le estrazione di Marzo 2024 per il controllo del suo Output si cui si hanno le immagini.

PS: Ho apportato una piccola modifica allo script. Ringrazio gli attenti lettori.