Často kladené otázky (ČKO) anebo (FAQ)

Při mazáni listu v průběhu makra se mne Excel zeptá, zda ho chci opravdu smazat. Jakým příkazem mohu vypnout tuto hlášku ?

Použijte příkaz:

Application.DisplayAlerts=False

Pro znovuobnovení viditelnosti použijte:

Application.DisplayAlerts=True

Stejný příkaz můžete použít, pokud při zavírání souboru nechcete, aby se zobrazila výzva k uložení.

 

Chtěl bych, aby mi makro poslalo údaje z počítače na mobil v určitou hodinu (např.výsledky Dow Jones indexu). Mohu spustit automaticky makro v určitý čas i když nejsem u počítače?

Použijte makro:

Sub Poslat()

Application.OnTime TimeValue(”22:00:00”), ”Nazevmakrakteresemaspustit”

End Sub

Při odchodu od počítače spustíte makro(musí zůstat zapnutý). Ve 22 hodin se automaticky spustí makro ”Nazevmakrakteresemaspustit” které např. ve Vašem případě pošle data na mobilní telefon.

 

Co když ale potřebuji spustit makro např. až v neděli?

Použijte 2 makra:

Sub poslat()

Application.OnTime DateValue("03/25/2001"), "cas"

End Sub

Sub cas()

Application.OnTime TimeValue("22:00:00"), " Nazevmakrakteresemaspustit "

End Sub

Počítač i Excel musí zůstat po celou dobu spuštěn. Pokud dojde k vypnutí Excelu, makro ”Poslat” se musí spustit znovu.

V Excelu jsou prý takzvaná "Velikonoční vejce", jak je mohu najít?

"Velikonoční vejce", je vlastně skrytá cesta, jak objevit jména tvůrců Excelu uschovaná v aplikaci.

Excel 97 (Excel 8)

Proveďte následující kroky:

  1. Otevřete nový sešit
  2. Stiskněte F5
  3. Napište X97:L97 a stiskněte Enter
  4. Stiskněte Tab
  5. Stiskněte Ctrl+Shift a klikněte na Chart Wizard tlačítko v menu.

Měla by se Vám objevit na celé obrazovce animace. Pomocí myši se na ní můžete pohybovat.

Uvidíte purpurovou 3D krajinu, nad kterou můžete pomocí myši "létat". Najděte šedou kamennou pyramidu. Leťte k černé straně pyramidy na které se Vám objeví jména tvůrců Excelu.

Poznámka: Jestliže Vám to nefunguje, jděte do > Nástroje > Možnosti, klikněte na list Převod. Odstraňte zatržení ze "Převod navigačních kláves" a klikněte OK. Zkuste znovu vyvolat vejce.

Excel 95 (Excel 7)

Proveďte následující kroky:

  1. Otevřete nový sešit
  2. Označte celý řádek 95
  3. Stiskněte Tab
  4. Vyberte Help / O příkazech Microsoft Excel
  5. Stiskněte Ctrl+Shift a klikněte na tlačítko Technická podpora

Dostanete se do neExcelovského okna (příznivci Doomu se budou cítit jako doma). Prozkoumejte okno pomocí šipek a zkuste i další klávesy.

Poznámka: Jestliže jste neviděli fotku, neprozkoumali jste celé okno! Napište excelkfa.

Jak mohu vytisknout v záhlaví, nebo v zápatí stránky, celou cestu k souboru?

Jto možné pouze pomocí makra. Pokud si následující makro vložíte do modulu pro "Tento sešit", cesta k souboru se Vám na každé stránce vytiskne v pravém rohu zápatí. 

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    For Each sht In ThisWorkbook.Sheets 
        sht.PageSetup.RightFooter = ThisWorkbook.FullName 
    Next sht

End Sub

Mohu ukončit Excel pomocí makra?

Použijte příkaz:

Application.Quit

Jakým příkazem mohu vypnout viditelnost změn při běhu makra?

Použijte příkaz, který současně zrychlí běh makra (díky nezobrazování změn).

Application.ScreenUpdating=False

Pro znovuobnovení viditelnosti použijte:

Application.ScreenUpdating=True

Při převodu souboru .dbf do Excelu mi v některých buňkách zůstanou tabelátory. Dají se nějak odstranit?

Použijte příkaz v makru s tzv. "Charcode", které vyčistí aktuální list od všech tabelátorů a oddělovačů řádků:

Cells.Replace What:=Chr(13) & Chr(10), Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False

Cells.Replace What:=Chr(10), Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False

Chr(13) je znak pro tabelátor
Chr(10) je znak pro oddělovač

Další znaky viz nápověda VBA >Chr Function

Při převodu textu s čísly z Wordu do Excelu jsou desetinná místa oddělena čárkou a Excel je nebere jako čísla. Jak nahradit čárku tečkou?

Použijte příkaz v makru:

ActiveCell.Replace What:=",", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False

Pozor, toto makro nefunguje, pokud máte defaultně nastavené ve Windows čárky jako oddělovače desetinných míst.

Při automatickém nahrávání makra pro kopírování se mi nahraje příliš mnoho příkazů. Existuje kratší příkaz?

Místo nahraného makra, které kopíruje obsah buňky A1 do buňky B1:

Range("A1").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste

Použijte příkaz v makru:

Range("A1").Copy Range("B1")

Pokud použijete místo příkazu Copy příkaz Cut, makro obsah přesune.

Zpět na hlavní stránku

* Kurzy * Akcie * Práce * Zájezdy * Zájezdy * Meteobox * Auto *