Jste zde: Úvodní stránka » excel » vba-triky » vba-excel-zjisteni-verze

Zjištění verze Excelu - VBA

Videokurzy Excel

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

Jak na Excel - naučte se efektivně využívat Excel - nejoblíbenější (Hodnocení 97%, přes 13.000 studentů, + 750 pozitivních zpětných vazeb) - Získat kurz
MaxiKurz Excel - získejte lepší práci, více peněz, staňte se nepostradatelní (přes 6 hodin videí, 160 lekcí) - Získat kurz
G tabulky... - pokud nemáte rádi Excel využijte kurz na Google-tabulky

Jak zjistit pomocí VBA verzi i jazykovou MS Excelu.

Doplněno: 29.7.2015

Úvodem

Jelikož kompatibilata MS Excelu je problematická, mnohdy je potřeba mít pro každou verzi jiný kód. Jak ale zjistit verzi MS Excelu? Čtěte dále.

VBA kód pro verzi Excel

Následujícím kodem lze zjisti verzi MS Excelu.


    If Application.Version = "16.0" Then 
	MsgBox "Používáte Excel 2016." 
    ElseIf Application.Version = "15.0" Then 
	MsgBox "Používáte Excel 2013." 
    ElseIf Application.Version = "14.0" Then 
        MsgBox "Používáte Excel 2010."
    ElseIf Application.Version = "12.0" Then
        MsgBox "Používáte Excel 2007."
    ElseIf Application.Version = "11.0" Then
        MsgBox "Používáte Excel 2003."
    ElseIf Application.Version = "9.0" Then
        MsgBox "Používáte Excel 2000."
    ElseIf Application.Version = "8.0" Then
        MsgBox "Používáte Excel 97."
    ElseIf Application.Version = "7.0" Then
        MsgBox "Používáte Excel 95."
    End If

Poznámka: Lze řešit i pomocí Select Case.

VBA kód pro jazakovou verzi Excel

Jazyková verze Excel se dá zjistit:


Select Case Application.LanguageSettings.LanguageID(msoLanguageIDUI)
    Case 1029: MsgBox "CZ"
    Case 1051: MsgBox "EN"
    Case 1045: MsgBox "Polsky"
    Case Else: MsgBox "Nelze rozhodnout."
End Select

Poznámka: Děkuji Jojo za doplnění v komentářích

VBA kód regionální nastavení Windows

Regionální nastavení Windows


Select Case Application.International(xlCountryCode)
    Case 1: MsgBox "Angličtina - USA – jak jinak ;)"
    Case 33: MsgBox "Francie"
    Case 42: MsgBox "Česká Republika"
    Case 45: MsgBox "Dánsko"
    Case 48: MsgBox "Polsko"
    Case Else: MsgBox "Nelze rozhodnout."
End Select

Poznámka: Bohužel neodpovídá číslům jazykové verze Excel :(

Závěrem

Doufám, že Vám kód pomůže.

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

Podpora - oceňte web a pozvěte mě na čokoládu

Pomohl vám článek? Vyřešili jste problém? Můžete mě podpořit zakoupení tabulky (samozdřejmě čokoládové), když kafe nepiji ;) Odkaz na zakoupení čokolády. Za veškerou podporu vám děkuji a samozdřejmě jí využiji do zdokonalování a rozšířování webu.

Případně přidejte odkaz na vaši oblíbenou sociální síť, případně využijste hashtag #JakNaExcel .

Poděkování

Děkuji za váš čas a doufám, že jste nalezli odpověď na svůj problém.

Vylepšení

Narazili jste v článku na nejasnost, chybu? Máte tip na vylepšení nebo doplnění článku? Budu rád pokud se zmínite v komentářích.

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). 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 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.

Excel

Sdílejte

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

LinkedIn...

Nové články

10.6.2024:
REGEXTEST - regulárem zjistit zda text obsahuje požadované
11.6.2024:
REGEXEXTRACT - regulárním výrazem získat požadovanou hodnotu
12.6.2024:
REGEXREPLACE - regulárním výrazem nahradit požadovanou hodnotu v Excel

Reklama

XML