ไปยังเนื้อหาหลัก

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

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

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

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


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

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

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

doc อนุญาตเฉพาะลบ 1

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

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

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

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

doc อนุญาตเฉพาะลบ 2

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

doc อนุญาตเฉพาะลบ 3


ลูกศรสีฟ้าฟองขวา อนุญาตเฉพาะตัวเลขเชิงลบใน 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

doc อนุญาตเฉพาะลบ 4

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

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

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How do I change the automatic formatting with this code from Currency to Accounting ?
This comment was minimized by the moderator on the site
Hi! Great article. One question: if, instead of a coherent group of cells, I want to apply this in different parts of the sheet (e.g. A1:A2 AND A6:A8), is there a way to do that with the VBA solution? I.e.: how do I replace the "A1:A1000" with several sets of cells?
This comment was minimized by the moderator on the site
Hello, GB,
To apply this code for multiple ranges, please use the following code:

Note: when using this code, first, you should right click the sheet tab, and then click View code from the context menu, and then copy the following code into the module.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Const sRg As String = "A1:A10,B1:B10,C1:C20" 'Separate the ranges by commas
Dim xRg As Range
Dim xSRg As Range
On Error GoTo err_exit:
Application.EnableEvents = False
Set xSRg = Range(sRg)
If Not Intersect(Target, xSRg) 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

Please try, hope it can help you!
This comment was minimized by the moderator on the site
Super, thanks! Very helpful.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations