จะอนุญาตเฉพาะตัวเลขเชิงลบใน Excel ได้อย่างไร?

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

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

อนุญาตเฉพาะตัวเลขเชิงลบใน Excel ที่มีรหัส VBA

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

โดยปกติไฟล์ การตรวจสอบข้อมูล ฟังก์ชั่นสามารถช่วยคุณได้โปรดทำดังนี้:

1. เลือกเซลล์หรือคอลัมน์ที่คุณต้องการอนุญาตให้ป้อนเฉพาะตัวเลขเชิงลบจากนั้นคลิก ข้อมูล > การตรวจสอบข้อมูล > การตรวจสอบข้อมูลดูภาพหน้าจอ:

2. ใน การตรวจสอบข้อมูล ภายใต้ การตั้งค่า ทำตามตัวเลือกต่อไปนี้:

(1. ) ใน อนุญาต ส่วนเลือก ทศนิยม จากรายการแบบหล่นลง

(2. ) ใน ข้อมูล โปรดเลือก น้อยกว่าหรือเท่ากับ ตัวเลือก;

(3. ) ในที่สุดให้ป้อนหมายเลข 0 เข้าไปใน สูงสุด กล่องข้อความ.

3. จากนั้นคลิก OKและตอนนี้อนุญาตให้ป้อนเฉพาะตัวเลขลบและ 0 เท่านั้นหากป้อนตัวเลขบวกจะแสดงข้อความเตือนดูภาพหน้าจอ:

ปลดล็อก Excel Magic ด้วย Kutools AI

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

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

อนุญาตเฉพาะตัวเลขเชิงลบใน Excel ที่มีรหัส VBA

นี่คือรหัส VBA ยังสามารถช่วยคุณได้ด้วยรหัสต่อไปนี้เมื่อคุณป้อนจำนวนบวกรหัสนั้นจะถูกแปลงเป็นค่าลบโดยอัตโนมัติโปรดทำดังนี้:

1. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการอนุญาตเฉพาะตัวเลขติดลบแล้วเลือก ดูรหัส จากเมนูบริบทในป๊อปอัป Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางรหัสต่อไปนี้ลงในช่องว่าง โมดูล:

รหัส VBA: อนุญาตเฉพาะตัวเลขติดลบในแผ่นงาน:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Const sRg As String = "A1:A1000"
    Dim xRg As Range
    On Error GoTo err_exit:
    Application.EnableEvents = False
    If Not Intersect(Target, Range(sRg)) Is Nothing Then
        For Each xRg In Target
            If Left(xRg.Value, 1) <> "-" Then
                xRg.Value = xRg.Value * -1
            End If
        Next xRg
    End If
err_exit:
    Application.EnableEvents = True
End Sub

หมายเหตุ: ในโค้ดด้านบน A1: A1000 คือเซลล์ที่คุณต้องการป้อนข้อมูลตัวเลขเชิงลบเท่านั้น

2. จากนั้นบันทึกและปิดรหัสนี้กลับไปที่แผ่นงานและตอนนี้เมื่อคุณป้อนตัวเลขบวกลงในเซลล์ที่คุณระบุไว้ในรหัสตัวเลขบวกจะถูกแปลงเป็นค่าลบโดยอัตโนมัติ