|
▼Hirofumi さん:
>Functionの形で書くとこんなかな?
>ユーザー定義関数で使っても善いし、マクロの中で使っても善いと思いますが?
>
>Public Function NumericalValue(ByVal vntValue As Variant) As Variant
>
> Dim i As Long
> Dim lngPos As Long
>
> NumericalValue = ""
>
> If vntValue = "" Then
> Exit Function
> End If
>
> vntValue = Left(vntValue, Len(vntValue) - 1)
> lngPos = InStr(1, vntValue, ",", vbBinaryCompare)
> Do Until lngPos = 0
> vntValue = Left(vntValue, lngPos - 1) _
> & Mid(vntValue, lngPos + 1)
> lngPos = InStr(1, vntValue, ",", vbBinaryCompare)
> Loop
> If IsNumeric(vntValue) Then
> NumericalValue = Val(vntValue)
> End If
>
>End Function
早速の、深夜の回答ありがとうございます。
うまくいきました。
本当に有志の方々に感謝しております。
今後とも、よろしく御願いいたします。
|
|