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
155
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
Kysymys muille miehille
Onko teille varattu nainen ongelma? Mikään muu naisessa ei töki kun se että hän on varattu. Kamppailen houkutuksen kanss1317182Kaipaisin nyt kosketusta
jota ei koskaan ole ollut. Saisinpa tuntea kätesi niskallani ja silittelemässä päätäni. Sulaisin varmasti siihen.142559Imaami kysyy, miksi pojat uivat ilman valvontaa
Kalajoen särkät ovat usean kilometrin pituiset. Siellä on kylttejä, joissa varoitetaan rannan vaaroista. Siellä ei ole2641230- 1001019
Mansikkatiloilla hyväksikäytetään ukrainalaisia
Työolot ovat surkeita ja palkka kelvoton. https://yle.fi/a/74-20172942161947En 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 tek137900Kerrostaloihin ilmalämpöpumput
Ulkomailla näkee paljon ilmalämpöpumppuja kerrostalojen ulkoseinissä. Mikä estää taloyhtiötä hankkimasta niitä asuntoih71897Kiitoksia kaikille epäasiallisesta sisällöstä liputtaneille
Se ylimielisyys ja epäasiallisen julkaisun jakaminen ei sitten kantanut.79774Kirkonkylän puliveivarit
Hieman pistää silmään nuo puliukot ja akat kirkonkylän penkeillä ja S-marketin kulmilla. Tarttis varmaan tehdä asialle j13733Persaukinen puolankalainen kävi kerjäämässä paitaa
Ja lippistä. Nauratti suuresti kun katsoin. Kukahan mahtanee olla? Voipi katsoa täältä jutun. https://www.youtube.com18711