Příspěvky uživatele
< návrat zpět
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
\nMenu
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.
RSS nejnovější články