Příspěvky uživatele


< návrat zpět

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

Štrukturované písanie funkcii - pozri http://dailydoseofexcel.com/archives/2010/09/29/formula-editor-in-notepad/

je tam aj súbor na stiahnutie http://www.dailydoseofexcel.com/excel/xlf_udl.zip

len či je použiteľný neviem, mne ho antivirus odmieta prevziať 6

Myslím že každý komu občas padol Excel sa s tým stretol, že mu takáto vlastosť u zle uložeých súborov nabehla. Takže tohto dátumu je dosť, vzácne by bolo keby to bolo 31.12.1600 .... 5

Nech pozerám ako pozerám - nič roztiahnuté nevidím. Sú vidno oddeľovače strán a guľa sa nezdá deformovaná.
Ak sa dá, ešte si rozklikni Vlastnosti tlaciarne v obrázku 2

Predpokladám, že je to pre nejaké nastavenie tlačiarne, niečo ako "roztiahnuť na šírku". Pomohlo by možno dať si zobraziť v dialógu Náhľad tlače

Od autora Petra Slezáka mám v archíve súbor, kde je to riešené podobne ako to chceš. Ak je súbor niekde na sieti splní čo potrebuješ.

http://www.slezak-petr.cz/

Podľa obrázku je to objekt, ktorý je v editovacom móde (možno ho cez Delete mazať). Je ale celkom možné, že týchto objektov je tam NA SEBE veľa a preto sa jedno Delete nepostará o očividné vymazanie. Nezobrazil si v obrázku Pole názvov, kde by mal byť objekt pri vybratí idetifikovaný.
Dve možnosti zistenia či zbavenia sa objektov: stlač klávesu F5, vyber Jinak a vyber Objekty. Tabulátorom sa presúvaj postupne po objektoch a v poli názvov uvidíš koľko ich je.
Skús použiť nasledovnú procedúru na výpis objektov a podľa toho zvoľ ďalší postup:

Sub Lister_Objets()
Application.ScreenUpdating = False
Set Zone = ActiveSheet
On Error Resume Next
Nomfeuil = "Liste objets de " & ActiveSheet.Name
Worksheets.Add.Name = Nomfeuil
With Sheets(Nomfeuil)
.UsedRange.Clear
.[A1] = "Meno objektu"
.[B1] = "Typ objektu"
.[C1] = "Makro"
.[D1] = "Text"
.[E1] = "Adresa"
.[F1] = "Zľava"
.[G1] = "Zhora"
.[H1] = "Šírka"
NbObjet = Zone.DrawingObjects.Count
For Each objet In Zone.DrawingObjects
Cpte = Cpte + 1
Application.StatusBar = "Récup a " & Format(Cpte / NbObjet, "0%") & " réalisée"
lgn = .[A65536].End(xlUp).Row
.[A1].Offset(lgn) = objet.Name
.[B1].Offset(lgn) = TypeName(objet)
.[C1].Offset(lgn) = objet.OnAction
.[D1].Offset(lgn) = objet.Characters.Text
If .[D1].Offset(lgn) = "#N/A" Then .[D1].Offset(lgn).Value = ""

.[E1].Offset(lgn) = objet.TopLeftCell.Address
.[F1].Offset(lgn) = objet.Left
.[G1].Offset(lgn) = objet.Top

.[H1].Offset(lgn) = objet.Width
Next
Application.StatusBar = False
.Columns("A:H").AutoFit
.Activate
End With

Exit Sub
End Sub

http://msdn.microsoft.com/en-us/library/office/ff193582(v=office.15).aspx

možno zapisovať dátum a nie dátumový vzorec ktorého výsledok je samozrejme každý deň iný. Chcelo by to prílohu a tam dať ako to je a naznačiť ako to má vyzerať.

Napíšem si na 40 lístkov rôzne možnosti chýb a vylosujem .... bez prílohy to nepôjde

Pri zachyteí udalosti pohybu myši nad objektom, môžeš použiť niečo z prílohy. Ako do toho zapojiť obrázok je skôr udalosť nad formulárom.

V prílohe je riešenie s využitím udalosti Zmena (Change)v riadku 3, je to teda s makrom, ale efektívejšie ako ručné zadávanie. Ak sa ti to hodí na niečo iné, nie na toto, budem spokojný 1

Na dáta z KT je vhodný vzorec GETPIVOTDATA, čes. ZÍSKATKONTDATA), pred neho treba dať IFERROR (ang.), česky neviem ale možno nejak podobne

Urobil som apr. KT, ktorú treba prepočítať po novom zápise, pri otvorení je to automatické ale treba nastaviť väčší rozsah.

Myslím, že kontigečnú tabuľku treba nastaviť čím skôr, nahradiť vzorce výpočtovými poľami, kde ich zadefinovaním odpadne komplikované pridávanie nových riadkov - zákazníkov. Potom záverečnú tabuľku tvoriť vyťahovaním cez vzorec =ZÍSKATKONTDATA (ang.GETPIVOTDATA) alebo cez VBA napr.

.CalculatedFields.Add "INDEX98", "=TRZBY/VYROBA*100"
.PivotFields("INDEX98").Orientation = xlDataField

Najdôležitejšie je vytvoriť základnú databázu, tam pridávať VŠETKY informácie do správnych stlpcov.

Trochu k príspevku - ak nie je problém popísaný tu na stránke a je v prílohe, prosím o prílohu zip, ktorej rozbalovanie je určite rozšírenejšie ako rar.
Viď problémy na https://www.google.sk/search?q=rozbalenie+rar&rls=com.microsoft:sk:IE-SearchBox&ie=UTF-8&oe=UTF-8&sourceid=ie7&rlz=1I7HPNN_enSK328&gws_rd=cr,ssl&ei=v1FkVM3EE4L6ygPg6IH4BQ
Takto je možné, že pre prílohu rar nebude tvoj problém riešený, hoci by mohol byť.
Príjemný deň


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