Příspěvky uživatele
< návrat zpět
Pak by v tom Initialize bylo něco jako:Label2.Caption = "Název listu"
Label3.Caption = "Číslo"
ii = ThisWorkbook.Sheets.Count
With LB_seznam_listu
.RowSource = ""
.ColumnCount = 2
.ColumnHeads = False
.Height = ii * 13
For i = 1 To ii
.AddItem
.List(i - 1, 0) = Sheets(i).Name
.List(i - 1, 1) = Sheets(i).Cells(2, 1)
Next i
End With
a všechno co se týká toho pomoc Listu dát pryč.
Třeba takto:
Ale já bych spíš dal to záhlaví do Labels a ListBox bych nalil přímo v Initialize bez pomocného Listu.
Hypotéza: Mistr Leonardo žil před svou smrtí (1519) v péčí francouzského krále Františka I, kde vytvořil velkolepý projekt "zámek Chambord" (ne kalkulačku!), který byl úspěšně dokončen (1547). Po nějakém čase objevil tyto plány skrytý talent a v osudný čas (hodinu po půlnoci na Nový rok 1601) se pokusil toto mistrovo dílo zkopčit (komprimovat ve vlastní prospěch). Netřeba dodávat, že v tento čas bylo jeho IQ na maximu. Bohužel když vystřízlivěl na to zapomněl a jeho zip tam zůstal dále nepovšimnut.
Když pak v období (1725 - 1733) obýval tento skvost (zámek) opovrchnuvší Polský král Stanisław Leszczyński, objevil tento zip a ač mu vůbec nerozuměl, pokládal ho za něco významného. S tímto pokladem se pak vrátil do domoviny (Polska), kde mu polští vědci podle náčrtu dali jméno "policko". V následných bojích (i s Ruskem) o vládu nad Polskem král Stanisław Leszczyński prohrával.
Tak se dostal tento zip do rukou Rusů. Dále jak jsem uvedl výše expanze ruských vědců do USA/MS a pokus o rozluštěni dotyčného zipu vedl k chybné diagnostice SW/MS. S největší pravděpodobností se nejedná o sešit Excelu, ale o neznámým talentem skompilovaný projekt mistra Leonarda a SW/MS tento projekt na výstavbu excelentního zámku chybně identifikoval a vytvořil na základě daných dat sešit Excelu.
Vůbec bych se nezlobil, kdyby se nakonec ukázalo, že autorem je čech (Opičák). Ale vzhledem k tomu, že všichni významní češi jsou stejně američani, jsem ochoten věřit čemukoliv.
Lubo je možné, že došlo ke změně web kódu. Proto jsem tam vložil ten kontrol výpis. Z něho však vyplývá, že nejsou zkontrolovány všechny předmětné tagy. K případnému řešení zda crlf či lf vůbec nedojde.
Přitom jsem tímto makrem v srpnu vytáhl v pohodě všech 800 otázek včetně img.
No nevybral sis toho pravého, aby tě učil. Já do této tématiky nakukuji přes rok a jsem pořád novic. Chtěl jsem ti na ukázku vytáhnout kód, který jsem použil před čtyřmi měsíci, ale zjistil jsem, že i když před tím fungoval teď dělá neplechu. Tímto prosím zdatnější, zda by na to nekoukli, kde je chyba.
Blahopřeji k založení prvního tématu, už se těším na další!
No a co se týká tohoto, myslím že jsi blízko. Dovedu si představit, že se šifra mistra Leonarda, dostala v určitém období do rukou ruských vědců. Ale šanci na její rozluštění dostali až po Perestrojce, kdy expandovali do USA/MS a dostali se k pořádnému železu. Tam se jim to zřejmě trochu vymklo z ruky a dostalo se to na síť. Ať už je autorem kdokoliv, je obdivuhodné že je tento zřejmě Excelentní kód kompatibilni se současným HW i SW.
No prostě si myslím, že na Nový rok hodinu po půlnoci se mohou dít zázraky!
maticový=PERCENTILE.INC((Data!$P$2:$P$200=<5)*Data!$P$2:$P$200;0,4)
Můžeš zvolit buď Osobní sešit maker (*.xlb/*.xlsb), nebo Doplněk (*.xla/*.xlam).
No já jsem začínal v minulém století s "C602". Pak mi shořel Comp a já přešel na Excel 2000. Koupil jsem "EXCEL 2000-02 programování ve VBA / John Walkenbach". V té době to byla vlastně jediná ucelená kniha v češtině. Když si dnes dám do Googlu jeho jméno, vyběhne spousta odkazů.
Dnes v češtině asi
"Microsoft Office Excel 2007 (Programování ve VBA)
John Walkenbach - Computer Press (2008)"
Jsou i vyšší verze, ale v angličtině.
Příloha:
Ty se vůbec nesnažíš!Dim Sh As Worksheet
Set Sh = Sheets.Add(After:=ActiveSheet)
Sh.Name = B & "-TR-" & A & "-" & C
''tady dej kód - Kopirovani
''v Kódu Kopirovani změnit
''Sheets("List1") na Sheets("vzor")
''Sheets("List2") na Sh
Set Sh = Nothing
a je to.
PS
Ten Hyperlink si vlož přes záznamník, to ti napoví. Zbytek snad už zvládneš. Snaž se!
Samozřejmě, nic ti v tom nebrání.
Sub Kopirovani()
Dim rdF As Byte, rdR As Long, rdLast As Long, rdW As Long, slR As Byte
slR = 10 'posledni sl. oblasti Listu1
rdW = 0 'rd. zapisu do List2
With Sheets("List1")
Range(.Cells(1, 1), .Cells(1, slR)).Copy 'sirka sloupcu
Sheets("List2").Cells(1, 1).PasteSpecial Paste:=xlPasteColumnWidths
rdLast = .Cells(Rows.Count, 1).End(xlUp).Row 'posledni rd. oblasti Listu1
For rdR = 1 To rdLast
If Not .Rows(rdR).Hidden Then
rdW = rdW + 1
Range(.Cells(rdR, 1), .Cells(rdR, slR)).Copy Sheets("List2").Cells(rdW, 1)
Sheets("List2").Rows(rdW).RowHeight = .Rows(rdR).RowHeight
End If
Next rdR
End With
End Sub
A co tak zkopírovat tabulku a pak Vložit Jinak - Propojení.
Např:Sub Kopirovani()
Dim rdR As Long, rdLast As Long, rdW As Long, slR As Byte
slR = 10 'posledni sl. oblasti Listu1
rdW = 0 'radek zapisu do List2
With Sheets("List1")
'posledni rd. oblasti Listu1 v sl. 1
rdLast = .Cells(Rows.Count, 1).End(xlUp).Row
For rdR = 1 To rdLast
If Not .Rows(rdR).Hidden Then
rdW = rdW + 1
Range(.Cells(rdR, 1), .Cells(rdR, slR)).Copy Sheets("List2").Cells(rdW, 1)
End If
Next rdR
End With
End Sub
Buď propojený obrázek, nebo makro.
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