Gestione delle feste rivisitata

Gestione delle feste rivisitata

Mi è stato posto un problema, in un modello Excel, collegato a sconti che l’Enel fa in corrispondenza di giorni festivi . Chi è interessato si informi meglio sulla questione, ma di fatto essa – se ho ben compreso - si riduce alla determinazione se una certa data corrisponde a una festività domenicale o meno. La soluzione VBA prospettatami si basava su una serie di variabili dal nome pregnante, come “Capodanno”,”PrimoMaggio”, “DueGiugno” eccetera. Ingegnosa ma, a parere di chi scrive, macchinosa.

Con Excel è più semplice e, insieme, razionale ricorrere a un elenco posto su un foglio di lavoro, magari ad hoc, sfruttandone le funzioni, in particolare relative a date e orari:

Per fissare le idee la precedente sia collocata a partire dalla cella home (A1). In sintesi:

AnnoCorr è il nome della cella B1

Dopo di che, ponendo con qualche arbitrio il nome o i riferimenti seguiti da =formula si hanno le formule seguenti:

AnnoCorr= ANNO(ADESSO())

B3=DATA(AnnoCorr;1;1)

B4 =DataDiPasqua(AnnoCorr)+1

B5 =DATA(AnnoCorr;4;25)

B6 =DATA(AnnoCorr;5;1)

B7 =DATA(AnnoCorr;6;2)

B8 =DATA(AnnoCorr;8;15)

B9 =DATA(AnnoCorr;11;1)

B10 =DATA(AnnoCorr;12;8)

B11 =DATA(AnnoCorr;12;25)

B12 =DATA(AnnoCorr;12;26)

A parte la funzione personalizzata DataDiPasqua (v. più avanti) tutte le altre formule sfruttano la funzione DATA(anno;mese;giorno) e va da sé che grazie ad ANNO(ADESSO()) si adeguano automaticamenten all’anno fornito dal clock del nostro PC.

Sulla colonna D si ha invece la formula seguente, “consolidata” in un colpo con tre mosse: 1) selezione della zona D3:D12; 2) digitazione in D3 della formula SE(RESTO(B3;7)=1;"Si";"No"); 3) Ctrl+Invio:

D3:D12 =SE(RESTO(B3;7)=1;"Si";"No")

In tal modo, ricordo, i riferimenti nelle celle sottostanti si adeguano automaticamente in B4, B5 ecc.

Quanto alla funzione DatadiPasqua, si tratta di una rivisitazione. Ho descritto questa festa mobile in un precedente post sul mio blog in shareoffice.it :

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

Per comodità dei più pigri la riproduco nuovamente (anche perché si tratta di una ricetta empirica di cui ignoro le basi), seguita da una routine di prova:

Function DataDiPasqua(Anno As Integer) As Date

  Dim a As Integer, b As Integer, c As Integer, D As Integer, e As Integer

  Dim Anni, M, Q, ind As Integer

  Anni = Array(1583, 1700, 1800, 1900, 2100, 2200, 2300, 2400)

  M = Array(22, 23, 23, 24, 24, 25, 26, 25)

  Q = Array(2, 3, 4, 5, 6, 0, 1, 1)

  ind = IndiceDove(Anno, Anni)

  a = Anno Mod 19

  b = Anno Mod 4

  c = Anno Mod 7

  D = (19 * a + M(ind)) Mod 30

  e = (2 * b + 4 * c + 6 * D + Q(ind)) Mod 7

  Dim didimar As Integer, MesePasq As Integer, GiorPasq As Integer

  didimar = 22 + D + e

  If didimar > 31 Then

    MesePasq = 4

    GiorPasq = didimar - 31

  Else

    MesePasq = 3

    GiorPasq = didimar

  End If

  DataDiPasqua = DateSerial(Anno, MesePasq, GiorPasq)

End Function

Function IndiceDove(Dato, Vettore) As Integer

  Dim i As Integer

  For i = UBound(Vettore) To 0 Step -1

    If Dato >= Vettore(i) Then Exit For

  Next

  IndiceDove = i

End Function

