003. Bloccare riga durante scorrimento

Download PDF

Domanda:

Come posso fare per mantenere sempre in vista il titolo di un foglio di lavoro excel mentre scorro in basso lo stesso foglio. Grazie per la collaborazione.

Risposta:

Per ottenre il risultato puoi usare il ‘Blocca riquadri’ presente nel menu’ ‘Visualizza’.
Potrai scegliere se bloccare la prima riga o un gruppo di righe

Riccardo Vincenti

002. Info su altezza cella tramite VBA

Download PDF

Domanda:

Vorrei sapere se esiste una funzione o istruzione VBA che permette la visualizzazione dell’ALTEZZA delle celle [esempio: in H13 “=CELLA(“larghezza”;G13)”]

Risposta:

Qui abbiamo scritto una semplice funzione che fa quanto richiesto:

Function RiportaAltezzaCella(a As Range) As Double

    Application.Volatile True
    RiportaAltezzaCella = a.Height

End Function

La funzione si aggiorna ogni volta che Excel esegue un ricalcolo. Attenzione quindi: non si aggiorna ogni volta che modificatel l’altezza ma bensi appna utilizzate la cella per un calocolo

potete scaricare qui il file di esempio:

Altezzacella

Riccardo Vincenti

001. Riportare somma tramite VBA

Download PDF

Domanda:

Scopiazzando sul web sono riuscito a creare la seguente macro che
vorrei modificare:
Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim l As Long
l = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = \”ELENCO GIOCATORI\”
.Cells(1, 2) = \”IMPORTO Assegnato\”
.Cells(1, 1).Name = \”Sommario\”
End With

For Each wSheet In Worksheets
If wSheet.Name <> Me.Name Then
l = l + 1
With wSheet
.Range(\”A1\”).Name = \”Start\” & wSheet.Index
.Hyperlinks.Add Anchor:=.Range(\”A1\”), Address:=\”\”, SubAddress:= _
\”Sommario\”, TextToDisplay:=\”Torna al Sommario\”

End With
Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:=\”\”, _
SubAddress:=\”Start\” & wSheet.Index, TextToDisplay:=wSheet.Name
End If
Next wSheet
End Sub

questa crea un sommario automatico dei fogli di lavoro
presenti in una cartella excel.
Mi occorrerebbe inserire nella colonna B il totale del foglio di
lavoro relativo.
Potreste aiutarmi cortesemente?
vi ringrazio anticipatamente ….

——-

Risposta:

negli sheet 2,3,4 ho inserito in posizioni diverse a titolo didattico, una colonna dove puoi inserire gli importi che verranno sommati e mostrati nello sheet ‘Sommario’. Ho parametrizzato infatti il codice per permetterti di collocare la colonna dove prefierisci. La macro viene lanciata automaticamente al verificarsi dell’evento Workbook_Open e può essere eseguita anche premendo il bottone ‘Aggiorna’.

In allegato trovi il file con i commenti inseriti direttamente nel modulo VBA.

Importo Assegnato

Riccardo Vincenti