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

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

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

Custom MsgBox VBA

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

    @yits אמר בCustom MsgBox VBA:

    @חייםיודלביץ אמר בCustom MsgBox VBA:

    @yits תודה על השיתוף, אני חפשתי הרבה זמן כזה דבר ולא מצאתי משהו נורמלי, תודה!

    אני מסתבך עם הקוד הוא כותב לי שגיאה כזאת
    שגיאה.png

    זה משה שעשיתי באקסס
    העתעקתי למודול חדש
    שמתי את הקוד הזה

    MsgBoxCB("Message","Button1","Button2","Button3",vbMsgBoxRight or vbMsgBoxRtlReading, vbInformation, "Title")
    

    בלחצן ואז הוא כתב לי את השגיאה הנ"ל

    אשמח לעזרה
    תודה

    איך קראת ל MsgBoxCB?
    אתה צריך גם לקבל תשובה מה המשתמש בחר,
    תעשה משתנה מסוג Long שמקבל את התשובה.

    אכן חשבתי שלא צריך לרשום גם את MsgBox, עכשיו עובד, תודה זה מאד יעזור לי.

    @yits אמר בCustom MsgBox VBA:

    תעשה משתנה מסוג Long שמקבל את התשובה

    אשמח לדעת איך' אני אני לא יודע איך לעשות זאת
    תודה

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

    @חייםיודלביץ אמר בCustom MsgBox VBA:

    @yits אמר בCustom MsgBox VBA:

    תעשה משתנה מסוג Long שמקבל את התשובה

    אשמח לדעת איך' אני אני לא יודע איך לעשות זאת
    תודה

    זה דוגמא שאני עשיתי Select Case

    Select Case cMsgBox(cMsg.message, "נסה שנית", "חיבור מקומי", "יציאה", cMsg.ButtonsStyle, vbQuestion, cMsg.Title)
        Case 1
            Resume InternetConnection
        Case 2
            bLocalPc = True
            Resume ReLink
        Case 3
            Resume AutoExec1_Exit
    End Select
    

    לקניה והנחות ב KSP כנסו מכאן.
    למוצרים עם הנחה מכאן.

    חייםיודלביץח WWWW 2 תגובות תגובה אחרונה
    2
    • Y yits

      @חייםיודלביץ אמר בCustom MsgBox VBA:

      @yits אמר בCustom MsgBox VBA:

      תעשה משתנה מסוג Long שמקבל את התשובה

      אשמח לדעת איך' אני אני לא יודע איך לעשות זאת
      תודה

      זה דוגמא שאני עשיתי Select Case

      Select Case cMsgBox(cMsg.message, "נסה שנית", "חיבור מקומי", "יציאה", cMsg.ButtonsStyle, vbQuestion, cMsg.Title)
          Case 1
              Resume InternetConnection
          Case 2
              bLocalPc = True
              Resume ReLink
          Case 3
              Resume AutoExec1_Exit
      End Select
      
      חייםיודלביץח מנותק
      חייםיודלביץח מנותק
      חייםיודלביץ
      כתב ב נערך לאחרונה על ידי
      #10

      @yits תוך כדי שאני מנסה את זה בקוד ולא הולך לי אני רואה שכבר ערכת את ההודעה כדי שאני יבין יותר

      תודה

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

        @חייםיודלביץ אמר בCustom MsgBox VBA:

        @yits אמר בCustom MsgBox VBA:

        תעשה משתנה מסוג Long שמקבל את התשובה

        אשמח לדעת איך' אני אני לא יודע איך לעשות זאת
        תודה

        זה דוגמא שאני עשיתי Select Case

        Select Case cMsgBox(cMsg.message, "נסה שנית", "חיבור מקומי", "יציאה", cMsg.ButtonsStyle, vbQuestion, cMsg.Title)
            Case 1
                Resume InternetConnection
            Case 2
                bLocalPc = True
                Resume ReLink
            Case 3
                Resume AutoExec1_Exit
        End Select
        
        WWWW מנותק
        WWWW מנותק
        WWW
        כתב ב נערך לאחרונה על ידי
        #11

        @yits @חייםיודלביץ
        עדיף עם משתנה.

        msg = cMsgBox(cMsg.message, "נסה שנית", "חיבור מקומי", "יציאה", cMsg.ButtonsStyle, vbQuestion, cMsg.Title)
        Select Case msg 
                                        Case 1
                                            Resume InternetConnection
                                        Case 2
                                            bLocalPc = True
                                            Resume ReLink
                                        Case 3
                                            Resume AutoExec1_Exit
                                    End Select
        

        WWW.netfree@gmail.com || קשבק! החזר כספי לבנק על רכישות באינטרנט || עונים על סקרים ומרוויחים כסף!

        Y תגובה 1 תגובה אחרונה
        3
        • WWWW WWW

          @yits @חייםיודלביץ
          עדיף עם משתנה.

          msg = cMsgBox(cMsg.message, "נסה שנית", "חיבור מקומי", "יציאה", cMsg.ButtonsStyle, vbQuestion, cMsg.Title)
          Select Case msg 
                                          Case 1
                                              Resume InternetConnection
                                          Case 2
                                              bLocalPc = True
                                              Resume ReLink
                                          Case 3
                                              Resume AutoExec1_Exit
                                      End Select
          
          Y מנותק
          Y מנותק
          yits
          כתב ב נערך לאחרונה על ידי
          #12

          @WWW @חייםיודלביץ
          שים לב אני שיניתי את שם הפונציה מ MsgBoxCB ל cMsgBox

          לקניה והנחות ב KSP כנסו מכאן.
          למוצרים עם הנחה מכאן.

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

            @yits הקוד חופשי לגמרי?

            תודה

            Y תגובה 1 תגובה אחרונה
            0
            • חייםיודלביץח חייםיודלביץ

              @yits הקוד חופשי לגמרי?

              תודה

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

              @חייםיודלביץ אמר בCustom MsgBox VBA:

              @yits הקוד חופשי לגמרי?

              תודה

              כן

              אני העתקתי אותו מכאן וקצת שיפרתי אותו.

              ויש גם קלאסס מודול אחר, למי שמעוניין.

              לקניה והנחות ב KSP כנסו מכאן.
              למוצרים עם הנחה מכאן.

              חנון המרבהח תגובה 1 תגובה אחרונה
              1
              • Y yits

                @חייםיודלביץ אמר בCustom MsgBox VBA:

                @yits הקוד חופשי לגמרי?

                תודה

                כן

                אני העתקתי אותו מכאן וקצת שיפרתי אותו.

                ויש גם קלאסס מודול אחר, למי שמעוניין.

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

                @yits איך אני משתמש למעשה עם התשובה של ה msgbox ?

                ברגיל אני כותב

                If משתנה = vbYes Then
                

                מה אני אמור לכתוב בmsgbox שלך ?!

                WWWW תגובה 1 תגובה אחרונה
                0
                • חנון המרבהח חנון המרבה

                  @yits איך אני משתמש למעשה עם התשובה של ה msgbox ?

                  ברגיל אני כותב

                  If משתנה = vbYes Then
                  

                  מה אני אמור לכתוב בmsgbox שלך ?!

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

                  @חנון-המרבה

                  If משתנה = 1 Then
                  

                  WWW.netfree@gmail.com || קשבק! החזר כספי לבנק על רכישות באינטרנט || עונים על סקרים ומרוויחים כסף!

                  חנון המרבהח תגובה 1 תגובה אחרונה
                  1
                  • WWWW WWW

                    @חנון-המרבה

                    If משתנה = 1 Then
                    
                    חנון המרבהח מנותק
                    חנון המרבהח מנותק
                    חנון המרבה
                    כתב ב נערך לאחרונה על ידי
                    #17

                    @www מעולה.
                    האם יש אפשרות שגם inputbox יהיה מימין לשמאל?!

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

                      @www מעולה.
                      האם יש אפשרות שגם inputbox יהיה מימין לשמאל?!

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

                      @חנון-המרבה
                      לא

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

                        @חנון-המרבה
                        לא

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

                        @מלא מידיעה?!
                        @WWW?
                        @yits ?

                        WWWW תגובה 1 תגובה אחרונה
                        0
                        • חנון המרבהח חנון המרבה

                          @מלא מידיעה?!
                          @WWW?
                          @yits ?

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

                          @חנון-המרבה ?

                          WWW.netfree@gmail.com || קשבק! החזר כספי לבנק על רכישות באינטרנט || עונים על סקרים ומרוויחים כסף!

                          חנון המרבהח תגובה 1 תגובה אחרונה
                          0
                          • WWWW WWW

                            @חנון-המרבה ?

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

                            @www האם יש אפשרות שגם inputbox יהיה מימין לשמאל?!

                            WWWW תגובה 1 תגובה אחרונה
                            0
                            • חנון המרבהח חנון המרבה

                              @www האם יש אפשרות שגם inputbox יהיה מימין לשמאל?!

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

                              @חנון-המרבה אמר בCustom MsgBox VBA:

                              @www האם יש אפשרות שגם inputbox יהיה מימין לשמאל?!

                              לא יודע על דרך כזו.

                              WWW.netfree@gmail.com || קשבק! החזר כספי לבנק על רכישות באינטרנט || עונים על סקרים ומרוויחים כסף!

                              חנון המרבהח תגובה 1 תגובה אחרונה
                              0
                              • WWWW WWW

                                @חנון-המרבה אמר בCustom MsgBox VBA:

                                @www האם יש אפשרות שגם inputbox יהיה מימין לשמאל?!

                                לא יודע על דרך כזו.

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

                                @www רעיונית אפשר לקחת את הפונקציה של MsgBox ולהתאימו לinputbox או שזה בכלל לא שייך?!

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

                                  @www רעיונית אפשר לקחת את הפונקציה של MsgBox ולהתאימו לinputbox או שזה בכלל לא שייך?!

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

                                  @yits אמר בCustom MsgBox VBA:

                                  עשיתי שם טלאי עבור RTL

                                  אתה יכול לעשות טלאי גם לinputbox ?

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


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

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

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