Příspěvky uživatele
< návrat zpět
Makro funguje, ale pri prechode z 2003 do 2007 inak formátuje. A už si s tým neviem poradiť.
Za prvým riadkom po zaenterovaní odskočí riadok o 12 pt. V 2003 to nerobilo.
Novú poštovú správu mám formátovanú na Times New roman, 12 pt, ale Projekt spúšťaný makrom má Calibri, 11 pt.
Sub mail()
'-----------------------------------------
'DECLARE AND SET VARIABLES
Dim myOutlok As Object
Dim myMailItm As Object
Dim Signature As String
Set otlApp = CreateObject("Outlook.Application")
Set OtlNewMail = otlApp.CreateItem(olMailItem)
'-----------------------------------------
'GET DEFAULT EMAIL SIGNATURE
Signature = Environ("appdata") & "\Microsoft\Signatures\"
If Dir(Signature, vbDirectory) <> vbNullString Then
Signature = Signature & Dir$(Signature & "*.htm")
Else:
Signature = ""
End If
Signature = CreateObject("Scripting.FileSystemObject").GetFile (Signature).OpenAsTextStream(1, -2).ReadAll
'-----------------------------------------
'CREATE EMAIL
OtlNewMail.HTMLBody = Signature
With OtlNewMail
.To = "menopriezvisko@.firma.sk"
.CC = ""
.Subject = "dodatok do MOSu!"
.HTMLBody = "<HTML><BODY>Dobrý deň!<br>Prosím o nahodenie dodatku do MOSu!<br>Ďakujem. <br><br><br><br><br></BODY></HTML>" & Signature
.Display
'.Send
End With
'-----------------------------------------
'CLEANUP
Set OtlNewMail = Nothing
Set otlApp = Nothing
Set otlAttach = Nothing
Set otlMess = Nothing
Set otlNSpace = Nothing
End Sub
DOPLNENIE
Tak dosiahla som font Times, zrušila som odsek ale veľkosť stále 11.
.HTMLBody = "<HTML><BODY><font face=times><font size=12px>text</p> </size></font></BODY></HTML>
Pozri.
https://support.microsoft.com/sk-sk/help/213609/how-to-hide-sheets-and-use-xlveryhidden-constant-in-a-macro
https://www.easyexcel.sk/kurz-excel-online/excel-makra-priklady/
Toto som vyskúšala, funguje.
Ako odkryť všetky hárky naraz vo VBA
Pre odkrytie všetkých skrytých hárkov naraz môžeme použiť nasledovné makro:
'Odkryje harky v zosite.
Sub odkryharky()
Dim Harok As Worksheet
For Each Harok In ActiveWorkbook.Worksheets
Harok.Visible = xlSheetVisible
Next Harok
End Sub
https://www.extendoffice.com/sk/documents/excel/672-excel-hide-display-sheet-tabs.html
https://www.porada.sk/t154980-odkryt-harky.html
Excel 2007 (pc v práci)
Keď použijem funkciu hľadať (ďaľekohľad), tak nájdená hodnota v danom stĺpci vôbec nie je farebne zreteľná od ostatných údajov.
V možnostiach excelu som nenašla nastavenie na iné zobrazenie farby.
Vyskúšala som si stĺpec aj vyfarbiť inou farbou, ale zmena pri funkciu hľadať sa neprejavila.
Mám makro na označenie aktívnej bunky, ale to mi nerieši situáciu, potrebujem farebne odlíšiť hľadanú bunku tak, aby som ju videla a nezanikla medzi ostatnými.
elninoslov napsal/a:
Ukladať zošit po každej zmene každej bunky ? Navyše to zrušenie kopírovania, nemá na rováši Vaše makro.
Nechcem ukladať zošit po každej zmene bunky, chcem uložiť hárok pri prepnutí z hárka do hárka s tým, aby nebolo možné vrátiť krok späť a zároveň, aby fungovala funkcia prilepiť.
Nechcem zrušiť kopírovanie. Pridaním vymazania bunky L5 do makra sa mi zrušila možnosť prilepovania.
Preto sa pýtam, či by nebolo možné ignorovať kopírovanie a nepokladať ho za akciu,
Ale brať do úvahy ako zmenu len zápis do bunky.
Tak to čo som potrebovala funguje.
Problém je, že sa mi nedá kopírovať a prilepovať údaje z hárka do hárka.
Dalo by sa to ošetriť, aby ignorovalo kopírovanie nebralo ako akciu, len zápis do bunky?
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not ThisWorkbook.Saved Then ThisWorkbook.Save
Range("L5").ClearContents
ThisWorkbook.Saved = True
End Sub
elninoslov napsal/a:
No a keby sa po vykonaní vašeho makra vymazal aj zoznam Undo ? Teda sa napr. vymaže nejaká nepotrebná bunka, čo zruší doterajšiu históriu Undo (lebo VBA nevytvára Undo), a nastaví sa príznak Saved.
Ďakujem za nápad, spravila som to tak, funguje to.
elninoslov napsal/a:
V prípade, že sú rovnaké vždy po sebe, ... Ak nejdú po sebe tak napr. (maticový vzorec
OBLAST_ODD je Definovaný názov
)
Ďakujem, funguje.
elninoslov napsal/a:
No a keby sa po vykonaní vašeho makra vymazal aj zoznam Undo ? Teda sa napr. vymaže nejaká nepotrebná bunka, čo zruší doterajšiu históriu Undo (lebo VBA nevytvára Undo), a nastaví sa príznak Saved.
Vyskúšam a uvidím.
Pavlus napsal/a:
Zavřít a znovu otevřít sešit. Triviální, ale účinné ;-).
P.
Áno aj tak robím, ale hľadám iné riešenie.
Rejpal napsal/a:
Nějaká zrada, soubor 1kb = ??
Už by to malo byť ok, nahrala som nanovo.
Ako zapezpečiť, aby pri kliknutí na odd. v stĺpci A (KUCH,OK,NK,UK,ORL,OMFCH,KPCH) ma hodilo na posledný zápis (posledné číslo) v stĺpci A.
prvá časť - vymeniť č za nulu sa dá cez "ďalekohľad" -hľadať a nahradiť
Excel 2007
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not ThisWorkbook.Saved Then ThisWorkbook.Save
End Sub
Keď dám krok späť, tak je makro nefunkčné.
Zmeny uložené makrom sa vrátia späť.
Bohužiaľ to tento office umožňuje.
https://support.office.com/sk-sk/article/vr%C3%A1tenie-sp%C3%A4%C5%A5-op%C3%A4tovn%C3%A9-vykonanie-alebo-zopakovanie-akcie-84bdb9bc-4e23-4f06-ba78-f7b893eb2d28
"Zmeny môžete vrátiť späť dokonca aj po ich uložení..."
Tlačítkom? Tlačítkom spúšťaš makro?
príloha? aký office? excel 2007 má 7 podmienok podmieneného formátu a medzi nimi je aj ponuka farby
Ty nemáš čas učiť sa a chceš hotový výsledok...
Pozri... ale bez faktúry
http://qr-platba.cz/generator/
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