จะอนุญาตให้ใช้รูปแบบวันที่เฉพาะในเซลล์ที่ระบุใน Excel ได้อย่างไร?

การจำกัดเซลล์เฉพาะให้อนุญาตเฉพาะรูปแบบวันที่ใน Excel อาจเป็นประโยชน์ในการรับรองความสอดคล้องของข้อมูล คู่มือนี้จะแนะนำวิธีการสองวิธี ได้แก่ การใช้คุณลักษณะการตรวจสอบข้อมูลหรือโค้ด VBA ง่ายๆ เพื่อบังคับให้ป้อนเฉพาะวันที่ในเซลล์ที่เลือก

อนุญาตเฉพาะรูปแบบวันที่ในเซลล์เฉพาะที่มีฟังก์ชันการตรวจสอบข้อมูล

อนุญาตเฉพาะรูปแบบวันที่ในเซลล์เฉพาะที่มีรหัส VBA

อนุญาตเฉพาะรูปแบบวันที่ในเซลล์เฉพาะที่มีฟังก์ชันการตรวจสอบข้อมูล

ใน Excel ไฟล์ การตรวจสอบข้อมูล เป็นฟังก์ชันอันทรงพลังที่ช่วยให้คุณสร้างรายการแบบดรอปดาวน์ เพื่อป้องกันรายการซ้ำซ้อน ฯลฯ นอกจากนี้ยังช่วยให้คุณหลีกเลี่ยงการป้อนข้อมูลในรูปแบบอื่นนอกเหนือจากวันที่ในเซลล์เฉพาะได้อีกด้วย โปรดทำตามขั้นตอนต่อไปนี้:

1. คลิก ข้อมูล > การตรวจสอบข้อมูล > การตรวจสอบข้อมูลดูภาพหน้าจอ:

2. ใน การตรวจสอบข้อมูล คลิกตกลง การตั้งค่า แล้วเลือก ประเพณี จาก อนุญาต รายการแบบหล่นลงจากนั้นป้อนสูตรนี้: = AND (ISNUMBER (B2), LEFT (CELL ("รูปแบบ", B2), 1) = "D") เข้าไปใน สูตร กล่องข้อความดูภาพหน้าจอ:

หมายเหตุ: ในสูตรข้างต้น B2 เป็นเซลล์แรกของคอลัมน์ที่คุณต้องการ จำกัด รูปแบบข้อมูล

3. จากนั้นคลิกที่ การแจ้งเตือนข้อผิดพลาด แท็บในกล่องโต้ตอบและดำเนินการตามขั้นตอนต่อไปนี้:

(1. ) ตรวจสอบ แสดงการแจ้งเตือนข้อผิดพลาดหลังจากป้อนข้อมูลที่ไม่ถูกต้อง ตัวเลือก;

(2. ) ภายใต้ สไตล์ แบบเลื่อนลงโปรดเลือก หยุด ตัวเลือก;

(3. ) พิมพ์ ชื่อหนังสือ รวมถึง เกิดข้อผิดพลาด ที่คุณต้องการแสดงในกล่องพร้อมต์

4. หลังจากเสร็จสิ้นการตั้งค่าคลิก OK ปุ่มและตอนนี้เมื่อคุณป้อนข้อมูลที่ไม่ใช่รูปแบบวันที่ที่ถูกต้อง กล่องพร้อมท์จะปรากฏขึ้นเพื่อแจ้งให้คุณทราบตามภาพหน้าจอต่อไปนี้:

อนุญาตเฉพาะรูปแบบวันที่ในเซลล์เฉพาะที่มีรหัส VBA

วิธีที่ 2 คือการแนะนำโค้ด VBA เพื่อทำงานนี้ให้สำเร็จ

1. เปิดใช้งานแผ่นงานที่คุณต้องการใช้

2. จากนั้นคลิกขวาที่แท็บแผ่นงานแล้วเลือก ดูรหัส จากเมนูบริบทดูภาพหน้าจอ:

3. ในไฟล์ 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

4บันทึกและปิดโค้ด ตอนนี้ เมื่อคุณป้อนค่าที่ไม่อยู่ในรูปแบบวันที่ในช่วง B2:B12 กล่องข้อความจะปรากฏขึ้นเพื่อเตือนคุณ และค่าเซลล์จะถูกล้างในเวลาเดียวกัน ดูภาพหน้าจอ: