'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
'★ 最初の「_」より後ろの文字列を取り出す
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
Function zfSliceRearStrUs(ByVal tStr As String) As String
zfSliceRearStrUs = Mid(tStr, InStr(tStr, "_") + 1)
End Function最初の「_」より後ろの文字列を取り出す
Excel VBA スニペット
コメント