Indikaattoreita esityksiin

oon kans joskus miettinyt miten sais vb:llä jonkun excelsolussa olevan värin vilkkumaan vaikka sekunnin välein. ei oo selvinny koskaan

Netistä löytyy lukemattomattomia sivuja aiheesta. Googleen vaikkapa:
excel flashing cell

Digitaalinen mittari on yksinkertaisimmillaan solu. Näyttävämmän siitä saa liittämällä useampia soluja yhteen, suurentamalla fonttikokoa, taustavärillä ja kehyksien lisäyksellä.

Merkkivalon saa helpoiten ehdollisella muotoilulla.

Vilkkutoiminnot ym. animaatiot onnistuvat VBA:lla.

Tässä esimerkissä on käynnistysnappi CommandButton1 (ActiveX Controls). Se on yhdistetty makroon, joka käynnistää tai pysäyttää ajastetun toiminnan:

Private Sub CommandButton1_Click()
   If CommandButton1.Caption = "Käyntiin" Then
      Lupa = True
      CommandButton1.Caption = "Seis"
      Uudestaan
   Else
      CommandButton1.Caption = "Käyntiin"
   End If
End Sub

Module1:ssä on muuttujat Lupa ja Aikaväli sekä kaksi makroa. Esimerkki oli nimetty "testi.xlsm" (koodissa pitää olla nimi, jotta makroa tiedetään kutsua oikeasta paikasta silloinkin, kun auki on toinen taulukko) Makro Uudestaan ajastaa itsensä ja kutsuu Homma-makroa, jossa ajastetut tehtävät suoritetaan. Tässä vain kasvatetaan solun A1 arvoa. Jos tehtäviä on paljon, kannattaa laskenta ja muut päivitykset kytkeä pois suorituksen ajaksi. Virheenkäsittelyn pitäisi huolehtia siitä, että sivu ei jää virheen sattuessa toimimattomaksi.

Public Lupa As Boolean
Const Aikaväli = 1 / 24 / 3600  ' 1 s on lyhin mahdollinen aika

Sub Uudestaan()
   If Lupa Then
      Application.OnTime Now() CDate(Format(Aikaväli, "hh:mm:ss")), "testi.xlsm!Uudestaan"
      Homma
   End If
End Sub

Sub Homma()
On Error Goto Err
   Application.EnableEvents = False
   Application.Calculation = xlCalculateManual

   Range("A1") = Range("A1") 1

Err:
   Application.Calculation = xlCalculateAutomatic
   Application.EnableEvents = True
   DoEvents
End Sub

pystyykö Excelillä tai vb:llä esittämään analogimittaritoimintaa?

Analoginen mittari on xy-diagrammi. Sen taustalle voidaan laittaa mittaritaulu kuvana tai täytettynä ympyränä. Valmiista diagrammista jätetään näkiville ainoastaan viisaria esittävä origosta laskettuun pisteeseen kulkeva viiva. Mittarin asteikon saa toisesta kuvaajasta. Laskennassa tarvittavat arvot voi piilottaa mittarin alle.