Aukioloaikojen syöttäminen

Anonyymi

Onko Excelillä mahdollista ratkaista seuraava asia:

Oletuksena työkirjasta löytyy taulukko aukioloajalle 8-16. Jos käyttäjä tarvitseekin aukioloajaksi vain 8-14 ja syöttää tämän tiedon johonkin tietokenttään, kellonaikasarakkeet 14 ja 15 joko poistettaisiin tai sitten niihin soluihin ei voisi kirjoittaa mitään. Eli taulukko muokkaantuisi käyttäjän määrittelemän kellonajan mukaan?

3

121

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Onnistuu kyllä, mutta suosittelen silti lopettamaan ne ruokalähettihommat ja menemään oikeisiin palkkatöihin.

    • Anonyymi

      Tehdään pieni esimerkki:

      Lets leikitään että sinulla on solussa A2 aukiolo.
      Solu on tekstimuotoiltu ja sisältää arvon '8-16
      Soluissa E2-E9 on tuntinumerot 8, 9, 10,..., 14, 15
      Maalataan alue E8:E9 -> Ehdollinen muotoilu/Uusi sääntö
      Määritä kaavan avulla mitkä solut muotoillaan
      Muotoile arvot joissa tämä kaava on tosi ->
      =$A$2="8-14"
      Muotoile -> Fontti/Väri (valkoinen) -> OK
      Solun teksti muunnetaan valkoisessa solussa valkoiseksi
      mikä ihmisen silmässä on sama kuin näkymätön.

      Testataan kaavan toimivuutta muuttamalla solussa A2 olevaa
      aukioloa '8-16 muotoon '8-14.

      E-sarakkeen tunnit 14 ja 15 piiloutuu soluissa E8 ja E9.

    • Anonyymi

      Tämä ko. sivun moduliin:

      Private Sub Worksheet_Change(ByVal Target As Range)
          aukiolo = "$B$1"  ' solu, johon aukioloaika kirjoitetaan
          sarakkeet = "C:Z" ' mahdolliset tuntisarakkeet
          aamu = 6          ' ensimmäisen sarakkeen aika
          
      On Error GoTo Loppu:
          Application.EnableEvents = False
          Dim auki() As String
          If Target.Address = aukiolo And Target.Count = 1 Then
              auki = Split(Range(aukiolo), "-")
              a = aamu
              For Each sarake In Columns(sarakkeet)
                  sarake.EntireColumn.Hidden = (a < CInt(auki(0)) Or a >= CInt(auki(1)))
                  a = a   1
                  s = sarake.Column
              Next
          End If

      Loppu:
          Application.EnableEvents = True
      End Sub

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

    Luetuimmat keskustelut

    1. Niin surullinen

      onnettomuus taas. Voimia ihan kaikille läheisille,kavereille ja kouluun 🙏
      Lapua
      192
      4764
    2. MIksi suurin osa persuista on alkoholisteja?

      Tätä jäin pohdiskelemaan....
      Maailman menoa
      38
      3331
    3. 31
      2844
    4. Kehutaan vaihteeksi Perussuomalaisia

      Perussuomalaiset ovat olleet melkoisen lokakampanjoinnin kohteena, vaikka ovat saaneet paljon hyvää aikaiseksi. Nyt on
      Maailman menoa
      141
      2758
    5. Paloautoko se oli kolarissa Juntusrannan risteyksessä?

      Oli kuva paloautosta nettijutussa.
      Suomussalmi
      25
      2388
    6. SDP ylivoimainen ykkönen

      En ole koskaan viitsinyt käydä äänestämässä, mutta nyt SDP:n etumatka on niin kutkuttava, että pakkohan se on vaivautua.
      Maailman menoa
      68
      2257
    7. Tiesitkö? Johannes Brotheruksen ex-isäpuoli on kuin onkin Mikko Kuustonen - Tästä on kyse!

      Tiesitkö? Ja hehän on kuin kaksi marjaa... Johannes Brotherus on KUUMAA-yhtyeen jäsen ja tänä syksynä mukana Vain elämää
      Suomalaiset julkkikset
      19
      2058
    8. Mitä tapahtuu?

      Mitä säpäkän risteyksessä on tapahtunut kun poliiseja, ambulansseja ja kopteri paikalla?
      Outokumpu
      31
      1790
    9. Roiskeläpät takaisin niin alkaa lasit kestämään

      "Tuulilaseja hajottava talvi-ilmiö on ehkä ratkennut" Tämän päivän autoissa kun on esimerkiksi vanhempaa autokalustoa s
      Yleistä autoilusta
      39
      1735
    10. Polttomoottoriauto on köyhän merkki

      Kun ei ole varaa ostaa sähköautoa, niin joutuu köyhän autoa käyttämään.
      Maailman menoa
      80
      1404
    Aihe