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

Příspěvky uživatele

1. V KT kliněte na pole P, stiskněte CTRL a klikněte na pole P>
2. Dejte seskupit. Vznikne pole Smer2 s popiskem Skupina1. "Skupina1" přepište na "P " (P+mezera)

Totéž pro O. Pak odeberte pole Smer a Smer2 si případně popřesouvejte.

Bohužel, při seskupení dat má KT pro datum a čas někde přednastaven formát zobrazení. Navíc, jak je bohužel zvykem, v každé verzi je to jinak. Mně to v excelu 2007 dává data římsky (4.X) a ve 2010 arabsky (4.10). Teď jde o to, zda je pro vás to zobrazení podstatné - protože výsledek jste získal. Ta data už jsou textové řetězce, takže žádné formátování na ně neplatí. Možná zná někdo nějaký trik, jak to změnit, já ne.

Pokud na tom záleží, máte dvě možnosti - pomocný sloupec s funkcí USEKNOUT, pak si v KT můžete toto pole formátovat, jak chcete (je to číslo)
Nebo řešení bez KT - tedy stará dobrá ručně tvořená tabulka, která ovšem nebude tak pružná, ale máte vše ve svých rukou.

Záleží, jaký je důvod skrytých sloupců. Pokud pouze pro orientaci, tak budiž. Pokud chcete data ukrýt před některými uživateli, tak skryté sloupce nejsou správná volba.

nemám excel 2013 ani ten váš soubor, takže radit budu těžko.
jediné co poradím, je že řádky With Pristupy
.Height = 533
.Top = 40
.Left = Application.Width - Pristupy.Width - 10
End Withpřesuňte do modulu formuláře do procedury Userform_Initialize- nastavení rozměrů a pozicování by mělo proběhnout ještě před zobrazením
With Pristupy
nahraďte v proceduře Initialize
With Me

taky se podívejte, co máte ve vlastnostech formuláře u vlastnosti StartupPosition - měl byste tam mít 0 - manual
Třeba to ve 2013 dělá neplechu

Ještě můžete zakomentovat řádek .Left = ... a .Top = ...
třeba 2013 jinak počítá pozici a formulář vám přesune jinam
vlastně to zakomentujte celé a zkuste co se stane bez toho dalšího nastavení ;)))

Ale jak říkám, jen spekuluji.

Zkusil jste přepnout na vbModal? Pouze pro test, zda to dělá také.

To tlačítko
následuje za .Show ještě nějaký kód?

není potřeba žádných pomocných sloupců ani maker - všechno umí KT
příloha

těch dat tam moc nemáte, tak sem vložte výstup (ručně vytvořený), jak má vypadat výsledek

kontingenční tabulka?

Nepoužívejte tlačítko, ale combobox

Jde "všechno", otázkou je, jaký to má smysl.

Někam pod ten graf jsem dal kontingenční tabulku, takže si musíte dát aktualizaci

pomocný sloupec
zároveň by z toho měla jít získat maximální sekvence
Maticově=MAX(COUNTIF(Tabulka1[pmSqnc];Tabulka1[pmSqnc]))

Jen jsem pohledal hotová řešení, takže už neplatí
Pomocí VBA se mi v cm zatím nepodařilo.

DPI (pixely na palec)
http://www.pcreview.co.uk/threads/how-to-determine-the-dpi-setting-for-current-user.2521177/

šířka textu (tedy i znaku) v pixelech
http://stackoverflow.com/questions/5012465/vb-macro-string-width-in-pixel

teď už jen ta pětka... ;))

@kabaka
Pokud se týká bodů (points), tak není problém. Existují funkce InchesToPoints a CentimetersToPoints. Problém je u šířky sloupců, ta se udává ve znacích, u nich se nejsnáze zjistí šířka v pixelech. No a tady nastává problém, protože monitory mají různou velikost bodu a tak nelze napsat 1 cm = x pixelů. No a abyste to dostala na body, tak toto potřebujete.
Je pravda že v novějších verzích si můžete přepnout na Rozložení stránky a zadat výšku a šířku v cm, nicméně záznamník maker vám novou šířku uloží standardně ve znacích a jste zase na začátku. Pomocí VBA se mi v cm zatím nepodařilo.

