Příspěvky uživatele
< návrat zpět
Ani toto?
If xAddress = Range("List1!AA1") Then
Zožeň si myš aj s pravým tlačítkom.
Pravým tlačítkom myši klikneš na tvoje tlačítko, vyberieš priradiť makro a navrchu je uvedené, ktoré makro je tvojmu tlačítku priradené.
Martinxlsm napsal/a:
..... Abychom ale jen neteoretizovali, tak přikládám funkční kód, pro ty středníky:......
No keď je to funkčné, tak čo tu stále riešiš? Potrebuješ sa pochváliť alebo čo?
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š.
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