Indikaattoreita esityksiin

Wicitor

Tarkoitukseni olisi tehdä excelillä havaintoesitys erään laitteen käyttöohjeesta, jonka esitän läppärini exceliltä projisoituna.
Esityksessä mennään vaihe vaiheelta läpi ohjetta, jossa on käyttökytkimien eri asentoja, valoja, ledejä, kytkentäkaavoja, mittareita, säätönuppeja ym..
Juuri tässä kyseisessä ohjeessa (esityksessä) olisi eduksi, jos esim. tiettyjen kytkimien asentoja voisi tehostaa kirkkaasti palavilla tai vilkkuvilla ledeillä.
Myös digitaalnäyttöisiä mittareita (4 -numeroisia näyttöjä) säätönupista vaihtuvilla numeroilla olisi eduksi myös.
Eli onnistuuko exceliin rakentaa VB:llä erilaista valo- tai vertailuindikointia (mm. mittareita) esityksiin?

7

91

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 1+1

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

    • 18+9

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

    • Tämmönen

      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

      • Tämä unohtui

        Rivin:
              CommandButton1.Caption = "Käyntiin"
        eteen tulee:
              Lupa = False

        Muuten viritystä ei saa pysähtymään.


      • Tämäkin vielä
        Tämä unohtui kirjoitti:

        Rivin:
              CommandButton1.Caption = "Käyntiin"
        eteen tulee:
              Lupa = False

        Muuten viritystä ei saa pysähtymään.

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

        Pitää korvata tällä:
           With Workbooks("test.xlsm").Worksheets("Sheet1")
              .Range("A1") = .Range("A1") 1
           End With

        Muuten kirjoitetaan minkä tahansa sillä hetkellä aktiivisena olevan sivun soluun A1


    • analogiaa

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

    • Tämmönen

      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.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua

      Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä
      Äänekoski
      91
      1919
    2. Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa

      Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.
      Maailman menoa
      277
      1753
    3. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      305
      1550
    4. Martina lähdössä Ibizalle

      Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.
      Kotimaiset julkkisjuorut
      181
      1441
    5. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      88
      1028
    6. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      51
      997
    7. Avustikset peruttu.

      Aettokosken ampuraan rahat otettu poekkeen valtiolle.
      Suomussalmi
      56
      977
    8. Se nainen näyttää hyvältä vaikka painaisi 150kg

      parempi vaan jos on vähän muhkeammassa kunnossa 🤤
      Ikävä
      56
      958
    9. 67
      944
    10. Miksi mies tuntee näin?

      Eli olen mies ja ihastuin naiseen. Tykkään hänestä ja koskaan hän ei ole ollut minulle ilkeä. Silti ajoittain tunnen kui
      Ikävä
      40
      931
    Aihe