Repetare numar dupa culoare_formula

Informatii despre cum se utilizeaza Microsoft Excel 2003. Calcule, Formule, Functii, Tabele pivot, Analiza datelor, etc
anerol
Mesaje: 54
Membru din: Mar Oct 06, 2009 11:00 am
Localitate: Tulcea

Repetare numar dupa culoare_formula

Mesaj de anerol » Vin Ian 27, 2017 3:03 pm

Buna ziua,
Am nevoie de ajutor daca sunteti amabili. Intr-o foaie excel am foarte multe cifre, si unele dintre ele sunt colorate cu galben. Separat am numerele si vreau ca mai jos in dreptul numarului 1 sa imi scrie ca din toata nebunia aia de cate ori numarul 1 marcat cu galben se repeta.
Multumesc mult de ajutor.
Daca am gresit ca am deschis subiect si mai exista, va rog sa ma directionati unde trebuie.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

anerol
Mesaje: 54
Membru din: Mar Oct 06, 2009 11:00 am
Localitate: Tulcea

Re: Repetare numar dupa culoare_formula

Mesaj de anerol » Vin Ian 27, 2017 3:48 pm

Va rog frumos, se poate sa ma ajutati ?

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

Re: Repetare numar dupa culoare_formula

Mesaj de IPP » Vin Ian 27, 2017 4:35 pm

Buna ziua

In fisierul atasat gasiti o functie UDF care contorizeaza dupa valoarea dorita si culoarea galben a fondului celulei (interior.color=65535, daca aveti alta nuanta de galben, nu va functiona)

Am folosit codul

Cod: Selectaţi tot

Public Function CountByValColor(myRange As Range, cRef As Range)

'IPP - 27.01.2017

Dim result
For Each c In myRange
 If c.Value = cRef.Value And c.Interior.Color = 65535 Then
  result = result + 1
 End If
Next c

CountByValColor = result

End Function
Primul argument al functiei e range-ul unde are loc cautarea, al doilea este celula (de fapt valoarea din celula)

IP
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

csaba1960
Moderator
Moderator
Mesaje: 160
Membru din: Mie Feb 02, 2011 4:05 pm
Localitate: Cluj-Napoca

Re: Repetare numar dupa culoare_formula

Mesaj de csaba1960 » Vin Ian 27, 2017 5:00 pm

Buna

In atașament ai o alta abordare.

Cod: Selectaţi tot

Sub cautgalben()
Dim nH As Integer, nV As Integer, i As Integer, j As Integer, raNd As Integer
Dim k1 As Integer, k As Integer
Application.ScreenUpdating = False
nH = 41: nV = 20: raNd = 22: k1 = 0
For k = 1 To nH - 1
    For i = 1 To nV: For j = 1 To nH
        If Cells(i, j) = Cells(raNd, k) And Cells(i, j).Interior.Color = 65535 Then k1 = k1 + 1
    Next: Next
Cells(raNd + 1, k) = k1: k1 = 0:
    For i = 1 To nV: For j = 1 To nH
        If Cells(i, j) = Cells(raNd + 2, k) And Cells(i, j).Interior.Color = 65535 Then k1 = k1 + 1
    Next: Next
Cells(raNd + 3, k) = k1: k1 = 0:
Next
Application.ScreenUpdating = True
End Sub
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

anerol
Mesaje: 54
Membru din: Mar Oct 06, 2009 11:00 am
Localitate: Tulcea

Re: Repetare numar dupa culoare_formula

Mesaj de anerol » Vin Ian 27, 2017 5:04 pm

Mda, este foarte ok, numai ca am incercat in fisierul original si nu merge. Ceea ce nu am inteles ! Acel cod de care spuneti, l-ati trecut undeva ? Deoarece eu sincer in casuta am folosit doar formula de sub numere si nu mi-a iesit.

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

Re: Repetare numar dupa culoare_formula

Mesaj de IPP » Vin Ian 27, 2017 5:07 pm

Functia (asa cum este si inserata in mesajul meu de mai sus) este plasata in editorul macro, intr-un modul. (eventual in fisierul cu fisierul meu deschis apasati Alt+F11 si cautati in Module 1)

Trebuie sa o aveti in fisierul dvs. original, iar acel fisier sa poata rula macro (adica sa fie de tip .xls sau .xlsm)

anerol
Mesaje: 54
Membru din: Mar Oct 06, 2009 11:00 am
Localitate: Tulcea

Re: Repetare numar dupa culoare_formula

Mesaj de anerol » Vin Ian 27, 2017 5:12 pm

Pfffff, :(, nu stiu ce si cum sa procedez, sunt pe dinafara de ceea ce spuneti si nu stiu cum sa fac ( dar bine ca vreau :( ).Daca fisierul il mut pe un alt laptop , asta inseamna ca nu imi mai recunoaste formula din cauza galbenului ? Este mai simplu daca as colora cifrele decat casutele ?
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

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

Re: Repetare numar dupa culoare_formula

Mesaj de IPP » Vin Ian 27, 2017 5:19 pm

Daca fisierul care contine functia e mutat pe alt laptop nu va fi nicio problema (atat timp cat fondul galben nu va avea alte nuante fata de ceea ce stie functia respectiva). Asadar functia trebuie sa fie in fisierul in care va fi folosita

Nu este mai simplu sa colorati cifrele. Ceea ce doriti nu se poate face fara cod macro, cel putin in versiunile de excel de pana acum

Asadar:
-deschideti fisierul in care vreti sa folositi functia
-apasati alt+F11 pentru a deschide editorul macro;
-in partea stanga a editorului, trebuie sa inserati un modul. Pentru asta click dreapta pe o denumire (oricare poate fi Sheet1(Foaie1) de ex) si din meniul contextual alegeti Insert, Modul
-dublu clic pe eticheta Modul1 (pe care tocmai l-ati creat) si in partea dreapta puneti codul (functia udf) primita

-folositi functia in fisierul dvs.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

anerol
Mesaje: 54
Membru din: Mar Oct 06, 2009 11:00 am
Localitate: Tulcea

Re: Repetare numar dupa culoare_formula

Mesaj de anerol » Vin Ian 27, 2017 5:30 pm

Am facut tot exact si nu merge, dar acel cod de galben presupun ca trebuie sa il schimb.La mine unde arata numarul ? Sincer nu stiu ce sa fac sa rezolv, pot sa pun poze ca am urmat toti pasii dar ,....

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

Re: Repetare numar dupa culoare_formula

Mesaj de IPP » Vin Ian 27, 2017 5:32 pm

Am pus codul in fisierul dvs. numere.xls

atasez si poza cu faptul ca la mine functioneaza

Daca deschideti fisierul acesta, ce rezultate returneaza formulele?
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

Scrie răspuns

Înapoi la “Intrebari despre Excel 2003”