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

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

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תכנות
  3. Vba | המרת טקסט לערך מספרי

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

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

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

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

    =myfunc(מילה)
    

    ייתן לי 1000


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

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

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

    OdedDvirO תגובה 1 תגובה אחרונה
    2
    • פ פלורידה

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

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

      =myfunc(מילה)
      

      ייתן לי 1000


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

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

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

      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
      • OdedDvirO 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
        

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

        פ מנותק
        פ מנותק
        פלורידה
        כתב ב נערך לאחרונה על ידי פלורידה
        #3

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

        Switch Case wordText

        End Switch

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

        OdedDvirO תגובה 1 תגובה אחרונה
        1
        • פ פלורידה

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

          Switch Case wordText

          End Switch

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

          OdedDvirO מנותק
          OdedDvirO מנותק
          OdedDvir
          כתב ב נערך לאחרונה על ידי
          #4

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

          תגובה 1 תגובה אחרונה
          3
          • OdedDvirO 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
            

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

            פ מנותק
            פ מנותק
            פלורידה
            כתב ב נערך לאחרונה על ידי
            #5

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

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

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

            OdedDvirO תגובה 1 תגובה אחרונה
            0
            • פ פלורידה

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

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

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

              OdedDvirO מנותק
              OdedDvirO מנותק
              OdedDvir
              כתב ב נערך לאחרונה על ידי
              #6

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

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

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

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

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

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

                OdedDvirO תגובה 1 תגובה אחרונה
                0
                • פ פלורידה

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

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

                  OdedDvirO מנותק
                  OdedDvirO מנותק
                  OdedDvir
                  כתב ב נערך לאחרונה על ידי
                  #8

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

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

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

                  פ תגובה 1 תגובה אחרונה
                  3
                  • OdedDvirO OdedDvir

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

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

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

                    פ מנותק
                    פ מנותק
                    פלורידה
                    כתב ב נערך לאחרונה על ידי
                    #9

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

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

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

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

                    OdedDvirO תגובה 1 תגובה אחרונה
                    0
                    • פ פלורידה

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

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

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

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

                      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
                      • OdedDvirO OdedDvir

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

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

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

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


                        בא תתחבר לדף היומי!
                        • התחברות

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

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