Leuke ontdekking. Meters zonder VBA

[Schelledraad]

Ik heb een leuke ontdekking gedaan die ik wil delen. Er zijn vaak een hoop vragen over wijzers en meters in Excel. Welnu. Ik ben er in geslaagd om een dashboard meter te maken zonder (direct) gebruik van VBA in een werkmap.
Zoals je ziet is het bestand zelf .XLSX (dus zonder macro's)
(De wijzers en wijzerbladen zijn gewoon gemaakt met het betere prutswerk met "Vormen" in het menu "Invoegen")
Het werkt als volgt : Kopieer de functie "WijzerDraaien" (cel a1:a4) en plak deze in een module in je persoonlijke macromap. (PERSONAL.XLSB)

Roep in de gele cel (E1) de functie aan en verwijs deze naar cel F1
=PERSONAL.XLSB!WijzerDraaien(F1)


Klik op de spinner.


Gr


Frank

 

[snb]

Ziet er goed uit !
Met

Function F_WijzerDraaien(y)
   With ActiveSheet
       .Shapes("WijzerRegen").Rotation = y * 3.6
       .Shapes("WijzerRegenKlein").Rotation = y * 36
    End With
End Function

Heb je G1 en H1 niet meer nodig.
Jouw argument 'rotation as string' had helemaal geen funktie, omdat je het in de funktie niet gebruikte.

De claim 'zonder VBA' lijkt me wat vermetel.

 

[Schelledraad]

Nou, ik zei ook zonder (direct) VBA. Maar dit opent toch nieuwe wegen.

 

[edmoor]

Dit is niks nieuws. Naast het Personal bestand kan je ook een invoegtoepassing maken, dan hoef je in het onderhanden werkblad ook geen VBA te gebruiken.

 

[Skigeit]

Hi Frank,
Leuk metertje.

Thanks for sharing.