|
こんなFunctionを作って、ユーザー定義関数として使うか、
VBAのコードから使うかすれば善いのでは?
Public Function GetData(vntValue As Variant) As Variant
Const cstrFindTop As String = "values("
Const cstrFindEnd As String = ")"
Dim lngPosTop As Long
Dim lngPosEnd As Long
Dim lngLenght As Long
lngLenght = Len(cstrFindTop)
lngPosTop = InStr(1, vntValue, cstrFindTop, vbTextCompare)
lngPosEnd = InStr(1, vntValue, cstrFindEnd, vbTextCompare)
GetData = Mid(vntValue, lngPosTop + lngLenght, _
lngPosEnd - lngPosTop - lngLenght)
End Function
ユーザー定義関数として使うなら、A2のセルに
=GetData(A1)
で善いのでは?
|
|