• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Docela by mně zajímalo, v čem je problém. Chápu, že ukládáte v zamčeném pdf a vadí vám, že je někdo schopen si ho odemnkout. To si to někdo jako upravuje v nějakém externím programu? Pokud mu to za to stojí, tak nepomůže ani obrázek.

Jinak, např. Bullzip umí tisknout do pdf (snad i s pokročilejšími nastaveními než excel) nebo do obrázku.

Asi moc nepomůžu.
V práci jsem zkusil dát prvek do formuláře a jelo mi to - Win7x64 + e007.
Totéž doma - Win7x86 + e007 - jede.
Není ovšem zaručeno, že už mám nejnovější aktualizace.

Pokud někdo s e013 nepotvrdí problém, tak je možné, že to je problém instalace.

Já nikdy TreeView nepoužil. Jako poslední možnost si ho můžete zkusit nasimulovat pomocí labelů. Něco podobného mám a pro vás by neměl být problém to vytvořit.
https://www.youtube.com/watch?v=fEN-aZPjdmU

@elninoslov
Není až tak důležité, jak ten kód vypadá, ale jestli funguje správně.
Přijde mi zbytečné do toho tahat pole, když to excel umí zařídit sám. Možná to má smysl pouze v případě, kdy sešit obsahuje velké množství vzorců a tak tento postup vyvolá 2x překalkulování a pole 1x.
Tím, že se mi nechtělo přemýšlet jsem myslel, že bych se do toho pokusil zatáhnout evaluate - jinak by kód zůstal v podstatě stejný. Ale z popsaných důvodů mi to za to nestojí - úspora je minimální.
Pokud bych to měl dělat cyklem - což je opět pracnější - tak nějak takhle.Sub subCopy()
With Worksheets("Data")
With .Range(.Range("G5"), .Cells(.Rows.Count, 7).End(xlUp))
Dim vValues() As Variant
ReDim vValues(1 To Application.WorksheetFunction.Ceiling(.Rows.Count, 3) \ 3, 1 To 3)

Dim i As Long
For i = 1 To .Rows.Count
If Not .Cells(i) = Empty Then
vValues(1 + (i - 1) \ 3, 1 + (i + 2) Mod 3) = .Cells(i).Value
End If
Next i

End With '.Range(.Range("G5"), .Cells(.Rows.Count, 7).End(xlUp))
End With 'Worksheets("Data")

Worksheets("Copy").Cells(1).Resize(UBound(vValues, 1), 3).Cells.Value = vValues
End Sub

@vovka
Já vím. Ale nechtělo se mi přemýšlet.

Asi není zač.
Musíte se ptát konkrétně čemu nerozumíte. Já už jsem totiž tak zdegenerovaný, že mi to přijde jasné a že na tom není co vysvětlovat.

Jamalalicha? Jamalalicha. Jamalalicha, i paprťála, chánua, chánua, e chánua, e chánu, džalala, džalala-a, a paprťála. Tasparta maznalika zamáz piskurty, jarda, piskurty, patláma, patláma, patláma a… žbrluch!

Mno když stručně, tak nějak takhle ;)))

Zjistím počet buněk, podle toho nastavím výslednou oblast, do ní dám ten vzorec a pak to přetento na tento - hodnoty.

Nevím, jestli jsem vás pochopilSub subCopy()
With Worksheets("Data")
With .Range(.Range("G5"), .Cells(.Rows.Count, 7).End(xlUp))
With Worksheets("Copy").Cells(1).Resize(.Rows.Count \ 3 + 1, 3).Cells
.Formula = "=TEXT(OFFSET(Data!$G$5,(ROW()-1)*3+MOD(COLUMN()+2,3),0),""#"")"
.Value = .Value
End With 'Worksheets("Copy").Cells(1).Resize(.Rows.Count \ 3 + 1, 3).Cells
End With '.Range(.Range("G5"), .Cells(.Rows.Count, 7).End(xlUp))
End With 'Worksheets("Data")
End Sub

@hav-ran
tiskne to i slovy? ;))

