Příspěvky uživatele
< návrat zpět
elninoslov napsal/a:
No ale Vy predpokladám hovoríte o tom, že Vám nevymaže posledný riadok na liste "zoznam". To makro ale práve list "zoznam" má vo výnimkách (funkcia "CheckMesiac"). Makro sa tohto listu nedotkne, tak mi je záhadou, ako Vám môže nevymazať posledný riadok z listu, v ktorom nič nemaže.
A ďalej pozerám, že som dával (to je moje makro) konštantu PRVY_RIADOK, ktorú očividne nikde nepoužívate. Teraz by mala byť asi 22, nie 20. To je ale fuk. Hovorím to len preto, že to naznačuje "nefundované" úpravy :).
Áno úpravy sú nefundované, lebo ich robím tak ako viem, pretože to neviem. Tak to tak aj vyzerá, konštantu som opravila. Keď aplikujem makro (aktuálne február) tak v novo vytvorenom súbore (marec) ostane nevymazaný posledný záznam v hárku zoznam.
elninoslov napsal/a:
O ktoré makro ide?
A pardon, ide o makro, ktoré je viazané na tlačítko Ďalší mesiac.
Upravovala som si makro a doplňala.
Potrebovala by som ho trochu učesať.
V prílohe 2 súbory.
1 pred apliáciou a druhý po aplikácii makra.
Po spustení makra mi nevymaže údaje v poslednom riadku, kde je záznam v hárku Zoznam v novovytvorenom súbore (nový mesiac)
VYRIEŠENÉ.
Tak som to vyriešila:
Pridala som toto:
.Cells(22, 10).Resize(54, 10).ClearContents
A vymenila som 7 za 11
.Cells(55, 1).Resize(riadok - 55, 11).ClearContents
.Cells(22, 2).Resize(54, 7).ClearContents
.Cells(22, 10).Resize(54, 10).ClearContents
If riadok - 54 > 0 Then
.Cells(55, 1).Resize(riadok - 55, 11).ClearContents
.Cells(55, 1).Resize(9) = 1
.Cells(55, 9).Resize(9) = WorksheetFunction.Transpose(Array("OK", "NK", "NKJIS", "UK", "ORL", "JORL", "OMFCH", "Očné", "JOCK"))
Mám makro, ktoré mi vyvolá šablónu
pri kliknutí na Nová.
Sub mail()
Set msg = Application.CreateItemFromTemplate("C:\Users\meno\AppData\Roaming\Microsoft\Templates\template.oft")
msg.Display
End Sub
Ako docieliť, aby makro natiahlo šablónu alebo pripojilo ten istý text pri kliknutí na Odpovedať alebo Preposlať?
Windows má funkciu. Hľadať duplicitné súbory.
Možno by sa to dalo použiť.
Stalker napsal/a:
Myslíš to takto viz soubor?
Taky by nebylo špatné si ujasnit jaká kritéria se mají počítat AOVI vs AOV1Příloha: 46969_kopie-wall-subtotal-medzisucet.xlsx (19kB, staženo 0x)
Áno myslela som to presne takto.
Áno, už som si všimla, že tam mám chybu, opravila som si to.
Ja som tušila, že na to bude dobrá SUMIF, ale nevedela som ju nijako zostaviť. Ešte raz vďaka.
Máma tabuľku, kde som použila funkciu subototal.
Potrebujem spočítať spotrebu zvlášť pre odd AOCM a AOV1.
Funkcia funguje len pri vyfiltrovaní.
Bez filtra mi zobrazuje všetky sumy rovnaké.
S filtorm je suma AOCM a a AOVI totožná.
Možno by bola vhodnejšia suma sumif alebo sumproduct,
ale neviem to zakomponovať, skúšala som rôzne spôsoby.
elninoslov napsal/a:
To je predsa pre to, že to makro, ako som napísal, je robené na data, ktoré UŽ MAJÚ PRIDANÝ STĹPEC "N" "Inštrumentárka".
elninoslov napsal/a:
No kým som to urobil, dala ste novšiu prílohu. Pozrite či to sedí aj na tú novšiu. Robil som to na tú o 9:11. Je to aj s tým pridaným stĺpcom, ktorý má byť podľa Vás za M->O, ale za M je N :)
Tiež sa dátum neťahá z A2 do J2, ale z A3 do J1.Příloha: 46862_aktualizacia.zip (38kB, staženo 1x)
Genialita. Máte pravdu samozrejme.
Ohladne dátumu som vychádzala z buniek pred makrom.
A čo sa týka toho stĺpca, je to tak. Za M je N, nie O.
Nová príloha s Vašim novým makrom.
Úprava sedí aj na starú verziu. Je to výborné.
V tomto súbore mi makro funguje dobre.
Ale pri aplikácii na reálne dáta mi neviem prečo:
v stĺpci N Prichod pac na COS mi po makre zmení formát na desatinné číslo napriek zadanému formátu.
Ešte sa na to lepšie pozriem.
Zajtra budem múdrejšia.
Príloha makro.txt
Nevedela som zakomponovať úpravy do aktuálneho makra.
Tak som si urobila ešte jedno a dala som ho vyvolať.
Len ešte neviem oddeliť sály.
elninoslov napsal/a:
To je moje makro, pamätám si na to.
Áno ja viem, že je to Vaše makro.
Z neho som vychádzala.
Toto je to vlákno.
http://wall.cz/index.php?m=topic&id=36348
V prílohe je pôvodné makro.
Áno doplním info.
To čo som dala do kódu, je upravené a okresané.
Už robí to čo potrebujem, len ešte potrebujem opticky oddeliť sály.
Zajtra je stretko s informatikom, tak sa tabuľka ešte zmení. V každom prípade za za stĺpcom M Operatér bude ešte stĺpec O Inštrumentárka
Takže stĺpcov bude od A do AB (teraz AA)
Font Arial, 10
Upustila som od toho, aby bolo poznámky kurzívou.
Nie je to nutné.
Čo vypadlo: skrývanie stĺpcov, číslovanie (poradové číslo) podfarbenie celého riadka (stačí v stĺpci Z PoznámkaCOS) Stĺpce s časovými údajmi, ktoré sa predtým vypĺňali ručne v exceli sú už importované, stĺpce sa pridali makrom po importe.
Neviem si poradiť s úpravou makra.
Opäť sa zmenila situácia.
konštanty ostávajú rovnaké
dodatok-zelený
služba,príslužba-modrá
preklad-sivý
neop.- červený
aplikovať na text v stĺpci Z PoznámkaCos,
(predtým bol celý riadok)
optické oddelenie sál (hrubým ohraničením)
1 riadok - hlavička Prehľad operácií (vrátane akätny)na OCOS za deň
OPRAVA
Do bunky J2 potiahnúť dátum z bunky A3.
DOPLNENIE
Nová príloha s novým makrom (od elninoslov)
marjankaj napsal/a:
kabaka napsal/a:
Lebo si vyhodila riadok resp. tam nemáš.
.MatchWholeWord = True
Ok, nič som nevyhodila.
Kopírovala som originál Tvoje makro.
Nebolo to tam.
Doplnila som, funguje.
Pri týchto samostatných makrách som narazila na menší zádrhel pri službe a príslužbe.
Ide o to, že vlastne text SLUŽBA sa nachádza v texte príSLUŽBA.
A ak sa nachádzajú poznámky služba a príslužba pod sebou, tak to PRÍ ignoruje.
Pri kliknutí príslužba to dofarbí.
marjankaj napsal/a:
Veď skúšaj meniť....
.MoveLeft Count:=19, Extend:=wdExtend
Ok, vyskúšala, som, tu funguje 18.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články