Puhdistus roskista

Lähes oikeat liikennevalot

Lähdin haastamaan itseni, ideana toteuttaa yksinkertaiset liikennevalot Excelillä vain kaavariviä käyttäen. Liikennevaloristeys olisi yksinkertaisimmillaan neljän tien risteys, eli plus-mallinen risteys ja yhdet ajokaistat molempiin suuntiin. Lisäsin ekstrahaasteeksi suojatiet ja jalankukijoille omat valot. Tässä mallinnuksessa autot ajavat siis vain suoraan, mikä helpotti luonnollisesti toteutusta. Liikennevalot sain toteutettua yllättävän yksinkertaisella JOS-ehdolla, jossa vertaillaan B20-solun numeroarvon muuttumista suhteessa pysyvään C20-solun numeroarvoon. Muuttuvia numeroina käytin yksinkertaisesti lukuja 1, 2, ja 3 ja pysyvä luku solussa C20 oli numero 2. Alla ensimmäisen "liikennevalo-opasteen" kaava, josta oli helppo kopioida ja muuttaa muut liikennevalo-opasteet toimiviksi ja loogisiksi suhteessa muihin opasteisiin. Ensimmäisen valo-opasteen kaavat: =JOS(B20>C20;"PUNAINEN";"") =JOS(B20<C20;"KELTAINEN";"") =JOS(B20=C20;"VIHREÄ";"") -näistä oli helppo sitten toteuttaa muut valot, jopa jalankukijoiden valot (vain punainen ja vihreä). Nämä liikennevalot ovat siis vain yksinkertaiset valot, jossa ei ollut ajatuksena saada mitään vilkkuvia tai oikeankaltaisia valoja. Silti jotain puuttuu.. valojen värit. Hieman Googletettua aihetta selvisi, että ehdollisella muotoilulla saisi (ehkä) valoihin värit, eli punainen, keltainen ja vihreä. Kätevää olisi, jos itse kaavaan voisi lisätä esim. "PUNAINEN":n tilalle jokin punaisen värikoodi.. mutta tämä ei taida olla mahdollista. Vaihtoehdoksi taitaa jäädä ehdollinen muotoilu ja VB-koodi, jota en tässä projektissa lähtisi käyttämään, vaan ajatuksena oppia käyttämään ehdollista muotoilua. Olisiko jollain kärsivällisyyttä esittää ns. rautalankamalli ehdollisesta muotoilusta tähän projektiin! Sen verran pääsin jyvälle ehdollisesta muotoilusta, että pitäisi kaavan avulla kertoa, mitkä solut muotoillaan, eli: Ehdollinen muotoilu - Uusi sääntö - Määritä kaavan avulla, mitkä solut muotoillaan. Tähän asti pääsin, mutta sitten kokeiluni tyssäsivät. Onko mahdollista edes ehdollisella muotoilulla tuottaa soluun, jossa on siis kaava -mitään väriä, vai pitääkö solun olla ns. tyhjä, johon väriä halutaan? Pitkä sepustus, mutta olisin kiitollinen jelpistä!

Excel hakutoiminto välilehden taulusta InputB:llä

Olen tekemässä hakutoimintoa listaan, jossa yli 2000 riviä, 5 saraketta. Haluaan saada hakutoiminnon Inbox Makron Inbox hakua toiminnolla. Mulla on koodi , jota työstän: Sub tapahtumahaku() Dim menotapahtuma As ListObject Dim etsinta_alue As Range Dim solu As Range Dim riviosuma As Variant Dim hakutieto As String ' Asetetaan tietokannaksi/tietoalueeksi Loki-välilehden kavijaloki -taulukko >>>Set menotapahtuma = Sheets("Menotapahtumat").ListObjects("menolista") { HUOM! TÄSSÄ KOHDASSA HERJAA JOTAIN. MUTTA MITÄ? ' Asetetaan tietojen hakualueeksi menotapahtuma-taulukon eka sarake eli Päivä -sarake Set etsinta_alue = menotapahtuma.ListColumns(1).Range hakutieto = InputBox("Päivämäärä?", "Hae päivämäärällä") 'Käydään etsintä alueen solut läpi For Each solu In etsinta_alue 'tutkikaan vastaako hakutieto solun sisältöä If hakutieto = solu Then ' Selvitetään löydetyn solun rivinumero kavijaloki-taulukossa valitturivi = solu.Row - 1 ' Valitaaan rivi, josta etsittävä tieto löytyi menotapahtuma.ListRows(valitturivi).Range.Select End If Next solu End Sub

Vpn ja sähköpostit

Haittaako vpn sähköpostin käyttöä ?