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?
Indikaattoreita esityksiin
7
63
Vastaukset
- 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
Miksi suomalaisia vainajia säilytetään kylmäkonteissa ulkona? Näin kuolleita kohdellaan Suomessa
Suomesta ei löydy enää tilaa kuolleille. Tänä päivänä vainajia säilytetään ympäri maata ulkona kylmäkonteissa. Kontit3903628Hallitus korottaa yleisen arvonlisäveron 25,5 prosenttiin
Yleisen arvonlisäveron kiristäminen 1,5 prosenttiyksiköllä on hallituksen järein toimi kehysriihessä. Se voi tuoda valti5342693Olen ärtynyt koska
minulla on tunteita sinua kohtaan. Tunteita joita en voi ilmaista. Kaipaan kaikkea sinussa. Siksi olen välillä hankala.9326244 tuntia töitä kerran viikossa on naisen mukaan liian raskasta
Tämä ei taija olls lieksalaine vaikka "tuntomerkkiin" perusteella nii vois eppäillä! 🤣 31-vuotias Maya ei kykene tekemä442505Riikka Purra rosvosi eläkeläiset!
1900 euron eläkkeestä rosvottiin 350 euroa. Kohtuullista vai? Perussuomalaisia ei enää ole olemassa meille eläkeläisille4782323Suomalaiset marjat loppuvat
Suomalaiset marjat mätänevät metsään, koska ulkomaalaiset, lähinnä thaimaalaiset poimijat ovat huolehtineet suomalaisten2011946- 461653
SDP:n kannatus edelleen kovassa nousussa, ps ja kokoomus putoavat
SDP on noussut Helsingin Sanomien tuoreessa kannatuskyselyssä kokoomuksen ohi Suomen suosituimmaksi puolueeksi. SDP:n ka2861547Ihastuksesi persoonalliset piirteet ulkonäössä?
Onko jotain massasta poikkeavaa? Uskallatko paljastaa? Aloitan; todella kauniit kädet ja sirot sormet miehellä.1061507- 261399