ULTIM'ORA. Sto studianndo WPF (Windows Presentation Manager) che in Visual Studio permette di creare finestre molto più multimediali rispetto alle Winndows Form. Questa mia creatura sviluppata in occasione dei Mondiali sudafricani sfrutta la griglia (Grid) WPF con caselle di testo disposte secondo lo schema a piramide rovescia, a partire dai QUARTI di finale. Secondo un algoritmo da me più volte sfruttato con Excel + VBA il primo pulsante avvia una simulazione basata su numeri randommizzati attorni ai VALORI stimati. I nomi delle squadre sono generici, i valori sono livellati sul 6 ma gli uni e gli altri si possono modificare prima del clic. Un'imperfezione (che un bel dì sanerò, ma non so quando...) impedisce di tener conto di  modifiche ai valori successive alla prima, comunque cliccando sul secondo pulsante ci si mette una pezza.

Scaricare da:

http://www.giannigiaccaglini.it/download/FinaliCampionato.zip

Tornando al Clock, si tratta di un trucco vergognoso, ma stavolta la vergogna mi pare pertinente a pur nobili produttori di software. Applicativi due tipi, principalmente, entrambi "a scadenza":

- versioni beta, inclusa l'ultima di Office;

- antivirus, perlomeno quello molto titolato che io uso (ma dico il peccato, non il peccatore).

Come si sa, gli uni e gli altri, dopo i due-tre mesi previsti si disattivano. Ma, a onta degli sviluppatori che non l'hanno previsto (!!) basta retrodatare l'orologio di sistema e tutto procede regolarmente! Il dirty trick testé rivelato forse esclude sì e no i bambini in tenera età... Per cui uno si chiede: possibile che programmatori superesperti non abbiano escogitato qualche misura più robusta ma semplice, come tenere sul LORO sito, un database degli utenti registrati con le rispettive scadenze?

Inconvenienti collaterali alla retrodatazione? Alemeno due:

- la posta in partenza con data sbagliata, per cui il destinatario la trova in fondo e non in cima all'Inbox;

- applicazioni Excel basate sulla data corrente giusta (tipicamente, usando la funzione =NOW() e simili e formule correlate).

Con un po' di pazienza il rimendio è presto trovato, basta rimettere a posto il Clock! Ma va? Ma sì. Nel primo caso l'antivirus non fa una piega, visto che la sua protesta si ha solo all'avvio di Windows. E con Excel? La risposta è quella che tutti si attendono: si deve PRIMA aprire Excel, POI aggiustare l'orologio.

Subtotali per mese con un semplice ma utile trucco

Prima di procedere, segnalo un utile articolo Microsoft che descrive come velocizzare WINDOWS 7, semplicemente sfruttando una chiavetta USB di adeguata capacità:

http://www.microsoft.com/italy/pmi/comefare/tecnologia/readyboost/default.mspx

Ma torniamo a bomba, con il tema del titolo.

Si abbia un intervallo database del tipo seguente:

Si desiderano totali parziali relativi a ciascun mese. Premesso che in ogni caso è necessario che sia applicato l’ordinamento (sort) secondo la data, si possono percorrere almeno due vie: estrazione dei record specifici mediante un filtro opportuno o, più comodamente, sfruttando i subtotali. Ma come fare, visto che non esiste in origine un campo del mese?

La soluzione, cui probabilmente molti (ma non tutti) avranno pensato, consiste nell’inserimento, sulla sinistra di un altro campo intestato MESE (giustappunto, e a causa di sfrenata fantasia letteraria):

Inoltre nelle celle da A2 in giù va messa una formula del tipo seguente:

=SCEGLI(MESE(B2);"Gennaio";"Febbraio";"Marzo";"Aprile";"Maggio";. . . ;"Novembre";"Dicembre")

L’applicazione e rimozione dei subtotali agognati si può infine meccanizzate con il codice macro qui sotto riportato:

Dim swMettiTogli As Boolean ' Definizione a livello modulo: conserva il suo valore

Sub MettiTogliSubtotali()

  swMettiTogli = Not swMettiTogli ' True/False in alternanza

  With Range("A1") ' Così la macro opera "a distanza"

                   ' cioè pure se A1 NON è selezionato

    If swMettiTogli Then

      .Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(6), _

          Replace:=True, PageBreaks:=False, SummaryBelowData:=True

    Else

      .RemoveSubtotal

    End If

  End With

