Visual Basic Application Edition

Un Ribbon spartano ma efficace per Excel

Gianni Giaccaglini — Mon, 23 Jan 2012 16:11:00 GMT

Un Ribbon spartano ma efficace per Excel (e chi si accontenta)

Con l’avvento della barra multifunzione, Ribbon in inglese, vecchi utenti di Excel continuano a rimpiangere i pur vetusti (e obsoleti? No comment) menu e soprattutto la possibilità di creare barre personalizzate, adatte a questo o quel modello. Queste in verità restato in vita su modelli creati in precedenza, purtroppo confinate in cartelle chiuse (perdendo una delle loro virtù, il floating e le macro associate sono garantite.

Nota. Con qualche spiacevole incompatibilità, perché non pochi metodi e proprietà sono stati occultati e, addirittura, annullati. Il caso più imbarazzante è FileSearch. Digitando “Application.” Il magico intellisense non lo fornisce, ma si forza Application.Filesearch poi tale mago ce ne dà tutti i vari figli, come LookIn, FindFiles, Execute ecc. Un’illusione che dura poco, perché tali verbi danno errore a run-time.

Intendiamoci, si può sempre creare un Ribbon personalizzato e anch’io ne ho parlato su questo blog ma l’operazione, da compiere con un (ostico) testo XML, è macchinosa. E in parte delude, ma non è di questo che qui voglio parlare.

Far sparire il Ribbon

Con Excel VBA si può. Accontento impazienti & curiosi mostrando il piccolo segreto con una macro altalenante:

Public CelaSvela As Boolean ' Definita a livello modulo (Dichiarazioni)

Sub CelaSvelaRibbon()

If Not CelaSvela Then

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"

Else

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"

End If

CelaSvela = Not CelaSvela

End Sub

Le istruzioni segrete sono in grassetto e volendo si può inserire la prima nella routine dell’evento Open e, la seconda, in quella di BeforClose per occultare il ribbon all’utente e, rispettivamente, ripristinarglielo.

La semplice ricetta, inizialmente ingenua...

La scomparsa del nastrone si può giustificare in un modello più o meno chiuso per l’utilizzatore ma ovviamente abbiamo l’obbligo morale di offrire alla sua vista oggetti su cui cliccare per lanciare operazioni compiute da codice VBA. A tale scopo, l’ideuzza consiste nell’utilizzare la riga 1 opportunamente larga come ricettacolo, quantomeno, di pulsanti ivi incorporati. Con due mosse:

1. Selezionare una cella a riga2;

2. Dalla tab Visualizza scegliere Blocca riquadri > Blocca riga superiore.

In tal modo la prima riga resta fissa e visibile mentre si fa lo scrolling verso il basso e può ospitare titoli e oggetti vari cui associare macro secondo modalità che do per arcinote (altrimenti che ci state a fare qua? Tornate quando la sapete un po’ più lunga...).

Il più delle volte ci si accontenta di un’associazione uno a uno. Ma se volessi una specie di menu con opzioni multiple? Si può, si può. Ed ecco la ricetta finale, che sfrutta una ComboBox rispetto alla quale i più bravi faranno spallucce (ce lo sapevo, ce lo sapevo!) mentre le masse credo che ammetteranno di non averci mai pensato. Infatti tutto il mondo o quasi (me compreso) usano tali caselle per attingere valori da un elenco.

Ma ecco il da farsi, in dettaglio:

1. Scheda Sviluppo, poi Modalità progettazione ;

2. Tab Inserisci > Controlli ActiveX > Casella combinata;

3. Selezionare la ComboBox, posizionarla e dimensionarla sulla riga 1 e assegnarle, almeno, la proprietà Caption in modo consono a quel tal caso applicativo;

4. Inserire in una zona di celle, diciamo H2:H5, meglio se denominata “Opzioni” (*), i testi “Questo”, “Codesto”, “Quello” e “Nulla” , di deprecabile umorismo (ma è solo per fare un esempio a casaccio);

5. Fissare la proprietà ListFillRange a Opzioni, lasciando indefinita la LinkedCell che qui non serve e disattivare la Modalità progettazione. Ovviamente ora cliccando sul controllo si accede alle buffe scelte predette.

Nota (*) In tal modo si può spostare l’intervallo senza che la ComboBox cambi le sue scelte. Un altro modo per toglierlo alla vista dell’utente è assegnare il colore bianco ai caratteri delle celle Opzioni, mentre il formato nascosto ;;; non va bene (la ComboBox mostrerebbe tutte opzioni blank.

6. Il discorso si chiude con il possibile codice macro qui sotto riportato (ma attenzione!, esso presenta un malfunzionamento imprevisto...).

Dim ComboAttivato As Boolean ' Variabile a livello Dichiarazioni

Private Sub ComboBox1_Click()

ComboAttivato = Not ComboAttivato ' Toggle da True a False e viceversa

If ComboAttivato Then

Scelta = ComboBox1.Text ' Va bene anche ComboBox1.Value

Select Case Scelta

Case "Questo"

MsgBox "Prima scelta" ' O, meglio, codice ad hoc

Case "Codesto"

MsgBox "Seconda scelta" ' O, meglio, codice ad hoc

Case "Quello"

MsgBox "Terza scelta" ' O, meglio, codice ad hoc

Case "nulla"

MsgBox "Quarta scelta" ' O, meglio, codice ad hoc

End Select

' ComboBox1.Enabled = True 'EVITARE!

' (Valido solo per NON usare più il combo)

ComboBox1.ListIndex = 0 ' Pone la prima scelta

ActiveCell.Select

' Torna alla cella attiva (disattivando di fatto il controllo)

End If

End Sub

A questo punto, per pigrizia più che per sadismo, affermo che i commenti incorporati dovrebbero bastare. Dico solo che il booleano ComboAttivato evita un comportamento, all’inizio, inatteso: senza di esso e in assenza di If ComboAttivato... End If l’istruzione ComboBox1.ListIndex = 0, in verità non indispensabile ma che serve a rimettere in vista la prima scelta (contro sconcerti dell’utente), scatena a sorpresa un evento che lancia comunque MsgBox “Prima scelta”.

Di questo incredibile dictu non è facile darsi piena ragione. Ma chi se ne impipa? La pezza di ComboAttivato dovrebbe funzionare. Ahimè NON è così, inoltre si scopre un altro inghippo che la macro d’evento mette in luce. Pensa e ripensa la causa di questi guai è presto trovata e la corretta soluzione pure.

La riporto dopo una serie di righe intenzionalmente vuote, invitando a non leggerla, ossia sforzandosi di trovarla da soli.

RIGA VUOTA

La ricetta semplice, e funzionante

La causa dei malfunzionamenti di cui sopra è presto detta: l’evento Click del ComboBox equivale all’evento Change e come questo si scatena se e solo se viene scelta un’opzione diversa da quella corrente.

Il rimedio è presto trovato. Non basta un ComboBox, occorre aggiungervi un pulsante che lanci il codice relativo alle varie opzioni, dopo aver selezionato quella voluta agendo sulla frecciotta a destra del Combo. La situazione è rozzamente raffigurata qui sotto:

Scelte Varie
Questo	V
SCEGLI

Etichetta (rettangolo arrot. )
ComboBox1
CommandButton4

E il codice VBA? È quasi identico a quello dell’evento Click del ComboBox, ma stavolta si scatena cliccando sul CommandButton4 (è il nome che ho io, ma ciascuno avrà il suo):

Private Sub CommandButton4_Click()

' Scelta dell'opzione del ComboBox1

Dim Scelta As String

Scelta = ComboBox1.Text ' Va bene anche ComboBox1.Value

Select Case Scelta

Case "Questo"

MsgBox "Prima scelta" ' O, meglio, codice ad hoc

Case "Codesto"

MsgBox "Seconda scelta" ' O, meglio, codice ad hoc

Case "Quello"

MsgBox "Terza scelta" ' O, meglio, codice ad hoc

Case "Nulla"

MsgBox "Quarta scelta" ' O, meglio, codice ad hoc

End Select

ComboBox1.ListIndex = 0 ' Pone la prima scelta

ActiveCell.Select

End Sub

Miscellanea di inghippi e piccoli segreti

Fuori programma, ma per analogia con le particolarità citate sopra, ne aggiungo altre due un po’ alla rinfusa.

Che fine ha fatto il Modulo Dati?

Sto parlando del comodo comando Dati > Modulo... per navigare su un elenco presente nel foglio di lavoro. Nella Barra multifunzione non ce n’è traccia. Qualche veterano magari se la cava con l’equivalente codice VBA (rimasto vivo e vegeto, contrariamente al dannato FileSearch):

ActiveSheet.ShowDataForm

Se ne ottiene una finestra di dialogo bell’e pronta, essenziale ma abbastanza completa – navigazione, modifica, filtraggio – anche se limitata a 32 campi.

Comunque non occorre scomodare il VBA. Anche con file .xlsx (privi di macro in Office 2010) tale maschera di record si può inserire nella barra di accesso rapido. Occorre un po’ di pazienza, andando nelle Opzioni di Excel, poi cliccare Barra di accesso rapido, quindi – attenzione! – attivare Scegli comandi da: > Comandi non presenti sulla barra multifunzione, trovare nel susseguente elenco l’icona Modulo...e, infine, trascinarla sul pannello di destra con il pulsante Aggiungi >>. Superfluo dire che tali manovre possono ternare utili con altri oggetti mancannti sull’ingombrante Ribbon.

Caption su 2 righe in un pulsante ActiveX

A prima vista, ovvero nel progetto manuale, non sembra esserci verso di impostare la Caption su due (o più) righe. Esempio:

Premi qui
per favore

Ma tranne improbabili segreti, un modo c’è. Consiste nel lanciare una tantum un’istruzione VBA come questa:

CommandButton1.Caption = "Premi qui" & Vblf & "per favore"

Il risultato è permanente, se qualcuno ne dubitasse.

Il pannello segreto GodMode di Windows 7

Premesso che le misteriose operazioni che sto per descrivere NON valgono per Windows XP, eccone i passi qui di seguito.

1. Creare sul desktop una nuova cartella (di file) denominandola esattamente così:
GodMode.{ED7BA470-8E54-465E-825C-99712043E01C};

2. Premere Invio, creando così il pannello GodMode;

3. D’ora in poi un doppioclic su di esso fa apparire una lista di ben 283 voci che danno adito ad altrettante funzioni più o meno speciali. Divertitevi.

Spedire circolari Outlook da indirizzari Excel

Gianni Giaccaglini — Tue, 20 Dec 2011 10:49:00 GMT

Spedire circolari Outlook da indirizzari Excel

La tecnologia OLE Automation , detta anche sinteticamente Automation, permette proficui dialoghi fra applicativi. Si tratta di un sistema Client/Server dove il primo (Client) richiama la libreria del secondo (Server) utilizzandone proprietà e metodi.

Il codice macro che propongo deriva da una soluzione più completa dovuta a un mio corrispondente conosciuto tramite ShareOffice. Trattasi – onore al merito! – di Ettore Caliendo che tra l’altro sfrutta una caratteristica non a tutti ben nota: il formato HTML per il messaggio Outlook. Di conseguenza si può inglobare nel messaggio un’immagine, il logo della ditta nella fattispecie, mediante il tag (evidenziato in giallo, insieme ad altre particolarità, nella macro qui sotto riportata).

Il predetto Ettore all’inizio mi aveva palesato una perplessità, dovuta al fatto che tale logo non perveniva ai suoi corrispondenti. Per non sapere né leggere né scrivere (in tema di messaggi Outlook in formato HTML, lo confesso...) tuttavia gli ho subito detto: dovresti inserirla su un sito web, altrimenti come potrebbero gli estranei vedere la figura che risiede sul TUO PC?.

Compresa l’antifona, il rimedio è stato provato e andato in porto, con reciproca soddisfazione. Ed ecco, a beneficio delle masse, una Sub mutuata dal sullodato Ettore e un po' semplificata che va incorporata in un opportuno archivio Excel, tipo MessOutlook.xls, o MessOutlook.xlsm con Office 2010. Ho pensato di corredarla di due argomenti, il Cliente e l’IndirEmail di chiara semantica:

------------------

Sub MessHTML(Cliente As String, IndirEmail As String)

Dim Corpo As String

Dim Outlk As New Outlook.Application ' Early binding

Dim MioMess As Outlook.MailItem

Set MioMess = Outlk.CreateItem(olMailItem)

Corpo = "<html><body>"

Corpo = Corpo & "<img border='0' src='http://www.elicasrl.eu/loghi/logo_Elica.bmp'>    "

Corpo = Corpo & "                      "

Corpo = Corpo & "<img border='0' src='http://www.elicasrl.eu/loghi/logo_Crif.bmp' >"

Corpo = Corpo & "Gentilissimo/a " & Cliente & ", "

Corpo = Corpo & "la presente per richiederLe quanto segue: "

Corpo = Corpo & " "

Corpo = Corpo & "RingraziandoLa anticipatamente, Le porgiamo distinti saluti. "

Corpo = Corpo & "      Elica srl "

Corpo = Corpo & "  Rossi Asdrubale "

Corpo = Corpo & "------------------------------------------------------------------------- "

Corpo = Corpo & "TRAFFICI VARI srl "

Corpo = Corpo & "Via Sette bellezze n. 103 "

Corpo = Corpo & "00123 Roma (RM) "

Corpo = Corpo & "e-mail: settebell@gmail.it "

Corpo = Corpo & "Tel. ****** "

Corpo = Corpo & "Fax ****** "

Corpo = Corpo & "web: www.settebell.com "

Corpo = Corpo & ""

Corpo = Corpo & "</body>"

With MioMess

.Subject = "Richiesta chiarimenti"

.Bcc = "pallino.pinco@lib.it"

.To = IndirEmail

.HTMLBody = Corpo

End With

MioMess.Send ' Invia il messaggio

' Libera le variabili “pesanti”:

Set MioMess = Nothing

Set Outlk = Nothing

End Sub

------------------

A ignari & immemori comincio col ricordare che per funzionare Automation chiede che nell'Editor VBA si fissino i riferimenti opportuni, mediante il comando Strumenti > Riferimenti... scegliendo poi Microsoft Outlook 12 Object Library nel nostro caso (diventa Outlook 14 con Office 2010).

Qui vale la pena di fare un paio di osservazioni. La prima è l’utilizzo della sintassi As New Outlook.Application, che al pregio della sinteticità unisce quello di fornire il cosiddetto Early Binding (associazione immediata) contrapposto al Late Binding (associazione tardiva) offerto invece dalla classica istruzione utilizzata dal nostro amico:

Outlk = CreateObject(“Outlook.Application”)

Nel qual caso la variabile è del tipo generale Object, con due conseguenze: maggior lentezza e segnalazione di errori solo a run-time, unita alla mancanza dell’intellisense. Infatti solo con l’early binding accanto al punto (.) della variabile Outlk spuntano, comodamente, cose come .Subject (l’oggetto del messaggio), .Bcc (il corrispondente in “carbon copy”, che può convenire assumere come il proprio email, per un riscontro, ovviamente al posto del comico e fantomatico pallino.pinco@lib.it!), .To IndirEmail (l’email del destinatario) e .HTMLBody = Corpo (il “corpo” del messaggio in formato HTML).

La seconda osservazione è il fatto che il buon Ettore ha impostato i riferimenti non a Microsoft Outlook bensì a Microsoft Office 12 (o 14 nell’edizione 2010), con un certo mio stupore! A caldo penso che questa sia più generale, ergo più “pesante” di quella che userebbe il sottoscritto. Ma non ne sono sicuro.

Nota. Posso però testimoniare che, in un’altra circostanza – Automation di Word – la libreria MS Office NON presentava una certa proprietà... Misteri dell’OLE Automation...

Tornando al testo del messaggio, a parte la sua genericità, che travalica il più squallido umorismo, esso dovrebbe essere chiaro a chiunque mastica il linguaggio HTML, faccio solo notare che con il concatenamento Gentilissimo & Cliente si ottiene l’inserimento del nome del destinatario nel corpo del messaggio stesso.

A questo punto, fatte le debite personalizzazioni, gl’interessati possono testare la predetta routine con un’istruzione del tipo seguente:

MessHTML "Michele Topo", topolino@disney.com

Più vantaggiosamente si può pensare a una serie di nominativi sul foglio Excel affiancati dai rispettivi indirizzi di posta elettronica:

Matteo Evangelista	matteoevang@gmail.com
Giovanni Telegrafista	giovantelegrafist@tin.it

Eccetera.

Immaginando, per estrema semplicità che i due dati siano collocati nelle colonne A e B a partire da A1, si potrebbe ricorrere alla procedura dell’evento BeforeDoubleClick:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column <> 1 Or Target.Value = "" Then

Cancel = True ' Annulla il minieditor della cella

Exit Sub

End If

MessHTML Target.Value, Target.Offset(0, 1).Value

Cancel = True ' Annulla il minieditor della cella

End Sub

Che sul doppio click in una cella non vuota in colonna A lancia il massaggio Outlook a quel dato soggetto.

Nota ultimissima. In altri mondo OLE Automation si ha la proprietà Visible, che va impostata a True se si vuole che Excel o Word siano visualizzati, altrimenti agiscono nell’ombra. Nel caso Outlook Visible non esiste proprio. Poco male, perché l’applicativo può, indifferentemente, agire in background o allo scoperto, qualora fosse già aperto sulla nostra scrivania.

Mi fermo qui suggerendo agl’interessati altri esperimenti, in particolare un’applicazione di circolari più o meno standard, nel qual caso un opportuno ciclo del tipo For Each Nome In Indirizzario... Next sarà al centro del lavoretto o lavorone che ciascuno saprà implementare.

Ultim’ora: un’altra possibilità, anzi due

Questa variante mi è venuta in mente nel metrò (giuro). Consiste nell’uso della sintassi ; ; ... della casella A: (oppure Cc: o Ccn) che ha il vantaggio di registrare in Outlook un’unica missiva a più corrispondenti. Ed ecco la ricetta, che comprende due varianti. La prima consiste nel limitarsi al solo argomento IndirEmail della routine in questione:

(questo perché ora non è possibile specificare i singoli nominativi? ma più avanti vedremo che si può)

La seconda variante è un suggerimento, ovvero usare il metodo Save in luogo di Send. In tal modo si rimanda l’invio a tempi successivi, di tipo manuale ma con possibilità di adattamenti e/o ri-usi. Ed ecco il risultato:

Sub MessHTML(IndirEmail As String)

. . . idem c. s. . . .

With MioMess
    .Subject = "Richiesta chiarimenti"
    .Bcc = "pallinopinco@lib.it"
    .To = IndirEmail
    .HTMLBody = Corpo
    .Save
End With
Set MioMess = Nothing
Set Outlk = Nothing

End Sub

Ciò premesso, ecco una possibile macro:

Sub Circolare()

Dim Indirizzi As String, PrimaCellaIndir As Range, i As Integer

Set PrimaCellaIndir = Range("PrimaCellaIndir")

Indirizzi = PrimaCellaIndir.Value

i = 2

While PrimaCellaIndir(i).Value <> ""

Indirizzi = Indirizzi & ";" & PrimaCellaIndir(i)

i = i + 1

Wend

MsgBox Indirizzi ' Da usare solo in fase di debug

MessHTML Indirizzi

End Sub

Ritengo che la ricetta parli da sola, dico solo che “PrimaCellaIndir” è il nome affibbiato alla prima cella dell’indirizzario, che sarà un campo in Colonna B o altrove.

E la seconda possibilità appena preannunciata? Dapprima non ci avevo pensato, ma è semplice. Consiste nell’utilizzare entrambi gli argomenti dell’iniziale routine MessHTML, passandole come secondo argomento una stringa di nominativi concatenati, tutti terminanti con
. Bando alle chiacchiere, fornisco la soluzione completa, che parte da una tabella Nomi/indirizzi come già vista:

Mario Zaccariai	mario.zaccaria@gmail.com
Arturo Benedetti	arturbened@libero.it
TreDenari Paolina	treden@info.com
Rossi Michele	rossi.michele@boh.eu

La routine, ripetuta per comodità del lettore (ma la parte evidenziata è l’unica modifica):

Sub MessHTML(Cliente, IndirEmail As String)

Dim Corpo As String

Dim Outlk As New Outlook.Application

Dim MioMess As Outlook.MailItem

Set MioMess = Outlk.CreateItem(olMailItem)

Corpo = "

Corpo = Corpo & " "

Corpo = Corpo & "

Gentilissimi " & "
" & Cliente & "
"

Corpo = Corpo & "la presente per richiederLe quanto segue:

"

Corpo = Corpo & "

"

Corpo = Corpo & "RingraziandoLa anticipatamente, Le porgiamo distinti saluti.

"

Corpo = Corpo & " Elica srl
"

Corpo = Corpo & " Rossi Asdrubale

"

Corpo = Corpo & "-------------------------------------------------------------------------
"

Corpo = Corpo & "TRAFFICI VARI srl
"

Corpo = Corpo & "Via Sette bellezze n. 123
"

Corpo = Corpo & "00123 Roma (RM)
"

Corpo = Corpo & "e-mail: settebell@gmail.it
"

Corpo = Corpo & "Tel. ******
"

Corpo = Corpo & "Fax ******
"

Corpo = Corpo & "web: www.settebell.com
"

Corpo = Corpo & "

Corpo = Corpo & ""

With MioMess

.Subject = "Richiesta chiarimenti"

.Bcc = "giannigiac@tin.it"

.To = IndirEmail

.HTMLBody = Corpo

MioMess.Save

End With

' MioMess.Send ' Alternativa possibile

Set MioMess = Nothing

Set Outlk = Nothing

End Sub

La macro connessa a un opportuno pulsante Activex:

Private Sub CommandButton1_Click()

Dim ZonaNomi As Range, Iniz As Range

Set Iniz = Range("InizNomi")

With Iniz

Set ZonaNomi = Range(.Cells(1), .End(xlDown))

End With

Dim Nomi As String, Indirizzi As String, i As Integer

Nomi = Iniz.Value & "
"

Indirizzi = Iniz.Offset(0, 1).Value

For i = 2 To ZonaNomi.Count

Nomi = Nomi & ZonaNomi(i).Value & "
"

Indirizzi = Indirizzi & ";" & ZonaNomi(i).Offset(0, 1).Value

MessHTML Cliente:=Nomi, IndirEmail:=Indirizzi

End Sub

Meditate il ciclo in giallo, gente e vedrete che funziona.

Generazione personale di numeri pseudo casuali

Gianni Giaccaglini — Thu, 01 Dec 2011 17:23:00 GMT

Generazione personale di numeri pseudo casuali

Nell’ultimo mio intervento nella sezione Articoli, ovvero:

http://blog.shareoffice.it/giannigiaccaglini/articles/11052.aspx

Ho esposto un procedimento che ritengo originale (e comunque ingegnoso, se permettete) in grado di “Scombussolare un documento Word” disponendo in modo random delle sue parti tri-letterali.

L’esperimento illustrato comunque curioso e istruttivo si è in un primo tempo presentato deludente per quanto riguarda il recupero del testo originario. Ne ho dedotto, erroneamente, che i casuali generati da Rnd senza ricorrere a Randomize sono inizializzati in modo sempre differente ad ogni riapertura del documento stravolto.

In realtà tale sequenza è identica e i primi numeri sono sempre 0,7055475; 0,533424; 5795186; 2895625; 301948; 7747401;... e via di seguito, in qualunque nuova sessione e sia con le versioni 2007 che 1010. Con le quali, dunque il recupero di documenti scombussolati e salvati può funzionare regolarmente.

Nota Permettendo così a se stessi o a un eventuale corrispondente amico di recuperare l’originale. Qui va anche evidenziato che, come si rendono conto quanti sperimentano ques’idea, che vengono comunque perdute le formattazioni. Qualcuno sa dire come porvi rimedio?

Comunque rimane il timore non tanto di future versioni VBA che alterino la funzione Rnd rendendola più aleatoria, ma piuttosto il fatto che questa eccessiva Regolarità si presenti fragile, magari nell’ipotesi che questo procedimento diventi noto in giro.

Il modo migliore per ovviare all’inconveniente, è dato da una sequenza molto ampia di numeri casuali ma che resta identica se se ne fissa il primo valore (il “seme”, in gergo).

Mi dicono che la cosa è possibile in Visual Studio con un complesso generatore Random, ma non nel convento VB6 su cui si fiondano le macro di MS Office. Per fortuna ci si può arrangiare con un algoritmo del cosiddetto metodo della congruenza lineare. Con un po’ di pazienza si può trovare descritto sul Web.

Illustrazione pratica del metodo con Excel

La formula che fornisce il successore di un siffatto casuale è abbastanza semplice:

x_i+1= (a* x_i+ c) Mod m

ove Mod in VBA è proprio l’operatore che, per fare un esempio banale, con l’istruzione Resto = 12 Mod 5 ci dà il resto della divisione intera fra i due numeri interi, ossia 2 nella fattispecie.

Per comprendere più da presso la faccenda propongo di ricorrere a Excel. La figura seguente illustra un caso particolare dovuto alla scelta x₀= 1, a = 12, c=5, m=11. Le intestazioni di riga e colonna sono omesse ma l’intervallo è “appeso” in A1.

X0	1	1
a	12	6
c	5	0
m	11	5
		10
		4
		9
		3
		8
		2
		7
		1
		6
		0
		5

Le formule nelle celle di colonna C sono subito viste:

C1=B1

C2:C15=RESTO($B$2*C1+$B$3;$B$4)

Ove la seconda formula si ottiene al volo in tre mosse: 1. Selezione di C1:C15; 2. Digitazione della formula in C2; 3. Consolidamento della stessa con Ctrl+Invio.

Si constaterà una sequenza di numeri ciclica di lunghezza 11: 1, 6, 0, 5, 10, 4, 9, 3, 8, 2, 7... Chiaramente troppo breve. Addirittura con certi valori la lunghezza è 1, ossia del tipo 3, 3, 3, 3,...

L’algoritmo proposto

La teoria chiarisce i criteri da adottare per ottenere sequenze di massima lunghezza. In base ad essi diversi studiosi, tra cui il famoso Knuth, hanno escogitato opportuni valori dei parametri suddetti. Suggerisco quelli dovuti a Goodman e Miller: m=2³¹-1; a = 7⁵; c=0

Il risultato è del tipo seguente:

X0	2310882914	2310882914
a	16807	1767379603
c	0	355182317
m	2147483647	1692146806
		785431221
		160553238
		1178810434
		1730320663
		275835367
		1695302943
		143534605
		761970654
		995794717
		981747548
		1114179335
		2102165152

Stavolta, per maggior generalità ho assegnato all’intervallino dei parametri i nomi X0, a ed m, tralasciando c, che essendo nullo si può omettere nella formula base. Ed ecco infine le formule del caso:

B1=INT(CASUALE()*10000000000)

B2=7^5

B4=2^31-1

C1=X0

C2=RESTO(a*C1;m)

C3=RESTO(a*C2;m)

E via di seguito nelle celle sottostanti, a piacere. Premendo il tasto RICALCOLA, alias F9 si assisterà alla riproduzione di serie caratterizzate da un seme X0 variabile da zero a 10 alla decima.

Nota. I sullodati Goodman e Miller ne garantiscono una siffatta lunghezza, che poi corrisponde al range massimo di 10 cifre distinte supportate da Excel e, credo, anche da VB6.

Soluzione del nostro problema? problematica

Per lo scopo di cui all’inizio, sconvolgere un documento, salvarlo e recuperarne l’originale la soluzione è presto detta: usare un generatore come quello appena illustrato adottando come chiave un seme di massimo 10 cifre.

Chi legge attentamente anche l’articolo citato in apertura, se interessato e buon intenditore, può cavarsela anche da solo. Prima di chiudere tuttavia è doveroso precisare che nel frattempo ho scoperto un altro inghippo:

Il metodo sopra illustrato, tradotto in VBA purtroppo dà luogo a blocchi per “overflow”, a causa del limitato range del tipo Long.

Nota.Il tipo Long in VBA spazia da -2.147.483.648 a 2.147.483.647, mentre in Visual Studio il range è di 18 cifre, inoltre c’è pure un tipo ancor più ampio, Ulong). La cosa buffa è che Excel, essendo un foglio di calcolo accetta interi fino a 10^11 – 1, e pertanto sullo spreadsheet il metodo funziona.

Il guaio si può constatare, con raccapriccio, lanciando questo macrocodice:

Function NextRand(PrecRand) '

Dim a, m

a = CDec(7 ^ 5): m = CDec(2 ^ 31 - 1)

Dim NextRnd As Double

NextRnd = a * PrecRand Mod m

NextRand = NextRnd

End Function

Sub Prova()

x = 12345

For i = 1 To 1000

MsgBox x

x = NextRand(x)

End Sub

Altrettanto male vanno le cose se ci si illude di sfruttare NextRand come funzione personale sul foglio di lavoro...

Ma ci si può accontentare

Provando e riprovando un po’ a casaccio ho trovato questi parametri: a = 16807, c = 78125, m = 2047, che danno una sequenza di casuali di lunghezza 93. Questa sarebbe troppo breve se si adottasse il metodo per una crittografia, “classica”, ovvero di cifratura. Ma Nel nostro sistema scombussolante le cose vanno decisamente meglio.

Si lanci il seguente macrocodice:

Sub Scombussola()

strOrig = "abcdefghijklmnopqrstuvwxyz"

strRand = "793152468"

NOrig = Len(strOrig): NRand = Len(strRand)

ReDim VettRand(NOrig)

j = 1

For i = 1 To NOrig

VettRand(i) = Mid(strRand, j, 1)

j = IIf(j = NRand, 1, j + 1)

' Bubble sort

For i = 1 To NOrig - 1

For j = i To NOrig

If VettRand(j) < VettRand(i) Then

dep = VettRand(i)

VettRand(i) = VettRand(j)

VettRand(j) = dep

dep = Mid(strOrig, i, 1)

Mid(strOrig, i, 1) = Mid(strOrig, j, 1)

Mid(strOrig, j, 1) = dep

End If

Next j

For i = 1 To NOrig

Debug.Print VettRand(i), Mid(strOrig, i, 1)

End Sub

La routine crea un banale VettRand di interi casuali di lunghezza 9, che si succedono come nella strRand, quindi si procede al bubble sort sia di VettRand che della stringa originaria qui rappresentata dai caratteri dell’alfabeto. Ed ecco il risultato nella finestra di Debug:

1 d

1 m

1 v

2 o

2 f

2 x

3 u

3 c

3 l

4 p

4 g

4 y

5 w

5 e

5 n

Eccetera...

In prima battuta si evince che l’ordinamento di VettRand ha creato ripetizioni, la qual cosa potrebbe far sorgere qualche timore, che però viene (ragionevolmente) fugato dalla constatazione che ciò nonostante un buon grado di disordine nella stringa, stravolta come “dmvofxuclpgywen....”.

Mi fermo qui, confidando in commenti e suggerimenti da parte dei più esperti.