Ինչպե՞ս թույլատրել միայն ամսաթվերի ձևաչափը հատուկ բջիջներում:

Ինչպե՞ս կարող եք սահմանափակել բջիջների ցուցակը, որպեսզի թույլատրվի ամսաթվերի ձևաչափը մուտքագրել միայն Excel- ի աշխատանքային էջում: Այս հոդվածում ես կխոսեմ այս գործով զբաղվելու մի քանի հետաքրքիր հնարքների մասին:

Տվյալների վավերացման գործառույթ ունեցող հատուկ բջիջներում թույլատրեք միայն ամսաթվի ձևաչափը

VBA կոդով հատուկ բջիջներում թույլատրեք միայն ամսաթվի ձևաչափը

Տվյալների վավերացման գործառույթ ունեցող հատուկ բջիջներում թույլատրեք միայն ամսաթվի ձևաչափը

Excel- ում, Տվյալների վավերացում հզոր գործառույթ է, որը կարող է օգնել ձեզ ստեղծել բացվող ցուցակ, կանխել կրկնօրինակ գրառումները և այլն: Այն նաև կարող է օգնել կանխել տվյալների այլ ձևաչափը, այլ միայն ամսաթվերի ձևաչափը որոշակի բջիջներում: Խնդրում ենք անել հետևյալ քայլերով.

1: Սեղմեք Ամսաթիվ > Տվյալների վավերացում > Տվյալների վավերացում, տես նկարի նկարը.

փաստաթուղթը թույլ է տալիս ամսաթիվը 1

2, Մեջ Տվյալների վավերացում երկխոսության վանդակում, սեղմեք Կարգավորումներ էջանիշը, ապա ընտրեք Սովորություն - ից Թույլ տալ բացվող ցուցակ, ապա մուտքագրեք այս բանաձևը. = ԵՎ (ԹԻՎ (B2), ՁԱ, (Բջջային («ձևաչափ», B2), 1) = «Դ») մեջ Ֆորմուլա տեքստային տուփ, տես նկարի նկարը.

փաստաթուղթը թույլ է տալիս ամսաթիվը 2

ՆշումՎերոհիշյալ բանաձևում B2 սյունակի առաջին բջիջն է, որը ցանկանում եք սահմանափակել տվյալների ձևաչափը:

3. Դրանից հետո անցեք կտտացնելով Erգուշացման սխալ ներդիրը երկխոսության դաշտում, խնդրում ենք կատարել հետևյալ գործողությունները.

(1.) Ստուգեք Invույց տալ սխալ ազդանշանը անվավեր տվյալների մուտքագրումից հետո տարբերակ;

(2.) Համաձայն ոճ բաց թողեք, ընտրեք Դադարեցնել տարբերակ;

(3.) Մուտքագրեք կոչում և Error message որը ցանկանում եք ցուցադրել հուշման վանդակում:

4, Պարամետրերն ավարտելուց հետո կտտացրեք OK կոճակը, և այժմ, երբ մուտքագրեք տվյալներ, որոնք իրական ամսաթվի ձևաչափ չեն, կհայտնվի հուշման տուփ ՝ հիշեցնելու համար, ինչպես ցույց է տրված հետևյալ նկարը.

փաստաթուղթը թույլ է տալիս ամսաթիվը 4

VBA կոդով հատուկ բջիջներում թույլատրեք միայն ամսաթվի ձևաչափը

Երկրորդ մեթոդը, ես ձեզ համար կներկայացնեմ VBA կոդ:

1, Ակտիվացրեք աշխատանքային թերթը, որը ցանկանում եք օգտագործել:

2, Դրանից հետո աջ կտտացրեք թերթիկի ներդիրին և ընտրեք Դիտել կոդը համատեքստային ընտրացանկից տե՛ս նկարը.

փաստաթուղթը թույլ է տալիս ամսաթիվը 5

3, Theուցադրվածում Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և կպցրեք ստորև ներկայացված կոդը ՝ Մոդուլներ, տես նկարի նկարը.

VBA կոդ. Թույլատրեք միայն ամսաթվի ձևաչափը մուտքագրվել հատուկ բջիջներում.

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

փաստաթուղթը թույլ է տալիս ամսաթիվը 6

