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

Příspěvky uživatele

Iný príklad. Dynamický počet rokov, údajov pre každý rok, a kontrola pomocou PF.

...LookAt:=xlPart...
zmente na
...LookAt:=xlWhole...

+- autobus ...

EDIT 2 (19:41): Opäť vymenená príloha. To snáď nieje možné :)

Skúsim to vysvetliť:
-Skopírujte si zlúčenú bunku z F8 dočasne do AP8 (Ctrl+C, Ctrl+V)
-Označte všetky bunky F8:G39, a dajte zrušiť zlúčenie.
-Onačte dočasnú zlúčenú bunku AP8, dajte Ctrl+C
-Označte všetky bunky F8:G39, a dajte pravý klik a Možnosti prilepenie - Formátovanie
-Dočasnú AP8 zrušte tak, že ju označíte a Domov - Úpravy - Vymazať - Vymazať všetko.

Teraz Vám pôjde zoraďovanie. Filter ale nie, lebo máte zase časť hlavičiek zlúčené riadky, to si ale môžete urobiť inak.

EDIT: Toto funguje len ak chcete zoraďovať podľa Štátu.

EDIT2 :
Urobil som pokus a všetky bunky som zduplikoval a zlúčil (spôsobom vyššie), aby nebola jediná, ktorá by mala inú veľkosť. Takže ste tam mal 2 zlúčené stĺpce, a teraz sú všetky. Pridal som aj filter s malou zmenou hlavičiek. Filtrovanie ide asi normálne. Zoraďovanie ale nefunguje cez filter, ale musí sa označiť oblasť A8:Z39, Údaje - Zoradiť, vybrať polia, ich poradie a smer. Potom to ide.

Za mňa osobne, ak tam to zlúčenie je len kvôli estetike, tak sa na to vykašlite, bunky urobte normálne (ak sú štáty široké, skúste skratky), a nebudú takéto nevyspytateľné problémy. Veď spodná tabuľka ZÁLOHY bude vpravo vytŕčať len o 2 bunky (o jednu ak nebude medzi nimi pauza).

A keby boli zlúčené iba naoko ?
Zarovnanie na stred výberu
Funguje to dobre.

Tak áno, ale vymeniť si vo vzorci prvý a tretí výskyt [@Dátum] za napr. "SERVIS" alebo čokoľvek iné, už Jano z Blavy zvládne. Druhý výskyt [@Dátum] vo vzorci nemeniť, ten je potrebný.

Tak ešte príklad

No a čo určuje kedy bol servis vykonaný ??? Veď predsa môže byť vykonaný pri 2098 hodinách, a potom treba hľadať položku s min 3098 hod. Nie 3000.

A test chyby musí byť na <>0, nie na =0.

Sub RunEveryTwoMinutes()
ActiveWorkbook.Save
Application.Ontime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes"

On Error Resume Next
Application.Windows("Test2.xlsm").Activate

If Err <> 0 Then Call aha
end sub

Ak chcete iba otestovať či je súbor s daným názvom otvorený, a nie ho pritom aktivovať, tak napr.
Sub RunEveryTwoMinutes()
Dim Test As Boolean

ActiveWorkbook.Save
Application.Ontime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes"

On Error Resume Next
Test = Application.Windows("Test2.xlsm").Visible

If Err <> 0 Then Call aha
end sub

alebo použite Workbooks:
Sub RunEveryTwoMinutes()
ActiveWorkbook.Save
Application.Ontime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes"

On Error Resume Next
If Len(Workbooks("Test2.xlsm").Name) = 0 Then Call aha
end sub

Príklad

Ukážte 1 súbor s dátami a želanú podobu výsledkového súboru.

Podľa mňa máte nedomyslených alebo neuvedených zopár dôležitých vecí. Napr. ako chcete dopĺňať do skladu nové veci, kontrolu či je možné vôbec odpísať požadovaný počet, čo ak nie (ostatné odpísať alebo zastaviť, lebo bude nekompletná obj.), história objednávok a výdaju sa nevedie ? ... atď ...

Každopádne sa skúste inšpirovať, vyhľadávanie pozície som dal cez Collection. Záleží na obvyklom počte položiek skladu a objednávky, či bude rýchlejšie Match, For, Collection, Evaluate, a zápis či po jednom alebo upravené celé skladové pole...

Popis sa mi už nechcelo robiť.

Príklad. V makre je popis 3 druhov.

Vlastnosť
Worksheets(1).ProtectContents

S tým riešiteľom Vám žiaľ nepomôžem, a ten PF stačí málo poupraviť.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse