Příspěvky uživatele
< návrat zpět
Pred použitím makra na nový mesiac, použite najskôr EnableEvents = False, aby sa nevyvolali makrá jednotlivých listov.
Inak to stráženie oblasti cez Address nieje dobré. Čo ak dôjde k zmene oblasti čiastočne prekrývajúcej stráženú oblasť ? Nebude to vyhodnotené ako strážená oblasť. Treba použiť Intersect.
Samozrejme to ide aj makrom, na množstvo spôsobov. Tu máte jeden jednoduchý príklad. Ale nevidím jediný dôvod aby ste používali na toto makro. Ak nechcete aby tam boli vzorce, tak tie sa predsa dajú schovať a zamknúť. Ak ide len o cvičenie, dajú sa použiť ešte napr. polia ... Všetko záleží ako presne vyzerajú dáta, ktoré polia sa majú zobraziť, ich pozícia v dátach, atď ...
Žiaľ nepomôžem, PP absolútne nepoužívam. Čo narýchlo pozerám na nete, tak mne na O2019 nefunguje nič.
Skúste toto, mne to na O2019 nefunguje, no je to písané pre O2007/2010.
Len pár objasňujúcich otázok, ktoré možno niekomu pri hľadaní riešenia pomôžu:
1. Otvárate AVI súbor v PowerPointe? Na AVI sú video prehrávače.
2. Akým spôsobom ho otvárate? Z Outlooku? Dvojklikom z prieskumníka? ...
3. Alebo to myslíte pri vkladaní do PowerPointovej prezentácie? V akom umiestnení sa AVI nachádza?
4. Či otvárate PPTX, v ktorom je vložený AVI?
5. Inštaloval ste nejaké kodeky na prehrávanie videí? Ak áno, aké, ak nie skúste.
6. V akom kodeku je ten AVI? treba pozrieť kompatibilitu kodek+PP2007.
Neviem či má O2007 Centrum dôveryhodnosti, ale novšie to majú Súbor - Možnosti - Centrum dôveryhodnosti - Nastavenia centra dôveryhodnosti - Chránené zobrazenie - skúste nezaškrtávať.
Pre istotu si vypnite v Možnosti Prieskumníka - Zobrazenie - Skryť prípony známych súborov.
Súbor - Uložiť ako - Nástroje - Všeobecné možnosti - tam sa nastavuje heslo aj predvolený typ otvorenia.
Ak je to skutočne iba tak ako popisujete, tak to makrom určite nerobte.
Pridal som aj maticovú verziu, ktorá nepotrebuje žiadny pomocný stĺpec. Ale stále je tu otázka, či sa jedná o Office 2019.
A dajte si pozor, lebo "AUS" nieje "AUS " !!! Máte tam bordel s medzerami aj v hornom zozname aj v dolnej tabuľke. Ja som tieto problémy už v mojej predošlej prílohe odstránil, len som o tom zabudol napísať.
V tomto konkrétnom prípade napr. takto
2 príklady
Set Oblast = Worksheets("Data").Cells(c.Row, 3).Resize(pocet, 13)
To je dobrý hlavolam ...
???
Tak si vymyslím z brucha napr. funkcia TODAY/DNES alebo NOW/NYNÍ spôsobí prepočet, teda zmenu.
Tak za Close pridajte False
xlApp.Workbooks(poleNazvu(c)).Close False
Tak napr.
Private Sub CommandButton2_Click()
Dim TextFile As Integer
Dim FilePath As String
Dim FileContent As String
Dim ExtensionLenght As Byte
'File Path of Text File
FilePath = Cells(5, 1) '& ListBox1.Value & "\" & ListBox2.Value
'Determine the next file number available for use by the FileOpen function
TextFile = FreeFile
'Open the text file in a Read State
Open FilePath For Input As TextFile
'Store file content inside a variable
FileContent = Input(LOF(TextFile), TextFile)
ExtensionLenght = Len(FilePath) - InStrRev(FilePath, ".") + 1
FilePath = Left$(FilePath, Len(FilePath) - ExtensionLenght) & "_" & Right$(FilePath, ExtensionLenght)
'Clost Text File
Close TextFile
'Find/Replace
FileContent = Replace(FileContent, "L M30", ";edit")
'Determine the next file number available for use by the FileOpen function
TextFile = FreeFile
'Open the text file in a Write State
Open FilePath For Output As TextFile
'Write New Text data to file
Print #TextFile, FileContent
'Close Text File
Close TextFile
End Sub
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