Naskenujte si vzor - připravte si to a tiskněte na čistý papír.
Ano, Odebrat duplicity nebo Odebrat stejné ve 2007, jak napsal Poki
Jenže zapomněl napsat - vezměte myš, táhněte ji pomalu nahoru, moment, to už je moc, trochu dolu, teď doprava - tak je to správně.. Tady klikněte, tady - ne tady ne - znova ....
Vložil jsem to sem.
http://elcha-en.blogspot.com/2015/02/richtextbox-in-excel_2.html
Bohužel jsem teď s časem na tom špatně, takže víc se asi nerozepíšu. Myslím, že jste šikovný a pochopíte ;)
Třeba to postačí ;))
Nevím, jestli toto lze pouze nastínit...
Umístil jsem na http://elcha-en.blogspot.com/p/downloads.html soubor classic.xlsx. Slouží sice pro badminton, ale možná by se dal využit i pro Vás.
jednorozměrné pole do oblasti dostanete pomocí Application.Transpose
VyzkoušejteSub test()
Dim iArray(20) As Integer
Dim i As Long
For i = 0 To 20
iArray(i) = i
Next i
Cells(1, 1).Resize(UBound(iArray) + 1).Value = Application.Transpose(iArray)
Cells(1, 3).Resize(1, UBound(iArray) + 1).Value = Application.Transpose(Application.Transpose(iArray))
End Suba pochopíte
Pokud má někdo rád zajímavé (nebo aspoň netradiční) řešení jako já - tak mně napadlo využít funkci HODNOTA.NA.TEXT=HODNOTA.NA.TEXT(B6-C6;"[>500]""NO"";[<0]"""";""OK""")=TEXT(B6-C6,"[>500]""NO"";[<0]"""";""OK""")je to poněkud kratší zápis (a mně přijde i přehlednější) ;))
Stejně tak seznam položek, pokud bychom ho nechtěli dát do oblasti, lze zkontrolovat takto=COUNTIF($B$2;{"PPZ";"OSVC";"ELKP"})>0Je ovšem zajímavé, že i když mi tento výraz vrátí hodnotu PRAVDA, takA(COUNTIF($B$2;{"PPZ";"OSVC";"ELKP"})>0;PRAVDA)vrací špatně NEPRAVDA (mno, asi nemůžu chtít všechno ;))) ).
Celý vzorec pro tento případ=KDYŽ(NEBO(B6="";C6="");"";KDYŽ(COUNTIF($B$2;{"PPZ";"OSVC";"ELKP"})>0;HODNOTA.NA.TEXT(B6-C6;"[>500]""NO"";[<0]"""";""OK""");""))=IF(OR(B6="",C6=""),"",IF(COUNTIF($B$2,{"PPZ","OSVC","ELKP"})>0,TEXT(B6-C6,"[>500]""NO"";[<0]"""";""OK"""),""))
Takže se zápisem 22 16 774 neudělám formátem buňky vůbec nic.
Uděláte. Označte data, kde to nefunguje, stiskněte CTRL+H
Do Najít vložte 1 mezeru
Do Nahradit nedávejte nic (pokud tam něco máte, tak to vymažte) a dejte Nahradit vše.
@marjankaj
Ale na takéto meno to nefunguje
Prof. Ing. Ladislav Lábus DrSc.
=PROČISTIT(IFERROR(ČÁST(A1;NAJÍT(".";A1;IFERROR(HLEDAT(".*.";A1);0)+1)+1;1000);A1))=TRIM(IFERROR(MID(A1,FIND(".",A1,IFERROR(SEARCH(".*.",A1),0)+1)+1,1000),A1))Ale nenuťte mně prosím řešit
Prof. Dr. Ing. Ladislav Lábus ;)))
Edit - celý vzorec
=ZLEVA(PROČISTIT(IFERROR(ČÁST(A1;NAJÍT(".";A1;IFERROR(HLEDAT(".*.";A1);0)+1)+1;1000);A1));NAJÍT(" ";PROČISTIT(IFERROR(ČÁST(A1;NAJÍT(".";A1;IFERROR(HLEDAT(".*.";A1);0)+1)+1;1000);A1))))=LEFT(TRIM(IFERROR(MID(A1,FIND(".",A1,IFERROR(SEARCH(".*.",A1),0)+1)+1,1000),A1)),FIND(" ",TRIM(IFERROR(MID(A1,FIND(".",A1,IFERROR(SEARCH(".*.",A1),0)+1)+1,1000),A1))))
@AL
aha - tak já řešil zadání ;)
@AL
nepíše se náhodou MBA za jménem? ;))
pak mně to totiž nezajímá, protože se chce křestní...
obecné řešení stejně neexistuje, jak jste to tu už zmínili
co když jsou 2 křestní například Jan Karel...
Musí si to upravit podle potřeby...
@AL
pokud kouknu na Váš vzorec, tak to všechno končí tečkou ;)=IFERROR(NAHRADIT(A1;1;NAJÍT(".";A1)+1;"");A1)=IFERROR(REPLACE(A1,1,FIND(".",A1)+1,""),A1)
Takže pak by mohlo fungovat=ZLEVA(IFERROR(NAHRADIT(A1;1;NAJÍT(".";A1)+1;"");A1);NAJÍT(" ";IFERROR(NAHRADIT(A1;1;NAJÍT(".";A1)+1;"");A1))-1)=LEFT(IFERROR(REPLACE(A1,1,FIND(".",A1)+1,""),A1),FIND(" ",IFERROR(REPLACE(A1,1,FIND(".",A1)+1,""),A1))-1)
A potřeboval bych aby se mi autmaticky zpouštělo po povolení makra.
Mno - spouštět po povolení znamená co? Povolení maker při otevření sešitu?
Mno snad by mělo stačitPrivate Sub Workbook_Open()
Call subWriteMissingDates
End Subv modulu sešitu.
Na netu jsem to našel, ale nejde mi to naroubovat do vzorce.
Co jste našel? Kam to chcete roubovat? Buďte konkrétnější, vložte přílohu podobnou tomu, kam to chcete naroubovat a on to někdo naroubuje.
Měl jsem nedávno trochu času a tak jsem si na Vás vzpomněl. Asi už je to jedno, ale...
Povedlo se - pokud chcete někdo RTB - je to možné ;)
Teď mám fofr, ale jakmile budu mít trochu času, něco o tom pisnu - zatím aspoň ukázka
http://youtu.be/cuOzoAp5me0
Než mi SAP načte data
Pokud byste chtěl vzorec, tak princip
v buňce A1 je '1234567812345678=ZLEVA(A1;8)&ZNAK(10)&OPAKOVAT("-";DÉLKA(A1)/2)&ZNAK(10)&ZPRAVA(A1;8)a samozřejmě zalomení a monospaced ;)))
Ještě bych přidal monospaced font (například Courier New) a bude to "naprosto dokonalé" ;)))
Ta trojka znamená, že už máte třetí zub? Nezbývá než závidět ;))
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.