Mohla by som porosiť o úpravu makra?
V stĺpci H mám vzorec
KDYŽ(DÉLKA(C12)<3;"";ZVOLIT(USEKNOUT(ČÁST(C12;3;1)/5)+1;"M";"Ž"))
IF(LEN(C12)<3;"";CHOOSE(TRUNC(MID(C12;3;1)/5)+1;"M";"Ž"))
Potrebovala by som aby pri vytvorení nového mesiaca sa ten vzorec zachoval. Teraz ho musím ručne skopírovať zo starého mesiaca.
Jedná sa stále o ten istý súbor.
Ďakujem.
elninoslov napsal/a:
Upravená verzia.
elninoslov napsal/a:
Veď normálny VLOOKUP/SVYHLEDAT, nie ?Příloha: 36203_36202_vzor.xls (42kB, staženo 0x)
prilož vzorový súbor
kp57 napsal/a:
Je to jen hra, ale když už jsem to tu dal, tak musím dát i opravu.Příloha: 34949_vyhledavac_4.zip (31kB, staženo 9x)
Ďakujem
Prikladám nový súbor nakoľko riešim novú úlohu s tými istými pravidlami.
Trochu som obohatila slovník.
(Len sem nemôžem vložiť súbor aj so slovníkom lebo prekračuje limit)
Ale chcela by som vedieť, či by sa ako zdrojový slovník dala využiť databáza PSP cez link
http://slovniky.juls.savba.sk/?d=kssj4&d=sssj&d=sssj2&d=psp&d=scs&d=sss&d=peciar&d=bernolak&d=hssjV&d=obce&d=priezviska&d=un
Bolo by to možné?
Pri možnosti zaškrtnuté iba PSP.
Našla som toto makro.
Len by som ho potrebovala upraviť pre potreby outlook 2003.
https://social.technet.microsoft.com/Forums/exchange/en-US/9c9a5a1c-c104-4b5a-b8ad-13f4ac228d78/outlook-2003-forward-message-without-header-info?forum=exchangesvrclientslegacy
úprava preposlanej správy (zadanie v otázke nie je už aktuálne, len otázka sa mi už nedá upraviť)
win xp (platí pre pracovný PC, outlook 2003 sk), doma mám win 7, outlook 2003 cz
From: menopriezvisko [mailto:menopriezvisko@gmail.com]
Sent: Saturday, April 22, 2017 1:33 PM
To: 'menopriezvisko@gmail.com'
Subject: predmet
makro
Sub SendMobileAlert(Alert As MailItem)
Dim SafeItem, oItem
Set SafeItem = CreateObject("Redemption.SafeMailItem") 'Create an instance of Redemption.SafeMailItem
Set oItem = Application.CreateItem(0) 'Create a new message
Dim objMail As MailItem
Dim AlertingMessage As Redemption.SafeMailItem
Set AlertingMessage = CreateObject("Redemption.SafeMailItem")
AlertingMessage.Item = Alert
SafeItem.Item = oItem 'set Item property
SafeItem.Recipients.Add "XXXXXXXXXX@gmail.com"
SafeItem.Subject = "predmet"
SafeItem.Body = AlertingMessage.Body
SafeItem.Send
Set objMail = Nothing
Set Alert = Nothing
Set AlertingMessage = Nothing
End Sub
AL napsal/a:
Tvoje neustále zarovnávanie obrázkov je stále variácia na použitie jedných a tých samých vlastností shapes (left, width, top, height)
Potrebujem hromadne centrovať obrázky a klasické nástroje sú na to krátke.
(excel 2003)
Správa poslaná od A pre B, a následne od B pre C.
Toto ostane v tele správy, ak sa pošle od B pre C.
Je možné to automaticky vymazať nejakým makrom?
(win xp, outlook 2003)
---------- Forwarded message ----------
From: odosielateľA <odosielateľA@gmail.com>
Date: 2017-04-18 9:27 GMT+02:00
Subject: dokument poslaný od A pre B
To: príjemca B <príjemcaB@gmail.com>
Čo najlepšie použiť na konverziu z wordu (2003)do PDF pri zachovaní klikateľných hypertextových odkazov (www)a vygenerovaného obsahu? Jedná sa o 50 stranovú bakalárku.
Zistila som, že v Libre office (mám portable verziu) je možnosť exportu do PDF so zachovaním funkčnosti. Na www odkazy sa mi dá kliknúť. Ale vygenerovaný obsah je ako obyčajný text.
Neviem ako, ale podarilo sa mi to rozbehať.
elninoslov napsal/a:
Ak pripadne posledný deň v mesiaci na So/Ne, urobí sa to v Pi. Pri otvorení po zadanom čase samozrejme.
Alebo chcete zapracovať aj sviatky ?
EDIT: Tak prílohu som vymenil za novú.
Išla by spraviť ešte jedna úprava makra?
Ak posledný deň mesiaca padne na sobotu alebo nedeľu, spustiť makro v posledný pracovný deň mesiaca?
Ďakujem veľmi pekne.
elninoslov napsal/a:
Excel to ale nijako nerozdeľuje.
Posielam nový súbor
Ja som našla len "enter"-znak "pí"
A zalomenie riadku "alt+enter"-"zalomená šípka" som zrušila.
Mám nastavené vo worde všetky netlačiteľné znaky.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.