วิธีการแปลงสตริงเป็นสองเท่าใน vba (พร้อมตัวอย่าง)

คุณสามารถใช้ฟังก์ชัน CDbl ใน VBA เพื่อแปลงสตริงข้อความเป็นชนิดข้อมูลคู่ได้

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

 Sub ConvertStringToDouble()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CDbl(Range(" A " & i))
        Else
            Range(" B " & i) = 0
        End If
    Next i

End Sub

มาโครเฉพาะนี้จะแปลงแต่ละสตริงในช่วง A2:A11 ให้เป็นชนิดข้อมูลคู่เฉพาะในกรณีที่สตริงเป็นตัวเลขเท่านั้น

มิฉะนั้น สตริงจะถูกแปลงเป็นค่าว่าง

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

ตัวอย่าง: แปลงสตริงเป็นสองเท่าใน VBA

สมมติว่าเรามีคอลัมน์ค่าต่อไปนี้ใน Excel ซึ่งปัจจุบันจัดรูปแบบเป็นสตริงข้อความ:

สมมติว่าเราต้องการแปลงแต่ละสตริงให้เป็นชนิดข้อมูลคู่ เฉพาะในกรณีที่สตริงเป็นตัวเลข และแสดงในคอลัมน์ B

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

 Sub ConvertStringToDouble()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CDbl(Range(" A " & i))
        Else
            Range(" B " & i) = 0
        End If
    Next i

End Sub

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

โปรดทราบว่าเฉพาะสตริงข้อความในคอลัมน์ A ที่เป็นตัวเลขเท่านั้นที่จะถูกแปลงเป็นชนิดข้อมูลคู่ในคอลัมน์ B

มิฉะนั้น สตริงข้อความจะถูกแปลงเป็นค่าว่าง

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

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

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

วิธีแปลงสตริงเป็น int ใน VBA
วิธีแปลงสตริงให้ยาวใน VBA