Seštevanje obarvanih celic

FORCE · Odgovor Napisal/-a **FORCE** » Ne Jul 15, 2007 11:03 pm

Kako v excelu seštevati celice ki jih samo obarvamo s katerokoli barvo.
Recimo ko celico obarvamo piše v neki celici 1 ko obarvamo 2 ali več piše v tisti isti celici 2 ali več.

Odgovor Napisal/-a **admin** » Po Jul 16, 2007 7:48 am

Brez uporabe VBA-ja ne bo šlo. Rešitev pa je podana v sledeči tematiki: http://www.matjazev.net/forum/viewtopic ... t=obarvane

FORCE · Odgovor Napisal/-a **FORCE** » Po Jul 16, 2007 9:40 am

Aha samo jest bi rabu ta mi to šteje v določeni celici... k jest tolk tega excela ne poznam bi te prosu za mal bl podroben opis
Pa tut rabu bi da šteje use barve ne samo rdeče oz. katerokoli.
Hvala

FORCE · Odgovor Napisal/-a **FORCE** » Po Jul 16, 2007 9:46 am

lej jest bi recimo res nujno rabu da recimo v neko celico napišem =countcolors(C6:Q6) in da mi pač potem napiše kolk je obarvanih celic v tem spektru. To mi res zelo nujno rabil.
Hvala za pomoč!

Odgovor Napisal/-a **admin** » Po Jul 16, 2007 3:08 pm

Prosim, da v bodoče pišete v koliko toliko spodobnem slovenskem jeziku, ker je tole vašo spakedrajščino zelo utrudljivo brati. Sicer pa s samim stilom pisanja kažete tudi nek odnos do sodelujočih na tem forumu!

Za rešitev vašega problema, pa boste morali vpisati v zvezek sledeč makro:

Koda: Izberi vse

Function CountColors(ARange)
  Application.Volatile
  
  Dim Celica, Stevec
  
  Stevec = 0
  For Each Celica In ARange
    If Celica.Interior.ColorIndex <> -4142 Then Stevec = Stevec + 1
  Next
  
  CountColors = Stevec
End Function

To kodo prepišite v VBA urejevalnik, ki ga dobite tako, da izberete Orodja/Makro/Urejevalnik za Visual Basic.

FORCE · Odgovor Napisal/-a **FORCE** » Po Jul 16, 2007 8:01 pm

Se opravičujem vendar ko kliknem RunSub/UserForum mi javi sledeče
Compile error
Ambiguous name detected: CountColors

Morda kašen nasvet?

Hvala za pomoč

FORCE · Odgovor Napisal/-a **FORCE** » Po Jul 16, 2007 8:02 pm

Potem pa mi še nekaj javi o Sub Count

Odgovor Napisal/-a **admin** » Po Jul 16, 2007 9:02 pm

UserForm??? Ne, ne... To kodo lepo skopirajte v povsem navaden modul in vse bo OK!

FORCE · Odgovor Napisal/-a **FORCE** » Po Jul 16, 2007 10:39 pm

Na žalost tudi tam ne dela. Očitno sm preveč nesposoben za te zadeve.
Imaš mogoče kašn MSN ali kaj podobnega da bi ti poslal kašno sliko kako to delam ali kaj podobnega

Hvala za nasvet

FORCE · Odgovor Napisal/-a **FORCE** » Po Jul 16, 2007 10:40 pm

Ali pa če se ti da opisat popolen postopek, za kar bi ti bil zelo hvalažen.
Mislim korak za korakom.

Hvala

Odgovor Napisal/-a **admin** » To Jul 17, 2007 7:54 am

Na prloženi povezabi boste našli podrobne korake vnosa makra: http://www.matjazev.net/pnew/index.php? ... atip2.html

FORCE · Odgovor Napisal/-a **FORCE** » To Jul 17, 2007 10:15 am

Kako pa posnamem datoteko?

Odgovor Napisal/-a **admin** » To Jul 17, 2007 10:18 am

Datoteka/Shrani oz. File/Save...

FORCE · Odgovor Napisal/-a **FORCE** » To Jul 17, 2007 10:24 am

No evo sej mi je ratal.
Samo mam pa en zelo nujen problem.
Najprej mormam pobarvati željene kvadratke potem pa vnesti formulo.
Da mi napiše koliko jih je, drugače ne deluje
Oz. bi rabil isti princip delovanja kot seštevanje ko lahko vpisuješ podatke kadarkoli in ti bo v drugi celici še vedno seštevalo.

Hvala za pomoč

Odgovor Napisal/-a **admin** » To Jul 17, 2007 10:29 am

To kar želite je praktično neizvedljivo. Excel gre preračunat formulo takrat, ko se spremeni podatek v katerikoli izmed celic, ki nastopajo v funkciji.

V vašem primeru, pa neki celici samo spremenite barvo ==> Excelu ni potrebno preračunavati ničesar!

Rešitev je preprosto v tem, da stisnete tipko F9, kar Excelu pomeni - Preračunaj!