Příspěvky uživatele
< návrat zpět
oskar napsal/a:
Prosím nemohl bys mi napsat kod. Funkci split neznám. znak odřádkování je ¶. děkuji.
A google znáš?
https://www.google.com/search?client=firefox-b&ei=5UOIW63WKoTTwAKopaz4Aw&q=vba+split+funkce&oq=vba+split+funkce&gs_l=psy-ab.3..0i71k1l8.0.0.0.30681.0.0.0.0.0.0.0.0..0.0....0...1..64.psy-ab..0.0.0....0.hT17XHvxxu4
No v excel 2007 to asi nedám.
A nesnažíš sa nájsť niečo, čo excel nedokáže? Myslíš, že ti za to dajú Nobelovu cenu?
Ono by sa to urobiť dalo, len neviem, či chceš aj niečo v tej bunke vidieť.
A robil si už v exceli najaký graf?
Proste urobíš normálny graf a nastavíš logaritmickú os a klesajúcu.
Bez dát ti to však nikto nebude robiť, aby to presne zodpovedalo tomu obrázku. Možno elninoslov sa na to dá.
Pokiaľ som pochopil zadanie, on už to makro má. Iba ho potrebuje "nastaviť". 
elninoslov napsal/a:
Nemáte to nijako ošetrené na chyby. Trochu som Vám to upravil.Příloha: 41178_elo2.zip (41kB, staženo 1x)
Myslím, že sa darmo snažíš. V šachu bývajú často aj remízy. A ten výpočet ELO je dosť zjednodušený až by som povedal primitívny. Toto je ako štatistika, presné sčítanie nepresných čísel.
No mne Excel2007 nahral makro takto.
Sub Makro2()
ActiveWorkbook.Worksheets("ELO").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ELO").AutoFilter.Sort.SortFields.Add Key:=Range( _
"B2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("ELO").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
žiadne Add2 tam nie je. inak najnovší excel je EXCEL2016. office 365 by som si ani nekupoval.
V ktorej verzii excelu si to vytvoril?
Vysvetlil by si mi, čo znamená to Add2?
ActiveWorkbook.Worksheets("ELO").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
"B2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
Do zlúčených buniek sa nedá zapisovať. Ale je možné tam nechať nejaké hodnoty.
Všimni si rozdiel medzi 1. a 2. riadkom.
Draincz napsal/a:
Děkuji za odpověď ale tento způsob je pomalejší než klasickým zadáváním :(
Hmm... A prečo to teda nezadávaš klasicky?
Možno ti robí problém označovať bunky? SHIFT+klik myškou alebo CTRL+ klik myškou ťa nenaučili? Najvyšší čas ísť na nejaké školenie excelu.
Venali napsal/a:
marjankaj: tak to potom jo, ale zapomněla jsem, že jsem vyměnila ve vzorcích 0 za mezeru, proto mi to nefungovalo. Děkuji.
Ale my sme to nemohli tušiť. Ty môžeš napísať jedno a my si myslíme niečo iné. Preto je dobré dávať tú prílohu. Tam sa to presne ukáže. Aj keď niekedy by bolo dobré vedieť, ako si predstavuješ výstup. Z popisu to vždy nemusí byť jasné.
Ten prvý kód od elninoslov úplne stačil. Ale bez tej prílohy nemohol tušiť, čo porovnávaš.
Sub Tisk()
Dim sOblast As String
With ThisWorkbook.ActiveSheet
sOblast = Replace(WorksheetFunction.Trim("$A$1:$I$95 " & _
IIf(.Range("B96") = "", "A96:I143 ", "") & _
IIf(.Range("B144") = "", "A144:I187 ", "") & _
IIf(.Range("B191") = "", "A191:I232 ", "") & _
IIf(.Range("B238") = "", "A238:I282 ", "")), " ", ",")
.PageSetup.PrintArea = sOblast
.PrintOut Preview:=True
End With
End Sub
alebo v tých vzorčekoch treba vymeniť =IFERROR(MATCH(List2!A1;$B$89:$B$93;0);"")
za
=IFERROR(MATCH(List2!A1;$B$89:$B$93;0);0)
Treba vedieť čo porovnávaš.
@venali
Ale ZIP snáď funguje. Zbaľ to do ZIPu.
A keď to elninoslov nemal možnosť, kde by ten kód overil, tak to je ťažké. Možno to písal z mobilu.
eLCHa napsal/a:
Já poprosím všechny zúčastněné, aby kód vkládali do tagu code - to je to tlačítko $ (dolar)
Kdo to má číst.
Děkuji
@Venali
žádnou urážku jsem nenašel - pokud tam je, specifikujte
Už som to napravil.
Tá "urážka" asi bola na mňa. Ale je to chyba zadávateľky, ak nechápe ako funguje SELECT. Zapíše ich niekoľko za sebou a potom sa diví, že to funguje inak, ako si predstavovala.
Anonym napsal/a:
Upravená verze, snad bude stačit
Toto vyzerá fajn.
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