4, Ապա պահեք գովազդը, փակեք կոդը, այժմ, երբ մուտքագրեք արժեքը, որը ամսաթվային ձևաչափ չէ B2: B12 տիրույթում, կհայտնվի հուշման տուփ, որը կհիշեցնի ձեզ, և բջջային արժեքը միաժամանակ մաքրվելու է, տես նկարի նկարը.

փաստաթուղթը թույլ է տալիս ամսաթիվը 7

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...

մեկնաբանություններ (11)

Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:

Sagar

մոտ 5 տարի առաջ

#21899

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

ամսաթվի որ ձևաչափն է թույլատրված այս ֆունկցիան: Որոշ ամսաթվերի համար այն չի աշխատում

պատասխանել

Ashok

մոտ 4 տարի առաջ

#27481

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

ինչպես ավելացնել ամսաթվի վավերացում «ՕՕ-մմմ-տտտ» (15-Դեկ-2018) ամսաթվի ձևաչափի համար այսպես

պատասխանել

Kevin

մոտ 3 տարի առաջ

#31411

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Շատ շնորհակալ եմ, քանի որ VBA կոդը կիրառվելու է մի քանի սյունակների վրա, կարո՞ղ եք տրամադրել բանաձևը: Փորձեցի, բայց ստացվեց 405 սխալ:

պատասխանել

skyyang Kevin

մոտ 3 տարի առաջ

#31412

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Քևին,
Բազմաթիվ միջակայքերի համար կիրառվող կոդը դարձնելու համար պարզապես անհրաժեշտ է բջիջների հղումները ավելացնել կոդի մեջ, ինչպես ստորև.

Private Sub Worksheet_Change (ByVal Target as Range)
Սահմանել w = ActiveSheet.Range ("B2:B12,A1:A10,C5:C20")
Յուրաքանչյուր գ-ի համար w
Եթե c.Value <> "" And Not IsDate(c) Այնուհետեւ
c.Clear Contents
MsgBox «Այս բջիջում թույլատրվում է միայն ամսաթվի ձևաչափ»:
Վերջ: Եթե
Հաջորդ գ
Վերջ Sub

Խնդրում եմ փորձեք, հուսով եմ, որ դա կարող է օգնել ձեզ:

պատասխանել

հաշվետվություն

Kevin skyyang

մոտ 3 տարի առաջ

#31413

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Շատ շնորհակալություն @skyyang, իսկապես գնահատում եմ ձեր օգնությունը :)

պատասխանել

Ռոբերտո լունգո

մոտ 2 տարի առաջ

#32828

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ինչպե՞ս կարող եմ պարտավորեցնել մուտքագրել ժամանակ: (hh:mm) Մասնավոր ենթաթերթ_Փոփոխություն (ByVal թիրախը որպես միջակայք)
«թարմացնելով Extendoffice 20150530
Սահմանել w = ActiveSheet.Range («B2:B12»)
Յուրաքանչյուր գ-ի համար w
Եթե c.Value <> "" And Not IsDate(c) Ապա <----------------------------- And Not isTime(c) չի աշխատում!
c.Clear Contents
MsgBox «Այս բջիջում թույլատրվում է միայն ամսաթվի ձևաչափ»:
Վերջ: Եթե
Հաջորդ գ
Վերջ Sub

պատասխանել

skyyang Ռոբերտո լունգո

մոտ 2 տարի առաջ

#32829

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև, Ռոբերտո,

Որպեսզի միայն ժամանակի ձևաչափը մուտքագրվի, դուք պետք է կիրառեք հետևյալ կոդը.

Private Sub Worksheet_Change (ByVal Target as Range)

«թարմացնելով Extendoffice

Dim xArr Որպես տարբերակ

Dim xF որպես ամբողջ թիվ

Dim xB որպես բուլյան

Dim xWRg, xCRg As Range

Սահմանել xWRg = ActiveSheet.Range («B2:B20»)

Յուրաքանչյուր xCRg-ի համար xWRg-ում

xArr = Split (xCRg.Value, «:»)

xB = Սխալ

Եթե UBound(xArr) <= 2 Ապա

xF-ի համար = LBound(xArr) Դեպի UBound(xArr)

Եթե IsNumeric(xArr(xF)) Ապա

Եթե xF = 0 Ապա

