Jo pardon, ještě:
pokud formát měna, tak Value zaokrouhluje, Value2 ne!citovat
pokud formát měna, tak Value zaokrouhluje, Value2 ne!citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Nesrovnalosti v Excelu
MS Excel
Téma: Nesrovnalosti v Excelu 
Zaslal/a 7.10.2016 15:10
Už jsem asi blázen... Dělám revizi svých řešení. Léta jsem učil něco, co je najednou jinak, a to ve verzi Excelu, ve které jsem to měl vyzkoušené...
Pár postřehů z poslední doby (Windows 10 CZ, Excel 2010 CZ SP2, externí monitor, grafika AMD)
Výchozí šířka buňky je na mém externím monitoru 8,38 namísto "naučených" 8,43 (výchozí Calibri 11)
U starších sešitů se mi rozjebalo měřítko vložených tvarů ve vodorovném směru. (Tohle bych přisuzoval buď Windows 10, které pořád nejsou schopné korektní práce na více monitorech, nebo to dělá grafika, jejíž ovladače už pro AMD dělá jiná firma a která i dost často zamrzala.)
Ve VBA Array (oproti některé literatuře) vždy vracelo pole s dolní mezí 1 (bez užití Option Base). Nyní je dolní mez prostě nula.
Výsledkem překlopení jednořádkové oblasti do pole bylo tuším jednorozměrné pole (čili jednorozměrné pole bylo ekvivalentem jednořádkové oblasti buněk). Teď je jakákoliv oblast překlopená do pole "dvourozměrná".
Windows 8/8.1/10 "ztrácí" zástupce nemaximalizovaných sešitů Excelu v systémové liště.
Jsem zvědavý, na co ještě přijdu...
Děje se něco z toho i vám?
Strana: « předchozí 1
2
(11.10.2016 21:16)#033055
Pokud to trochu zjednoduším, tak můžeme považovat value za objekt a value2 za hodnotu.
Používám value2 pro čtení i pro zápis (podle dat a potřeb, některé vlastnosti se nepřenášejí), po zápisu raději zkontroluji.
Je to o hodně rychlejší a pro větší data se práce vyplatí. Pokud použijeme v testu value2, dostaneme o dost jiný čas.
Sub test()
Dim t As Double
t = Evaluate("=NOW()")
Dim i As Byte
Dim a
Dim b
b = Selection.Value2
For i = 0 To 254
a = Application.Transpose(b)
Next i
Debug.Print WorksheetFunction.Text(Evaluate("=NOW()") - t, "m:ss.000")
End Sub
citovat
Používám value2 pro čtení i pro zápis (podle dat a potřeb, některé vlastnosti se nepřenášejí), po zápisu raději zkontroluji.
Je to o hodně rychlejší a pro větší data se práce vyplatí. Pokud použijeme v testu value2, dostaneme o dost jiný čas.
Sub test()
Dim t As Double
t = Evaluate("=NOW()")
Dim i As Byte
Dim a
Dim b
b = Selection.Value2
For i = 0 To 254
a = Application.Transpose(b)
Next i
Debug.Print WorksheetFunction.Text(Evaluate("=NOW()") - t, "m:ss.000")
End Sub
citovat
@lubo
Díky za postřeh. Tímto se omlouvám Transpose za to, že jsem tvrdil, že je pomalá ;))
Při použití Value2 je to mírně rychlejší než při použití pole. To je asi stále bezpečnější (vše máme pod kontrolou).
Děkuji
Jste nějak schopen upřesnit tu poznámku?
podle dat a potřeb, některé vlastnosti se nepřenášejícitovat
Díky za postřeh. Tímto se omlouvám Transpose za to, že jsem tvrdil, že je pomalá ;))
Při použití Value2 je to mírně rychlejší než při použití pole. To je asi stále bezpečnější (vše máme pod kontrolou).
Děkuji
Jste nějak schopen upřesnit tu poznámku?
podle dat a potřeb, některé vlastnosti se nepřenášejícitovat
Strana: « předchozí 1
2
Uživatelské menu
Nejste přihlášen(a)
\n
\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