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

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

Logické funkce ve VBA Excel

Videokurzy Excel

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

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:

Č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:


Microsoft Excel VBA - stahuj logo

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: 09.02.2017 14:50

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 zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.







Sdílejte

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

Nové články


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 - 2018 | 2031

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