Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  52 53 54 55 56 57 58 59 60   další »

Úplně jednoduše přes funkci Right .-).

Jenom co mě tak napadlo, tak by to pak možná chtělo ještě testovat, zda tam třeba není čárka bez mezery a vložit případně pouze mezeru, ale s tím si už určitě poradíš...
P.

Viz příloha:

Přikládám vzorový příklad .-).
P.

Viz příloha:

Nejlepší bude asi přidat i soubor. Takhle se to dá jenom těžko posoudit...

Jinak co tak na první pohled vidím:
ActiveChart.SetSourceData Source:=Range("List1!$A$1:$B$5")Tady bych dal relativní adresu (bez $) - sjednotit to s úvodním selectem (může to dělat problémy při vkládání řádků apod.).
P.

Přes klasické excelovské funkce by to šlo např. takto. Je tam i kompletní postup pro pochopení...
P.

Viz příloha:

Přidej soubor a vyřešíme to .-)...

Jinak bych doporučoval místo on-line her vyrazit někam ven, ale to jenom tak na okraj... 5
P.

Podle mě na to je formulář zbytečný, a ve výsledku málo praktický pro danou operaci... Řešil bych to klasicky.
P.

Viz příloha:

Při opětovném spuštění makra to hází chybu právě proto, že už jsou listy skryté a tudíž nelze využít SELECT... Aby mohly být vybrány, musí se nejdříve zobrazit:

Sheets("List1").Visible = 1

Problém je jasný, při zadání jednoho slova totiž funkce NAJÍT nenajde žádnou mezeru a vyhodí proto chybu "#HODNOTA!". (Lze to obejít, jak píšeš, přidáním mezery za konec slova, což je dosti kostrbaté.) Musíš tam ošetřit nějakou rozhodovací funkcí (např. KDYŽ), zda ti to právě nevyhodí onu zmiňovanou chybu. Na to je např. funkce "JE.CHYBA". Mrkni na toto a trochu si s tím ještě pohrej 10: www.lorenc.info/3MA381/chybove-hodnoty.htm

Dobrý den.

Snažím se již nějaký čas přijít na to, proč mi Word nechce exportovat dokument do PDF. Mám dokument asi o cca 60 stránkách především obyčejného textu (ale i obrázky, tabulky, rovnice apod.). Při exportu Word začne "tisknout", ale když by se měl otevřít klasický soubor s pdf, tak mi to vyhodí hlášku: "Export se nezdařil z důvodu neočekávané chyby".

Jiné dokumenty lze uložit do pdf naprosto v pohodě... Napadá někoho čím by to mohlo být? Jedná se o MS Word 2007.

Díky za reakce.
P.

To nepomůže...

Ale dá se na to jít oklikou a přeskládat ve VBA listy (což jsem netušil že jde) a následně je vrátit zpět .-).

Sheets("List3").Move Before:=Sheets("List2")

Jednodušší než IF? To už asi nebude nic .-).
Kolik tam máš těch intervalů?
P.

=KDYŽ(A((A1>0);(A1<1234));"ano";"ne")

Návod na podmíněné formátování v MS Excel 2007:
1. Označit oblast
2. Podmíněné formátování/Nové pravidlo
3. Typ: Formátovat buňky pouze obsahující
4. Popis pravidla: Vybrat "Určitý text" a "Nemá na začátku"
5. Zadat číslo, které má být na konci: např. 319
6. Zvolit Formát
7. Ok :-)

PS: Jinak "nemá na začátku" je docela vtipný překlad 5
P.

Viz příloha:

Dobrý den,
řeším tisk do pdf (přes makro) a narazil jsem na problém s uspořádáním listů.

Sheets(Array("List1", "List3", "List2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:= "C:\tisk.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Napadá někoho jak to udělat přes makro? Doufal jsem, že pomůže pořadí v Array .-), ale nepomohlo. Mechanicky bych věděl jak na to (tisk jednotlivých listů, a pak pdf sloučit). Jde to nějak efektivněji?

Díky za reakce.
P.

Jinak by šlo použít i "Vložit jinak", kde by sis mohl navolit co přesně chceš nakopírovat od vzorců až po šířky sloupců apod.

Ale již zmíněné řešení je pro tuto situaci nejlepší .-).
P.

V kódu Listu1 si přepiš "A" na "E", takže tam pak bude:
Do Until Worksheets("List1").Range("E" & konec) = ""
zaznam.ComboBox1.AddItem Worksheets("List1").Range("E" & konec).Value
konec = konec + 1
Loop

Nevím jestli tam pak budeš mít v reálu duplicitní jména, tak si to pak případně nějak ošetři. To už si určitě doladíš dle potřeby .-)...
P.


Strana:  1 ... « předchozí  52 53 54 55 56 57 58 59 60   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse