13529_excel_problem.png
asi takto:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Selection.Cells.Count
End Subcitovat
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Selection.Cells.Count
End Subcitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Počet vybraných buněk
MS Excel
Téma: Počet vybraných buněk 
Zaslal/a Kuba5 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.
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 Subcitovat
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 Subcitovat
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
1. stlacis alt+f11
2. kliknes "Project - VBA project"
3. tam najdes sheet "hárok" v ktorom mas to čudo :) a vlozis to tamcitovat
2. kliknes "Project - VBA project"
3. tam najdes sheet "hárok" v ktorom mas to čudo :) a vlozis to tamcitovat
Nešlo by místo MessageBoxu použít něco lepšího? Jde o to, aby to ukazovalo na pozadí a ne jako dialog. 
citovat
citovatskus 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 Subcitovat
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 Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články