Բաց թողնել հիմնական բովանդակությունը

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

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

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

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

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

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

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

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

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

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

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

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

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

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն

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

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

 

Comments (11)
No ratings yet. Be the first to rate!
CATALINA
CATALINA
This comment was minimized by the moderator on the site
Buenos dias

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

Muchas gracias
Reply
0
0
Ramesh Tiwari
Ramesh Tiwari
This comment was minimized by the moderator on the site
Hi I want to restrict the Date Format in DD.MM.YYYY in excel
May please suggest
Reply
0
0
skyyang
skyyang     Ramesh Tiwari
This comment was minimized by the moderator on the site
Hello, Ramesh
To restrict the Date Format in DD.MM.YYYY, you can apply the below code:
Note: Please change the cell reference B2:B12 to your own list of cell.
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


Please have a try, hope it can help you!
Reply
Report
0
0
Bart
Bart
This comment was minimized by the moderator on the site
Hello,Sorry for refreshing, the code works very nice, thank you. I just want to add one more check if its possible.Is it possible to check cell on the left if it contain certain value. Basically what I need is: if cell on the left contain N then that cell in range have to be input as a date.If cell on the left is Y then that cell needs to stay blank.
Reply
0
0
Roberto Luongo
Roberto Luongo
This comment was minimized by the moderator on the site
How can I oblige to enter a time? (hh:mm)Private Sub Worksheet_Change(ByVal Target As Range)
'updateby Extendoffice 20150530
Set w = ActiveSheet.Range("B2:B12")
For Each c In w
If c.Value <> "" And Not IsDate(c) Then <----------------------------And Not isTime(c) doesn't work!
c.ClearContents
MsgBox "Only a date format is permitted in this cell."
End If
Next c
End Sub
Reply
0
0
skyyang
skyyang     Roberto Luongo
This comment was minimized by the moderator on the site
Hello, Roberto,

To only allow time format to be entered, you should apply the below code:



Private Sub Worksheet_Change(ByVal Target As Range)

'updateby Extendoffice

Dim xArr As Variant

Dim xF As Integer

Dim xB As Boolean

Dim xWRg, xCRg As Range

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

For Each xCRg In xWRg

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

xB = False

If UBound(xArr) <= 2 Then

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

If IsNumeric(xArr(xF)) Then

If xF = 0 Then

If (xArr(xF) > 0) And (xArr(xF) < 24) Then

Else

xB = True

GoTo BTime

End If

Else

If (xArr(xF) > 0) And (xArr(xF) < 60) Then

Else

xB = True

GoTo BTime

End If

End If

Else

xB = True

GoTo BTime

End If

Next

Else

MsgBox "Only a time format is permitted in this cell."

xCRg.ClearContents

End If

BTime:

If xB Then

MsgBox "Only a time format is permitted in this cell."

xCRg.ClearContents

End If

Next xCRg

End Sub



Please try it, thank you!
Reply
Report
0
0
Kevin
Kevin
This comment was minimized by the moderator on the site
Thank you so much, for the VBA code to be applied to multiple columns can you please provide the formula?.. I tried but ended up getting a 405 error!
Reply
0
0
skyyang
skyyang     Kevin
This comment was minimized by the moderator on the site
Hello, Kevin,
To make the code applied for multiple ranges, you just need to add the cell references into the code as below:

Private Sub Worksheet_Change(ByVal Target As Range)
Set w = ActiveSheet.Range("B2:B12,A1:A10,C5:C20")
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

Please try, hope it can help you!
Reply
Report
0
0
Kevin
Kevin     skyyang
This comment was minimized by the moderator on the site
Thanks a lot @skyyang, really appreciate your help :)
Reply
0
0
Ashok
Ashok
This comment was minimized by the moderator on the site
how to add a date validation for date format "DD-mmm-yyy" (15-Dec-2018) like this
Reply
0
0
sagar
sagar
This comment was minimized by the moderator on the site
which date format is this function allowed. It is not working for some dates
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations