Vba: วิธีใช้ isnumeric เพื่อตรวจสอบว่าเซลล์เป็นตัวเลขหรือไม่

คุณสามารถใช้ฟังก์ชัน IsNumeric ใน VBA เพื่อตรวจสอบว่าเซลล์ที่ระบุเป็นตัวเลขหรือไม่

ฟังก์ชันนี้จะส่งกลับ ค่า True ถ้าค่าของเซลล์ที่ระบุถูกรับรู้เป็นตัวเลข

มิฉะนั้นฟังก์ชันจะส่งกลับ False

นี่เป็นวิธีทั่วไปในการใช้ฟังก์ชันนี้ในทางปฏิบัติ:

 SubCheckNumeric ()
    
    Dim i As Integer

    For i = 1 To 9
    
        If IsNumeric(Range(" A " & i)) = True Then
            Range(" B " & i) = " Numeric Value "
        Else
            Range(" B " & i) = " Not a Numeric Value "
        End If
    Next i
    
End Sub

มาโครนี้จะตรวจสอบว่าแต่ละเซลล์ในช่วง A1:A9 เป็นตัวเลขหรือไม่

หากเซลล์เป็นตัวเลข “ค่าตัวเลข” จะถูกส่งกลับในเซลล์ที่เกี่ยวข้องในช่วง B1:B9

หากเซลล์ไม่ใช่ตัวเลข ระบบจะส่งกลับ “ไม่ใช่ค่าตัวเลข” แทน

ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ

ตัวอย่าง: วิธีใช้ IsNumeric ใน VBA

สมมติว่าเรามีคอลัมน์ค่าต่อไปนี้ใน Excel:

สมมติว่าเราต้องการตรวจสอบว่าแต่ละเซลล์ในคอลัมน์ A เป็นตัวเลขหรือไม่

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 SubCheckNumeric ()
    
    Dim i As Integer

    For i = 1 To 9
    
        If IsNumeric(Range(" A " & i)) = True Then
            Range(" B " & i) = " Numeric Value "
        Else
            Range(" B " & i) = " Not a Numeric Value "
        End If
    Next i
    
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

คอลัมน์ B แสดงผลลัพธ์ที่แจ้งให้เราทราบว่าแต่ละเซลล์ที่ตรงกันในคอลัมน์ A ได้รับการยอมรับว่าเป็นตัวเลขหรือไม่

สิ่งที่น่าสนใจที่ควรทราบในผลลัพธ์มีดังนี้:

• ตัวเลขที่มีตำแหน่งทศนิยมจะถูกรับรู้เป็นตัวเลข
• เปอร์เซ็นต์รับรู้เป็นตัวเลข
• วัน ที่ไม่ ถือเป็นตัวเลข
• ข้อความที่มีตัวเลข ไม่ ถือเป็นตัวเลข

หมายเหตุ : คุณสามารถค้นหาเอกสารฉบับเต็มสำหรับฟังก์ชัน VBA IsNumeric ได้ที่นี่

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

วิธีแปลงสตริงเป็น int ใน VBA
วิธีแปลงสตริงเป็นสองเท่าใน VBA
วิธีตรวจสอบว่าสตริงมีสตริงอื่นใน VBA หรือไม่