Repetare numar dupa culoare_formula
Repetare numar dupa culoare_formula
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.
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.
Re: Repetare numar dupa culoare_formula
Va rog frumos, se poate sa ma ajutati ?
Re: Repetare numar dupa culoare_formula
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
Primul argument al functiei e range-ul unde are loc cautarea, al doilea este celula (de fapt valoarea din celula)
IP
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
IP
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: Repetare numar dupa culoare_formula
Buna
In atașament ai o alta abordare.
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.
Re: Repetare numar dupa culoare_formula
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.
Re: Repetare numar dupa culoare_formula
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)
Trebuie sa o aveti in fisierul dvs. original, iar acel fisier sa poata rula macro (adica sa fie de tip .xls sau .xlsm)
Re: Repetare numar dupa culoare_formula
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.
Re: Repetare numar dupa culoare_formula
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 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.
Re: Repetare numar dupa culoare_formula
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 ,....
Re: Repetare numar dupa culoare_formula
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?
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.