a umí to tohle?
9 815 153 574 256 925 010 105 008 456 005,456 248 187 459 248 867 5=devět kvintilionů osmset patnáct kvadriliard jednosto padesát tři kvadriliony pětset sedmdesát čtyři triliardy dvěstě padesát šest trilionů devětset dvacet pět biliard deset bilionů jednosto pět miliard osm milionů čtyřista padesát šest tisíc pět celých čtyři triliony pětset šedesát dvě biliardy čtyřista osmdesát jeden bilion osmset sedmdesát čtyři miliardy pětset devadesát dva miliony čtyřista osmdesát osm tisíc šestset sedmdesát pět

@vovka
Já bych řekl, že nejlepší je se vykvajznout na číselný formát. Otestovat, zda je v buňce hodnota, která je číslo a pak už pracovat s textem. Stejně je výsledkem text, se kterým už nic nedělám. Tak to mám já a kdybych do svého pole přidal další názvy, teoreticky můžu jít až ke Googol - dál už bych to změnil na nekonečno ;))) .

@TEDO
kdybyste potřeboval více, tak také mám vlastní funkci CISLO_SLOVY. V případě, že byste potřeboval rozlišit platbu do ameriky, umí i krátkou soustavu. V dlouhé soustavě jsem to omezil na kvintiliardy (tedy v krátké deciliony). Říkal jsem si, že mi v práci stejně asi více nedají, tak další už jsem neřešil ;)

Private Const sORDERS_DEF As String = "0, , , , , , ," & _
"10, tisíc , tisíc , tisíce , tisíc , tisíc , tisíce ," & _
"10, milionů , milion , miliony , milionů , milion , miliony ," & _
"0, miliard , miliarda , miliardy , bilionů , bilion , biliony ," & _
"10, bilionů , bilion , biliony , trilionů , trilion , triliony ," & _
"0, biliard , biliarda , biliardy , kvadrilionů , kvadrilion , kvadriliony ," & _
"10, trilionů , trilion , triliony , kvintilionů , kvintilion , kvintiliony ," & _
"0, triliard , triliarda , triliardy , sextilionů , sextilion , sextiliony ," & _
"10, kvadrilionů , kvadrilion , kvadriliony , septilionů , septilion , septiliony ," & _
"0, kvadriliard , kvadriliarda , kvadriliardy , oktilionů , oktilion , oktiliony ," & _
"10, kvintilionů , kvintilion , kvintiliony , nontilionů , nontilion , nontiliony ," & _
"0, kvintiliard , kvintiliarda , kvintiliardy , decilionů , decilion , deciliony"

Když ten vzorec budete kopírovat před přidáváním řádků (tzn do všech zelených buněk v příloze), tak se po změně zaktualizuje. Když ho budete kopírovat později - tedy po přidávání řádků, tak pokud ty řádky nepřidáte do všech tabulek, nebude platit původní předpoklad
...které jsou vždy stejný počet řádků pod sebou... a nemůže to sedět.

@ruzickap
Ježiš. Už jsem zapomněl, že jsem něco takového vymýšlel ;))

Všechno funguje, ale odkaz nefunguje
V tom tvrzení mi něco nesedí ;)))

Ale bez přílohy vám neřeknu, co děláte špatně. Zkoušel jste toto?Function fncGetHyperlinkURL(rCell As Range) As String
On Error Resume Next
fncGetHyperlinkURL = rCell.Hyperlinks(1).SubAddress
On Error GoTo 0
End Function

Pokud teď použijete vzorec=B16+2a ten zkopírujete do všech tabulek, tak se nemusíte bát žádného dalšího odstraňování či vkládání. Vzorce se upraví automaticky.

Ale pravděpodobně vám moc nerozumím ;) .

Předpokládám, že jste zase založil vlákno a s další reakci už se obtěžovat nebudete.

poradí mi někdo co stím?
Opravte si to. Máte to rozbitý.

Co znamená "nejsou i jiné makra". Neuložil jste soubor jako xlsx?

Podívejte se ve VBE do Tools - References, jestli tam nemáte chybějící položku. Začíná slovem MISSING.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse