xlPatternHorizontal není text ale definovaná konstanta s hodnotou -4128
neřešte to přes proměnnou, řešte rovnou
Cells(1, 2).Interior.Pattern = Cells(1, 1).Interior.Pattern
edit:
už asi rozumím
Hodnota buňky je "xlPatternHorizontal"
Nemůžete do buňky napsat -4128 ?
Jde o to, že když se to vepíše ručně, nefunguje makro, které do sousedního sloupce ukládá datum.
Tohle je to, co mělo být napsáno hned v úvodním příspěvku a ne
Potřeboval bych, aby v těchto buňkách uživatel mohl nastavené hodnoty změnit jen výběrem ze seznamu a ne např. vepsáním hodnoty "ano" do buňky.
Pokud vím, že v buňce můžou být pouze hodnoty ano-ne můžu k uložení původní hodnoty využít vlastní formát
Bude spolehlivější než řešení od Palooo
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 15 Then
If Len(ActiveCell.Value) = 0 Then
Target.Cells(1).Offset(0, 1).ClearContents
Else
If Not Target.Cells(1).NumberFormat = ";;;""" & Target.Cells(1).Value & """" Then
Target.Cells(1).Offset(0, 1).Value = Now
Target.Cells(1).NumberFormat = ";;;""" & Target.Cells(1).Value & """"
End If
End If
End If
End Sub
Tlačítko office -> Možnosti aplikace excel -> Upřesnit -> Možnosti úprav
Odškrtnout Umožnit automatické dokončování hodnoty buněk
Bohužel toto je nastavení aplikace a tak u jiného počítače to může bý nastaveno jinak.
A právě toto chci potlačit, chci, aby se "ano" vyplňovalo jen v případě, když ho uživatel zvolí ze seznamu
Pořád ale nerozumím tomu důvodu, proč je špatně, že to někdo vyplní ručně. Omlouvám se, ale ten důvod potřebuji k tomu, abych se vůbec zamyslel nad tím, že má smysl to vymýšlet.
@bloom
Jaký je rozdíl mezi napsanou možností a vybranou možností?
Napište, co Vás vede k tomuto požadavku. Protože jednoduše nerozumím jeho smyslu.
@Palooo
Vaši odpovědí v souvislosti s dotazem vůbec nerozumím ;)
@AL ;))))
Je možné že nebude, protože jsem to psal z brucha (pravda, nepatří WorksheetFunctions ale WorksheetFunction) - omluva
Jen na vysvětlení - pokud jste to nepochopil vy, tak asi ani ostatní:
a by určitě mělo být v uvozovkách ;))
ve sloupci E hodnotu "a" ve více řádcích
To x a y bych dal diakritikou, ale to tady bohužel nelze, když je to zároveň kód (nebylo myšleno jako proměnná, ale jako náhrada za číslo ;))).
Je pěkné, že jste nám tu vložil ten kód, ale je to k ničemu (mluvím za sebe). Příloha by byla lepší.
Nicméně, tak jak jste to napsal je řešení jednoduché
fce SUMIF (COUNTIF) volaná pomocí VBA
Application.WorksheetFunctions.SumIf(Range("Ex:Ey"),"a", Range("Gx:Gy"))
Ano napadá.
Vyberte oblast, kterou chcete filtrovat.
Vyberte záložku data a na kartě Seřadit a filtrovat aktivujte automatický filtr.
Klikněte na šipku automatického filtru a najeďte na Filtry textu a vyberte neobsahuje.
Vložte ~* (tilda + hvězdička) a dejte OK
Ano, něco na té tabulce nefunguje správně. Momentálně nemám čas hledat příčinu (to co mně rychle napadlo to nebylo ;) ), ale našel jsem řešení.
Využíváte v tom listu převedení oblasti na tabulku, ale nevyužíváte její možnosti. Takže jsem ji zrušil, odstranil všechna formátování v listu včetně podmíněných a vytvořil tabulku znovu. A už to nedělá.
Zobrazil jsem ten skrytý sloupec, přenesl do sloupce J a naformátoval vlastním formátem ";;;". Uložil jako html a google to pochopil. Není to úplně ideální řešení, ale je to další možnost.
edit:
google - myslím chrome samozřejmě ;)
@rinma
Když to řeknu jednoduše - MS si při ukládání do html vymyslel takové kódování, že tomu plně rozumí zase jen produkty MS. Takže pokud to otevřete v IE bude to v pořádku. V Chrome je to vidět.
Zřejmě to potom ukládáte na net. Několik možných řešení:
- zkusit vzorec maticově (vyhnout se skrytému sloupci)
- pomocné sloupce na jiný list
- vytvářet html následovně - označit si oblast, kterou chci uložit jako html. Vybrat pouze viditelné buňky. CTRL+C. Nový sešit. Vložit šířky sloupců. Vložit formáty. Vložit hodnoty. Tento nový list uložit jako HTML
- zkusit nějaký wysiwyg program, do kterého nakopírujete tabulku a on vytvoří html kód (tohle mně teď napadlo, nemám vyzkoušené, ale fungovat by to mohlo)
- napsat si kód, něco jako tady: http://wall.cz/index.php?m=topic&id=19950#post-19971. Má výhodu, že si můžete tabulku nastylovat přesně jak chcete a bude pasovat k webu.
@AL
Skrytým stĺpcom sa osobne vyhýbam, práve z dôvodu, ktorý sa vyskytol tuná - zneprehľadňujú riešenie a i iných, napr. kvôli kopírovaniu. Používam zoskupovanie stĺpcov/riadkov, ikona vizuálne upozorňuje na "skryté" riadky/stĺpce.
Souhlasím - tady jsem ho vložil přímo do tabulky, ale asi by bylo lepší ho vložit mimo. Neřešil jsem to, navíc rinma má tu oblast naformátovanou jako tabulku, takže je to asi lepší - přiznám se, že jsem to ještě nikdy nepoužil, musím se podívat jestli to má nějaké výhody.
Jinak skryté sloupce většinou taky ne a to z důvodů, které jste psal. Raději to dám vedle mimo tisknutelnou oblast a je to vidět. Souhrny (zoskupovanie) bych k tomu nepoužil, protože jsem začínal na monitorech s malým rozlišením a tak se všemu, co mi zmenšuje pracovní prostor, vyhýbám. To víte, starého psa... Ale jinak je to asi praktické a nic proti tomu. Já ty +- stejně vždycky skryju a zobrazím je, jen když je potřebuju ;)))) .
@rinma
za ten skrytý sloupec se trochu omlouvám, měl jsem Vám o něm říct. Ale snad to nevadí, trošku jste potrénoval
@AL
@eLCHa: skutočne pekné
díky ;)
btw několik let jsem na něco podobného používal vlastní funkci a pořád mi to vadilo ;))
to nemůžete vědět - já bych si to kdysi taky myslel a vidíte ;)))
důležité je, jestli tomu rozumíte ;)
Je to to, co jste chtěl?
nevkládejte obrázek, vložte přílohu.
spořič
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.