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

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

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תכנות
  3. שערים יציגים מבנק ישראל - VBA אקסס

שערים יציגים מבנק ישראל - VBA אקסס

מתוזמן נעוץ נעול הועבר תכנות
15 פוסטים 4 כותבים 440 צפיות 3 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • מלאמ מלא

    @ארי כתב בשערים יציגים מבנק ישראל - VBA אקסס:

        MsgBox "÷åã îèáò ìà çå÷é!", vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight
    
    א מנותק
    א מנותק
    ארי
    כתב ב נערך לאחרונה על ידי
    #5

    @מלא תוקן.
    תודה.

    תגובה 1 תגובה אחרונה
    0
    • א ארי

      @שמעון-חבצלת באירוע בעת לחיצה כפולה אתה שם

      me.shekel = me.dollar * GetExchangeRates.sum
      
      ש מנותק
      ש מנותק
      שמעון חבצלת
      כתב ב נערך לאחרונה על ידי
      #6

      @ארי תודה רבה על כל העזרה,
      אבל הקוד נתקע כאן:
      329c13e6-957c-4ace-84f6-49826ee1299c-image.png

      א תגובה 1 תגובה אחרונה
      0
      • ש שמעון חבצלת

        @ארי תודה רבה על כל העזרה,
        אבל הקוד נתקע כאן:
        329c13e6-957c-4ace-84f6-49826ee1299c-image.png

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

        @שמעון-חבצלת סליחה, שכחתי לציין שצריך קוד שממיר Json לאקסס.
        תוסיף את הקוד שיש בקובץ המצורף לVBA שלך (בתוך חלון הVBA בצד ימין איפה שכל המודולים, לחיצה על המקש הימני בעכבר ועל ייבוא מקובץ).

        JsonConverter.bas

        ש תגובה 1 תגובה אחרונה
        2
        • א ארי

          @שמעון-חבצלת סליחה, שכחתי לציין שצריך קוד שממיר Json לאקסס.
          תוסיף את הקוד שיש בקובץ המצורף לVBA שלך (בתוך חלון הVBA בצד ימין איפה שכל המודולים, לחיצה על המקש הימני בעכבר ועל ייבוא מקובץ).

          JsonConverter.bas

          ש מנותק
          ש מנותק
          שמעון חבצלת
          כתב ב נערך לאחרונה על ידי
          #8

          @ארי תודה על הכל
          א. עכשיו הוא מקפיץ לי את החלון הזה
          5ddc1111-c8e1-4688-9f99-ec6f605497b0-image.png
          ב. האם יש אפשרות שזה יעבוד גם אופליין ויזכור את הפעם האחרונה?

          א תגובה 1 תגובה אחרונה
          0
          • ש שמעון חבצלת

            @ארי תודה על הכל
            א. עכשיו הוא מקפיץ לי את החלון הזה
            5ddc1111-c8e1-4688-9f99-ec6f605497b0-image.png
            ב. האם יש אפשרות שזה יעבוד גם אופליין ויזכור את הפעם האחרונה?

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

            @שמעון-חבצלת א. אתה צריך להוסיף לreferences את Microsoft scripting runtime.
            ב. אתה יכול ליצור טבלה ובה לשמור את הערך האחרון שמתקבל בכל קריאה.

            ש תגובה 1 תגובה אחרונה
            2
            • א ארי

              @שמעון-חבצלת א. אתה צריך להוסיף לreferences את Microsoft scripting runtime.
              ב. אתה יכול ליצור טבלה ובה לשמור את הערך האחרון שמתקבל בכל קריאה.

              ש מנותק
              ש מנותק
              שמעון חבצלת
              כתב ב נערך לאחרונה על ידי
              #10

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

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

                @ארי הקישור של בנק ישראל הפסיק לעבוד.
                הקוד לא עובד.
                יש למישהו מושג מה הקישור המעודכן?

                image.png

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

                  שיניתי את הקוד עבור שער יציג של הדולר:
                  (עבורי זה מספיק)

                  Option Compare Database
                  Option Explicit
                   
                  Public Function GetExchangeRatesUSD()
                  Dim str As String
                  Dim Json As Object
                  
                          str = "https://boi.org.il/PublicApi/GetExchangeRate?key=USD"
                               
                          With CreateObject("MSXML2.ServerXMLHTTP.6.0")
                              .Open "GET", str, False
                              .send
                              str = .responseText
                          End With
                   
                          Set Json = JsonConverter.ParseJson(str)
                          GetExchangeRatesUSD = Json("currentExchangeRate")
                  End Function
                  
                  א תגובה 1 תגובה אחרונה
                  1
                  • איש ימיניא איש ימיני

                    שיניתי את הקוד עבור שער יציג של הדולר:
                    (עבורי זה מספיק)

                    Option Compare Database
                    Option Explicit
                     
                    Public Function GetExchangeRatesUSD()
                    Dim str As String
                    Dim Json As Object
                    
                            str = "https://boi.org.il/PublicApi/GetExchangeRate?key=USD"
                                 
                            With CreateObject("MSXML2.ServerXMLHTTP.6.0")
                                .Open "GET", str, False
                                .send
                                str = .responseText
                            End With
                     
                            Set Json = JsonConverter.ParseJson(str)
                            GetExchangeRatesUSD = Json("currentExchangeRate")
                    End Function
                    
                    א מנותק
                    א מנותק
                    ארי
                    כתב ב נערך לאחרונה על ידי
                    #13

                    @איש-ימיני איזה קישור לא עבד לך?
                    לי הקוד עבד מצוין. וגם הקישור הזה עבד.

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

                      הקישור הזה לא עבד.
                      זה החזיר שגיאה.
                      אני רואה שעכשיו כן עובד.
                      מוזר.

                      א תגובה 1 תגובה אחרונה
                      0
                      • איש ימיניא איש ימיני

                        הקישור הזה לא עבד.
                        זה החזיר שגיאה.
                        אני רואה שעכשיו כן עובד.
                        מוזר.

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

                        @איש-ימיני מוזר.
                        אולי יש עבודות תחזוקה או משהו כזה.

                        תגובה 1 תגובה אחרונה
                        0
                        תגובה
                        • תגובה כנושא
                        התחברו כדי לפרסם תגובה
                        • מהישן לחדש
                        • מהחדש לישן
                        • הכי הרבה הצבעות


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

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

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