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)?
Gantt-kaavio ongelma
4
89
Vastaukset
- 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
Kuvat! Dannyyn liitetty Helmi Loukasmäki, 22, on puhjennut naisena kukkaan - Some sekoaa: "Sä..."
Ooo, kaunis aikuinen nainen Helmistä on kasvanut siinä yli 80-vuotiaan Dannyn rinnalla! Katso uudet kuvat: https://ww563963- 472781
Suodatinpussin kastelemalla saa parempaa kahvia
Kokeilin niksiä ja kyllä tämä kahvi on parempaa nyt. Ei lainkaan maistu paperiselta. Huljuttelee hanan alla suppiloa pap1322082Tidätkö nainen
että suoraan sanottuna v.tut.aa että pääsit näin lähelle minua. Ei olisi oikeasti aikaa tähän mutta silti aina välillä o1051816Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.581258Onkohan sinulla kaikki hyvin?
Nyt vähän sellainen outo tunne tuli. Sinun asiasi niin ei minulle toki tarvitse kertoa. Kunhan mietin...381157- 1731046
En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois84996Huikeeta, mahtavaa, ihan mielettömän upeeta
Me ostettiin talo Espanjasta. Tosin saadaan käyttää sitä vain muutama viikko vuodessa kun on monta muutakin ostajaa! M181985Oho! Arja Koriseva paljastaa TTK:n ekasta suorasta lähetyksestä: "On vähän ärsyttävä yhtälö!"
Upea Arja Koriseva! Tsemppiä haasteelliseen tilanteeseen! Lue lisää: https://www.suomi24.fi/viihde/oho-arja-koriseva-15947