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
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:
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:
Poznámka: Ve výše uvedeném vzorci, B2 je první buňka sloupce, u kterého chcete omezit formát dat.
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:
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:
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
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:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
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!