เปลี่ยนระยะเวลาเป็นเครื่องหมายจุลภาคและในทางกลับกันใน UDF

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

Function cleannumber(texto As String) As String 
Dim volta As String 
Dim pedaco As String 

volta = "" 
For i = 1 To Len(texto) 
   pedaco = Mid(texto, i, 1) 
   If pedaco >= "0" And pedaco <= "9"  Or pedaco = “,” Or pedaco =”.” Then volta = volta & pedaco 
Next i 
cleannumber = volta 
End Function

ก่อนIfแถลงการณ์:

pedaco = Replace(pedaco, ".", "whatever")
pedaco = Replace(pedaco, ",", ".")
pedaco = Replace(pedaco, "whatever", ",")

แก้ไขรหัส:

Function cleannumber(texto As String) As String 
Dim volta As String 
Dim pedaco As String 

volta = "" 
For i = 1 To Len(texto) 
   pedaco = Mid(texto, i, 1) 

   // Add the below line
   pedaco = Replace(pedaco, ",", ".")

   If pedaco >= "0" And pedaco <= "9"  Or pedaco = “,” Or pedaco =”.” Then volta = volta & pedaco 
Next i 
cleannumber="'" & volta
End Function