Přeskočit navigaci | Přeskočit na novinky
     

Jste zde: Úvodní stránka » excel » vba-priklady-kodu » prakticke-ukazky-kodu-excel-vba

VBA Excel - praktické ukázky kódu pro použití

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

kódy pro práci ve VBA...

Úvod

Sem tam potřebuji rychle nějaký příkaz v Excelu a jelikož není v hlavě tak musím složitěji hledat v nápovědě. Navíc ať neumusím odpovídat stále na stejné dotazy stačí když pošlu odkaz a dotyčný si může požadovaný příkaz najít.

Takže nebudu to okecávat a následuje seznam kódu. Ať slouží.

Práce s mřížkou

Sub VBA_Excel_Mrizka_zapnuti()
  ActiveWindow.DisplayGridlines = True
End Sub

Sub VBA_Excel_Mrizka_vypnuti()
  ActiveWindow.DisplayGridlines = False
End Sub

Sub VBA_Excel_Mrizka_opak()
  stav_ve_kterem_je_mrizka = ActiveWindow.DisplayGridlines
  ActiveWindow.DisplayGridlines = Not stav_ve_kterem_je_mrizka
End Sub

Odkazy v Excelu

Sub VBA_Excel_RC_odkazy()
  With Application
    .ReferenceStyle = xlR1C1
  End With
End Sub

Sub VBA_Excel_normalni_odkazy()
  With Application
    .ReferenceStyle = xlA1
  End With
End Sub

Hypertext

Sub VBA_Excel_hypertext_vlozit()
  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
    "http://office.lasakovi.com", TextToDisplay:="office.lasakovi.com"
End Sub

Komentare

Sub VBA_Excel_komentar_vloz()
  ActiveCell.AddComment
  ActiveCell.Comment.Visible = False
  ActiveCell.Comment.Text Text:="Pavel Lasák:" & Chr(10) & "Komentář"
End Sub

Sub VBA_Excel_komentar_zobraz()
  ActiveCell.Comment.Visible = True
End Sub

Sub VBA_Excel_komentar_skryt()
  ActiveCell.Comment.Visible = False
End Sub

Sub VBA_Excel_komentar_zmena_stavu()
  stav_ve_kterem_je_komentar = ActiveCell.Comment.Visible
    ' odpověď střízlivý nedostanete :)
  ActiveCell.Comment.Visible = Not stav_ve_kterem_je_komentar
End Sub

Sub VBA_Excel_komentar_smaz()
  Selection.ClearComments
End Sub

Odstraň diakritiku

Function OdstarnDiakr(source As Variant) As String Const cz As String = "áÁčČďĎéÉěĚëËíÍňŇóÓöÖřŘšŠťŤúÚůŮüÜýÝžŽ" Const en As String = "aAcCdDeEeEeEiInNoOoOrRsStTuUuUuUyYzZ" Dim TmpS As String Dim OutS As String Dim I As Integer OutS = "" If IsNull(source) Or source = “” Then OdstarnDiakr = "" Else For I = 1 To Len(source) TmpS = Mid(source, I, 1) If InStr(1, cz, TmpS, vbBinaryCompare) > 0 Then TmpS = Mid(en, InStr(1, cz, TmpS, vbBinaryCompare), 1) OutS = OutS & TmpS Next I OdstarnDiakr = OutS End If End Function

Práce s listy

Sub VBA_Excel_Odstraneni_Listu()
  ActiveWindow.SelectedSheets.Delete
End Sub

Sub VBA_Excel_Odstraneni_Listu_bez_dotazu()
  Application.DisplayAlerts = False
  'a Excel nedá dotaz zda opravdu chcete smazat... Pozor na to ...
  ActiveWindow.SelectedSheets.Delete
End Sub

Závěr

Chybí Vám nějaký kód? Zanechte vzkaz v komentáři. Pokusím se doplnit (nebo doplní některý z čtenářů...).

Článek byl aktualizován: 19.09.2020 11:07

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák - autor webu

Pavel Lasák

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil


Komentáře

" ; // echo "kompletni_cesta :" ; // echo $adresar_pro_vkladani ; // echo "
" ; // echo " Tady bude možnost přidání komentáře" ; // echo "
" ; // echo "
" ; $kompletni_cesta = "komentare"; $adresar_pro_vkladani = $kompletni_cesta; ?> \n"; reset($polozky); while (list($key, $val) = each($polozky)) { if ($val != "." && $val != "..") { if (!is_dir($val)) { // echo "$val
\n"; $fp = FOpen ($adresar_pro_vkladani."/".$val, "r"); //otevře soubor book.dat pro čtení $data = FRead ($fp, FileSize($adresar_pro_vkladani."/".$val)); //přečte data ze souboru a uloží do proměnné "data" - kvůli tomu aby se zobrazoval poslední příspěvek nahoře FClose($fp); echo "$data"; } } } ?>





Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Reklama


TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2020 |