End Sub

La macro può essere consumata da tutti come ricetta, mentre ai più esperti suggerisco l’esegesi autogestita.

Due trucchi per Userform

Si tratta di due sciocchezzuole, però del tipo “toh, chi ci avrebbe pensato?”...

Primo trucco: pulsanti “in cascata”

Questa ideuzza mi è venuta esaminando una soluzione implementata mediante le modernissime finestre WPF, ossia basate sulla spettacolare e multimediale tecnologia Windows Presentation Foundation. In quel caso si aveva una serie di pulsanti di cui di volta in volta veniva fatto emergere in primo piano quello richiesto dal contesto.

Ovviamente niente del genere è possibile con le normali Form, men che meno con le semplici UserForm che ci passa il convento VBA. Giusto? Non del tutto, almeno nell’esempietto che vado a illustrare. L’ipotesi è di aver a che fare con due (o più) pulsanti uno soltanto dei quali va sottoposto all’utente, di volta in volta. Il trucco è presto detto: rendere visibili, di volta in volta, soltanto quello che occorre, evitando così tediosi switch booleani.

Si tratta della proprietà Visible da porre =False o =True secondo necessità. L’alternativa, va ricordato, è l’attivazione o meno della proprietà Enabled, comunque nell’esempio che sto per proporre ho inoltre previsto di sovrapporre i pulsanti in guisa tale che uno soltanto (tra quelli che interessano) sia in vista, ergo concretamente a disposizione dell’utente.

Ed ecco le mosse da compiere:

1. Creare una Userform, dotandola di due pulsanti CommandButton1 e CommandButton2 di dimensioni identiche, aventi etichetta (Caption) “Primo” e, rispettivamente, “Secondo”;
2. Trascinarli facendo in modo che il primo si sovrapponga al secondo;
3. Aggiungere un controllo Label1 etichettato “FINE LAVORI”;
4. Inserire il codice macro seguente.

Private Sub CommandButton1_Click()

  If MsgBox("Vuoi eseguire il PRIMO lavoro?", vbQuestion + vbYesNo, "") = _

  vbNo Then Exit Sub

  PrimoLavoro

  CommandButton1.Visible = False

  CommandButton2.Visible = True

End Sub

Private Sub CommandButton2_Click()

  If MsgBox("Vuoi eseguire il SECONDO lavoro?", vbQuestion + vbYesNo, "") = _

  vbNo Then Exit Sub

  SecondoLavoro

  CommandButton2.Visible = False

  If MsgBox("Vuoi eseguire di nuovo il PRIMO lavoro?", vbQuestion + vbYesNo, "") = _

  vbYes Then

    CommandButton1.Visible = True

    Exit Sub

  End If

  Label1.Visible = True

End Sub

Le generiche routine PrimoLavoro e SecondoLavoro potrebbero essere del tipo seguente (mentre saranno ovviamente adattate ai casi singoli):

Sub PrimoLavoro()

  MsgBox "Ora eseguo il primo lavoro", vbInformation, ""

End Sub

Sub SecondoLavoro()

  MsgBox "Ora eseguo il secondo lavoro", vbInformation, ""

End Sub

Le varie routine parlano da sole e sono di agevolissima sperimentabilità pertanto mi limito a dire che, c.v.d., l’utente dispone inizialmente del solo pulsante “Primo”, cliccando il quale se a.d.r. (a domanda risponde, come nei verbali tribunalizi) Yes viene lanciata PrimoLavoro, al che il primo pulsante è occultato e, alla comparsa del secondo... A tutti sarà insomma palese che se si verifica il duplice assenso dell’utilizzatore a PrimoLavoro segue SecondoLavoro e la (quasi-farsa?) si conclude con la visualizzazione della scritta (Label1.Visible=True) “FINE LAVORI”.

Chicca finale. La nostra Userform potrebbe essere lanciata – in modo atipico e comunque poco noto – tramite un hyperlink come questo posto, diciamo, sul primo foglio di lavoro:

Il codice che si scatena cliccandovi sarà il seguente, relativo all’evento FollowHyperlink da inserire nel modulo Foglio1 dell’Editor VBA:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

   Load UserForm1

   UserForm1.Show

End Sub

Secondo trucco: controlli filtrati per nome

Si abbia una User