Zavřít a znovu otevřít sešit. Triviální, ale účinné ;-).
P.citovat
P.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Čo pridať do makra, aby bolo účinné?
Vyskúšam a uvidím.
Áno aj tak robím, ale hľadám iné riešenie.citovat
Ďakujem za nápad, spravila som to tak, funguje to.citovat
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.citovat
MS Excel
Téma: Čo pridať do makra, aby bolo účinné? 
Zaslal/a kabaka 16.4.2019 11:22
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í..."
No a keby sa po vykonaní vašeho makra vymazal aj zoznam Undo ?
Sub makro()
Range("I1").ClearContents
ThisWorkbook.Saved = True
End Sub
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.citovat
Sub makro()
Range("I1").ClearContents
ThisWorkbook.Saved = True
End Sub
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.citovat
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.citovat
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.citovat
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 Subcitovat
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 Subcitovat
Ukladať zošit po každej zmene každej bunky ? To bude stráášne zdržovať. Navyše to zrušenie kopírovania, nemá na rováši Vaše makro, ale samotné ukladanie Excelu. Skúste si urobiť Ctrl+C a dať iba Save. Kopírovanie sa Vám zruší.citovat
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.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\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