Extrage luna din graficul GANTT
-
- Mesaje: 63
- Membru din: Mie Dec 12, 2012 9:38 pm
Extrage luna din graficul GANTT
Am un grafic GANTT in coloanele A:M in care activitatile care s edesfasoara (coloana A) sunt marcate in grafic cu o culoare in cele 12 luni (cooanele B:M)
Am nevoie de o formula sau de un cod care sa-mi extraga in coloana O luna sa perioada in care se desfasoara activitatea.
Eu am facut un exemplu asa cum ar trebui sa arate coloana O
Am nevoie de o formula sau de un cod care sa-mi extraga in coloana O luna sa perioada in care se desfasoara activitatea.
Eu am facut un exemplu asa cum ar trebui sa arate coloana O
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: Extrage luna din graficul GANTT
Salut,
Daca in celulele marcate ai pune un spatiu sau un text oarecare(un x , de exemplu) poti folosi functia COUNTA pe domeniul B3:M3.
Altfel, iti trebuie o Functie de tip UDF (definita de utilizator) si nu cred ca merita sa te complici.
Eu as selecta celulele pe care vreau sa le marchez(chiar daca nu sunt adiacente) as tasta un SPACE si apoi cu CTRL+ENTER introduc caracterul in toate odata. In coloana O pun functia COUNTA si gata.
Daca in celulele marcate ai pune un spatiu sau un text oarecare(un x , de exemplu) poti folosi functia COUNTA pe domeniul B3:M3.
Altfel, iti trebuie o Functie de tip UDF (definita de utilizator) si nu cred ca merita sa te complici.
Eu as selecta celulele pe care vreau sa le marchez(chiar daca nu sunt adiacente) as tasta un SPACE si apoi cu CTRL+ENTER introduc caracterul in toate odata. In coloana O pun functia COUNTA si gata.
D. Tanase
MCT, MCTS
MOS Master Instructor
MCT, MCTS
MOS Master Instructor
Re: Extrage luna din graficul GANTT
Nu se doreste numararea lunilor ci listarea lor in forma concatenata.Daca in celulele marcate ai pune un spatiu sau un text oarecare(un x , de exemplu) poti folosi functia COUNTA pe domeniul B3:M3.
Problema ar fi usoara, (daca s-ar pune un "X" in celulele colorate), dar daca se doreste ceva de genul 2-12 sau 2-3, 5, 7, 9-12 atunci formula se complica si ar trebui creat un cod VBA sau o UDF.
"I don’t pretend we have all the answers. But the questions are certainly worth thinking about."
Sir Arthur C. Clarke
Sir Arthur C. Clarke
Re: Extrage luna din graficul GANTT
Buna ziua
@alex.carabat
Daca facem abstractie ca eu nu va pot oferi un macro care sa afiseze informatia exact cum doriti, sugestia mea ar fi sa luati in considerare o varianta in care acel macro sa va afiseze in loc de, sa spunem 1-3, 1;2;3. Din punctul meu de vedere avantajele ar fi:
-se pot face ulterior filtrari de tip "contain" si obtine rapid o lista cu activitatile care au avut implementari intr-o luna de interes sau chiar mai multe.
-cu ajutorul unei coloane suplimentare cu formule se poate afla cate luni a durat implementarea pentru fiecare activitate in parte.
IP
@alex.carabat
Daca facem abstractie ca eu nu va pot oferi un macro care sa afiseze informatia exact cum doriti, sugestia mea ar fi sa luati in considerare o varianta in care acel macro sa va afiseze in loc de, sa spunem 1-3, 1;2;3. Din punctul meu de vedere avantajele ar fi:
-se pot face ulterior filtrari de tip "contain" si obtine rapid o lista cu activitatile care au avut implementari intr-o luna de interes sau chiar mai multe.
-cu ajutorul unei coloane suplimentare cu formule se poate afla cate luni a durat implementarea pentru fiecare activitate in parte.
IP
Re: Extrage luna din graficul GANTT
In acest caz iata si functia UDF care va enumera lunile. Daca doriti plaje de valori( gen 2-7 adica de la 2 la 7), cred ca ne complicam prea mult.
Cod: Selectaţi tot
Function perioada(rng As Range)
Dim cell As Range
For Each cell In rng
If cell.Interior.Color <> 16777215 Then
perioada = Replace(Trim(perioada & " " & (cell.Column - 1)), " ", ",")
End If
Next
End Function
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
D. Tanase
MCT, MCTS
MOS Master Instructor
MCT, MCTS
MOS Master Instructor
Re: Extrage luna din graficul GANTT
In varianta fara "-" (liniute), si cu "," (virgula), intre numere, se poate realiza usor si cu formule.
Spune cam ce ti-ar conveni mai mult. Formula sau UDF?
Spune cam ce ti-ar conveni mai mult. Formula sau UDF?
"I don’t pretend we have all the answers. But the questions are certainly worth thinking about."
Sir Arthur C. Clarke
Sir Arthur C. Clarke
-
- Mesaje: 63
- Membru din: Mie Dec 12, 2012 9:38 pm
Re: Extrage luna din graficul GANTT
Multumesc mult tuturor pentru raspunsuri.
Intradevar, exista mai multe avantaje daca se folosesc virgule sau alte semne intre toate lunile decat daca se folosesc plaje de valori.
Ma voi folosi de aceste avantaje.
Intradevar, exista mai multe avantaje daca se folosesc virgule sau alte semne intre toate lunile decat daca se folosesc plaje de valori.
Ma voi folosi de aceste avantaje.
Re: Extrage luna din graficul GANTT
Buna,
Am reusit pana la urma sa-i dau de cap si sa obtin ce ati dorit initial. Cu o singura conditie, insa.
In celulele colorate sa aveti un text oarecare pe langa culoarea de fundal
Am reusit pana la urma sa-i dau de cap si sa obtin ce ati dorit initial. Cu o singura conditie, insa.
In celulele colorate sa aveti un text oarecare pe langa culoarea de fundal
Cod: Selectaţi tot
Sub luni()
Dim i, j, r, c As Long
Dim adr As Range
Dim k As String
Dim rng As Range
Range("o3:o16").NumberFormat = "@"
For r = 3 To 16
k = ""
Range(Cells(r, 2), Cells(r, 13)).SpecialCells(xlCellTypeConstants, 23).Select
For Each adr In Selection.Areas
i = adr.Columns(1).Column - 1
j = adr.Columns(adr.Columns.Count).Column - 1
If i <> j Then
k = k & " " & i & "-" & j
Else
k = k & " " & i
End If
Next
Cells(r, 15).Value = CStr(Replace(Trim(k), " ", ","))
Next
End Sub
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
D. Tanase
MCT, MCTS
MOS Master Instructor
MCT, MCTS
MOS Master Instructor