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
Anonyymi
4
146
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
- 1191682
Noniin rakas
Annetaanko pikkuhiljaa jo olla, niin ehkä säilyy vienot hymyt kohdatessa. En edelleenkään halua sulle tai kenellekään mi991498Lasten hyväksikäyttö netissä - Joka 3. nuori on saanut seksuaalisen yhteydenoton pedofiililtä
Järkyttävää! Lapsiin kohdistuva seksuaalinen hyväksikäyttö verkossa on yhä pahempi ongelma. Ulkolinja: Lasten hyväksikäy37953Multa sulle
Pyörit 24/7 mielessä, kuljet mun mukana, mielessä kyselen sun mielipiteitä, vitsailen sulle, olen sydän auki, aitona. M29889Kumpi vetoaa enemmän sinuun
Kaivatun ulkonäkö vai persoonallisuus? Ulkonäössä kasvot vai vartalo? Mikä luonteessa viehättää eniten? Mikä ulkonäössä?38831Nainen, olen tutkinut sinua paljon
Salaisuutesi ei ole minulle salaisuus. Ehkä teimme jonkinlaista vaihtokauppaa kun tutkisimme toisiamme. Meillä oli kumm50796Mies, eihän sulla ole vaimoa tai naisystävää?
Minusta tuntuu jotenkin, että olisit eronnut joskus, vaikka en edes tiedä onko se totta. Jos oletkin oikeasti edelleen s43758Okei nyt mä ymmärrän
Olet siis noin rakastunut, se selittää. Onneksesi tunne on molemminpuolinen 😘56748Olet myös vähän ärsyttävä
Tuntuu, että olet tahallaan nuin vaikeasti tavoiteltava. En tiedä kauanko jaksan tätä näin.37740Onko sulla empatiakykyä?
Etkö tajua yhtään miltä tämä tuntuu minusta? Minä ainakin yritän ymmärtää miltä sinusta voisi tuntua. En usko, että olet37720