Jste zde: Úvodní stránka » excel » vba-funkce-vzorce » Logicke-funkce-ve-VBA-Excel

Logické funkce ve VBA Excel

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 na logické funkce pomocí VBA.

Seznam logických funkcích ve VBA

Sem tam potřebuji použít logické funkce ve VBA. Proto jsem si připravil tento seznam, spolu s odkazy na použití těchto funkci ve VBA:

A (AND)
IFERROR (IFERROR) od ver. 2007, někdy CHYBHODN
IFNA (IFNA) od verze 2013
IFS (IFS) od verze 2016 z balíku (Office 365)
KDYŽ (IF)
NE (NOT)
NEBO (OR)
NEPRAVDA (FALSE)
PRAVDA (TRUE)
SWITCH (SWITCH) - od verze Excel 2016 (z balíku Office 365)
XOR (XOR) - od verze Excel 2013
Související články
Ke stažení

Článek nemá za cíl byt kompletní příručkou. Průběžně jen doplňují a vylepšuji.

A (AND)

Zapsaní funkce do buňky


Range("D5").Formula = "=AND(B5,C5)"

Range("D6").FormulaLocal = "=A(B6;C6)"

Využití WorksheetFunction


Vysledek = WorksheetFunction.And(True, False)
MsgBox (Vysledek)

If True And False Then
    MsgBox ("ano")
End If

Poznámky a další příklady

IFERROR (IFERROR) - CHYBHODN

Zapsaní funkce do buňky


Range("C5").Formula = "=IFERROR(B5,""Chyba"")"

Range("C6").FormulaLocal = "=IFERROR(B6;""Chyba"")"

Poznámky a další příklady

IFNA (IFNA) od verze 2013

Zapsaní funkce do buňky


Range("C5").Formula = "=IFNA(B5,""Chyba"")"

Range("C6").FormulaLocal = "=IFNA(B6;""Chyba"")"

Poznámky a další příklady

IFS (IFS) od verze 2016 z balíku (Office 365)

Zapsaní funkce do buňky


v přípravě

Využití WorksheetFunction


Cislo = InputBox("Zadej číslo 1 to 10:")

Select Case Cislo
Case 2, 4, 6, 8, 10
  MsgBox "číslo sudé."
Case 1, 3, 5, 7, 9
  MsgBox "číslo liché."
Case Else
  MsgBox "Nelze rozhodnout."
End Select

nebo:


IF Vek < 15 Then 
      MsgBox "Jsi dite."
Elseif Vek < 30 Then
      MsgBox "Jsi mlaďoch."
Elseif Vek < 60 Then
      MsgBox "Jsi v nejlepších letech."
Else
      MsgBox "Jsi téměř v důchodu."
End If

Poznámky a další příklady

KDYŽ (IF)

Zapsaní funkce do buňky


Range("E5").Formula = "=IF(B5=1,C5,D5)"

Range("E6").FormulaLocal = "=KDYŽ(B6=1;C6;D6)"

Využití WorksheetFunction


IF Odpoved = "muz" Then 
      MsgBox "Jsi muž."
Else 
     MsgBox "Jsi žena."
End If

nebo:


IF Vek < 15 Then 
      MsgBox "Jsi dite."
Elseif Vek < 30 Then
      MsgBox "Jsi mlaďoch."
Elseif Vek < 60 Then
      MsgBox "Jsi v nejlepších letech."
Else
      MsgBox "Jsi téměř v důchodu."
End If

Poznámky a další příklady

NE (NOT)

Zapsaní funkce do buňky


Range("C4").Formula = "=NOT(B4)"

Range("C5").FormulaLocal = "=NE(B5)"

Poznámky a další příklady

NEBO (OR)

Zapsaní funkce do buňky


Range("D5").Formula = "=OR(B5,C5)"

Range("D6").FormulaLocal = "=NEBO(B6;C6)"

Využití WorksheetFunction


Vysledek = WorksheetFunction.Or(True, False)
MsgBox (Vysledek)

If True Or False Then
    MsgBox ("ano")
End If

Poznámky a další příklady

NEPRAVDA (FALSE)

Zapsaní funkce do buňky


Range("B4").Formula = "=FALSE()"

Range("B5").FormulaLocal = "=NEPRAVDA()"

Poznámky a další příklady

PRAVDA (TRUE)

Zapsaní funkce do buňky


Range("B4").Formula = "=TRUE()"

Range("B5").FormulaLocal = "=PRAVDA()"

Poznámky a další příklady

SWITCH (SWITCH)

Funkce je od verze Excel 2016 (z balíku Office 365)

Zapsaní funkce do buňky


v přípravě

Využití WorksheetFunction


Cislo = InputBox("Zadej číslo 1 to 10:")

Select Case Cislo
Case 2, 4, 6, 8, 10
  MsgBox "číslo sudé."
Case 1, 3, 5, 7, 9
  MsgBox "číslo liché."
Case Else
  MsgBox "Nelze rozhodnout."
End Select

nebo:


IF Vek < 15 Then 
      MsgBox "Jsi dite."
Elseif Vek < 30 Then
      MsgBox "Jsi mlaďoch."
Elseif Vek < 60 Then
      MsgBox "Jsi v nejlepších letech."
Else
      MsgBox "Jsi téměř v důchodu."
End If

Poznámky a další příklady

XOR (XOR)

Zapsaní funkce do buňky


Range("D5").Formula = "=XOR(B5,C5)"

Range("D6").FormulaLocal = "=XOR(B6;C6)"

Využití WorksheetFunction


vysledek = WorksheetFunction.Xor(1 = 1, 2 = 2)
MsgBox (vysledek)

Poznámky a další příklady

Související články s funkci logické

Další články související s logickými funkcemi:

Přehled logických funkcí - klasické

Ke stažení

Soubor v přípravě.

Závěrem

Využíváte nějaké VBA triky s logickými funkcemi, můžete zmínit v komentářích.

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

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

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ů.