Gantt-kaavio ongelma

Anonyymi

Olen tehnyt projektia varten gantt-kaavion, tähän tapaan

https://www.youtube.com/watch?v=00s5efQWrgU

Olisiko jollain kaavalla tai makrolla mahdollista saada kaavio pyöritettyä niin, että voisi käsin maalata jonkin ajanjakson ruudukosta ja excel tajuaisi laittaa sen mukaan alku- ja loppupäivät paikoilleen sarakkeisiin d&e (jos esimerkkinä käytetään tuota youtuben videon kaaviota)?

4

65

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Napin taa tämä makro. Maalaa päivät ja paina nappia.

      Sub Button1_Click()
          With Selection
              r = .Row
              c1 = .Column
              c2 = .Column   .Columns.Count - 1
           End With
           Cells(r, "D") = Cells(5, c1)
           Cells(r, "E") = Cells(5, c2)
      End Sub

      • Anonyymi

        Moi, jostain syystä tuolla makrolla se vain poistaa kokonaiskeston solusta, muuta ei tapahdu,


      • Eihän toi makro toimi niinkuin aloittaja pyytelee...
        Liitä nappiin koodi
        aivan pelkistettynä nyt.

        Ton voi helposti tehdä Change tapahtumaan 3 sarakkeelle, jolloin kun lisää projektiin työvaiheen tietoja niin automaattisesti päivittyy kaavion ja ei tartte erikseen klikkailla nappia

        Sub SiirräData()
        'maalaa alue - joko pelkät ajat tai myös projektin vaihe ja hipssa oikea vaihto ehto käyttöön
        'alku ja loppupäivät vaan
        Selection.Copy Range("D6")
        ' projektin vaihe alku ja loppupäivät
        Selection.Copy Range("C6")
        End Sub

        Keep EXCELing
        @Kunde


      • Anonyymi

        Maalataan alue, esim. I6:L6 ja painetaan nappia. Makro muuttaa työn alkamisajan ruudussa D6 ja loppuajan ruudussa E6 solujen I5 ja L6 mukaisiksi. Ruksit ja solujen väritys siirtyy maalatulle alueelle. Tätä ymmärsin sinun haluavan. Kokonaiskesto ei muutu, koska sarakkeessa C ei ole kaavaa.

        Tämä versio muuttaa loppuajan sijaan kestoa. Lisäksi on tarkistus: jos valittuna on laiton alue, ei tehdä mitään.

        Sub Button1_Click()
            With Selection
                r = .Row
                c1 = .Column
                d = .Columns.Count
             End With
             If r < 6 Or c1 < 6 Then
                Exit Sub
             End If
             Cells(r, "D") = Cells(5, c1)
             Cells(r, "C") = d
        End Sub


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

    Luetuimmat keskustelut

    1. Heikki Silvennoinen petti vaimoaan vuosien ajan

      Viiden lapsen isä Heikki kehuu kirjassaan kuinka paljon on pettänyt vaimoaan vuosien varrella.
      Kotimaiset julkkisjuorut
      243
      3839
    2. Miksi ihmeessä nainen seurustelit kanssani joskus

      Olin ruma silloin ja nykyisin vielä rumempi En voi kuin miettiä että miksi Olitko vain rikki edellisestä suhteesta ja ha
      Ikävä
      28
      2298
    3. Taasko se show alkaa

      Koo osottaa taas mieltään
      Ikävä
      24
      2121
    4. Persut nimittivät kummeli-hahmon valtiosihteeriksi!

      Persujen riveistä löytyi taas uusi törkyturpa valtiosihteeriksi! Jutun perusteella järjenjuoksu on kuin sketsihahmolla.
      Perussuomalaiset
      90
      2015
    5. Onko ministeri Juuso epäkelpo ministerin tehtäviensä hoitamiseen?

      Eikö hänellä ole kompetenttia hoitaa sosiaali- ja terveysministetin toimialalle kuuluvia ministerin tehtäviä?
      Perussuomalaiset
      93
      1694
    6. Sakarjan kirjan 6. luku

      Jolla korva on, se kuulkoon. Sain profetian 22.4.2023. Sen sisältö oli seuraava: Suomeen tulee nälänhätä niin, että se
      Profetiat
      24
      1391
    7. Söpö lutunen oot

      Kaipaan aina vaan, vaikkakin sitten yksipuolisesti.
      Ikävä
      8
      1301
    8. Avaa sydämesi mulle

      ❤ ❤❤ Tahdon pelkkää hyvää sulle Sillä ilmeisesti puhumalla Avoimesti välillämme Kaikki taas selviää Kerro kaikki, tahdo
      Ikävä
      36
      1297
    9. Kenen etua Stubb ajaa Euroopassa ilmoittaessaan olevansa enemmän Ruotsalainen

      Tasavallan presidentti Alexander Stubb kertoi ensimmäisellä valtiovierailullaan Ruotsissa, että hän ei ole koskaan tunte
      Maailman menoa
      301
      1228
    10. Elia tulee vielä

      Johannes Kastaja oli Elia, mutta Jeesus sanoi, että Elia tulee vielä. Malakian kirjan profetia Eliasta toteutuu kokonaan
      Helluntailaisuus
      35
      1227
    Aihe