Vba | המרת טקסט לערך מספרי

[OdedDvir]

@פלורידה אפשר כך:

Public Function MyFunc(wordText As String) As Long
   Dim output As Long
   Select Case wordText
      Case "מילה": output = 1000
      Case "עודמילה": output = 2000
   End Select
   MyFunc = output
End Function

אם מדובר ברשימה ארוכה של ערכים, אז הדרך הנכונה היא לאחסן את כל זוגות הערכים מילה-מספר בטבלה ולבצע חיפוש בטבלה כדי לקבל את הערך הנכון.

[פלורידה]

@odeddvir אמר בVba | המרת טקסט לערך מספרי:

Switch Case wordText

End Switch

מחזיר לי שגיאה

[OdedDvir]

@פלורידה אופס... התבלבלו לי השפות בין VB ל-C#...
במקום Switch בשורות 3 ו-6, צ"ל Select, כך:
Select Case ו- End Select.
תיקנתי במקור.

[פלורידה]

@odeddvir אמר בVba | המרת טקסט לערך מספרי:

לאחסן את כל זוגות הערכים מילה-מספר בטבלה ולבצע חיפוש בטבלה

ואפשר להשתמש בזה כפונקציה?

[OdedDvir]

@פלורידה אמר בVba | המרת טקסט לערך מספרי:

ואפשר להשתמש בזה כפונקציה?

כן.
רק צריך למקם את הקוד הנ"ל בתוך מודול (ולא בתוך מחלקת הגליון).

[פלורידה]

סליחה על הבורות, מה שאתה מציע לי לעשות זה לא אפשרי בvilookup? כלומר על ידי vba?

אם שאלתי שאלה מטופשת ולא לעניין תגיד לי ואני אמחוק

[OdedDvir]

@פלורידה אמר בVba | המרת טקסט לערך מספרי:

אם שאלתי שאלה מטופשת ולא לעניין תגיד לי ואני אמחוק

מי אני שאגיד לך מה לעשות?
לענ"ד שאלה מטופשת שנשאלת בתמימות היא מקובלת.
ולעצם העניין, לא הבנתי מה רצונך.
אם אתה חפץ בפונקציונאליות הזו של שליפת מספר לפי מחרוזת, והזוגות נמצאים כבר בטבלה, אז כן, אפשר על ידי VLookup אם אתה באקסל (או DLookup אם אתה באקסס).
לא צריך כלל קוד VBA, אלא אם כן אתה רוצה פונקציה עם שם קצר ולא להקליד בכל פעם את כל נוסחת VLookup. במקרה כזה ניתן ליצור פונקציה ב-VBA שתבצע קריאה לפונקציה VLookup.

[פלורידה]

@odeddvir אמר בVba | המרת טקסט לערך מספרי:

במקרה כזה ניתן ליצור פונקציה ב-VBA שתבצע קריאה לפונקציה VLookup.

אתה מתכוון לעשות vlookup בתא כלשהו בחוברת, ולהזין לו מילה או עודמילה דרך פקודת הvba ולשלוף את הפלט?

ובקיצור לתאם בין הגליון לvba?

[OdedDvir]

@פלורידה אני מתכוון להכניס את נוסחת ה-VLookup לתוך הפונקציה, משהו כזה:

Public Function MyFunc(wordText As String) As Variant
   MyFunc =  Application.VLookup(wordText, Sheets("טבלת_חיפוש").Range("A:B"), 1)
End Function

ואז בגליון להשתמש בנוסחא:

=MyFunc("מילה")

[פלורידה]

פוסט זה נמחק!