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

Nový videokurz na Seduo: Excel pro začátečníky

     

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

Zjištění verze Excelu - VBA


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: 29.07.2015 17:11

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

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, PowerPoint) se věnuji od roku 2006. Své vědomosti a zkušenosti dávám k dispozici na různých školeních a konzultacích, ale také na tomto webu. K dispozici na tomto webu je mnoho návodu, tipů a triků včetně desítek různých šablon.

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

Doporučte tento článek přátelům

Pokud vám článek pomohl, případně si myslíte, že může pomoci i někomu dalšímu, budu rád když jej sdílením doporučíte přátelům - děkuji:



Komentáře


Pedro

Přidáno: 14.01.15 13:37

Zdravim, da se nejak zjistit take jazykova verze excelu? S kolegy pouzivame ceskou nebo anglickou mutaci excelu, pro makra je to jedno, ale na zacatku nacitam vstupni data ze souboru a tam zalezi, zdali je to Book1.xlsx nebo Sešit1.xlsx Prozatim mam dve spousteci tlacitka, ale vadi, ze kazde vylepseni kodu musim implementovat dvakrat, rad bych to mel v jednom a rozhodoval se na zaklade zjisteni nejakou funkci. Jde to?

Jojo

Přidáno: 19.01.15 07:26

To Pedro: -- Jazyková verzia Excelu: 1) ak sú listy uložené v rovnakom poradí v oboch jazykových verziách, dá sa použiť miesto názvu listu aj poradie napr. "Sheets(1)" -- 2) Cez "InStr" alebo "Left" je možné testovať názov listu, či obsahuje "Book" alebo "Sešit" napr. cez "Sheets(1).Name" -- 3) cez:If Application.LanguageSettings.LanguageID(msoLanguageIDUI) = 1029 Then ' 1029=CZ, 1051=EN

Jojo

Přidáno: 19.01.15 08:08

To Pavel Lasák: -- pre doplnenie zoznamu Application.Version uvádzam ešte:5 = Excel 5 6 = Excel 6 15 = Excel 2013

Pavel Lasák

Přidáno: 29.07.15 17:11

To Jojo: Děkuji za doplnění, už jsem doplnil i do článku a přídal možnost zjisštění regionu pro Windows. Také se může hodit.


Přidání nového komentáře

Poznámka: Z časových důvodu není v mých sílách zodpovědět všechny dotazy. Děkuji za pochopení.




(vlož číslo padesátpět)

Z bezpečnostních důvodu dočasně nemůžete použít HTML značky, kromě <code> a </code> (pro vkládání VBA kódu). Děkuji za pochopení.
Děkuji, za Vaše komentáře.

Za obsah komentářů neodpovídám, jelikož jsou komentáře publikovány ihned po jejich napsání čtenářem. Toto nemohu nijak ovlivnit. Přesto si vyhrazuji možnost jakýkoli neslušný komentář smazat bez udání důvodu. V komentářích si tykáme. ;-)






Sdílejte

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

Nové články


Newsletter

Přihlaste se odběru novinek a získejte:
Ebook zdarma -
10 kroků ke zvládnutí (Word, Excel, PowerPoint)
Šipka Kniha 3D Více o ebooku ...

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 - 2016 | 6021

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.