Příspěvky uživatele
< návrat zpět
Použila som poslednú verziu.
Pri premenovaní súborov z xls na xlsx nebol problém.
Ale pri premenovaní z doc na docx mi word vykázal chybu. Nechcel otvoriť dokument.
Keď som ich znovu premenovala na doc, bolo ich možné otvoriť.
Dnes som si pozrela toto video.
Tento krok som už spravila pred jeho videním. Na makro-projekt to nemalo vplyv.
https://www.youtube.com/watch?v=GitPWH0RybQ
Už som zmenila aj šablóna NormalEmail, políčko nepridávať medzery za rovnakým štýlom je tam zaškrtnuté. Nová správa je už bez medzier, ale v projekte sa to neprejaví.
Na nepridávanie medzier som našla dva linky
https://stackoverflow.com/questions/23418243/how-can-i-programmatically-change-dont-add-space-between-paragraphs-of-the-sam
https://stackoverflow.com/questions/15522349/remove-space-before-and-after-in-outlook
Toto je funkčné, len neviem ako to pridať do makra.
Sub FixParagraphSpacing()
Dim objOL As Application
Dim objDoc As Object
Dim objSel As Object
Set objOL = Application
Set objDoc = objOL.ActiveInspector.WordEditor
Set objSel = objDoc.Windows(1).Selection
objSel.ParagraphFormat.SpaceBefore = 0
objSel.ParagraphFormat.SpaceBeforeAuto = False
objSel.ParagraphFormat.SpaceAfter = 0
objSel.ParagraphFormat.SpaceAfterAuto = False
Set objOL = Nothing
Set objDoc = Nothing
Set objSel = Nothing
End Sub
elninoslov napsal/a:
Heh, samozrejme :)
Ja nemám žiaden taký súbor v danom umiestnení, tak som si vyremoval apostrofom riadok, kde sa načíta obsah toho súboru. Odstránte si apostrof na začiatku riadku
'Signature = CreateObject(...
Vyššie som to už urobil.
ok opravené, ale veľkosť mi ale stále neberie, vyskúšala som už rôzne zápisy. 16 - je u mňa 11, a 17 je už 13
bez ohľadu nato, či dám pt, px alebo nedám nič
pri iných je 10 -10, 13 je 13, ale 12 stále len 11
pridala som aj desatinnú čiarku aj bodku a nič
small je na 11, medium je na 13,5, large je na 18
už som zmenila aj jednotky v outlook z cm na body - 13, 10 sa nastaviť dá, ale 12 hodí stále na 11
aj toto som vygooglila
https://litmus.com/community/discussions/6011-how-do-you-convert-pt-units-into-px-units
elninoslov napsal/a:
Mne to robí takto OK:
Pouužila som celé vaše makro.
Tak formát funguje, medzery som si presunula.
Len namiesto podpisu mi ukazuje cestu k nemu, to som predtým nemala.
V tom mojom mi zase funguje podpis, formát je times, nie time new roman, a veľkosť mi neberie.
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.
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