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

Sut i ganiatáu fformat dyddiad yn unig mewn celloedd penodol?

Sut allech chi gyfyngu rhestr o gelloedd i ganiatáu fformat dyddiad yn unig yn nhaflen waith Excel? Yn yr erthygl hon, byddaf yn siarad am rai triciau diddorol ar gyfer delio â'r swydd hon.

Caniatáu fformat dyddiad yn unig mewn celloedd penodol sydd â swyddogaeth Dilysu Data

Caniatáu fformat dyddiad yn unig mewn celloedd penodol sydd â chod VBA


swigen dde glas saeth Caniatáu fformat dyddiad yn unig mewn celloedd penodol sydd â swyddogaeth Dilysu Data

Yn Excel, mae'r Dilysu Data yn swyddogaeth bwerus a all eich helpu i greu rhestr ostwng, i atal cofnodion dyblyg, ac ati. Gall hefyd eich helpu i atal mynd i mewn i fformat data arall ond dim ond fformat dyddiad mewn celloedd penodol. Gwnewch y camau canlynol:

1. Cliciwch Dyddiad > Dilysu Data > Dilysu Data, gweler y screenshot:

doc caniatáu dyddiad 1

2. Yn y Dilysu Data blwch deialog, cliciwch Gosodiadau tab, ac yna dewis Custom oddi wrth y Caniatáu rhestr ostwng, yna nodwch y fformiwla hon: = AC (ISNUMBER (B2), CHWITH (CELL ("fformat", B2), 1) = "D") i mewn i'r Fformiwla blwch testun, gweler y screenshot:

doc caniatáu dyddiad 2

Nodyn: Yn y fformiwla uchod, B2 yw cell gyntaf y golofn yr ydych am gyfyngu ar y fformat data.

doc caniatáu dyddiad 3

3. Yna ewch ymlaen i glicio Rhybudd Gwall tab yn y blwch deialog, gwnewch y gweithrediadau canlynol:

(1.) Gwiriwch Dangos rhybudd gwall ar ôl mewnbynnu data annilys opsiwn;

(2.) O dan y arddull gwympo, dewiswch Stop opsiwn;

(3.) Teipiwch y Teitl ac Neges gwall eich bod am arddangos yn y blwch prydlon.

4. Ar ôl gorffen y gosodiadau, cliciwch OK botwm, ac yn awr, pan fyddwch yn mewnbynnu'r data nad yw'n fformat dyddiad go iawn, bydd blwch prydlon yn galw allan i'ch atgoffa fel y llun a ganlyn a ddangosir:

doc caniatáu dyddiad 4


swigen dde glas saeth Caniatáu fformat dyddiad yn unig mewn celloedd penodol sydd â chod VBA

Yr ail ddull, byddaf yn cyflwyno cod VBA i chi.

1. Gweithredwch y daflen waith rydych chi am ei defnyddio.

2. Yna cliciwch ar y dde ar y tab dalen, a dewis Gweld y Cod o'r ddewislen cyd-destun, gweler y screenshot:

doc caniatáu dyddiad 5

3. Yn yr arddangos Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo'r cod isod i'r Modiwlau, gweler y screenshot:

Cod VBA: Dim ond caniatáu fformat dyddiad sy'n mynd i mewn i gelloedd penodol:

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

doc caniatáu dyddiad 6

4. Yna arbedwch hysbyseb cau'r cod, nawr, pan fyddwch chi'n nodi'r gwerth nad yw'n fformat dyddiad yn ystod B2: B12, bydd blwch prydlon yn popio allan i'ch atgoffa, a bydd gwerth y gell yn cael ei glirio ar yr un pryd, gweler y screenshot:

doc caniatáu dyddiad 7


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab

 

sylwadau (8)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
pa fformat dyddiad y caniateir y swyddogaeth hon. Nid yw'n gweithio am rai dyddiadau
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut i ychwanegu dilysiad dyddiad ar gyfer fformat dyddiad "DD-mmm-bby" (15-Rhag-2018) fel hyn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn, i'r cod VBA gael ei gymhwyso i golofnau lluosog a allwch chi ddarparu'r fformiwla?.. Ceisiais ond yn y diwedd cefais wall 405!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Kevin,
I wneud cais am y cod ar gyfer ystodau lluosog, does ond angen i chi ychwanegu'r cyfeiriadau cell yn y cod fel a ganlyn:

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Gosod w = ActiveSheet.Range("B2:B12,A1:A10,C5:C20")
Am Bob c Yn w
Os c.Value <> "" Ac Nid IsDate(c) Yna
c.ClearCynnwys
msgstr "Dim ond fformat dyddiad a ganiateir yn y gell hon."
Gorffennwch Os
Nesaf c
Is-End

Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr @skyyang, gwerthfawrogi'ch help yn fawr :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut alla i orfodi amser? (hh: mm) Is-daflen waith breifat_Newid (Targed ByVal Fel Ystod)
'diweddaru erbyn Extendoffice 20150530
Gosod w = ActiveSheet.Range("B2:B12")
Am Bob c Yn w
Os c.Value <> "" Ac Ddim IsDate(c) Yna <--------------------------- Ac nid yw Amser(c) ddim yn gweithio!
c.ClearCynnwys
msgstr "Dim ond fformat dyddiad a ganiateir yn y gell hon."
Gorffennwch Os
Nesaf c
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Roberto,

Er mwyn caniatáu cofnodi fformat amser yn unig, dylech ddefnyddio'r cod isod:



Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)

'diweddaru erbyn Extendoffice

Dim xArr Fel Amrywiad

Dim xF Fel Cyfanrif

Dim xB Fel Boole

Dim xWRg, xCRg Fel Ystod

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

Am Bob xCRg Yn xWRg

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

xB = Gau

Os UBound(xArr) <= 2 Yna

Ar gyfer xF = LBound(xArr) I UBound(xArr)

Os yw'n Rhifol(xArr(xF)) Yna

Os xF = 0 Yna

Os (xArr(xF) > 0) A (xArr(xF) < 24) Yna

arall

xB = Gwir

Ewch i BTime

Gorffennwch Os

arall

Os (xArr(xF) > 0) A (xArr(xF) < 60) Yna

arall

xB = Gwir

Ewch i BTime

Gorffennwch Os

Gorffennwch Os

arall

xB = Gwir

Ewch i BTime

Gorffennwch Os

Digwyddiadau

arall

msgstr "Dim ond fformat amser a ganiateir yn y gell hon."

xCRg.ClearContents

Gorffennwch Os

BTime:

Os xB Yna

msgstr "Dim ond fformat amser a ganiateir yn y gell hon."

xCRg.ClearContents

Gorffennwch Os

xCRg nesaf

Is-End



Rhowch gynnig arni, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Mae'n ddrwg gennyf am adnewyddu, mae'r cod yn gweithio'n neis iawn, diolch. Fi jyst eisiau ychwanegu un siec yn fwy os yw ei possible.A yw'n bosibl i wirio cell ar y chwith os yw'n cynnwys gwerth penodol. Yn y bôn yr hyn sydd ei angen arnaf yw: os yw cell ar y chwith yn cynnwys N yna mae'n rhaid i'r gell honno mewn amrediad gael ei mewnbynnu fel dyddiad. Os mai Y yw cell ar y chwith yna mae angen i'r gell honno aros yn wag.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir