Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
je buňky opravu prázdná?
Kontrola, zda je buňka opravdu prázdná pouhým okem není průkazná. V buňce může být vzorec, který vrací prázdný znak. Nebo text může mít bílou barvu (na bílém pozadí). Pomocí VBA zjistíme, zda je buňka opravu prázdná.
Prázdná buňka buďto neobsahuje nic, nebo obsahuje vzorec, který vrací prázdný řetězec. Takže si to rozlišíme (někdy se to hodí).
Aneb abych parafrázoval jeden český film: Stejně je v buňce úplné ho... no fakt opravdu tam je :)
Úplně prázdné buňky - bez vzorce
IsEmpty(ActiveCell)
True jen pro buňky, ve kterých opravdu nic není (jsou úpně prázdné, bez vzorce)
Prazdné nebo s prázdným řetězcem - (vzorec s prázdným řetězcem).
ActiveCell.Value = ""
True pro buňky, které jsou prázdné (tj. i pro buňky se vzorcem, který vrací prázdný řetězec)
Článek byl aktualizován: 19.09.2020 11:06
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.
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ů.
Přidáno: 14.07.15 16:00
Dobrý den, prosím o radu, jak testovat zda má buňka obsah v podobě #HODNOTA!, který se vrací například jako výsledek neproveditelného výpočtu. Např. pokud A1 obsahuje #HODNOTA! vypiš MsgBox. Děkuji Zdraví Petr
Přidáno: 23.07.15 17:47
to Petr
If Range("A10").Errors.Item(xlNumbers).Value = True Then
MsgBox "Chyba #Hodnota!"
End If
Vložte tento kod do svého programu, ale musíte změnit buňku A10 na tu vaši s výsledkem.
Přidáno: 29.07.15 08:36
to Petr
za první odpověď na vaší otázku se omlouvám, je špatná. Tento kod je již v pořádku. Kod vložte do Listu ve VBA a ne do Modulu. Budete mít tak okamžitou odezvu když chyba nastane.
Private Sub Worksheet_Calculate()
On Error Resume Next
If IsError(Range("A10")) Then
If Range("A10") = CVErr(xlErrValue) Then
MsgBox "Chyba #Hodnota!"
End If
End If
End Sub
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
LinkedIn... |
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 - 2024 |