Sub ProvaPasque()

  Pasque = Array(#4/12/1998#, #4/4/1999#, #4/23/2000#, #4/15/2001#, #3/31/2002#, #4/20/2003#, #4/11/2004#, #3/27/2005#, #4/16/2006#, #4/8/2007#, #3/23/2008#, #4/12/2009#, #4/4/2010#,)

  For Each D In Pasque

    Msg = "Il giorno " & D

    If DataDiPasqua(Year(D)) = D Then

      MsgBox Msg & " è Pasqua"

    Else

      MsgBox Msg & " NON è Pasqua"

    End If

  Next

End Sub

Possibile macro VBA

La precedente funzione naturalmente va scritta in un modulo VBA, unitamente a una semplice routine come la seguente:

Un Ribbon spartano ma efficace per Excel

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.

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.

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

RIGA VUOTA

RIGA VUOTA

RIGA VUOTA

RIGA VUOTA

RIGA VUOTA

RIGA VUOTA

RIGA VUOTA

RIGA VUOTA

RIGA VUOTA

RIGA VUOTA

RIGA VUOTA

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:

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:

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.

posted @ 16.11 | Feedback (0)

Spedire circolari Outlook da indirizzari Excel

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:

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

posted @ 10.49 | Feedback (0)

Generazione personale di numeri pseudo casuali

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.

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.

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:

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.

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.

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)

  Next

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)

  Next

  ' 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

  Next

  For i = 1 To NOrig

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

  Next

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.

posted @ 17.23 | Feedback (0)

La CurrentPage delle tabelle pivot richiede precisione con le date

La CurrentPage delle tabelle pivot, con le date può far ammattire...

A volte qualcuno mi sottopone quesiti particolari, inattesi. Ecco l’ultimo, relativo alla proprietà CurrentPage di un oggetto PivotField di una tabella pivot:

“Come mai l’istruzione seguente che operava correttamente in Excel 2003:
ActiveSheet.PivotTables(NomeTabPivo).PivotFields(DaAna).CurrentPage = DomDaCer

Con la versione 2007 dà errore a run-time?

La DomDaCerc è una variabile di tipo Date e la pagina corrente è relativa a un campo DaAna anch’esso di tipo data.

Non dispongo più di Excel 2003, pertanto non sono in grado di avvalorare o smentire  il dubbio del nostro amico, che nel frattempo mi ha comunicato che, in Excel 2007, ha corretto il (presunto) bug traducendo tutte le date in stringhe, alias etichette nel gergo Excel.

In un successivo ritaglio di tempo ho fatto delle prove su questo database posto su un foglio MioDb comprendente un campo Data con date del tipo 5/12/2011 (formato data):

(ho omesso intestazioni di riga e colonna, visto che l’elenco parte dalla cella A1)

A MioDb ho appioppato una tabella Pivot Multidim1, posta su altro foglio FoglioPivot:

Per comodità del visitatore riporto poi quel che dice la Guida VBA a proposito di CurrentPage:

Restituisce o imposta la pagina corrente visualizzata per il campo pagina. È valida solo per i campi pagina. Proprietà di tipo PivotItem di lettura/scrittura.

Sintassi

espressione.CurrentPage

espressione   Variabile che rappresenta un oggetto PivotField.

Esempio

In questo esempio viene restituito il nome della pagina corrente per il rapporto di tabella pivot di Sheet1 all'interno della variabile di tipo string strPgName.

Come inserire in una cella dati numerici da una TextBox

ove TextBox1 è una casella di testo di una UserForm. Ovviamente al posto di ActiveCell si può avere qualunque codice relativo a una cella (tipo Cells(3, 4) e simili). In verità a chi scrive l'inconvienente lamentato non si presenta...

