Příspěvky uživatele
< návrat zpět
tajne som spoliehal na snaživého elnina :), ale medzitým som to vyriešil, páč som mal náskok :)
Každopádne, díky, ChrW je to tajomstvo, ktoré som nepoznal :)
Tak som to obišiel, proste fí v textboxe ponechám a mením až znaky za fí:
Dim shp As Shape
Set shp = ActiveChart.Shapes("TextBox1")
With shp.TextFrame2.TextRange.Characters
.Text = Left(.Text, 2) & "5"
End With Stačí si o tom chvíľu sám so sebou pohovoriť :)
Ahoj, vedel by niekto, ako do textboxu zapísať pomocou VBA text:
ø 4
kedy znak ø by zostával a menil by som iba hodnotu priemeru, t.j. miesto ø 4 napr. ø 5 atd? Potreboval by som nejaký šikovný kódik, ktorý by to zvládol... Proste, meniť text v textboxe v prílohe...
Ako píšem, prekvapilo ma to, páč by som to chápal tak, že od i typu byte je možné odpočítať hodnotu 1, ktorá je interpretovateľná ako byte. Program ale step chápe ako hodnotu pridávanú ku counteru a chová sa potom zrejme tak, ako popisujete. Dá sa to samozrejme obísť niekoľkými spôsobmi, napr:Sub testik()
Dim i As Byte
For i = 1 To 10
Debug.Print 10 + 1 - i
Next i
End SubNo nič, budem na to musieť akurát pamätať, až tak veľký problém to nie je.
Narazil som na zvláštnosť, ktorú si neviem vysvetliť, totiž, zdá sa, že pri cykle s negatívnym krokom nie je možné deklarovať counter ako datový typ byte:Sub testik()
Dim i As Byte
For i = 1 To 10
Debug.Print i
Next i
End Sub-toto beží
Sub testik()
Dim i As Byte
For i = 10 To 1 Step -1
Debug.Print i
Next i
End Sub-toto, na môj údiv, nefunguje - končí chybou pretečenie pamäte
i musí byť deklarované ako integer:Sub testik()
Dim i As Integer
For i = 10 To 1 Step -1
Debug.Print i
Next i
End Sub
Má niekto vysvetlenie?
@eLCHa: ad Pokud je třeba oprava vzorce, můžete ji provést ve kterémkoliv řádku a vzorce se opraví v celém sloupci
toto je možné v ExcelTable potlačiť, nový vzorec potom môže byť len v konkrétnom riadku a nemusí sa prepísať do celej tabuľky. To by mohla byť príčina problému, na ktorý naráža Alfan. Berte to len ako možnosť, netvrdím, že to tak v tomto konkrétnom prípade je.
Ako xlsx, presne ako píšeš v titulku. Potvrdíš výstražnú hlášku, že ukladáš bez makier. Súbor po uložení zavrieš a znovu otvoríš. Môžeš vidieť, že už v ňom moduly nie sú.
jj, ako som zmienil v inom príspevku, ExcelTables sú fajn, akurát to musím dohodnúť so zadávateľom, pre ktorého to tvorím, či nebude s tabuľkou problém...
díky
@eLCHa, ďakujem krásne. O úskaliach SUMIFS viem, zoznam položiek by sa v mojom prípade meniť nemal. Každopádne, Vaše riešenie je výborné. Síce nemôžem zdrojovú tabuľku previesť na ExcelTable, páč nie som vlastníkom toho spreadsheetu (vlastne, môžem vzniesť dotaz, či by to užívateľovi nevadilo), ale to je detail, s tým už si poradím. Tip s pomocným stĺpcom je každopádne v tomto prípade veľmi cenný. Mal som pocit, že riešenie by mohlo byť cez Calculated Item, ale fakt som nebol schopný sám to dotiahnuť k dokonalosti, takže veľká vďaka!!!
Mám dojem, že som sa v tomto prípade vydal špatným smerom; pod vplyvom toho, že je to časť projektu, na ktorom pracujem, a v ktorom v ostatných dielčích úlohách práve jedinú KT, ktorú postupne programovo modifikujem, používam na tvorbu výsledných tabuliek..
Ďaleko jednoduchšie, než cez kontingenčnú tabuľku, to bude tentokrát zrejme cez rozdiel podielov dvojíc sumifs :) Nakoniec som si to v podstate ku svojej spokojnosti predsa len vyriešil. Keby ale niekto prišiel na elegantné riešenie skrz kontingenčku, rád ho uvidím :)
V liste Data som si pomohol pomocným stĺpcom, výstup som tak do KT schopný dostať v požadovanom tvare - nachádza sa na liste SpomocnymStlpcom. Pokiaľ nikto nepríde na lepšie riešenie, zostanem u tohto, kód na pridanie pomocného stĺpca do zdrojových dát zvládnem napísať rýchlejšie, než eskapády s programovou manipuláciu s pivotkou a medzitabuľkami.
Usporiadanie dát v KT je možné zmeniť, ale ani to môj problém nerieši - pokiaľ by niekto prišiel na riešenie na základe novej verzie, budem rád..
Zdravím, riešim ďalší problém.
Potrebujem zistiť počet hodnôt - zo záznamov, kde hodnota v stĺpci W18 je >0, pre každú značku samostatne zistiť počet týždňov, v ktorých existuje záznam, každý týždeň započítať iba raz, v rozdelení na roky 2014 a 2015. Na liste Pivot vľavo mám kontingenčnú tabuľku, potreboval by som ale výstup, ktorý je na danom liste vpravo, t.j. i v tomto prípade eliminovať medzikrok...
Mal by niekto nápad, čo s tým?
V priloženom súbore som na liste Subopt vytvoril inú verziu KT, bohužiaľ stále sa bez pomocnej tabuľky vpravo nedokážem dobrať kýženého výsledku - dostať čísla (hodnoty 2015 mínus hodnoty 2014) priamo do KT. Posielam len ako inšpiráciu, pokiaľ by niekoho napadlo, čo s tým prípadne ďalej.
Do pôvodného súboru sa mi to nedarilo doplniť, hlásilo mi to opakovane chybu pri uložení, tak som musel vymazať pôvodné listy okrem listu Data. Pokiaľ by niekto otvoril len aktuálnu prílohu, tak opakujem problém, ktorý potrebujem vyriešiť: Priamo v kontingenčnej tabuľke by som rád videl hodnoty, ktoré počítam na liste SubOpt v zelenej tabuľke vpravo. Jedná sa o rozdiely hodnôt za rok 2015 voči 2014.
eLCHa, ďakujem za snahu. Moc ste ma nepotešil, čaká ma teda zrejme písanie dodatočných riadkov kódu, dúfal som, že sa tomu v tomto prípade vyhnem :(. Ale ešte stále dúfam, že na to prípadne niekto iný príde.
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