Extrage luna din graficul GANTT

Ce este nou in Microsoft Excel 2016?
Informatii despre cum se utilizeaza Microsoft Excel 2016
Calcule, Formule, Functii, Tabele pivot, Analiza datelor, etc
alex.carabat
Mesaje: 63
Membru din: Mie Dec 12, 2012 9:38 pm

Extrage luna din graficul GANTT

Mesaj de alex.carabat » Joi Noi 08, 2018 12:29 pm

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
GANTT.xlsx
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

DR.ACCESS
Moderator
Moderator
Mesaje: 300
Membru din: Lun Sep 05, 2011 5:06 pm

Re: Extrage luna din graficul GANTT

Mesaj de DR.ACCESS » Vin Noi 09, 2018 9:43 am

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.
D. Tanase
MCT, MCTS
MOS Master Instructor

Indigo-99
Mesaje: 60
Membru din: Dum Sep 02, 2018 8:21 am

Re: Extrage luna din graficul GANTT

Mesaj de Indigo-99 » Vin Noi 09, 2018 11:51 am

Daca in celulele marcate ai pune un spatiu sau un text oarecare(un x , de exemplu) poti folosi functia COUNTA pe domeniul B3:M3.
Nu se doreste numararea lunilor ci listarea lor in forma concatenata.
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

IPP
Moderator
Moderator
Mesaje: 4196
Membru din: Mie Iul 29, 2009 7:26 am
Localitate: Cluj-Napoca

Re: Extrage luna din graficul GANTT

Mesaj de IPP » Vin Noi 09, 2018 4:18 pm

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

DR.ACCESS
Moderator
Moderator
Mesaje: 300
Membru din: Lun Sep 05, 2011 5:06 pm

Re: Extrage luna din graficul GANTT

Mesaj de DR.ACCESS » Vin Noi 09, 2018 5:15 pm

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

Indigo-99
Mesaje: 60
Membru din: Dum Sep 02, 2018 8:21 am

Re: Extrage luna din graficul GANTT

Mesaj de Indigo-99 » Vin Noi 09, 2018 5:37 pm

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?
"I don’t pretend we have all the answers. But the questions are certainly worth thinking about."
Sir Arthur C. Clarke

alex.carabat
Mesaje: 63
Membru din: Mie Dec 12, 2012 9:38 pm

Re: Extrage luna din graficul GANTT

Mesaj de alex.carabat » Mar Noi 13, 2018 10:24 pm

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.

DR.ACCESS
Moderator
Moderator
Mesaje: 300
Membru din: Lun Sep 05, 2011 5:06 pm

Re: Extrage luna din graficul GANTT

Mesaj de DR.ACCESS » Joi Noi 15, 2018 9:49 pm

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

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

Scrie răspuns

Înapoi la “Intrebari despre Excel 2016”