Příspěvky uživatele
< návrat zpět
Pardon oprava - modré podbarvení znamená, že produkt byl v katalogu daného období.
Podmíněné formátování tam je chybně duplicitně, opravím to, ale nesouvisí přímo s tím výpočtem na SOUHRNU, tuším, že to asi nebude primární problém těch přepočtů.
Kontingečka by byla řešení, jen nevím, jak zakomponovat to modré podbarvení jako filtr?
veny napsal/a:
Zdravím
dotaz: dle čeho se určuje zda je produkt v prodeji? Nerozumím tomu, že byl produkt prodán a přitom není podbarven (dle Vašeho popisu modře).
Máte tam neskutečné množství podmíněného formátování i opakujícího se. Myslím že ani makra nebudou potřeba pokud se správně nastaví PM a použije kontingenční tabulka nebo PowerQuery. Ta data si vyplňujete sami nebo je to výstup z nějakého programu?
Pro lepší práci by bylo možná vhodné jiné rozložení vstupních údajů.
Ahoj,
byl by prosím schopen mi někdo pomoct s optimalizací přiloženého excelu? Bohužel každá úprava na záložce spouští přepočet, který trvá x vteřin, což ve výsledku několikanásobně prodlužuje dobu práce se souborem.
Popis ve zkratce: na záložce "Vše" se vkládají položky a počty, modře podbarvená pole znamenají, že bylo v prodeji. Na záložce "SOUHRN" se následně vysčítává/průměruje pro dané období dle kategorie.
Předem díky za tipy
Možná místo Row bylo myšleno Column? Každopádně ani s jedním logika není funkční 
.
Nenašla by se nějaká dobrá duše co by na to hodila oko? Jde o vytvoření nové funkce ColorMath, která na záložce souhrn zobrazuje průměr hodnot ze záložky Vše a to na základě podbarvení buňky + typu kategorie.
Současně je celý workbook při jakékoliv změně (i formátování) zalagovaný, přestože je tam zatím pouze zlomek dat pro potřeby testu.
https://webshare.cz/#/group/o2eimoKZz3/
Ahoj,
prosím o radu. Mám následující kód:
Option Explicit
Function ColorMath(InputRange As Range, ReferenceCell As Range, Optional Action As String = "S", Optional Area As String)
Application.Volatile
Dim ReferenceColor As Long
Dim CellCount As Long
Dim Result As Variant
Dim Cell As Range
Action = UCase(Action)
Result = 0
CellCount = 0
ReferenceColor = ReferenceCell.Interior.Color
If Action = "S" Or Action = "A" Then
For Each Cell In InputRange
If Cell.Interior.Color = ReferenceColor And Cell.Offset(0, -11).Value = Area Then
Result = Result + Cell.Value
CellCount = CellCount + 1
End If
Next Cell
End If
If Action = "C" Then
For Each Cell In InputRange
If Cell.Interior.Color = ReferenceColor Then Result = Result + 1
Next Cell
End If
If Action = "A" Then
Result = Result / CellCount
End If
ColorMath = Result
End Function
Kde se odkazuju offsetem na buňku o 11 míst vlevo. Toto nicméně funguje pouze pro jeden sloupec (z různých sloupců se vždy odkazuju do sloupce F). Jakmile se tedy cell změní na jiný, tak je to -12, -13, -14...
Chtěl bych poprosit o radu, jak se odkazovat vždy na buňku na příslušném řádku ve sloupci F bez tohoto nehezkého offsetu.
Předem díky
Uživatelské menu
\nMenu
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.
RSS nejnovější články