< návrat zpět

MS Excel


Téma: Počet vybraných buněk rss

Zaslal/a 30.5.2013 14:46

Ahoj,
potřebuji takhle vybarvit několik buněk (určité číslo) a potřeboval bych, aby se někde ukazoval počet vybraných buněk. Na screenu jsem vybral čtverec, ale problém je v tom, že to pak budou nepravidelné tvary (bude to jakoby mapa) a já takhle nechci počítat 500 buněk po jednom, takže bych byl rád, kdyby jsem vždycky nějaký vybral, ukázalo se číslo a už bych hned věděl, kolik jsem jich už vybarvil.
Dá se to nějak udělat? Při nejhorším nějaký vzorec, ale radši bych byl, kdyby to ukazovalo hned.
Nebo by taky šel nějaký script, který by počítal počet buněk s určitou barvou.
Docela to spěchá, díky moc.

Příloha: png13529_excel_problem.png (38kB, staženo 31x)
13529_excel_problem.png
Zaslat odpověď >

Strana:  1 2   další »
#013530
avatar
asi takto:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Selection.Cells.Count
End Sub
citovat
#013531
avatar
a takto keby si chcel len urcitu farbu:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = 0
For Each aCell In Selection
If aCell.Interior.Color = 255 Then x = x + 1
Next
MsgBox x
End Sub
citovat
#013532
avatar
Díky moc, ale do excelu jsem ve VBA nikdy nic nedával, mám verzi 2010, kam mám prosím script vložit? Díky.citovat
#013533
avatar
Už jsem na to přišel, díky moc.citovat
#013534
avatar
1. stlacis alt+f11
2. kliknes "Project - VBA project"
3. tam najdes sheet "hárok" v ktorom mas to čudo :) a vlozis to tamcitovat
#013535
avatar
Nešlo by místo MessageBoxu použít něco lepšího? Jde o to, aby to ukazovalo na pozadí a ne jako dialog. 1citovat
#013536
avatar
skus toto:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = 0
For Each aCell In Selection
If aCell.Interior.Color = 255 Then x = x + 1
Next
Application.StatusBar = "Celkovo: " & Selection.Cells.Count & " Red: " & x
End Sub
citovat
#013537
avatar
Skvělý, přesně StatusBar jsem měl na mysli. Díky moc! 1citovat
#013538
avatar
Jak vlastně zapíšu barvu v RGB? Jak tam zapíšu 3 čísla?citovat
#013539
avatar
Aha.. RGB (x1,x2,x3) 1citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09