Příspěvky uživatele
< návrat zpět
Já zase zjistil, že pro více oblastí je podstatně rychlejší klasické přiřazení Buňka1 = Buňka2 ;-)...
P.
Dalo by se řešit i například tak, že si vytvoříš makro, které by vždy daných pět sešitů při změně ve zdroji znovu vytvořilo (lze navázat třeba na tlačítko). Nemusel bys pak řešit žádná propojení.
Případně lze také využít MS Query (Data / Z jiných zdrojů / Z aplikace Microsoft Query) - vytvořit dotaz, a vždy při otevření souboru jej událostí sešitu přes VBA "Obnovit".
P.
Hádal bych, že jsi použil "Domů / Formátovat jako tabulku", a následně jsi ručně opravil formát. Odpovídalo by to tvé situaci.
Řešením pak je odmazání všech ručně vložených formátů a výběr požadovaného vhodného formátu z nabídky, případně vytvoření formátu vlastního (položka "Nový styl tabulky...").
Bez přílohy ale těžko říct...
P.
Řešení hodně záleží na okolnostech...
Potřebují uživatelé do onoho excelového sešitu na sdíleném disku zapisovat?
Pokud ne, tak jej lze primárně nastavit jenom pro čtení, a v případě potřeby jej např. makrem otevřít pro zápis.
Pokud tam potřebují zapisovat, tak lze zase např. makrem vždy nejdříve ověřit, zda lze soubor otevřít pro zápis, a až dle toho spustit dotaz.
Případně prostě spouštěj dotaz v době, kdy je velká pravděpodobnost, že soubor nebude mít nikdo otevřený. Lze si třeba i např. vytvořit úlohu v Plánovači úloh na otevření sešitu, kde bude nějaké makro vázané právě na událost otevření sešitu. Případně lze načasovat makro na spuštění v určitý čas apod.
P.
K základnímu řešení ti bude stačit klasická funkce KDYŽ a funkce DNES. Od DNES můžeš odečítat nebo přičítat dny, takže se to dá udělat v jedné podmínce KDYŽ.
P.
Ten únor mi tam seděl nejvíce k popisu zadání ;-). Jinak asi zadání nechápu, nebo máš chyby v popisu...
Dává mi smysl dělat sumu vždy od vzniku obchodu ke konci fiskálního roku.
P.
Třeba nějak takto, předpokladem je, že ve sloupci A je začátek měsíce (případně přilož přílohu a znovu popiš):
=SUMIFS($B$3:$M$3;$B$2:$M$2;">="&$A3)
Zapomněl jsi napsat, kdy vám začíná fiskální rok... (Hádám únor?)
Řešením by jinak podle mě mohla být funkce SUMIFS.
P.
Principiálně třeba takto:
Sub Prepis_mezi_sloupci()
Dim i As Integer
For i = 1 To 100
Cells(i, 2).Value = Cells(i, 1).Value
Next i
End SubP.
Například:
What:=Range("K34").ValueP.
Obrázky lze komprimovat i hromadně. Karta Formát / Komprese obrázků + zrušit CheckBox "Použít pouze pro tento obrázek".
P.
Počet listů je omezen prakticky pouze pamětí počítače. Cvičně jsem si jich 1000 makrem přidal, žádný problém ;-). Záleží pak samozřejmě na tom, co konkrétně tam budeš mít. Obrázky doporučuji komprimovat, pak by s tím neměl být problém.
Otázkou je, jak moc přehledné to bude. Nebyl by lepší katalog ve Wordu? Tabulky se tam dají dělat také pěkné :-).
P.
Jednou z možností je převedení na daný formát v události ComboBoxu.
P.
Např.:
Private Sub ComboBox1_Change()
ComboBox1.Value = Application.WorksheetFunction.Text(ComboBox1.Value, "h:mm")
End Sub
Zadej to po buňkách...
P.
Př.:
=PRŮMĚR(NEPŘÍMÝ.ODKAZ("K1");NEPŘÍMÝ.ODKAZ("M1"))
Já bych moc nevymýšlel, a udělal kontingenční tabulku ;-).
Můžeš si dodělat pomocný sloupec dle potřeby (SVYHLEDAT barvu k položce...).
P.
Možností je více, záleží na dalších okolnostech...
Jednou z možností je vytvořit událost listu, která bude hlídat změnu nějakého pole. Nejlépe vybrat takové, které se vždy mění. Při změně pole pak dojde k navýšení čísla.
P.
Př. pro C18 (částka):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$18" Then
Range("F11").Value = Right("000" & _
Left(Range("F11").Value, 3) + 1, 3) _
& "/" & Right(Range("F11").Value, 4)
End If
End Sub
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