Deklarace konstant - VBA Excel

Proč deklarovat konstanty

Výhodou je přiřazení konstantě (číslu) vhodný název, který je lépe přiřaditelný (ConstPlnoletost) než nic neříkající číslo 18. Dále je výhodné, že po deklarování konstany nelze tuto hodnotu změnit či dočasně přiřadit hodnotu jinou.

Jak nastavit konstantu

K nastavení (deklaraci) konstanty se používá příkaz Const.

Public Const ConstPlnoletost As Integer = 34

Druhy deklarací

Aby to nebylo tak jednoduché tak konstanta se může deklarovat v rámci procedury, v ránci modulu nebo mít konstantu veřejnou.

Druhy platnosti konstant:

• Public Const - platnost (k dispozici) všem procedurám ve všech modulech.
• Private Const - platnost (k dispozici) pouze v rámci modulu, ve kterém byla deklarace provedena
• Const - pouze platnost v proceduře ve které je deklarována

Public Const

Public Const ConstPlnoletost As Integer = 18

Private Const

Private Const ConstPlnoletost As Integer = 18

Const

Const ConstPlnoletost As Integer = 18

Typy konstant

• Boolean
• Byte
• Integer
• Long
• Currency
• Single
• Double
• Date
• String
• Variant

Deklarace více konstant

Jedním příkazem lze deklarovat i několik konstant.

Const ConsVek As Integer = 34, ConsPlat As Currency = 35000

Pozor při deklaraci. ať není jiná deklarace než myslíte..

Const a, b As Integer = 34

a není typu Integer jak možná myslíte, ale je typu Variant, protože jeho typ nebyl deklarován, b je typu Integer = 34. Správně je následující:

Const a As Integer = 34, b As Integer = 34

Předdefinované konstanty

VBA Excel již obsahuje celou řadu předdefinovaných konstant (tj. některá jména jsou již tímto obsazena). Obsahuje například:

• xlAnd
• xlOr
• xlFilterAutomaticFontColor
• ...

Pojmenovávání konstant

Jména konstant by měla mát nějaký řád ať poznáte že jde o konstantu. Například Excel využívá xl... Jak tedy zvolit pomenování popíšu v jiném článku. Jelikož stejné principy platí pro proměné, pojmenovávání objektu, atd.

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

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.