Note: The other languages of the website are Google-translated. Back to English

Jak povolit pouze formát data v konkrétních buňkách?

Jak můžete omezit seznam buněk tak, aby umožňovaly pouze zadávání formátu data v listu aplikace Excel? V tomto článku budu hovořit o několika zajímavých tricích, jak zvládnout tuto práci.

Povolit pouze formát data v konkrétních buňkách s funkcí ověření dat

Povolit pouze formát data v konkrétních buňkách s kódem VBA


šipka modrá pravá bublina Povolit pouze formát data v konkrétních buňkách s funkcí ověření dat

V aplikaci Excel Ověření dat je výkonná funkce, která vám pomůže vytvořit rozevírací seznam, zabránit duplicitním položkám atd. Pomůže vám také zabránit zadávání jiného formátu dat, ale pouze formátu data do konkrétních buněk. Proveďte prosím následující kroky:

1, klikněte Data > Ověření dat > Ověření dat, viz screenshot:

datum povolení dokumentu 1

2. V Ověření dat , klepněte na tlačítko OK Nastavení a vyberte Zvyk z povolit rozevírací seznam a poté zadejte tento vzorec: = AND (ISNUMBER (B2), LEFT (CELL ("format", B2), 1) = "D") do Vzorec textové pole, viz screenshot:

datum povolení dokumentu 2

Poznámka: Ve výše uvedeném vzorci, B2 je první buňka sloupce, u kterého chcete omezit formát dat.

datum povolení dokumentu 3

3. Poté pokračujte kliknutím Chybové upozornění na kartě v dialogovém okně proveďte následující operace:

(1.) Zkontrolovat Po zadání neplatných údajů zobrazit chybové hlášení volba;

(2.) Pod Styl rozbalovací nabídka, vyberte Stop volba;

(3.) Zadejte Titul a Chybová zpráva které chcete zobrazit v poli výzvy.

4. Po dokončení nastavení klikněte na OK Tlačítko a nyní, když zadáte data, která nejsou ve formátu skutečného data, vyskočí výzva, která vám připomene následující obrázek obrazovky:

datum povolení dokumentu 4


šipka modrá pravá bublina Povolit pouze formát data v konkrétních buňkách s kódem VBA

Druhá metoda, představím vám kód VBA.

1. Aktivujte list, který chcete použít.

2. Poté klepněte pravým tlačítkem na kartu list a vyberte Zobrazit kód z kontextové nabídky viz screenshot:

datum povolení dokumentu 5

3. Na displeji Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte níže uvedený kód do Modul, viz screenshot:

Kód VBA: Povolit zadávání formátu data pouze v konkrétních buňkách:

Private Sub Worksheet_Change(ByVal Target As Range)
'updateby Extendoffice
Set w = ActiveSheet.Range("B2:B12")
For Each c In w
If c.Value <> "" And Not IsDate(c) Then
c.ClearContents
MsgBox "Only a date format is permitted in this cell."
End If
Next c
End Sub

datum povolení dokumentu 6

4. Poté uložte reklamu a zavřete kód, nyní, když zadáte hodnotu, která není formátem data v rozsahu B2: B12, zobrazí se okno s výzvou, které vám připomene, a hodnota buňky bude současně vymazána, viz screenshot:

datum povolení dokumentu 7


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno

 

Komentáře (8)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
v jakém formátu data je tato funkce povolena. V některých termínech to nefunguje
Tento komentář byl moderátorem webu minimalizován
jak přidat ověření data pro formát data "DD-mmm-rrrr" (15. prosince 2018) takto
Tento komentář byl moderátorem webu minimalizován
Mockrát vám děkuji, pro použití kódu VBA na více sloupců, můžete prosím poskytnout vzorec?.. Zkoušel jsem to, ale nakonec jsem dostal chybu 405!
Tento komentář byl moderátorem webu minimalizován
Ahoj Kevine,
Chcete-li použít kód pro více rozsahů, stačí do kódu přidat odkazy na buňky, jak je uvedeno níže:

Soukromá dílčí tabulka_Změna (ByVal Target As Range)
Nastavit w = ActiveSheet.Range("B2:B12,A1:A10,C5:C20")
Pro každé c In w
If c.Value <> "" And Not IsDate(c) Then
c.Vymazat obsah
MsgBox "V této buňce je povolen pouze formát data."
End If
Další c
End Sub

Zkuste to prosím, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Díky moc @skyyang, opravdu si vážím vaší pomoci :)
Tento komentář byl moderátorem webu minimalizován
Jak mohu zavázat k zadání času? (hh:mm)Private Sub Worksheet_Change(ByVal Target As Range)
'aktualizovat od Extendoffice 20150530
Nastavit w = ActiveSheet.Range("B2:B12")
Pro každé c In w
If c.Value <> "" And Not IsDate(c) Then <----------------------------And Not isTime(c) nefunguje!
c.Vymazat obsah
MsgBox "V této buňce je povolen pouze formát data."
End If
Další c
End Sub
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Roberto,

Chcete-li povolit pouze zadání formátu času, měli byste použít níže uvedený kód:



Soukromá dílčí tabulka_Změna (ByVal Target As Range)

'aktualizovat od Extendoffice

Dim xArr jako varianta

Dim xF jako celé číslo

Dim xB jako Boolean

Dim xWRg, xCRg As Range

Nastavit xWRg = ActiveSheet.Range("B2:B20")

Pro každý xCRg In xWRg

xArr = Split(xCRg.Value, ":")

xB = False

If UBound(xArr) <= 2 Then

Pro xF = LBound(xArr) To UBound(xArr)

If IsNumeric(xArr(xF)) Then

Pokud xF = 0 Pak

Pokud (xArr(xF) > 0) A (xArr(xF) < 24) Pak

Jiný

xB = pravda

Přejít na BTime

End If

Jiný

Pokud (xArr(xF) > 0) A (xArr(xF) < 60) Pak

Jiný

xB = pravda

Přejít na BTime

End If

End If

Jiný

xB = pravda

Přejít na BTime

End If

další

Jiný

MsgBox "V této buňce je povolen pouze formát času."

xCRg.ClearContents

End If

BTime:

Pokud xB Pak

MsgBox "V této buňce je povolen pouze formát času."

xCRg.ClearContents

End If

Další xCRg

End Sub



Prosím, zkuste to, děkuji!
Tento komentář byl moderátorem webu minimalizován
Dobrý den, omlouváme se za obnovení, kód funguje velmi dobře, děkuji. Chci jen přidat ještě jednu kontrolu, pokud je to možné. Je možné zkontrolovat buňku vlevo, pokud obsahuje určitou hodnotu. V zásadě potřebuji: pokud buňka nalevo obsahuje N, musí být tato buňka v rozsahu zadána jako datum. Pokud je buňka nalevo Y, pak tato buňka musí zůstat prázdná.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL