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

60

    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. Kuka maksaa Elokapinan töhrinnän?

      Vieläkö tukevat Elokapinan toimintaa mm. Aki Kaurismäki, Sofi Oksanen, Paleface, Koneen Säätiö ym. ? Kenen kukkarosta ot
      Maailman menoa
      574
      3814
    2. Muuttaisiko viesti mitään

      Haluaisin laittaa viestin, mutta muuttaisiko se mitään. Oletko yhä yhtä ehdoton vai valmis kyseenalaistamaan asenteesi j
      Ikävä
      48
      3298
    3. Jos sinulla kiinnostaisi

      Nyt, miten antaisit minun ymmärtää sen?
      Ikävä
      38
      2781
    4. Valpuri Nykänen elokapina

      Aikas kiihkomielinen nainen kun mtv:n uutiset haastatteli. Tuollaisiako ne kaikki on.
      Maailman menoa
      66
      2719
    5. Oon vähän ihastunut suhun nainen

      Vaikka toisin jokin aika sitten väitin mutta saat mut haluamaan olemaan parempi ihminen :)
      Ikävä
      19
      2114
    6. Jospa me nähtäisiin

      Sinne suuntaan menossa🤣
      Ikävä
      32
      2071
    7. Se että tavattiin

      Hyvin arkisissa olosuhteissa oli hyvä asia. Olimme molemmat lähestulkoon aina sitä mitä oikeasti olemme. Tietysti pieni
      Ikävä
      12
      1917
    8. Elämä jatkuu

      Onneksi ilman sinua
      Ikävä
      29
      1835
    9. Oot pala mun sielua

      Jos toivot, että lähden mä lähden. Jos toivot, että jään mä jään. Koen, että olet mun sielunkumppani, mutta lämmöllä my
      Ikävä
      17
      1770
    10. Hei T........

      Ajattelin kertoa että edelleen välillä käyt mielessä.... En ole unohtanut sinua, enkä varmasti ikinä... Vaikka on kulunu
      Suhteet
      47
      1729
    Aihe