จะป้องกันไม่ให้อักขระพิเศษเข้ามาใน Excel ได้อย่างไร?
ในบางกรณีเราแค่ต้องการป้อนตัวอักษรหรือตัวเลขในเซลล์และป้องกันไม่ให้พิมพ์อักขระพิเศษเช่น @ # $% & และอื่น ๆ มีฟังก์ชันใดบ้างใน Excel ที่ป้องกันไม่ให้อักขระพิเศษเข้ามาเมื่อเราแทรกค่า?
ป้องกันไม่ให้มีการป้อนอักขระพิเศษด้วยการตรวจสอบข้อมูล
ป้องกันไม่ให้อักขระพิเศษป้อนด้วยรหัส VBA
ป้องกันไม่ให้อักขระพิเศษเข้ามาด้วย Kutools for Excel
ป้องกันไม่ให้มีการป้อนอักขระพิเศษด้วยการตรวจสอบข้อมูล
การตรวจสอบข้อมูลของ Excel สามารถช่วยให้คุณป้อนเฉพาะค่าตัวอักษรและตัวเลขเท่านั้น กรุณาดำเนินการดังต่อไปนี้:
1. เลือกช่วงที่คุณต้องการป้องกันไม่ให้อักขระพิเศษเข้ามา
2. จากนั้นคลิก ข้อมูล > การตรวจสอบข้อมูล > การตรวจสอบข้อมูลดูภาพหน้าจอ:
3. ใน การตรวจสอบข้อมูล คลิกตกลง การตั้งค่า และเลือก ประเพณี จาก อนุญาต รายการแบบเลื่อนลงจากนั้นป้อนสูตรนี้ =ISNUMBER(SUMPRODUCT(SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))) เข้าไปใน สูตร กล่องข้อความดูภาพหน้าจอ:
หมายเหตุ A1 ระบุเซลล์แรกของช่วงที่คุณเลือก (จากซ้ายไปขวา)
4. จากนั้นคลิก OK เพื่อปิดกล่องโต้ตอบนี้ และตอนนี้เมื่อคุณป้อนค่าที่มีอักขระพิเศษในคอลัมน์ที่ระบุที่คุณใช้ตัวเลือก คุณจะได้รับข้อความเตือนต่อไปนี้
ป้องกันไม่ให้อักขระพิเศษป้อนด้วยรหัส VBA
รหัส VBA ต่อไปนี้ยังช่วยคุณป้องกันอักขระพิเศษขณะป้อนค่าข้อความ
1. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.
2. จากนั้นเลือกแผ่นงานที่คุณใช้จากด้านซ้าย นักสำรวจโครงการดับเบิลคลิกเพื่อเปิดไฟล์ โมดูลจากนั้นคัดลอกและวางโค้ด VBA ต่อไปนี้ลงในช่องว่าง โมดูล:
รหัส VBA: ป้องกันไม่ให้มีการป้อนอักขระพิเศษใน Excel
Private Const FCheckRgAddress As String = "A1:A100"
Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140905
Dim xChanged As Range
Dim xRg As Range
Dim xString As String
Dim sErrors As String
Dim xRegExp As Variant
Dim xHasErr As Boolean
Set xChanged = Application.Intersect(Range(FCheckRgAddress), Target)
If xChanged Is Nothing Then Exit Sub
Set xRegExp = CreateObject("VBScript.RegExp")
xRegExp.Global = True
xRegExp.IgnoreCase = True
xRegExp.Pattern = "[^0-9a-z]"
For Each xRg In xChanged
If xRegExp.Test(xRg.Value) Then
xHasErr = True
Application.EnableEvents = False
xRg.ClearContents
Application.EnableEvents = True
End If
Next
If xHasErr Then MsgBox "These cells had invalid entries and have been cleared:"
End Sub
หมายเหตุ: ในโค้ดด้านบนคุณสามารถเปลี่ยนช่วงได้ A1: A100 of Private Const FCheckRgAddress เป็น String = "A1: A100" สคริปต์ไปยังช่วงของคุณเองที่คุณต้องการป้องกันอักขระพิเศษ
3จากนั้นบันทึกและปิดโค้ดนี้ เมื่อคุณป้อนค่าข้อความที่มีอักขระพิเศษในช่วง A1:A100 รายการจะถูกล้างทันที และคุณจะได้รับข้อความเตือนดังต่อไปนี้
ป้องกันไม่ให้อักขระพิเศษเข้ามาด้วย Kutools for Excel
จริงๆแล้วถ้าคุณมี Kutools สำหรับ Excel - เครื่องมือที่มีประโยชน์และใช้งานได้หลากหลายคุณสามารถป้องกันการพิมพ์อักขระพิเศษได้อย่างรวดเร็วด้วยการเลือก ป้องกันการพิมพ์ ยูทิลิตี้โดยการตรวจสอบเพียงครั้งเดียว
หลังจากการติดตั้ง Kutools สำหรับ Excel โปรดทำดังนี้:
1. เลือกตัวเลือกที่คุณต้องการป้องกันไม่ให้พิมพ์อักขระพิเศษแล้วคลิก Kutools > ป้องกันการพิมพ์ > ป้องกันการพิมพ์. ดูภาพหน้าจอ:
2 ใน ป้องกันการพิมพ์ โต้ตอบตรวจสอบ ป้องกันไม่ให้พิมพ์อักขระพิเศษ ตัวเลือก ดูภาพหน้าจอ:
3 คลิก Okและกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนคุณว่าจะลบการตรวจสอบข้อมูลหากใช้ยูทิลิตี้นี้แล้วคลิก ใช่ เพื่อไปที่กล่องโต้ตอบถัดไปมันจะเตือนคุณว่ายูทิลิตี้ได้ทำงานในส่วนนี้แล้ว ดูภาพหน้าจอ:
4 คลิก OK เพื่อปิดกล่องโต้ตอบและจากนี้ไปกล่องโต้ตอบคำเตือนจะปรากฏขึ้นเมื่อคุณพยายามป้อนอักขระพิเศษในส่วนที่เลือก
Kutools สำหรับ Excel - เพิ่มประสิทธิภาพ Excel ด้วยเครื่องมือที่จำเป็นกว่า 300 รายการ เพลิดเพลินกับฟีเจอร์ AI ฟรีถาวร! Get It Now
การสาธิต: ป้องกันการป้อนอักขระพิเศษโดยใช้ Kutools สำหรับ Excel
บทความที่เกี่ยวข้อง:
วิธีป้องกันการป้อนค่าด้วยช่องว่างใน Excel
วิธีป้องกันไม่ให้รายการซ้ำกันในคอลัมน์ใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!