Nalezeno 196 výsledků hledání
Přejít na rozšířené vyhledávání
- 24 zář 2013 10:46
- Fórum: Kancelářské balíky
- Téma: Excel - odemknutí všech listů pomocí makra Vyřešeno
- Odpovědi: 8
- Zobrazení: 5052
- Pohlaví:
Re: Excel - odemknutí všech listů pomocí makra Vyřešeno
Pomotal jsi to. Mrkni příležitostně do nápovědy, co dělá a jak se používá volba UserInterfaceOnly. Sub VSEfiltr() Dim PASSWORD As String Dim bSdileno as Boolean PASSWORD = "heslo" With ActiveWorkbook bSdileno = .MultiUserEditing ' Zapamatovat stav pro případnou obnovu If .MultiUserEditing ...
- 23 zář 2013 17:43
- Fórum: Kancelářské balíky
- Téma: Excel - odemknutí všech listů pomocí makra Vyřešeno
- Odpovědi: 8
- Zobrazení: 5052
- Pohlaví:
Re: Excel - odemknutí všech listů pomocí makra Vyřešeno
Použij před svým kódem
Makro poběží, ochrana před uživatelem zůstává. Nastavení platí do zavření sešitu.
Kód: Vybrat vše
For Each List In ActiveWorkbook.Worksheets
List.Protect Password:="Platné heslo", UserInterfaceOnly:=True
Next
Makro poběží, ochrana před uživatelem zůstává. Nastavení platí do zavření sešitu.
- 08 zář 2013 23:49
- Fórum: Kancelářské balíky
- Téma: Hodnota buňky EXCELu, závislá na jejím formátu (té buňky). Vyřešeno
- Odpovědi: 2
- Zobrazení: 316
- Pohlaví:
Re: Hodnota buňky EXCELu, závislá na jejím formátu (té buňky Vyřešeno
Lze:
Function barva(rng As Range) As Long
Application.Volatile
barva = rng.Interior.Color
End Function
Má to ale několik ale: Buňka může mít pár miliónů barev, která je správná červená? Potom změna barvy není změnou z hlediska výpočtu excelu, je nutné funkci přepočítávat ručně.
Function barva(rng As Range) As Long
Application.Volatile
barva = rng.Interior.Color
End Function
Má to ale několik ale: Buňka může mít pár miliónů barev, která je správná červená? Potom změna barvy není změnou z hlediska výpočtu excelu, je nutné funkci přepočítávat ručně.
- 26 srp 2013 01:00
- Fórum: Kancelářské balíky
- Téma: VBA: optimalizace, zrychlení funkcí
- Odpovědi: 7
- Zobrazení: 515
- Pohlaví:
Re: VBA: optimalizace, zrychlení funkcí
Function fnPocetDni(DatumOd As Date, DatumDo As Date, bDen As Byte) As Integer Dim Pocet As Integer Dim dt As Date Dim i As Long Dim svatky As Variant Pocet = (DatumDo - DatumOd) / 7 For dt = dtDatumOd + Pocet * 7 To dtDatumDo 'zda vyhovuje cislo dne If CByte(DatePart("w", dt, vbMonday)) ...
- 24 srp 2013 23:46
- Fórum: Kancelářské balíky
- Téma: VBA: optimalizace, zrychlení funkcí
- Odpovědi: 7
- Zobrazení: 515
- Pohlaví:
Re: VBA: optimalizace, zrychlení funkcí
Proč prolézáš oblast? Snadno spočteš počet dnů mezi datumy (počet týdnů + korekce na začátku a na konci) Stačí tedy spočíst počet vyjímek mezi daty Můžeš prolézt oblast (je jich obvykle málo) nebo můžeš použít např. vzorec: =SUMA(KDYŽ(KDYŽ((A2:A4>=data!A2)*(parametry!A2:A4<=data!B2);DENTÝDNE(paramet...
- 15 srp 2013 13:03
- Fórum: Kancelářské balíky
- Téma: makro vypíše časť textu Vyřešeno
- Odpovědi: 1
- Zobrazení: 258
- Pohlaví:
Re: makro vypíše časť textu Vyřešeno
Musí do být makro? Pokud je to v listu, stačí vzorec.
Public Function xxx(text As String) As String
If Len(text) <= 6 Then
xxx = text
Else
xxx = Mid(text, 3, Len(text) - 6)
End If
End Function
Public Function xxx(text As String) As String
If Len(text) <= 6 Then
xxx = text
Else
xxx = Mid(text, 3, Len(text) - 6)
End If
End Function
- 09 srp 2013 01:57
- Fórum: Kancelářské balíky
- Téma: Excel - problémy s věkem Vyřešeno
- Odpovědi: 3
- Zobrazení: 598
- Pohlaví:
Re: Excel - problémy s věkem Vyřešeno
Třeba =DATEDIF(datum narození;DNES();"y") spočte věk v letech Nebo =YEARFRAC(datum narození;DNES()) vrátí rozdíl v letech (měsíce a dny jsou vráceny jako desetinná část) Pro převod dnů na roky lze použít obě zmíněné funkce, např.: =YEARFRAC(0;dnes()-datum narození) tato metoda ale není úpl...
- 29 črc 2013 20:34
- Fórum: Kancelářské balíky
- Téma: Počet jedinečných výskytů ve filtru seznamu - excel
- Odpovědi: 5
- Zobrazení: 2219
- Pohlaví:
Re: Počet jedinečných výskytů ve filtru seznamu - excel
Zajímavá otázka.
=SUMA(KDYŽ(SUBTOTAL(3;POSUN(A16;ŘÁDEK(A16:A160)-16;0));(1/SOUČIN.MATIC(--(A16:A160=TRANSPOZICE(KDYŽ(SUBTOTAL(3;POSUN(A16;ŘÁDEK(A16:A160)-16;0));A16:A160;"")));SIGN(ŘÁDEK(A16:A160))));0))
ctrl-shift-enter
(vzorce, kterým nerozumím, nepoužívám)
=SUMA(KDYŽ(SUBTOTAL(3;POSUN(A16;ŘÁDEK(A16:A160)-16;0));(1/SOUČIN.MATIC(--(A16:A160=TRANSPOZICE(KDYŽ(SUBTOTAL(3;POSUN(A16;ŘÁDEK(A16:A160)-16;0));A16:A160;"")));SIGN(ŘÁDEK(A16:A160))));0))
ctrl-shift-enter
(vzorce, kterým nerozumím, nepoužívám)
- 01 črc 2013 10:50
- Fórum: Kancelářské balíky
- Téma: VBA Excel 2003 - Method Resresh of object QueryTable failed Vyřešeno
- Odpovědi: 5
- Zobrazení: 1090
- Pohlaví:
Re: VBA Excel 2003 - Method Resresh of object QueryTable fai Vyřešeno
Spíš bych zkusil něco jako:
Ty jména obsahují i jiné údaje, jejich totální výmaz nemusí být nejlepší nápad.
Kód: Vybrat vše
Dim qt As QueryTable
For each qt in ActiveSheet.QueryTables
qt.Delete
Next
Ty jména obsahují i jiné údaje, jejich totální výmaz nemusí být nejlepší nápad.
- 01 črc 2013 09:59
- Fórum: Kancelářské balíky
- Téma: Excel - časové výpočty s grafem
- Odpovědi: 4
- Zobrazení: 584
- Pohlaví:
Re: Excel - časové výpočty s grafem
Průměr hovoru za jeden den v měsíci snadno spočteš pomocí kontingenční tabulky, graf nemá smysl je to jedno číslo. Obecně hláška "chci průměr" je nesmysl. Je nutno vědět více. Jinak průměr = suma, liší se jen měřítko. Pokud výčet tvých dalších představ o grafu měl znamenat, že to mám podle...
- 30 čer 2013 10:56
- Fórum: Kancelářské balíky
- Téma: VBA Excel 2003 - Method Resresh of object QueryTable failed Vyřešeno
- Odpovědi: 5
- Zobrazení: 1090
- Pohlaví:
Re: VBA Excel 2003 - Method Resresh of object QueryTable fai Vyřešeno
Chyba je nejspíš v Set qtProdukt = ActiveSheet.QueryTables.Add( _ Při každém spuštění přidáš jednu tabulku... To by se z toho asi každý po čase zbláznil. Zkus tabulku po vytvoření pojmenovat a při dalším spuštění zkontroluj, jestli ji už nemáš, pokud ano měl by stačit refresh. ps.: Taky můžeš nejpvr...
- 29 čer 2013 12:42
- Fórum: Kancelářské balíky
- Téma: Výkaz pracovní doby
- Odpovědi: 19
- Zobrazení: 1401
- Pohlaví:
Re: Výkaz pracovní doby
nevýhoda formátu [h]:mm je to, že v podmíněném formátování se pak neobjeví zelená barva, v případě, že je buňka rovna hodnotě 40 a ty nové jednodušší vzorce v tom dělají nějakou neplechu Pokud pracujete s časem, tak hodnota 40 znamená 40 dnů. 40 hodin je 1,6666666 Záporné hodnoty jsou počítány chyb...