Difference between revisions of "MakeArrayFromSearch"
From scripting
(Created page with " Function MakeArrayFromSearch(SearchStr As String) As Variant MySel.Search SearchStr Dim TempArr() If MySel.Count = 0 Then ReDim TempArr(0) MakeArrayFromSearch =...") |
(No difference)
|
Latest revision as of 07:20, 22 April 2017
Function MakeArrayFromSearch(SearchStr As String) As Variant MySel.Search SearchStr Dim TempArr() If MySel.Count = 0 Then ReDim TempArr(0) MakeArrayFromSearch = TempArr Exit Function End If ReDim TempArr(MySel.Count - 1) For X = 0 To MySel.Count - 1 Set TempArr(X) = MySel.Item(X + 1).Value Next X MakeArrayFromSearch = TempArr End Function