-
אני מנסה ליצור פונקציה
מילה
=1000
כלומר: בשימוש בגיליון :
=myfunc(מילה)
ייתן לי
1000
והאם ניתן לעשות זאת על כמה ערכים בפונקציה אחת
מילה=1000 מילהאחרת=2000
תודה רבה לעוזרים!
@פלורידה אפשר כך:
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
אם מדובר ברשימה ארוכה של ערכים, אז הדרך הנכונה היא לאחסן את כל זוגות הערכים
מילה
-מספר
בטבלה ולבצע חיפוש בטבלה כדי לקבל את הערך הנכון. -
@פלורידה אפשר כך:
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
אם מדובר ברשימה ארוכה של ערכים, אז הדרך הנכונה היא לאחסן את כל זוגות הערכים
מילה
-מספר
בטבלה ולבצע חיפוש בטבלה כדי לקבל את הערך הנכון. -
-
@פלורידה אפשר כך:
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 | המרת טקסט לערך מספרי:
לאחסן את כל זוגות הערכים מילה-מספר בטבלה ולבצע חיפוש בטבלה
ואפשר להשתמש בזה כפונקציה?
-
סליחה על הבורות, מה שאתה מציע לי לעשות זה לא אפשרי בvilookup? כלומר על ידי vba?
אם שאלתי שאלה מטופשת ולא לעניין תגיד לי ואני אמחוק
@פלורידה אמר בVba | המרת טקסט לערך מספרי:
אם שאלתי שאלה מטופשת ולא לעניין תגיד לי ואני אמחוק
מי אני שאגיד לך מה לעשות?
לענ"ד שאלה מטופשת שנשאלת בתמימות היא מקובלת.
ולעצם העניין, לא הבנתי מה רצונך.
אם אתה חפץ בפונקציונאליות הזו של שליפת מספר לפי מחרוזת, והזוגות נמצאים כבר בטבלה, אז כן, אפשר על ידי VLookup אם אתה באקסל (או DLookup אם אתה באקסס).
לא צריך כלל קוד VBA, אלא אם כן אתה רוצה פונקציה עם שם קצר ולא להקליד בכל פעם את כל נוסחת VLookup. במקרה כזה ניתן ליצור פונקציה ב-VBA שתבצע קריאה לפונקציה VLookup. -
@פלורידה אמר בVba | המרת טקסט לערך מספרי:
אם שאלתי שאלה מטופשת ולא לעניין תגיד לי ואני אמחוק
מי אני שאגיד לך מה לעשות?
לענ"ד שאלה מטופשת שנשאלת בתמימות היא מקובלת.
ולעצם העניין, לא הבנתי מה רצונך.
אם אתה חפץ בפונקציונאליות הזו של שליפת מספר לפי מחרוזת, והזוגות נמצאים כבר בטבלה, אז כן, אפשר על ידי VLookup אם אתה באקסל (או DLookup אם אתה באקסס).
לא צריך כלל קוד VBA, אלא אם כן אתה רוצה פונקציה עם שם קצר ולא להקליד בכל פעם את כל נוסחת VLookup. במקרה כזה ניתן ליצור פונקציה ב-VBA שתבצע קריאה לפונקציה VLookup. -
@odeddvir אמר בVba | המרת טקסט לערך מספרי:
במקרה כזה ניתן ליצור פונקציה ב-VBA שתבצע קריאה לפונקציה VLookup.
אתה מתכוון לעשות vlookup בתא כלשהו בחוברת, ולהזין לו
מילה
אועודמילה
דרך פקודת הvba ולשלוף את הפלט?ובקיצור לתאם בין הגליון לvba?
@פלורידה אני מתכוון להכניס את נוסחת ה-VLookup לתוך הפונקציה, משהו כזה:
Public Function MyFunc(wordText As String) As Variant MyFunc = Application.VLookup(wordText, Sheets("טבלת_חיפוש").Range("A:B"), 1) End Function
ואז בגליון להשתמש בנוסחא:
=MyFunc("מילה")
-
@פלורידה אני מתכוון להכניס את נוסחת ה-VLookup לתוך הפונקציה, משהו כזה:
Public Function MyFunc(wordText As String) As Variant MyFunc = Application.VLookup(wordText, Sheets("טבלת_חיפוש").Range("A:B"), 1) End Function
ואז בגליון להשתמש בנוסחא:
=MyFunc("מילה")
-
D dovid העביר נושא זה מ-תכנות ב-