Per Leggend Joe Mike o Salvo

[trivellatomariotretre33]

Ciao Buongiorno Cortesemente un Listato Che mi Restituisce Estrazioni come Segue Allego anche TX Grazie.

Bari	58	84	30	62	66
Cagliari	45	68	85	44	1
Firenze	76	52	3	22	16
Genova	39	5	70	26	35
Milano	43	86	23	67	18
Napoli	80	62	88	29	35
Palermo	27	53	72	71	60
Roma	52	15	16	24	85
Torino	36	74	30	73	62
Venezia	55	65	41	68	13
Nazionale	62	27	48	69	78

 

[salvo50]

Ciao a Tutti

Ho modificato un pochino uno script che è negli aiuti di Spaziometria, originariamente era per una sola estrazione l'ultima, ho aggiunto solo Inizio

Vedi se va bene

Option Explicit
Sub Main
   Dim Inizio,fine,k
   Inizio = 10000
   fine = EstrazioneFin
   For k = Inizio To fine
      Call ScriviEstrazione(k,1,1,1)
   Next
End Sub

 

[claudio8]

@trivellatomariotretre33
Ce ne sarebbero tanti modi x scrivere una estrazione.... le richiesta deve essere specifica nei dettagli...
Prova quest'altro ...

Option Explicit
Sub Main
Dim Inizio,fine,k,r
Inizio = 10429
fine = 10430 'EstrazioneFin
For k = Inizio To fine
For r = 1 To 11
If r = 11 Then r = 12
'Scrivi NomeRuota(r) & " " & StringaEstratti(k,r," ")
Scrivi FormatSpace(NomeRuota(r),10,False) & StringaEstratti(k,r," ")
Next
' scrivi ' togliere l'apice se si intende staccare le estrazioni
Next
End Sub

 

[joe]

Ma lui ... cerca sempre di utilizzare dei programmini ... che hanno archivi proprietari,

con formati sempre diversi.

Chiaro che la base del programma ... è sempre la stessa: 5 Estratti per 10-11 Ruote.

Ma una volta i dati sono separati da un punto, a volte i numeretti hanno una sola cifra,

altre volte la Nazionale è per prima o in ordine alfabetico dopo Napoli, altre volte è un CSV ... ecc. ecc.

Questa volta sembra essere una tabella stile Excel.

Se è così per poter incollare i contenuti dello script, il valore di ciascuna cella deve essere separato dal

chr(9) equivalente al tasto Tab.

E ... se è così ... excel se lo sistema, come è nella tabella che ci ha proposto.

 

[trivellatomariotretre33]

ringrazio di cuore tutti
se potreste togliermi solo le ruote in un listato come segue Grazie
44 46 76 41 82
18 17 20 51 64
26 60 24 48 82
15 86 90 71 57
57 22 75 54 66
51 59 40 10 84
78 14 40 24 30
26 05 33 43 18
07 32 28 51 16
84 07 79 31 47
86 68 08 63 87

 

[trivellatomariotretre33]

mi serviva per incollare in excel come foto
perche non allegano bene i listati proposti sopra

 

[joe]

Ciao Mario,

riferendomi a quanto ho scritto precedentemente, lo script potrebbe essere questo:

Option Explicit
Sub Main
   Dim Ini,Fin,Es,R,P
   Ini = EstrazioneFin
   Fin = EstrazioneFin
   For Es = Ini To Fin
      For R = 1 To 12
         If R = 11 Then R = 12
         Scrivi FormatSpace(NomeRuota(R),10),0,0
         For P = 1 To 5
            Scrivi Chr(9) & Estratto(Es,R,P),0,0
         Next
         Scrivi
      Next
   Next
End Sub

Dopo aver copiato il suo output aperto Excel ed aver selezionato la cella, da cui iniziare,

fai click su quella casella con il pulsante destro del mouse e dal menù contestuale che si apre selezioni copia speciale,

e di seguito scegli: Testo.

Dovrebbe copiarsi e formattarsi l'intera estrazione occupando ogni numero una casella.

Nel secondo messaggio hai scritto/aggiunto che non ci deve essere il nome della ruota.

Se dev'essere necessariamente così, lo script necessita di una piccola modifica.

 

[claudio8]

Scusate ma uno script che scrive direttamente su excel .. non si può fare?

 

[trivellatomariotretre33]

ho provato non va bene ho fatto anche incolla speciale ma viene come in foto L'ideale sarebbe uno script che scrive direttamente su excel

 

[joe]

Secondo me avete sbagliato qualcosa.

Perché ho avuto decine di Pc con versioni diverse di Excel

e funziona (come ha sempre funzionato) e come sta funzionando adesso.

Però non si può andare a scrivere, in un foglio di excel, già esistente,

senza sapere cosa si sta facendo.

Perché è impossibile indovinare la struttura da assegnare ai dati,

Cioè come i dati saranno "inquadrati" e poi esposti.

Perché l'impaginazione, fatta per l'esempio richiesto, andando ad occupare le celle di una struttura differente,

è obbligata ad apparire "scomposta" se i dati che contiene sono "mal inquadrati" e "mal presentati".

Inoltre è anche probabile che quel programma abbia un suo archivio,

e che, la visualizzazione delle Estrazioni, sia fatta attingendo a questo archivio esistente.

Dunque più che riprodurre una estrazione, che è cosa già abbastanza complicata,

forse si dovrebbe aggiornare l'archivio.

Ma naturalmente il mio è scrivere di cose che non so.

Sono pure ipotesi.

 

[joe]

Ragazzi, io quel che potevo fare, l'ho fatto.

Senza indicazioni non si può andare avanti, dunque lascio che continuino

Claudio e gli altri appassionati di Excel che preferiscono questo programma per le loro ricerche.

Buon lavoro.

 

[trivellatomariotretre33]

grazieJ Joe Claudio Salvo E Tutti

 

[salvo50]

Mi sono ricordato che qualche anno fa, Mike aveva postato uno script che scriveva le estrazioni direttamente su Excel, se lo trovo lo posto

 

[trivellatomariotretre33]

Ti ringrazio anticipatamente salvo50

 

[salvo50]

Ciao a Tutti

Trovato

Postato da mike il 31-03-2017

Option Explicit
Sub Main

 ' questo esempio esporta in excel il range di estrazioni selezionato

 Dim xlApp ' oggetto excel
 Dim idEstr,r,e,i,riga
 Dim Inizio,Fine,nEstrTot
 Dim nColor
 Dim sCoord
 Inizio = EstrazioneFin-10
 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
   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
   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

 

[bubù]

Grazie salvo50, si può aumentare il numero delle estrazioni? nel caso specifico tutte le estrazioni di ogni mese. Grazie a chi se si può farà la modifica 🙏

 

[trivellatomariotretre33]

Grazie Di Cuore Salvo50
Ti invio Una Stretta Di mano Chilometrica
Perfetto.

 

[joe]

Devo dire che ...

... ho difficoltà a capire perché si chiede ... uno script ... allegando l'esempio sbagliato,

per scrivere che non funziona, al quale si aggiunge subito l'immancabile like di Claudio.

Tralasciando questa costante del Forum che è più facile a prevedersi che trovare l'acqua in mare ...

Non vedo le grosse differenze che possano veder funzionare uno script si ed uno no.

Al netto naturalmente dell'accettare per vero quanto è scritto !

 

[trivellatomariotretre33]

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

 

[salvo50]

Grazie salvo50, si può aumentare il numero delle estrazioni? nel caso specifico tutte le estrazioni di ogni mese. Grazie a chi se si può farà la modifica 🙏

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