Příspěvky uživatele
< návrat zpět
Určite je chyba v použití set, nepíš set a= a set b=, ale iba a= a b=
Ďalej som to neštudoval...
Premenuj *.csv na *.txt a použi následne inštrukciu:Workbooks.OpenText Filename:=p_path, DataType:=xlDelimited, Semicolon:=True
do toho filename si napíš cestu a názov k tomu *.txt
@eLCha: Vám to "nandal" odborník. Hrdo sa hlásim, že ani ja netuším, čo je spojnica tendru :)
Do Accessu importujem tabuľku z Excelu, v ktorej hodnoty sú v mil. Kč. Tým pádom nemôžem pole v Access definovať ako datový typ Currency ale môžem použiť Single. Potreboval by som ale pevnú desatinnú čiarku a 8 desatinných miest (aby bolo zaokrúhľované na haliere). Napadá ma použiť dotaz, v ktorom by som urobil nasledujúcu konverziu príslušného poľaXYZ naimportovanej tabuľky: =Round(CCur(PoleXYZ*1000000)/1000000;8)
Otázka je: získam tak pevnú desatinnú čiarku?
eLCHa, on ten vzorec maticový nie je, ale je v ňom maticová konštanta, to áno.
Vo VBA to potrebujem pre vyhodnotenie podmienky - ale je to v podstate akademický problém: jedná o to, že sa mi stáva, že napíšem jednoduchý kód If...Then...Else...End If, kde za If je skutočne len nejaká podmienka typu A=1. Potom ale zistím, že potrebujem aby sa časť PRAVDA realizovala i v prípade, že A=2, alebo A=3 a som lenivý to prepísať do podoby Select Case a syntax
If A=1 Or A=2 Or A=3 Then... nemusí byť úplne prehľadná, takže hľadám niečo, čo som sa snažil naznačiť prostredníctvom tej analógie s funkciou vo vzorci.
Ale asi nič jednoduchšie, než Select Case, neexistuje, chcel som si to len s niekým overiť, takže ďakujem za konzultáciu.
ActiveChart.Axes(xlValue, xlSecondary).TickLabels.Font.ColorIndex = 2
mne ale 2 dáva bielu, tak radšej skús nejakú inú hodnotu..
vo vzorci (na liste) môžem napísať:
= KDYŽ(NEBO(OverviewTypeOfData={2;3});"PLATI";"NEPLATI")
je možné analogické použitie maticovej konštanty pre vyhodnotenie podmienky vo VBA, aby som to nemusel zapisovať ako:
If [OverviewTypeOfData] = 2 Or [OverviewTypeOfData] = 3 Then
...kód
[Else]
[...kód]
End If? Proste, pokiaľ má konštanta viacero členov, dá sa to v rámci VBA zapísať nejako jednoduchšie než cez If v ktorom je to spojené cez Or alebo cez Select Case? Skúšal som If WorksheetFunction.Or([OverviewTypeOfData] = 2, 3) Thenale takto to (pochopiteľne) nefunguje, zložené zátvorky to neberie, asi by to chcelo vložiť za = nejaké pole, na to sa práve pýtam, či to nejak ide...
OverviewTypeOfData je pomenovaná oblasť (jedna bunka)
Prostredníctvom Select Case by to vyzeralo takto:Sub MojeMakro()
Select Case [OverviewTypeOfData]
Case 2, 3
..kód
Case Else
[...kód]
End Select
End SubTo je samozrejme spôsob, ktorý mi je známy, chcel by som vedieť, či existuje ešte niečo jednoduchšie, asi blbosť, čo?
@eLCHa - máte pravdu, opäť som sa niečomu priučil a nabudúce, než niečo napíšem, mal by som si asi overiť fakty a neprezentovať len svoje neoverené domnienky, aby som neplácal nezmysly :)
@eLCHa
@opičák
je to chytré riešenie, v prípade súborov, ktoré sa majú používať len pre zobrazovanie dát, nie pre nejaké zmeny (napadajú ma typicky dashboardy - tam to asi použijem..)
ale pokiaľ užívateľ potrebuje zmeny uložiť, tak uvedené nastavenie ho pred zavrením zošitu neupozorní, že v súbore nastali neuložené zmeny, a pokiaľ užívateľ nedá SAVE alebo SAVE AS, tak o neuložené zmeny príde, takže niečo za niečo....
countif je počet výskytov čohosi, za splnenia nejakej podmienky, v tvojom prípade zisťuje počet výskytov hodnoty z bunky v stĺpci C v oblasti buniek v stĺpci M. Používaš nápovedu (F1)? Tam je to totiž napísané:
Funkce COUNTIF spočítá počet buněk v oblasti, které splňují jedno zadané kritérium. Můžete například spočítat všechny buňky začínající určitým písmenem nebo všechny buňky obsahující číslo větší či menší než zadané číslo. Předpokládejme například, že list obsahuje ve sloupci A seznam úkolů a ve sloupci B jména osob přiřazených k jednotlivým úkolům. Pomocí funkce COUNTIF můžete spočítat, kolikrát je ve sloupci B uvedeno jméno určité osoby, a tím určit, kolik úkolů je dané osobě přiřazeno. Příklad:
=COUNTIF(B2:B25;"Petra")
Ty budeš asi pekný vykuk 
Vieš, čo sú primárne kľúče a nevieš, čo je Countif? Tipol by som si, že u väčšiny ostatných bude proces poznania týchto dvoch vecí fungovať v opačnom poradí
Do riadku 2 zapíš=KDYŽ(COUNTIF($M$2:$M$373; C2)>0; "X"; "")a skopíruj dolu. Vzhľadom k tomu, že v prvej tabuľke máš rozsah 24/11/2011-16/3/2012 a v druhej 2/1/2012-31/1/2013 tak počet x nebude odpovedať počtu obchodov. Tých pomocných stĺpcov sa môžeš zbaviť, pokiaľ použiješ maticový vzorec =KDYŽ(SUMA(--($K$2:$K$373&$L$2:$L$373=A2&B2))>0;"X";""),prípadne nematicový:=KDYŽ(SOUČIN.SKALÁRNÍ(--($K$2:$K$373=A2);--($L$2:$L$373=B2))>0;"X";"") eventuálne, pokiaľ máš 2007 a vyšší, použitím COUNTIFS
neriešte to, už som to vyriešil
Výstup ovládacieho prvku formulár rozbaľovacie menu (DropDown) mám naviazaný na bunku pomenovanú ako vystup.
Potreboval by som otestovať, či hodnota v bunke vystup na základe výberu z rozbaľovacieho menu nadobudla nejakú hodnotu (ktorá bude slúžiť ako podmienka pre spustenie nejakej procedúry). Pokiaľ hodnotu bunky vystup mením ručne (editáciou príslušnej bunky), tak zmenu som schopný zachytiť pomocou jednoduchej udalostnej procedúry:Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [vystup] Then MsgBox "Zmena"
End Sub
Tá ale nedetekuje zmenu hodnoty v bunke vystup v prípade, že je menená prostredníctvom uvedeného DropDownu? Dá sa detekovať zmena hodnoty v bunke vyvolaná cez dropdown?
Má to byť buď, ako som napísal ja, t.j.If Sh.CodeName = "Sheet1" And Target.Address = Range("B3").Address
alebo modifikácia toho, čo píše eLCHa:If Sh = Sheet1 And Target.Address = Range("B3").Address Then
eLCHa Ti dal odpoveď, ja len dodám, že z uvedeného dôvodu som v úvode kódu písal:If Sh.CodeName = "Sheet1" And Target.Address = Range("B3").Address
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