VBA - startPOSとendPOSでSTRING関数を分割

Question

START_POSITIONとEND_POSITIONで文字列を分割するExcel VBAで関数が必要です。

同様：

function splitxy(text as String, start_pos as Integer, end_pos as Integer) as String 

私は配列に私の文字列をオンにし、必要な文字を取得するためのループを使用する必要がある、または簡単な方法はありますか？

Answer 1

要求されるように答えとしてコメント：私の場合は

Function splitxy(Text As String, StartPos As Integer, _ 
              EndPos As Integer) As String 

    splitxy = Mid(Text, StartPos, EndPos - StartPos + 1) 

End Function 

Answer 2

Function splitxy(text As String, start_pos As Integer, end_pos As Integer) As String 
splitxy = Mid(text, start_pos, (end_pos - start_pos) + 1) 
End Function 

Answer 3

、千seperatorsを持っていたすべての数字も、小数点にカンマを持っていました。私は、このようにそれを解決することができた：

Function makeNumber(n As String) 
    n = Replace(n, ",", ".") 

    If Len(n) - Len(Replace(n, ".", "")) > 1 Then 
    Dim dots As Integer 
    Dim pos_of_last_dot As Integer 
    Dim integral As String 
    Dim decimal As String 

    pos_of_last_dot = InStrRev(n, ".", -1) 
    integral = Left(n, pos_of_last_dot) 
    decimal = Mid(n, pos_of_last_dot) 
    integral = Replace(integral, ".", "") 
    decimal = Replace(decimal, ".", "") 
    n = integral & "." & decimal 

    End If 

    makeNumber = n 
End Function