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

Příspěvky uživatele

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

Prípadne kontingečnou tabuľkou.

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

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

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

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.

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úď

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

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

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

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

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.

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse