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

58

    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. Haluaisitko nähdä

      Hänet alastomana?
      Ikävä
      67
      3079
    2. Hilirimpsistä

      Hyvää huomenta ja kivaa päivää. Ilmat viilenee. Niin myös tunteet. 🧊☕✨🍁❤️
      Ikävä
      200
      2771
    3. Nainen lopeta pakoon luikkiminen?

      Elämä ei oo peli 😔😟
      Ikävä
      22
      2568
    4. Älä elättele

      Toiveita enää. Ihan turhaa. Sotku mikä sotku.
      Ikävä
      49
      2558
    5. Olet täällä. Mutta ei minulle.

      Nyt olen tästä 100% varma. Satuttaa. T: V
      Ikävä
      20
      2436
    6. Kuule rakas...

      Kerrohan minulle lempivärisi niin osaan jatkaa yhtä projektia? Arvaan jo melkein kyllä toki. Olethan sinä aina niin tyyl
      Ikävä
      41
      2285
    7. Miten hitsissä ulosoton asiakas?

      On tää maailma kumma, tässä haisee suuri kusetus ja ennennäkemättömän törkeä *huijaus*! Miten to.monen kieroilu on edez
      Kotimaiset julkkisjuorut
      210
      1703
    8. Törmättiin tänään

      enkä taaskaan osannut reagoida fiksusti. Menen aina lukkoon. Yksi asia on varma: tunteeni sinua kohtaan ovat edelleen v
      Ikävä
      24
      1657
    9. Vieläkö sä

      Rakastat mua?❤️😔
      Ikävä
      36
      1496
    10. Dear mies,

      Hymyiletkö ujosti, koska näet minut? 😌
      Ikävä
      18
      1362
    Aihe