• דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

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

מתוזמן נעוץ נעול הועבר תכנות
11 פוסטים 2 כותבים 347 צפיות
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • פ מחובר
    פ מחובר
    פלורידה
    כתב ב נערך לאחרונה על ידי פלורידה
    #1

    אני מנסה ליצור פונקציה מילה = 1000

    כלומר: בשימוש בגיליון :

    =myfunc(מילה)
    

    ייתן לי 1000


    והאם ניתן לעשות זאת על כמה ערכים בפונקציה אחת

    מילה=1000
    מילהאחרת=2000
    

    תודה רבה לעוזרים!

    OdedDvirO תגובה 1 תגובה אחרונה
    2
  • OdedDvirO מנותק
    OdedDvirO מנותק
    OdedDvir
    השיב לפלורידה ב נערך לאחרונה על ידי OdedDvir
    #2

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

    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
    

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

    פ 2 תגובות תגובה אחרונה
    4
  • פ מחובר
    פ מחובר
    פלורידה
    השיב לOdedDvir ב נערך לאחרונה על ידי פלורידה
    #3

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

    Switch Case wordText

    End Switch

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

    OdedDvirO תגובה 1 תגובה אחרונה
    1
  • OdedDvirO מנותק
    OdedDvirO מנותק
    OdedDvir
    השיב לפלורידה ב נערך לאחרונה על ידי
    #4

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

    תגובה 1 תגובה אחרונה
    3
  • פ מחובר
    פ מחובר
    פלורידה
    השיב לOdedDvir ב נערך לאחרונה על ידי
    #5

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

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

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

    OdedDvirO תגובה 1 תגובה אחרונה
    0
  • OdedDvirO מנותק
    OdedDvirO מנותק
    OdedDvir
    השיב לפלורידה ב נערך לאחרונה על ידי
    #6

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

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

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

    תגובה 1 תגובה אחרונה
    1
  • פ מחובר
    פ מחובר
    פלורידה
    כתב ב נערך לאחרונה על ידי
    #7

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

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

    OdedDvirO תגובה 1 תגובה אחרונה
    0
  • OdedDvirO מנותק
    OdedDvirO מנותק
    OdedDvir
    השיב לפלורידה ב נערך לאחרונה על ידי
    #8

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

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

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

    פ תגובה 1 תגובה אחרונה
    3
  • פ מחובר
    פ מחובר
    פלורידה
    השיב לOdedDvir ב נערך לאחרונה על ידי
    #9

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

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

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

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

    OdedDvirO תגובה 1 תגובה אחרונה
    0
  • OdedDvirO מנותק
    OdedDvirO מנותק
    OdedDvir
    השיב לפלורידה ב נערך לאחרונה על ידי
    #10

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

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

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

    =MyFunc("מילה")
    
    פ תגובה 1 תגובה אחרונה
    1
  • פ מחובר
    פ מחובר
    פלורידה
    השיב לOdedDvir ב נערך לאחרונה על ידי פלורידה
    #11
    פוסט זה נמחק!
    תגובה 1 תגובה אחרונה
    0
  • dovidD dovid העביר נושא זה מ-תכנות ב-

  • התחברות

  • אין לך חשבון עדיין? הרשמה

  • התחברו או הירשמו כדי לחפש.
  • פוסט ראשון
    פוסט אחרון
0
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
  • התחברות

  • אין לך חשבון עדיין? הרשמה

  • התחברו או הירשמו כדי לחפש.