Sia come sia, tali formule possono funzionare anche senza aggiungere .Text alla TextBox e senza premettere CDbl, ma in tal caso nella cella viene scaricata una literal (etichetta, in gergo Excel), preceduta da un apice ('). Dopo di che l'utente può tradurla in numero con l'opzione specifica suggerita (*). Scomodo no?

Ma se proprio si desidera imporre a Excel la nostra volontà, occorre e basta usare la proprietà Formula o FormulaR1C1 o persino Value. Con riferimento alla cella attiva e a una generica TextBox1:

ActiveCell.Formula = CDbl(TextBox1.Text)

Si ottiene anche la massima chiarezza.

(*) Il fatto èn che con ActiveCell = TextBox1 VBA assume (sottintende) la proprietà Value sulla cella e Text per la casella di testo. Insomma tale sintassi equivale ad ActiveCell.Value = TextBox1.Text.

A beneficio dei principianti concludo con una mini soluzione che obbliga l'utente a inserire "qualcosa" nella casella TextBox1 nonché un dato convertibile in un numero di tipo Double:

Private Sub CommandButton1_Click()
  Dim Num As Double
  On Error GoTo Errore
  If TextBox1.Text = "" Then
    TextBox1.SetFocus
    Exit Sub
  End If
  Num = CDbl(TextBox1.Text) ' Qui può scatenarsi l'errore
  ActiveCell.Formula = Num ' Limitandosi alla cella attiva, per semplicità
  Unload Me
  Exit Sub
Errore:
  MsgBox "Occorre un dato numerico!", vbCritical, "Errore"
  With TextBox1
    .Text = ""
    .SetFocus
  End With
End Sub

posted @ 11.07 | Feedback (0)

Caselle di testo dinamiche inserite in un UserForm

Caselle di testo dinamiche inserite in un UserForm

Recentemente mi è stata posta questa domanda: “Si può inserire in una UserForm un numero variabile, fissato a run-time (magari tramite opportuna macro VBA) di caselle di testo?” La richiesta è inusuale, visto che il più delle volte una UserForm viene definita al tempo di progetto. Con un po’ di pazienza, frugando nella Guida dell’Editor VBA, ho trovato la risposta, di cui riporto un tipico esempio in fondo a questo post. Adattandolo al caso che tormentava il nostro amico ho escogitato una prima macro di test, sull’evento Click dell’unico pulsante di una UserForm1, per il resto vuota di altri controlli:

Private Sub CommandButton1_Click()

    Dim miaTxtBox As Control

    Set miaTxtBox = Controls.Add("Forms.TextBox.1", "miaCasella", True)

    With miaTxtBox

      .Left = 18

      .Top = 150

      .Width = 175

      .Height = 20

    End With

    Me.Controls("miaCasella").Value = InputBox("Scrivi...")

End Sub

L’istruzione basilare, grassettata, ha la seguente sintassi:

Controls.Add(“<Tipo ctrontrollo>”, “Nome”,

E ha l’effetto di aggiungere (metodo Add) all’insieme dei Controls una TextBox definita come “Forms.Textbox.1” – mentre analoghe sintassi valgono per altri controlli come il "MSForms.CommandButton.1” esemplificato dalla Guida e altri di pari eloquenza. Il terzo argomento va prudentemente posto a True assicurando la visibilità della neonata casella impostata nella MiaTxtBoz (di tipo Control, ovviamente). Dopo di che a MiaTxtBox sono assegnati, dinamicamente, proprietà relative al posizionamento e alle dimensioni e, infine, vi viene inserito il valore stabilito dall’utente in risposta a una InputBox.

Come i più svegli subito notano nell’ultima istruzione si ricorre, in alternativa a miaTextBox, al nome “miaCasella”, secondo nome facoltativo di Controls.Add.

Se poi si vuole lanciare la UserForm1 non resta che lanciare una macro bene nota come questa:

Sub UserFormDinamica()

   Load UserForm1

   UserForm1.Show

End Sub

Una variante appena un po’ più elaborata è la seguente, che crea ben due (“e regali..”, dicono a Livorno) casellineficcandovi due scemenze:

Dim CaselleAggiunte As Boolean

Private Sub CommandButton1_Click()

  If Not CaselleAggiunte Then

    Me.Controls.Add "Forms.TextBox.1", "Casella1", True

    Me.Controls.Add "Forms.TextBox.1", "Casella2", True

    With Me.Controls("Casella2")

      .Left = 50

      .Top = 50

    End With

    CaselleAggiunte = True

  End If

  Me.Controls("Casella1") = "ambarabà"

  Me.Controls("Casella2") = "Ciccì coccò"

End Sub

Il punto più rilevante è dato dalle istruzioni “creative” la cui sintassi è nata dalla scoperta che non occorre nessuna variabile per registrare il nuovo controllo, basta invocare il medoto Add  dell’insieme Controls dell’UserForm  corrente, ovvero Me.Controls.

Creazione dinamica di N casella all’apertura dell’UserForm

Dopo i precedenti esperimenti, torniamo all’esigenza iniziale ovvero, ricordate?, aggiungere un numero di TexBox definite di volta in volta. In tale prospettiva, si compiano le mosse seguenti:

1.       Creare un UserForm2

2.       Aggiungervi come prima un solo CommandButton1, magari dotato di Caption “Caselle dinamiche” in luogo del default “UserForm2”;

3.       Digitare la macro dell’evento Initialize:

Private Sub UserForm_Initialize()

  Dim i As Integer, N As Integer

  Dim NomeCasella As String

  Dim Cima As Integer

  N = Range("NumCaselle")

  Cima = 10

  Me.Height = N * 25 + 75

  CommandButton1.Top = Me.Height - 50

  ' If N > 10 Then N = 10 ' Limitazione num. caselle? Non serve col combo...

    For i = 1 To N

      NomeCasella = "Casella" & i

      Me.Controls.Add "Forms.TextBox.1", NomeCasella, True

      With Me.Controls(NomeCasella)

        .Left = 50

        .Height = 20

        .Width = 150

        .Top = Cima

      End With

      Cima = Cima + 25

    Next

End Sub

Commenti tacitiani. Il valore N è attinto da una cella del foglio di lavoro preliminarmente battezzata “NumCaselle”, ove l’utente dovrà stabilire appunto il desiato numero caselle. Il clou sta nel ciclo For i = 1 To N in seno al quale vengono via via fissato un NomeCasella pari a “ Casella” & i vale a dire “Casella1”, “Casella2” e così via. Il dimensionamento Me.Heigth dell’altezza del Form in modo da adeguarsi alle N caselle (ciascuna di altezza, Height, pari a 20) + 5 spazi tra le stesse è lasciato all’esegesi autogestita. Idem il posizionamento del Top del CommandButton1, sottostante alla N caselline ma senza sparire.

E la Sub dell’evento Click di quest’ultimo? Eccone una ipotetica, che segnala (MsgBox) i nomi delle N caselle create inserendovi man mano numeri casuali. Tanto per fare qualcosa, nei casi personali ognuno personalizzerà questa faccenda.

Private Sub CommandButton1_Click()

  Dim Ctrl As Control

  For Each Ctrl In Me.Controls

    If Left(Ctrl.Name, 7) <> "Command" Then

      Randomize

      Ctrl = Int(Rnd * 100000 + 100)

      MsgBox Ctrl.Name

    End If

  Next

End Sub

Concludo suggerendo, in luogo del controllo del numero massimo N = 10, un combo box sul foglio di lavoro associato alla predetta cella di nome”NumCaselle”.

Ultimissima variante

Consiste nell’omissione del secondo argomento di Controls.Add, nel qual caso la caselle di testo via via create assumono i nomi default o standard che dir si voglia “TextBox1” ,” TextBox2”, eccetera.

Private Sub UserForm_Initialize()

  Dim i As Integer, N As Integer

  Dim Cima As Integer

  N = Range("NumCaselle")

  Cima = 10

  Me.Height = N * 25 + 75

  CommandButton1.Top = Me.Height - 60

    For i = 1 To N

      Me.Controls.Add "Forms.TextBox.1", , True

      With Me.Controls(i)

        .Left = 50

        .Height = 20

        .Width = 150

        .Top = Cima

      End With

      Cima = Cima + 25

    Next

End Sub

L’esempio della Guida

Esempio dell'evento AddControl e del metodo Add

In questo esempio il metodo Add viene utilizzato per aggiungere un controllo a un form in fase di esecuzione. L'evento AddControl viene utilizzato per verificare se il controllo è stato aggiunto.

Per eseguire l'esempio, copiare il codice riportato di seguito nella sezione Dichiarazioni di un form. Verificare che il form contenga:

·         Un controllo CommandButton (CommandButton1).

·         Un controllo Label (Label1).

Dim Mycmd as Control

Private Sub CommandButton1_Click()

    Set Mycmd = Controls.Add("Forms.CommandButton.1") ', CommandButton2, Visible)

    Mycmd.Left = 18

    Mycmd.Top = 150

    Mycmd.Width = 175

    Mycmd.Height = 20

    Mycmd.Caption = "This is fun." & Mycmd.Name 

End Sub

Private Sub UserForm_AddControl(ByVal Control As _

    MSForms.Control)

    Label1.Caption = "Control was Added."

End Sub

posted @ 16.37 | Feedback (0)

Esplorazione di singoli grafici di una serie multipla

Esplorare uno alla volta i grafici di una serie multipla

Si abbia una serie di dati storici disposti su righe successive, che formano un intervallo denominato “ZonaDati”:

Volendo graficizzarli, per esempio con un tipo XY (“a dispersione”) il procedimento normale conduce a grafici multipli sovrapposti, tra l’altro con qualche problema qualora i singoli valori massimi e minimi siano troppo differenti. Le macro che propongo servono ad evidenziare il singolo grafico di ciascuna serie.

Prima soluzione, con doppio clic

Prima di procedere occorre creare manualmente il grafico, incollato sul foglio di lavoro, relativo alla prima serie. Dopo di che la prima soluzione sfrutta l’evento doppio clic. La fornisco come ricetta (che i più esperti sapranno comunque ben meditare), ricordando solo che la si ottiene selezionando il modulo Foglio1 quindi scegliendo Worksheet e BeforeDoubleClick nelle due caselline a discesa  in alto (etichettate coi tip “Oggetto” e “Routine”):

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

  Cancel = True

  Dim ZonaDati As Range

  Set ZonaDati = Range("ZonaDati")

  If Intersect(Target, ZonaDati) Is Nothing Then

    Exit Sub ' Esci se la cella è fuori zona dati

  Else

    Dim Nc As Integer ' Numero colonne

    Nc = ZonaDati.Columns.Count

    Dim RigaIniz As Integer

    RigaIniz = ZonaDati.Row

    Dim RigaDati As Range

    Set RigaDati = ZonaDati.Rows(Target.Row - RigaIniz + 1)

    RigaDati.Select

    CambiaSerie RigaDati.Address

  End If

End Sub

Ma cosa diavolo è CambiaSerie? Si tratta di una Sub, stavolta, inserita in un nomale Modulo1 in testa al quale si ha una variabile comunitaria (area Dichiarazioni) NumeroSerie:

Dim NumeroSerie As Integer

Sub CambiaSerie(RigaDati As String)

  Dim QuestoGraf As ChartObject

  Set QuestoGraf = ActiveSheet.ChartObjects("Grafico 1")

  QuestoGraf.Chart.SeriesCollection.Add _

  Source:=Worksheets("Foglio1").Range(RigaDati)

  QuestoGraf.Chart.SeriesCollection(1).Delete

End Sub

Sub ProvaCambiaSerie()'Routine di prova

  CambiaSerie "A7:L7"

End Sub

Premesso che “Grafico 1” è il nome default assegnato al grafico creato a mano (in caso contrario modificare a dovere “Grafico 1”) il procedimento inizialmente aggiunge un grafico assumendo come origine (Source) l’intervallo RigaDati passato come argomento, dopo di che viene eliminato (Delete) il grafico precedente, ovvero il membro numero 1 dell’insieme SeriesCollection.

 Seconda soluzione, con pulsante incorporato

Si tratta, più semplicemente, di una comune routine presente anch’essa sul Modulo1 da abbinare a un pulsante “classico” di Excel (o magari a una shape, personalmente uso la forma “Telaio”). Eccola:

Sub EsploraGrafici()

  swSfondo = Not swSfondo

  Dim ZonaDati As Range, Previsioni As Range

  Set ZonaDati = Range("ZonaDati")

  Set Previsioni = Range("Previsioni")

  NumeroSerie = _

  IIf(NumeroSerie = ZonaDati.Rows.Count, 1, NumeroSerie + 1)

  ZonaDati.Interior.ColorIndex = 17

  Previsioni.Interior.ColorIndex = 17

  Dim RigaDati As Range, CellaPrevis As Range

  Set RigaDati = ZonaDati.Rows(NumeroSerie)

  Set CellaPrevis = Previsioni(NumeroSerie)

  RigaDati.Select

  RigaDati.Interior.ColorIndex = 6

  CellaPrevis.Interior.ColorIndex = 6

  CambiaSerie RigaDati.Address

End Sub

In questo caso ho pensato di trattare anche l’intervallo N5:N12 posto sulla destra della zona dati (rivedere la figura iniziale) e battezzato “Previsioni”, le cui celle contengono formule statistiche di cui riporto solo la prima, posta in N5:

=PREVISIONE(13;A12:L12;$A$3:$L$3)

Nota. I dati forniti sono alquanto aleatori, idem pertanto i risultati di ciascuna previsione... Ma era solo un esercizio sulle macro.

Per evitare confusioni si considerino solo le istruzioni segnate in neretto, che sono quelle essenziali relative alle serie di dati. Ad ogni clic sul predetto pulsante la macro incrementa il NumeroSerie ciclicamente (ovvero riparte con 1 se si supera il numero di righe della zona dati (ZonaDati.Rows.Count) e successivamente viene fissata la nuova serie in RigaDati =ZonaDati.Rows(NumeroSerie) poi selezionata con RigaDati.Select e infine ne viene passato il riferimento (Address) alla già vista Sub CambiaSerie.

Le istruzioni intercalate (prive di grassetto) compiono un analogo mestiere sull’intervallo “Previsioni”, inoltre evidenziano in giallo la riga selezionata e la corrispondente cella di previsione.

posted @ 14.46 | Feedback (0)

Istruzione VBA KILL. Pericolosa? Sì ma non è una falla...

Dibattito sull’istruzione Kill

La possibilità di utilizzare in una macro VBA di Excel o Word un’istruzione come Kill indicata nel mio testo Excel e Office VBA (Ed. Hoepli) su computer differenti dal proprio ultimamente mi è stata messa in dubbio da diversi interlocutori. Uno di costoro si è addirittura scandalizzato dichiarando che “se fosse vero Microsoft avrebbe ammesso la presenza di una falla clamorosa nel VBA!”.

Gente ma non avete mai sentito parlare di “virus da macro” contro i quali i produttori di antivirus promettono protezioni adeguate? Perché mai, se il rischio non ci fosse? E come si spiega la creazione, dopo Office 2007, di file di estensione diversificata – xlsx/xlsm, docx e docm? La cosa assicura che quelli senza la m finale sono privi di macro ma se si apre un modello Excel o un documento Word del secondo tipo nulla garantisce (salvo azioni più o meno miracolose degli antivirus, sempre che installati) che un’istruzione criminosa non venga eseguita, magari automaticamente e a tradimento all’apertura del file (macro di auto avvio Document_Open in Word, Workbook_Open in Excel). Per non parlare di file xls e doc dotati cioè del formato precedente, tuttora prevalenti.

Un’obiezione più sensata (ma solo in apparenza)

Sembrerebbe che Vba e il mondo Excel permettano di creare magari casualmente e senza volerlo virus che a questo punto avrebbero già messo in ginocchio l'informatica. Infatti sembrerebbe che l'istruzione scritta sul mio computer per fare un po’ di pulizia da vecchi file finirebbe per diventare un virus se passato al mio vicino di casa.

Nell'era della comunicazione globale ciò risulterebbe una catastrofe.

Purtroppo non è come lei spera (o si illude?). Non escludo (ma ne dubito assai) che i sistemi connessi in rete possano avere qualche protezione intrinseca del tipo che ipotizza, ma su PC normali l'istruzione di eliminazione file sembra proprio che funzioni tranquillamente. L'ho verificato sulle due macchine che ho in casa, dotate per giunta di s.o. differenti, Win XP e Win 7 addirittura con una chiavetta USB sulla quale ho creato una directory fasulla E:\Uccidi, contenente un file Kill.xls nella radice E: più diversi altri archivi Excel in E:\Uccidi. Orbene l'istruzione Kill "E:\Uccidi\*.*" compie regolarmente la sua missione omicida in entrambi i computer. E con file "presi" tanto dal primo che dal secondo computer.

Il problema mi sembra di capire sta proprio nel muoversi all'interno di una penna che il sistema non riconosce come un hard disk di sua proprietà ....

A parte il fatto che un'insidia proveniente da una banale chiavetta sarebbe comunque una falla imbarazzante, secondo il suo punto di vista, ..."vista" la sua ostinazione ho fatto la prova copiando il file omicida nella radice del disco C: del mio secondo PC. Esso ammazza tranquillamente e senza proteste tutti i file di una C:\percorso, riempita con file sia del primo che del secondo PC, nuovi o vecchi.

Riepilogando, sono due le cose da puntualizzare:

1) gli archivi NON recano nessuna traccia relativa al PC ove sono stati creati e comunque Windows, né credo altri sistemi operativi, fanno distinzioni sull’origine dei file (sarebbe troppo complesso e fonte di confusione);

2) il profilo Guest la trae in inganno; esso è relativo a un ESTRANEO cui pertanto sono vietate operazioni varie (*), ma noi stiamo parlando dell'utente "legittimo", il quale può fare quello che vuole (ci mancherebbe!), a suo rischio e pericolo.

NOTA (*) Anche la copia di file, nei sistemi aziendali ben protetti (ma ci sono sempre le spie e/o gli impiegati "venduti" che cedono le password, perché contro la disonestà non c'è difesa...)

Sia dia pace: nihil novi sub sole e la storia, se riflette, appartiene ai normali casi dell'esistenza. Pensi ai coltellacci da cucina. Le cronache sono piene di uxoricidi o, semplicemente, infortuni compiuti con tale strumenti, indispensabili a macellai come a normali massaie. Sarà opportuno nasconderli ai fanciulli ma di più non si può fare...

Già che ci sono, le descrivo a parole un possibile procedimento maligno che trasforma in spazzatura un certo MioBellArch, utilizzando due file gemelli Spazz e SpazzBis (contenenti porcherie o, magari, file .xls virali):

1. Rinomina MioBellArch => MioBellArchBis

2. Elimina MioBellArchBis (addio, mio bell’addio!)

3. Rinomina Spazz => MioBellArch ("risuscitato” come spazzatura!)

4. Copia SpazzBis => Spazz

Ciclando il procedimento in tutti gli archivi di una o più directory o il disastro sarà completo. Per carità che NESSUNO lo metta in atto!

Sarebbero poi da considerare le insidie facilmente inseribili nelle routine di Excel relative a eventi come Change  o SelectionChange. Una macro innocua ma fastidiosa (e facilmente implementabile) potrebbe essere la seguente:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Insulti, NumInsult As Integer
    Insulti = Array("Scemo!", "Deficiente!", "Vergognati!")
    NumInsult = UBound(Insulti) + 1
    MsgBox Insulti(Int(Rnd * NumInsult))
    ActiveCell = Insulti(Int(Rnd * NumInsult))
End Sub

che pgni volta che il malcapitato seleziona un'altra cella lo tormenta con messaggi insultanti che vanno anche a sporcare la cella attiva. Anche qui mi raccomando: non speditala nemmeno al vostro capo più antipatico...  

NOTA. A volte a me, come ad altri, è capitato di non ricevere e/o di non riuscire a recapitare attachment xls, anche privi di macro. Si tratta palesemente dell’intervento del firewall di un server di posta vicino o remoto, un comportamento censorio antipatico quando idiota. Infatti basta rinominare l’estensione in .zip...

Considerazioni eretiche sugli antivirus

Qui sotto incollo infine una mia replica a un lettore che aveva sollevato lo stesso angoscioso dubbio.

L’istruzione VBA Kill non rappresenta una falla di Windows. Tutti i sistemi operativi hanno istruzioni del genere che sono rispecchiate dai vari linguaggi di programmazione. Eliminarle equivarrebbe a una "censura" che limita le possibilità del s.o. come degli sviluppatori. E ce ne sono altre, meno evidenti, ma ancor più insidiose, ad esempio quelle che sostituiscono con file di contenuto fasullo degli archivi più o meno importanti (catalogati come "sensibili", ovvero vitali per un utente o un'intera azienda).

Il punto è che è l'INFORMATICA E' FRAGILE PER SUA NATURA, altrimenti come potrebbero esistere i virus e il malware? Quanto agli antivirus, si tratta di arnesi che fanno molte promesse, mantenendone pochissime, come dimostrano le ultime inchieste che sanciscono in modo impressionante il loro fallimento. La balla più clamorosa è il vanto dei sistemi "proattivi" o "preventivi", e il caso di istruzioni palesemente pericolose ma che nessun antivirus rileva è solo uno dei tanti. Restando al tema di questo dibattito, basta creare un file xls dotato di macro di auto avvio con eloquenti istruzioni Kill e sottoporlo a un antivirus per rendersi conto che... non fa una piega.

A un'obiezione del genere produttori titolati mi hanno replicato che "prevedere tutto sarebbe troppo costoso e fonte di FALSI POSITIVI". Sarà anche vero ma la conseguenza è che il lavoro principale di tali prodotti consiste nel catalogare le cosiddette "firme" di virus GIA' SCOPERTI, come dire chiudere la stalla quando i buoi sono scappati.

A mio personale parere, infine, almeno per gli utilizzatori singoli ,di fatto i rischi sono esagerati (dalla non disinteressata propaganda dei vari Simantec, Kasperski, McAfee ecc.). Occorre e basta una grande prudenza, eliminando e-mail sospette, visitando siti sicuri e così via. A fronte della scarsa o nulla protezione che tali prodotti offrono rispetto a nuovissimi attacchi nonché del fastidio che danno (rallentamento all'avvio per caricare vagonate di nuove firme - sospetto che alcune siano inventate... -., segnalazione di falsi positivi) e del loro COSTO, io ho deciso di non usarli più!

Ovviamente non sto incitando nessuno a seguirmi su questa strada. Faccia ognuno come

crede e... preghi la Madonna.

posted @ 11.22 | Feedback (0)

Forecasting con l’equazione di Volterra suggerita da Roberto Vacca

Forecasting con l’equazione di Volterra suggerita da Roberto Vacca

Excel è uno strumento formidabile per elaborazioni di tipo statistico, che poi si possono agevolmente graficizzare mediante il tipo “dispersione”. Ricordo qui che esso pone sull’asse x i dati della prima colonna – assunti come valori e non come etichette – e sull’asse y rappresenta i valori della/e altre serie riportate nelle altre colonne. Si parla di “dispersione” proprio perché in molte analisi statistiche si parte con una “nube” di punti sparpagliati dovuti a dati caratterizzati da un “rumore” più o meno marcato e aleatorio e lo scopo è quello di azzeccare con la massima attendibilità possibile la curva che esprime andamento, il trend che tale nube racchiude.

Il caso più ambizioso è quello del forecasting, che punta cioè a prevedere andamenti futuri sulla base dei dati attualmente rilevati. Il notissimo scrittore e divulgatore ing. Roberto Vacca in diverse delle sue molte opere futurologiche ma improntate al massimo rigore scientifico – da Medioevo Prossimo venturo all’ultima Salvare il prossimo decennio – Ed. Garzanti  (v. http://www.garzantilibri.it/default.php?page=visu_libro&CPID=2710)

che qui mi sento di suggerire a chi s’interessa di Scienza e Tecnologia e non solo di microinformatica, nonché delle minacce e speranze che incombono su tutti noi.

L’equazione di Volterra

Costituisce un leit-motif di Roberto Vacca, che l’ha citata in tutti i suoi testi futurologici, avendola sfruttata con successo in moltissimi casi. In pratica ecco la formula:

y =N/(1+Exp(A*t+B))

che esprime un andamento, direi, simile alla curva di prima magnetizzazione. Ricordate? All’inizio i magnetini elementari seguono “pigramente” la corrente applicata al solenoide, poi si orientano in modo deciso ma alla fine, quando in maggioranza sono ben allineati, danno contribuiti sempre più scarsi, fino alla saturazione. Insomma ne deriva una curva piatta all’inizio che, prima o poi, tende a una saturazione. Non ci vuol molto a cogliere un’analogia col ciclo di vita di nuovi prodotti (il personal computer? Indovinato): all’inizio debbono farsi conoscere, poi hanno successo e forte espansione, ma allo stadio della maturità crescono molto meno.

Volterra ha appunto un andamento del genere con un asintoto finale, e il problema in pratica consiste nel determinare i valori più adatti dei coefficienti N, A e B visti sopra.

Un modellino generico, per gente di buona volontà...

Il compito precedente non dovrebbe presentare difficoltà. Anzi il gentile ing. Vacca ha avuto la bontà di inviarmi delucidazioni al riguardo. Ma al momento ho poco tempo per rinfrescare tali nozioni di statistica... Tuttavia ho pensato ugualmente di creare un modellino introduttivo, che semplicemente rappresenta una funzione di Volterra sulla base, si badi bene, di dati calcolati a partire da determinati valori dei predetti N, A e B e su una scala di tempi anch’essi determinati.

Il modellino scaricabile da http://www.giannigiaccaglini.it/download/Volterra.zip, una volta unzippato l’accluso .xls, si presenta grossomodo così (indicando solo le prime righe):

Nomi delle celle. Sono, guarda caso, N, A, B relativi alle celle B1, B2 e B3. Inoltre Dt (cella B4) sta per Delta-ti e viene utilizzato nel campo intestato T (asse dei tempi) nelle celle sottostanti il valore iniziale 0 con la formula seguente, ricopiata in tutte le celle sottostanti:

=D3+Dt

=D4+Dt

eccetera.

Si ottiene in tal modo un asse dei tempi variabile.

Ed ecco infine la formula, identica in tutte le celle della serie V:

=N/(1+EXP(A*T+B))

La particolarità che forse molti ignorano sta nel fatto che in tale formula T è un nome di tipo relativo, ovvero definito con riferimento privo del dollaro sulla riga (ossia come $D3 in luogo del solito $D$4). Di conseguenza la T della formula aggiusta automaticamente la riga dei riferimenti (di fatto $D4, $D5 ecc.).

Sulla destra del modellino si ha poi un grafico che evidenzia l’andazzo à-la-Volterra, in particolare con quello asintotico finale. E variando i vari parametri lo si può modificare.

Tutto qui? Certo ma in attesa di miei approfondimenti più o meno futuri (a proposito di futurologia...), chi ha voglia si può divertire in uno o entrambi i modi seguenti:

a)      inserendo una seconda serie parziale di valori empirici, operando un paziente what-if coi parametri predetti (è quel che ho fatto nella versione AGGIORNATA di Volterra.xls, fino a ottenere una curva che, almeno "a sentimento", si adatta al forecasting presunto (magari con l’ausilio di una macro?);

b)      utilizzando le opportune formule per calcolare i valori più idonei di N, A e B.

Se qualcuno è in grado di svolgere il secondo compitino mi scriva: sarò lieto di pubblicare tale soluzione.

giannigiac@tin.it

P.S. Giro a tutti un'utile segnalazione: una particolare implementazione portatile dell'ultima edizione della suite OpenOffice, che ora ha nome LibreOffice. Le innovazioni sono interessanti (anche se le macro VBA coninuano a non essere "sopportate") ma il bello della storia è che a) è tutto compreso in un unico file .exe; b) non occorre più il dannato Registry per cui lo si può sic et simpliciter copiare in una chiavetta USB, portarla in giro e lanciare il programma ovunque! Onore al merito, ovvero ai prof & studenti del sicilianissimo Istituto Majorana.

Tale gioiello si scarica dal link seguente:

http://www.istitutomajorana.it/index.php?option=com_content&task=view&id=1431&Itemid=33

NB - Un piccolo suggerimento NON scegliete l'opzione ESEGUI ma direttamente SALVA. Nel primo caso infatti l'applicativo si apre in modo virtualizzato e funziona!, però se si chiude la sessione sparisce... (oddio forse conviene conservare tale link, da sfruttare fuori sede in casi estremi, se non si ha una chiavetta; o no?).

posted @ 17.11 | Feedback (0)