גולש לא רשום
New member
עזרה עם קוד
שלום לכולם,
השתמשתי בקוד הרצ"ב בתוך חוברת ששמרתי כ- ADD-IN
ומשום מה הוא לא עובד יותר...
הקוד מחלץ מילה מתוך תא כמו WMID למי שמכיר בתוסף MORFUNC (לצערי אני עם אופיס 2013 ולכן לא יכול להתקין את זה שוב)
ה-ADD-IN מופיע כפעיל.
אופיס 2013
WIN7
תודה.
Function FindWord(Source As String, Position As Integer)
'Update 20131202
Dim arr() As String
arr = VBA.Split(Source, " ")
xCount = UBound(arr)
If xCount < 1 Or (Position - 1) > xCount Or Position < 0 Then
FindWord = ""
Else
FindWord = arr(Position - 1)
End If
End Function
שלום לכולם,
השתמשתי בקוד הרצ"ב בתוך חוברת ששמרתי כ- ADD-IN
ומשום מה הוא לא עובד יותר...
הקוד מחלץ מילה מתוך תא כמו WMID למי שמכיר בתוסף MORFUNC (לצערי אני עם אופיס 2013 ולכן לא יכול להתקין את זה שוב)
ה-ADD-IN מופיע כפעיל.
אופיס 2013
WIN7
תודה.
Function FindWord(Source As String, Position As Integer)
'Update 20131202
Dim arr() As String
arr = VBA.Split(Source, " ")
xCount = UBound(arr)
If xCount < 1 Or (Position - 1) > xCount Or Position < 0 Then
FindWord = ""
Else
FindWord = arr(Position - 1)
End If
End Function