Příspěvky uživatele
< návrat zpět
Nedávno jsem řešil něco podobného. Definovat nebo upravit název mi jde jenom formou R1C1. Nevím proč. Text se proto musí sestavit do této podoby. Viz příloha.
něco takového:
Private Sub ComboBox1_Change()
Worksheets(1).Range("H1") = ComboBox1.Text
End Sub
nebo hodnotu plnit do proměnné a dál s tím pracovat.
Já to umím takto: Do buňky B10 napíšu %A1. Vyberu blok buněk B1:B10 a za roh táhnu do B2000. Nahrazením ctrl+h znaku % za = dostanu ty vzorce. Pár tahů, žádné přemýšlení.
Zkuste dát buňce se vzorcem formát Obecný, vzorec znovu potvrdit Enter. Mohlo by to být ono.
O vysvětlené se postaralo pár zdejších kapacit, já s nízkým levelem jen naznačím tu možnost "ako to obísť".
Pomocný sloupec C se vzorcem =WEEKNUM(A4;16), pak stačí obyčejné =SUMIFS(B4:B100;C4:C100;I12).
Nepotřebuju ty dlouhé megavzorce, já vždy hledám tu cestu, kterou umím.
Tam bude důležité použití $ ve vzorci. Skupina 4 buněk bude mít vzorec nasměrovaný na onu klíčovou buňku a formát téhle skupiny se pak kopíruje do řádku.
horax:
horax napsal/a:
Zkouším toto řešení, funguje to tak jak jsem si představoval...
Jenom malá poznámka, uvědomte si, že použití takového makra zruší možnost návratu (Undo) okamžitě po každém provedeném kroku - takže vlastně nadobro. Jestli to není horší než najít kurzor.
edit: tím samozřejmě myslím, že lepší řešení je tím podmíněným formátem
Zpaměti tohle nikdy nenapíšu. Ale jdu na to tak, že vzorec si zkopíruju do schránky, dám nahrávání makra, v rámci toho pak vložím ctrl+v do buňky. V nahraném makru je pak požadovaný zápis.
Myslím, že pro uživatele bude stejně pohodlné, když klikne na tlačítko stejně tak jako klikne na hypert.odkaz. Jde jen o to smířit se s jiným vzhledem.
Vyzkoušej tento kód
Private Sub WorkSheet_Change(ByVal Target As Range)
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("D7:D11"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A7:D11")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
http://wall.cz/index.php?m=topic&id=20896
poslední příloha příspěvku eLCHa
V Excelu 2010 se mi tohle stávalo, když jsem v sešitu zkontroloval nebo odebral osobní údaje (často před posláním přílohy sem na Wall). Jak jednou vyčištění proběhlo, tak hláška otravovala stále. Nemůžu ale poradit, jak se jí zbavit. Ve 2013 už mi to nedělá.
Rozdíl mezi 2010 a 2013 je. Napíšu to laicky: ve 2010 se mi sešity otevíraly vždy ve stejné aplikaci excelu, seskupené do "jednoho okna", ve 2013 se otevírá každý sešit ve svém okně (nevím, za je to jiná session excelu). A proto bude i jiné chování při přepnutí sešitů ve VBA. Toť můj názor na změnu chování maker.
Zda se dá nastavit tak nebo tak, na to tu byly nějaké diskuse, nejspíš kdysi někdo chtěl docílit ve 2010 otevírání každého sešitu v jiné aplikaci excelu.
(Tím jiná aplikace excelu myslím další spuštění exe.souboru na stejném počítači.)
Testoval jsem, Excel 2013, chová se tak jak popisujete. Řešení ale nemám.
edit: Jen mi to připadá, že se neobnovuje grafika toho cílového listu, jezdci se pohybují.
edit2: tak moment, ono to ani nepřepne. Zkuste se přepnout na jiný list, vybrat buňku a zapsat hodnotu.
Po "srovnání excelu" do normálu je text zapsaný v původním listu, ne cílovém.
Stejně bych to asi svedl na nesrovnalosti ve Vašich datech. Testujte na zaslaném souboru, co funguje a co už ne. Datumy: zkopírujte tam třeba kus svého sloupce, hledejte rozdíly, Mall s hvězdičkou, atd.
Uživatelské menu
\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