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

155

    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. Kysymys muille miehille

      Onko teille varattu nainen ongelma? Mikään muu naisessa ei töki kun se että hän on varattu. Kamppailen houkutuksen kanss
      Ikävä
      131
      7182
    2. Kaipaisin nyt kosketusta

      jota ei koskaan ole ollut. Saisinpa tuntea kätesi niskallani ja silittelemässä päätäni. Sulaisin varmasti siihen.
      Ikävä
      14
      2559
    3. Imaami kysyy, miksi pojat uivat ilman valvontaa

      Kalajoen särkät ovat usean kilometrin pituiset. Siellä on kylttejä, joissa varoitetaan rannan vaaroista. Siellä ei ole
      Maailman menoa
      264
      1230
    4. Sokea "ystävälle"

      Oletko oikeasti noin sokea?
      Ikävä
      100
      1019
    5. Mansikkatiloilla hyväksikäytetään ukrainalaisia

      Työolot ovat surkeita ja palkka kelvoton. https://yle.fi/a/74-20172942
      Maailman menoa
      161
      947
    6. En ymmärrä käytöstäsi

      Se on ollut eräänlaista hyväksikäyttöä. Että seura kyllä kelpaa palstan välityksellä silloin kun ei ole parempaakaan tek
      Ikävä
      137
      900
    7. Kerrostaloihin ilmalämpöpumput

      Ulkomailla näkee paljon ilmalämpöpumppuja kerrostalojen ulkoseinissä. Mikä estää taloyhtiötä hankkimasta niitä asuntoih
      Sinkut
      71
      897
    8. Kiitoksia kaikille epäasiallisesta sisällöstä liputtaneille

      Se ylimielisyys ja epäasiallisen julkaisun jakaminen ei sitten kantanut.
      Tuusniemi
      79
      774
    9. Kirkonkylän puliveivarit

      Hieman pistää silmään nuo puliukot ja akat kirkonkylän penkeillä ja S-marketin kulmilla. Tarttis varmaan tehdä asialle j
      Karstula
      13
      733
    10. Persaukinen puolankalainen kävi kerjäämässä paitaa

      Ja lippistä. Nauratti suuresti kun katsoin. Kukahan mahtanee olla? Voipi katsoa täältä jutun. https://www.youtube.com
      Puolanka
      18
      711
    Aihe