จะอนุญาตให้ป้อนเฉพาะตัวเลขในกล่องข้อความได้อย่างไร?
ใน Excel เราสามารถใช้ฟังก์ชันการตรวจสอบข้อมูลเพื่ออนุญาตให้ป้อนเฉพาะตัวเลขลงในเซลล์ แต่บางครั้งฉันต้องการให้พิมพ์เฉพาะตัวเลขลงในกล่องข้อความและในเซลล์ จะยอมรับเฉพาะตัวเลขในกล่องข้อความใน Excel ได้อย่างไร
แบ่งช่วงของเซลล์ด้วยตัวเลขด้วยฟังก์ชัน Paste Special
แบ่งช่วงของเซลล์ด้วยตัวเลขด้วยฟังก์ชัน Paste Special
รหัส VBA ต่อไปนี้สามารถช่วยคุณในการป้อนตัวเลขจุด (.) และเครื่องหมายลบลงในช่องข้อความเท่านั้นโปรดดำเนินการดังนี้:
1. สร้างกล่องข้อความโดยคลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > กล่องข้อความ (ActiveX Control)จากนั้นวาดกล่องข้อความตามที่คุณต้องการดูภาพหน้าจอ:
2. จากนั้นคลิกขวาที่กล่องข้อความและเลือก ดูรหัส จากเมนูบริบทเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน จากนั้นแทนที่รหัสเดิมด้วยรหัส VBA ต่อไปนี้ลงในโมดูลเปล่า:
รหัส VBA: อนุญาตให้ใส่ตัวเลขลงในกล่องข้อความเท่านั้น:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
If KeyAscii = Asc("-") Then
If InStr(1, Me.TextBox1.Text, "-") > 0 Or _
Me.TextBox1.SelStart > 0 Then KeyAscii = 0
ElseIf KeyAscii = Asc(".") Then
If InStr(1, Me.TextBox1.Text, ".") > 0 Then KeyAscii = 0
Else
KeyAscii = 0
End If
End If
End Sub
3. จากนั้นบันทึกและปิดหน้าต่างรหัสและออกจากไฟล์ โหมดการออกแบบตอนนี้สามารถป้อนตัวเลขสัญลักษณ์ระยะเวลาและเครื่องหมายลบลงในกล่องข้อความได้เท่านั้นดูภาพหน้าจอ:
บทความที่เกี่ยวข้อง:
จะใช้การตรวจสอบการสะกดในช่องข้อความได้อย่างไร?
วิธีเปลี่ยนสีกล่องข้อความตามค่าใน Excel
จะแทรกรูปภาพลงในกล่องข้อความได้อย่างไร?
จะตั้งค่าเริ่มต้นในกล่องข้อความได้อย่างไร?
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
