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

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

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

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

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

      =myfunc(מילה)
      

      ייתן לי 1000


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

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

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

      OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 2
      • OdedDvir
        OdedDvir @פלורידה נערך לאחרונה על ידי 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
        

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

        פ 2 תגובות תגובה אחרונה תגובה ציטוט 4
        • פ
          פלורידה @OdedDvir נערך לאחרונה על ידי פלורידה

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

          Switch Case wordText

          End Switch

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

          OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 1
          • OdedDvir
            OdedDvir @פלורידה נערך לאחרונה על ידי

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

            תגובה 1 תגובה אחרונה תגובה ציטוט 3
            • פ
              פלורידה @OdedDvir נערך לאחרונה על ידי

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

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

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

              OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 0
              • OdedDvir
                OdedDvir @פלורידה נערך לאחרונה על ידי

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

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

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

                תגובה 1 תגובה אחרונה תגובה ציטוט 1
                • פ
                  פלורידה נערך לאחרונה על ידי

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

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

                  OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 0
                  • OdedDvir
                    OdedDvir @פלורידה נערך לאחרונה על ידי

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

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

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

                    פ תגובה 1 תגובה אחרונה תגובה ציטוט 3
                    • פ
                      פלורידה @OdedDvir נערך לאחרונה על ידי

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

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

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

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

                      OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 0
                      • OdedDvir
                        OdedDvir @פלורידה נערך לאחרונה על ידי

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

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

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

                        =MyFunc("מילה")
                        
                        פ תגובה 1 תגובה אחרונה תגובה ציטוט 1
                        • פ
                          פלורידה @OdedDvir נערך לאחרונה על ידי פלורידה

                          פוסט זה נמחק!
                          תגובה 1 תגובה אחרונה תגובה ציטוט 0
                          • הועבר מ תכנות ע"י  dovid dovid 
                          • 1 / 1
                          • פוסט ראשון
                            פוסט אחרון
                          בא תתחבר לדף היומי!