V excelu 2003 by měly existovat funkce PointToPixels a opačná. Ve 2010 už nejsou, takže asi nebyly moc spolehlivé (spekulace).

Klidně buďme OT, když je to zajímavé.

@AL
Ale že by som hore uvedené veci vedel sypať z rukávu, to ani náhodou
nesmíš chodit v tričku s krátkým rukávem, tam se toho moc nevleze ;))

Já jen něco málo k tomu nastavení.

Šířka sloupce se nastavuje ve znacích (šířka "0") dle fontu nastaveného ve stylu Normal.
Takže pokud budu brát základní nastavení, tak šířka znaku "0" je pro Calibri 11 rovna 7 pixelům.

Pokud chci nastavit šířku v pixelech, stačí tedy podělit číslem 7. Od šířky cca 10 pixelů si k tomu vždy excel přidá 5 pixelů - bude to někde v nastavení, zatím se mi nepodařilo najít. Takže pokud dáte 200, nastaví 205. To se dá vyřešit takto.Sub subSetColumnWidthInPixels(ByRef rRange As Range, ByVal iPixels As Long)
rRange.EntireColumn.ColumnWidth = iPixels / 7 / ((iPixels + 5) / iPixels)
End Sub
A teď budu psát o svém nastavení - u mne platí, že
1 pixel=0.75 point
pokud toto vím, takSub subSetColumnWidthInPoints(ByRef rRange As Range, ByVal nPoints As Single)
Call subSetColumnWidthInPixels(rRange, CLng(nPoints / 0.75))
End Sub
No a pakSub test()
For i = 50 To 1000 Step 50
Call subSetColumnWidthInPoints(Range("A1"), i)
Debug.Print Left$(i & WorksheetFunction.Rept(Chr$(160), 20), 20) & Range("A1").Width
Next i
End Sub
Výsledek:50                  50,25
100                 99,75
150                 150
200                 200,25
250                 249,75
300                 300
350                 350,25
400                 399,75
450                 450
500                 500,25
550                 549,75
600                 600
650                 650,25
700                 699,75
750                 750
800                 800,25
850                 849,75
900                 900
950                 950,25
1000                999,75
Toto je samozřejmě neobecné řešení.
1. Šířka znaku 0 se dá zjistit např pomocí API
2. tu 5 navíc - to bude nějaký okraj někde v nastavení - možná je to stejné pro všechna písma, nemám čas nyní ověřovat
3. poměr pixels to points asi záleží na jemnosti monitoru, také bude zjistitelný přes pixels/inch a points/inch (72)

To znamená - obecné řešení je možné, jen nevím jestli to za to stojí.
Třeba někdy budu mít čas a náladu.

Tady si budete muset asi pomoci sama, protože, u mne to funguje dle zadání. Tedy změním najednou všechny obrázky a jsou nedeformované. Jsou pouze přizpůsobené aktuálnímu nastavení.
Pokud chcete přizpůsobovat rozměry buňky obrázku, to je jiná úloha.
Asi bych nastavil
Přesun a změna velikosti,
a pak změnil rozměry buňky - dle rozměru obrázku.
Ale vlastně mi není úplně jasné, co má být konečný stav.

například takto
dále pracujete s originálemSub Uloz()
Dim fname As String

fname = Range("A1").Value
With ThisWorkbook
.SaveCopyAs .Path & "\" & fname & ".xlsm"
End With 'ThisWorkbook

End Sub

pracujete s novou kopiíSub Uloz()
Dim fname As String

fname = Range("A1").Value
With ThisWorkbook
.SaveAs .Path & "\" & fname & ".xlsm", .FileFormat
End With 'ThisWorkbook

End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse