จะอนุญาตให้ป้อนเฉพาะตัวเลขในกล่องข้อความได้อย่างไร?

ใน 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

จะแทรกรูปภาพลงในกล่องข้อความได้อย่างไร?

จะตั้งค่าเริ่มต้นในกล่องข้อความได้อย่างไร?