Եթե (xArr(xF) > 0) Եվ (xArr(xF) < 24) Ապա

Ուրիշ

xB = Ճշմարիտ

GoTo BTime

Վերջ: Եթե

Ուրիշ

Եթե (xArr(xF) > 0) Եվ (xArr(xF) < 60) Ապա

Ուրիշ

xB = Ճշմարիտ

GoTo BTime

Վերջ: Եթե

Վերջ: Եթե

Ուրիշ

xB = Ճշմարիտ

GoTo BTime

Վերջ: Եթե

հաջորդ

Ուրիշ

MsgBox «Այս բջիջում թույլատրվում է միայն ժամանակի ձևաչափ»:

xCRg.Clear Contents

Վերջ: Եթե

BTime:

Եթե xB Ապա

MsgBox «Այս բջիջում թույլատրվում է միայն ժամանակի ձևաչափ»:

xCRg.Clear Contents

Վերջ: Եթե

Հաջորդ xCRg

Վերջ Sub

Խնդրում եմ փորձեք, շնորհակալություն:

պատասխանել

հաշվետվություն

Bart

մոտ 2 տարի առաջ

#33746

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Ձեզ, կներեք թարմացման համար, կոդը շատ լավ է աշխատում, շնորհակալություն: Ես պարզապես ուզում եմ ևս մեկ ստուգում ավելացնել, եթե դա հնարավոր է: Հնարավո՞ր է ստուգել ձախ կողմում գտնվող բջիջը, եթե այն որոշակի արժեք է պարունակում: Հիմնականում ինձ անհրաժեշտ է. եթե ձախ կողմի բջիջը պարունակում է N, ապա միջակայքի այդ բջիջը պետք է մուտքագրվի որպես ամսաթիվ: Եթե ձախ բջիջը Y է, ապա այդ բջիջը պետք է մնա դատարկ:

պատասխանել

Ռամեշ Թիվարի

մոտ 1 ամիս առաջ

#42294

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Ես ուզում եմ սահմանափակել ամսաթվի ձևաչափը DD.MM.YYYY Excel-ում
Խնդրում եմ առաջարկեք

պատասխանել

skyyang Ռամեշ Թիվարի

մոտ 4 շաբաթ առաջ

#42399

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Ռամեշ
DD.MM.YYYY-ում Ամսաթվի ձևաչափը սահմանափակելու համար կարող եք կիրառել հետևյալ կոդը.
ՆշումԽնդրում ենք փոխել բջջային հղումը B2: B12 ձեր սեփական բջիջների ցանկին:

Private Sub Worksheet_Change(ByVal Target As Range)
'updateby Extendoffice
    On Error Resume Next
    
    Dim Bool As Boolean
    Dim Rg As Range
    Dim xRegEx As Object
    
    Bool = False

    Set Rg = Application.Intersect(Target, ActiveSheet.Range("B2:B12"))
    If Rg Is Nothing Then Exit Sub

    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    With xRegEx
        .Pattern = "^[0-3]\d\.[0-1][0-2]\.\d{4}$"
        .Global = True
        .IgnoreCase = True
    End With
    
    Application.EnableEvents = False
    For Each c In Target
        If c.Value <> "" Then
            If Not xRegEx.test(c.Text) Then
                c.ClearContents
                Bool = True
            End If
        End If
    Next c
    Application.EnableEvents = True
    If Bool Then
        MsgBox "Error date format."
    End If
End Sub

Խնդրում ենք փորձել, հուսով եմ, որ դա կարող է օգնել ձեզ:

պատասխանել

հաշվետվություն

ԿԱՏԱԼԻՆԱ

մոտ 1 շաբաթ առաջ

#42852

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարի լույս

Estoy utilizando la formula en la validación de datos pero no me deja ingresar ningún formato de fecha, me puede explicar por favor.

Շատ շնորհակալ եմ

պատասխանել

Առայժմ ոչ մի մեկնաբանություն չկա

Թողեք ձեր մեկնաբանությունները

Հրապարակում որպես հյուր

Մուտք

Անուն (պարտադիր է)

Email (պահանջվում է)

Գնահատեք այս գրառումը.

Նորից դնել

0 Անձնավորություններ

Ես համաձայն եմ, որ պայմանները եւ պայմանները