Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  6 7 8 9 10 11 12 13 14   další »
Tisk z vlastními okraji (5.2.2015 4:01)

Skombinuj si nasledovné procedúry:
Sub vyberOblasti()
Dim aa As Range, bb As Single
On Error GoTo err1
Pro1:
Set aa = Application.InputBox("Vyber oblast", "OBLAST", Type:=8)
bb = Application.InputBox(Prompt:="Okraje v cm", Type:=1)
Application.ScreenUpdating = False '????????
With ActiveSheet
.PageSetup.PrintArea = aa.Address(False, False)
With .PageSetup
.LeftMargin = Application.CentimetersToPoints(bb) '???
.RightMargin = Application.CentimetersToPoints(bb) '???
.TopMargin = Application.CentimetersToPoints(bb) '???
.BottomMargin = Application.CentimetersToPoints(bb) '???
End With
Application.ScreenUpdating = True '??????
.PrintPreview '??????????
If MsgBox("Vytlacit ?", vbYesNo) = vbYes Then .PrintOut Copies:=1
End With
If MsgBox("Opakovat ?", vbYesNo) = vbYes Then GoTo Pro1
err1:
End Sub

Sub cmOkraje()

With ActiveSheet
With .PageSetup
.PrintArea = "$A$1:$E$9"
.LeftHeader = "Cas:" & "&T" & " Datum: " & "&D"
.CenterHeader = "Strana:" & "&P"
.RightHeader = "" '
.LeftFooter = "" '
.CenterFooter = "" '
.RightFooter = "Subor: " & "&F" '
.LeftMargin = Application.CentimetersToPoints(1.5) ' 1.5cm
.RightMargin = Application.CentimetersToPoints(2.5) ' 2.5cm
.TopMargin = Application.CentimetersToPoints(2) ' 2.0cm
.BottomMargin = Application.CentimetersToPoints(1) ' 1.0cm
.HeaderMargin = Application.CentimetersToPoints(0.8) ' 0.8cm
.FooterMargin = Application.CentimetersToPoints(1.8) ' 1.8cm
.Orientation = xlLandscape '
'.PaperSize = xlPaperB5
End With
.PrintPreview '
End With
End Sub

Oblasť tlačenia - napr. ActiveSheet.PageSetup.PrintArea = "$A$1:$L$37"

Podčiarknutie v listoch - pomocou podmieneného formátu

Excel -Makro pro vícenásobné otevírání hypertext (5.2.2015 3:43)

jizldk napsal/a:

dík za rychlou reakci.Zkoušel jsem to zkopírovat do makra, ale nelíbí se mu hned první řádka. Co znamená položka x ? Dík

Tipujem, že si nedal Sub blablabla a End Sub v module 4

Výpis jedinečných čísiel (4.2.2015 5:28)

Prípadne kontingečnou tabuľkou.

Obidva horné príspevky už obsahujú správnu radu, zdá sa že si to nevyskúšal.

premenne v linkoch (31.1.2015 6:19)

Príloha je 90% úspechu ...
Riešil by som to pomocou funkcie ZVOLIT (ang. CHOOSE)

Datum od-do, sestrojení grafu (26.1.2015 7:27)

Pridávam súbor od Stephena Bullena, využíva posuvníky v dátume a množstvo stlpcov do grafu.

Makro pro tisk výběru (26.1.2015 7:20)

Treba si vytvoriť formulár, kde bude výber nadefiovaných oblastí a podľa toho sa spustí procedúra. Niečo som dal ako prílohu, prezerá to VŠETKY otvorené súbory a tlačí vybrané, prípadne si to prispôsob podľa svojej predstavy. Súbor mám v archíve, autorom súboru je Atmel PC.

Filtrování dat z databáze (21.1.2015 14:58)

Riešením by mohla byť kontingenčná tabuľka. Na nový list som urobil prepojenia do listov pod seba, potom z toho KT s výberom tých názvov stlpcov čo potrebuješ. Pozri a posúď

součet hodnot v určitém období (17.1.2015 5:52)

Kontingenčá tabuľka, kde filtruješ DATUMY ktoré potrebuješ

Hypertextovy odkaz (15.1.2015 17:10)

Ponúkam možno netradičné riešenie - využitie AutoOprav. Pri napísaní textu les či strom či voda - urobí sa z neho www-adresa hyperlink 9

Formát ovládacího prvku form. nezobrazuje kartu (14.1.2015 5:58)

Mám dojem, že jeden prvok je z formulára a druhý je AcxtiveX

Propojení listů vzorcem (12.1.2015 11:34)

veny napsal/a:

nešlo, aby se číslo zakázky "1" zapsané do sloupce A na "Listě 1" automaticky přepisovalo do sloupce B na "Listě 2"List2 buňka B2 "=List1!A2" podle toho bys měl být schopen doplnit si i zbylé buňky v Listu2 i v Listu3 tedy jestli jsem dobře pochopil co máš na myslilze nějak graficky v buňce zakázky nebo jiné buňce pro tento účel v řádku vytvořené znázornít odpočet aktuálního datumu do termínu slíbeného zákazníkovi? Něco na způsob grafiky při kopírování souboru ve Windows.List1 buňka např. C3 "=DNES()-B2" formát Obecný ukáže zbývající počet dní do termínu pokud bys to chtěl graficky v nějakém okně tak na to by bylo potřeba asi něco přes VBA

Doplním, že ako grafické vyjadrenie hodnôt možno použiť aj vzorec - viď príloha 1

Vyhľadávanie a import z txt cez VBA (2.1.2015 5:36)

Cedrom napsal/a:

Hav-Ran:Toto zapisovanie mám už vyriešené, mne ide o to vyhľadávanie...Inak všetkým PF 2015

Tak to treba vyriešiť, aby sa užívateľ NEPRIPISOVAL na koniec txt-súboru ale sa vždy vytvoril vždy NOVÝ txt súbor s jediným zápisom, prepísal by existujúci. Potom tento jedinečný txt - súbor stačí načítať do jedinej bunky

Vyhľadávanie a import z txt cez VBA (1.1.2015 6:04)

Použitim tvoreného txt súboru so zapísaním mena užívateľa, mena PC datumu a času - viď príloha, by mohlo byť riešením. Ide o zapísanie do lokálneho PC, pri sieti treba zmeniť cesty a zabezpečiť ochranu pre vymazaním txt-súboru či jeho editovanie

PF2015 všetkým

Podmínění formátování (29.12.2014 5:01)

Nejde o podmienené formátovanie (to sa tam niekto pokúšal urobiť - viď pripojený obrázok) ale o vstavaný objekt Tabulka (pri aktivácii niektorej bunky sa objaví hore panel Nástroje tabuliek a TAM si vyberieš štýl zobrazovania a iné vlastosti.

Problem s Excellem makra a VBA (28.12.2014 3:42)

Asi to bude súvisieť s už nedávo preberaným ActiveX, pozri http://wall.cz/index.php?m=topic&id=22898


Strana:  1 ... « předchozí  6 7 8 9 10 11 12 13 14   další »

Uživatelské menu

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

Menu

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.

On-line nástroje