Příspěvky uživatele
< návrat zpět
No v podstatě mně teď v rychlosti napadají 2 možnosti:
Použijete deklaraci s variabilní délkou řetězceDim s1 As String, s2 As Stringatd. a pak někde v kódu budete testovat délku pomocí If Len(s) > 120 Then ElseNebo můžete ponechat fixní deklaraci (s "*") a pak před použitím odstraníte přebytečné mezery např. pomocí Replace.
Záleží na situaci a hlavně na Vás ;)) .
U déky 120 znaků bych asi volil 1. variantu, pokud by byly krátké, tak záleží na tom, co se dělá.
@Vovka
Pěkné ;)
@Pavlus
Opakujícím se názvům můžeš klidně nastavit barvu pozadí buňky...
brrrr - formát ";;;" Vám nic neříká?
@OndraBing
Někteří lidé považují slučování buněk za zlo a nejraději by tuto funkci z excelu odstranili úplně. Já jsem názoru, že pokud se používají správně, je přínosem.
Vaše použití rozhodně správné není a tak Vám to bude přinášet stále nové a nové problémy. Sloučené buňky se totiž s filtrováním moc neslučují. Jediný správný postup je jak napsal Pavlus - ale na každém řádku bude název přípravku - tedy až na to "vybělení" a skrytí textu s filtrem taky nespolupracuje.
Pokud potřebujete výstup jako na obrázku, budete na tom muset zapracovat jinak - např. použitím vzorců + pomocného sloupce nebo kontingenční tabulky.
@lubo
dík ;)
@Vovka
;))
Máte pravdu - pokud napíšeRange("A1:C100").Formula = "='Cesta\[Nazev]List'!A5"bude to fungovat také (nevyzkoušeno, ale předpokládám).
Někde na začátku jsem se rozhodl pro R1C1 - už nevím proč - zřejmě podle .Address(True, True, xlR1C1) v dotazu.
A pak už se všechny dotazy týkaly R1C1.
Jen dodám, že pokud používám relativní odkazy v kódu - tak vždy dávám přednost R1C1 - je to jednodušší (pro mne)
@lubo
vlastnosti a metody bez objektu - to snad ani nemůže fungovat, nebo ano?
stejně tak je nebezpečné a bohužel zcela běžné použití objektu bez vlastnosti - také nepoužívám
zkusil jsem rozjet virtuál s E2013 a i tam mám Top=0. Takže já bohužel neotestuji :(
4 uvozovky místo 2Range("A1:C150").FormulaR1C1 = "=IF('[nazev.xlsm]jmeno'!R[4]C=0,"""",'[nazev.xlsm]jmeno'!R[4]C)"
Nemusí - pokud zadáváte pomocí kódu a používáte FormulaR1C1
Pokud vkládáte vzorec do buňky ručně, tak samozřejmě musí.
Nicméně by mne zajímalo, proč se u Vás Top=1.5.
Zaprvé by mělo křičet o nedefinované proměnné Top
Zadruhé - když už nekřičí - měla by být přece inicializována jako 0.
Zřejmě převzato z nějakého objektu?
@lubo
Díky za upozornění - patří tam 0.
I přes Option Explicit mne to neupozornilo. Původně jsem tam měl dle nápovědy fmTop a fmBottom - nicméně to nebralo - tak jsem přepisoval na 0, 1. https://msdn.microsoft.com/en-us/library/office/gg264849.aspx
To Top mi tam divně zůstalo a u mně je rovno 0 a proto to funguje správně.
=R[4]Co 4 řádky níže a stejné sloupce
edit:
Pokud je to pro Vás snazší - můžete použít i=R[4]C[0]
O formě zápisu pomocí R1C1 si zcela jistě něco dohledáte na internetu.
Na vysvětlenou
Do oblasti A1:A50 vkládám odkazy na oblast 'Cesta\[Nazev]List'!O11:O60"
Sloupec O je 15. sloupec v listu - proto absolutně C15
Začínám o 10 řádků níže - tedy relativně R[10]
Prosím?
Mně to neskácí je buď překlep, kterému nerozumím nebo máte pocit, že s Vámi soutěžím. Pokud je to to první, tak prosím přeložte. Pokud to druhé, tak je mi líto, že ten pocit máte, ale asi s tím nic neudělám. Pokud si to přejete, dejte mi prosím vědět a já na Vaše příspěvky tedy reagovat nebudu.
Btw:
Mně to otevřít lze a funguje.
Ze srandy jsem to zkusil úplně jednoduše - ranní rozcvička bez API (30minutovka).
Asi to nikdy nepoužiju, takže jsem si to nekomplikoval (např. neošetřuji záporné velikosti prvků - asi bych uložil do Tagu a určitě tam budou další).
Spíše bych se soustředil na Zoom - tedy změnu velikosti formuláře, jeho prvků a velikosti fontů. Ze zvyšováním rozlišení monitorů je to drobné písmo pro některé někdy už opravdu nečitelné - takže jednoduchým roztáhnutím si to uživatel zvětší. Zatím to mám u jednoho uf pomocí checkboxu na 150% - také otázka pár řádků (Userform.Zoom + pár nastavení).
Tak ještě zkuste přidat středníkPrint #iFile, Mid$(sPrint, 1, Len(sPrint) - 2);
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články