דילוג לתוכן
  • חוקי הפורום
  • פופולרי
  • לא נפתר
  • משתמשים
  • חיפוש גוגל בפורום
  • צור קשר
עיצובים
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • ברירת מחדל (ללא עיצוב (ברירת מחדל))
  • ללא עיצוב (ברירת מחדל)
כיווץ
מתמחים טופ
  1. דף הבית
  2. תוכנות
  3. יישומי אופיס
  4. אקסל
  5. VBA - excel
  6. עזרה הדדית - VBA excel
  7. איך להוסיף שאילה בפקודה בוורד ,ועוד.

איך להוסיף שאילה בפקודה בוורד ,ועוד.

מתוזמן נעוץ נעול הועבר עזרה הדדית - VBA excel
23 פוסטים 3 כותבים 325 צפיות 5 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • D dmp

    @מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:

    אולי תביא כמה דוגמאות ונוכל להפיק לקחים מזה?...

    הנה

    Sub úéáú_äåãòä_åãéìåâ_ìîé÷åí_á÷åã()
    
    1
    a = MsgBox("האם ברצונך לחזור על הפעולה?", vbQuestion + vbYesNo, "מתמחים טופ:-)")
    If a = vbYes Then GoTo 1
    
    End Sub
    
    מ מנותק
    מ מנותק
    מלאכת מחשבת
    כתב ב נערך לאחרונה על ידי מלאכת מחשבת
    #11

    @dmp מה זה יעשה?
    ואיפה להכניס?
    זה דוגמא של נשלפים? במובן כמו התמונה למטה , או רעיון להכנסת שאילות .וא"כ איפה אני אמור להכניס.
    בתודה רבה...

    תמונה של נשלף.PNG

    D תגובה 1 תגובה אחרונה
    1
    • מ מלאכת מחשבת

      @מלאכת-מחשבת ואם כבר איך אוכל במאקרו לעשות בוורד שכאני לוחץ עליו נפתח כזה מגירה (לא יודע איך להגדיר 😄 ), ושם מביא לי כמה מאקרוים ואני בוחר איזה אני רוצה?

      D מנותק
      D מנותק
      dmp
      כתב ב נערך לאחרונה על ידי מגדלים
      #12

      @מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:

      איך אוכל במאקרו לעשות בוורד שכאני לוחץ עליו נפתח כזה מגירה (לא יודע איך להגדיר 😄 ), ושם מביא לי כמה מאקרוים ואני בוחר איזה אני רוצה?

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

      מ 2 תגובות תגובה אחרונה
      2
      • D dmp

        @מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:

        איך אוכל במאקרו לעשות בוורד שכאני לוחץ עליו נפתח כזה מגירה (לא יודע איך להגדיר 😄 ), ושם מביא לי כמה מאקרוים ואני בוחר איזה אני רוצה?

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

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

        @dmp איך?
        הוספתי משהו לפוסט הקודם .
        דהיינו איפה להכניס את הקוד הנ"ל?

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

          @dmp מה זה יעשה?
          ואיפה להכניס?
          זה דוגמא של נשלפים? במובן כמו התמונה למטה , או רעיון להכנסת שאילות .וא"כ איפה אני אמור להכניס.
          בתודה רבה...

          תמונה של נשלף.PNG

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

          @מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:

          ואיפה להכניס?

          בעורך הקוד של VBA
          5c51836f-cbce-41c4-abb4-b0ba69f2a4ca-‏‏לכידה.PNG

          מגדליםמ מ 4 תגובות תגובה אחרונה
          2
          • D dmp

            @מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:

            ואיפה להכניס?

            בעורך הקוד של VBA
            5c51836f-cbce-41c4-abb4-b0ba69f2a4ca-‏‏לכידה.PNG

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

            @dmp ביחס לקודים אחרים שיש לי איפה אני אמור למקם קוד זה ואיזה מילים לכתוב ומאיזה קטוגריה זה יצא אם אפשר להסביר קצת כדי שאנשים פשוטים כמוני גם יבינו...

            תגובה 1 תגובה אחרונה
            1
            • D dmp

              @מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:

              ואיפה להכניס?

              בעורך הקוד של VBA
              5c51836f-cbce-41c4-abb4-b0ba69f2a4ca-‏‏לכידה.PNG

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

              @dmp מה זה עוזר לי לגבי מאקרוים אחרים שיש לי?

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

                @מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:

                ואיפה להכניס?

                בעורך הקוד של VBA
                5c51836f-cbce-41c4-abb4-b0ba69f2a4ca-‏‏לכידה.PNG

                מגדליםמ מנותק
                מגדליםמ מנותק
                מגדלים
                צוות פיקוח מדריכים
                כתב ב נערך לאחרונה על ידי
                #17

                @dmp ביצוע טובה!!!
                אסביר איך להשתמש בזה את המס' 1 להכניס לפני הפקודה שברצונך לבצע, ואז הוא שואל אותך אם להמשיך עם הפקודה במידה והתשובה כן הוא שולח אותך למס' 1 שזה בעצם הפקודה הנ"ל.

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

                If Selection.Start = Selection.End Then Exit Sub
                

                הוא לא יתן לי להמשיך עם הפעולה, וגם בלאו הכי כשאני רוצה לחבר שתי מאקרוים זה לא יעבוד לי מאחר שהוא כבר הלך ממה שבחרתי עם העכבר (גם בלי הפקודה הנ"ל, דהיינו צריך פיתרון לזה שכאילו יחזור המצב לקדמותו לגבי הבחירה עם העכבר. ואין לי מושג איך.
                וכן איך נוכל לעשות כשיש לי מאקרו עם הרבה שאילות אופציה שבתשובה לא הוא ידלג לפקודה הבאה למשל שאילה, עניתי "כן" הוא מביא אותי ל 1 = שזה בעצם הפקודה, עניתי "לא" מעביר אותי ל 2 = שזה בעצם שאילה הבאה, בשאילה הבאה אני עונה "כן" מעביר אותי ל 3= פקודה שניה , "לא" מעביר אותי ל 4= שאיחה הבאה וכו' עד גמר הפקודות?
                וכן איך אוכל באמצעות שאילה כזאת להקפיץ אותו למאקרו אחרת?
                אשמח לשיתוף פעולה ותודה על עזרתכם.

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

                  @dmp למעשה מאחר שהפקודה מסתיימת במילים אלו "End Sub" אז על פקודה שכתובה לאחר השאילה , גם אם התשובה "לא" הוא יבצע וזה רק על פקודה שכבר בוצע ואני רוצה לבצע עוד פעם שאין בעצם הרבה מיקרים כאלו צריך לעשות מצב שאוכל לבחור בלא וזה יצא לגמרי על אף שיש עוד פקודות לאחריו.
                  וכן כנ"ל שכתב @מלאכת-מחשבת להוסיף פונקציה שידלג על פקודה וימשיך רק עם תגובה לאחריו, מצד שני צריך גם אופציה שיצא לגמרי דהיינו במצב כזה יהיה שלוש כפתורים כן /לא/ צא וכדו' מקוה שהובנתי...
                  ותודה על ההיענות למעני!!!

                  תגובה 1 תגובה אחרונה
                  1
                  • D dmp

                    @מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:

                    ואיפה להכניס?

                    בעורך הקוד של VBA
                    5c51836f-cbce-41c4-abb4-b0ba69f2a4ca-‏‏לכידה.PNG

                    מגדליםמ מנותק
                    מגדליםמ מנותק
                    מגדלים
                    צוות פיקוח מדריכים
                    כתב ב נערך לאחרונה על ידי מגדלים
                    #19

                    @dmp יש את הרעיון של זה : 👇 שמשהו אפשר להוציא משם ולסדרו לעניננו, אשמח אם תוכל (אתה או כל מישהו אחר...) להסביר איך להשתמש אם זה בכל מאקרו שהיא, מה ואיפה להוסיף וכדו'...

                    ' שאלת פתיחה
                    If MsgBox("?האם לתקן שגיאות במסמך זה", vbYesNo) = vbYes Then
                        Selection.Find.ClearFormatting
                        Selection.Find.Replacement.ClearFormatting
                        With Selection.Find
                        End With
                        Selection.Find.Execute Replace:=wdReplaceAll
                        Selection.Find.Execute
                        Selection.Find.Execute Replace:=wdReplaceAll
                        Selection.Find.Execute
                    ' הודעת סיום
                        MsgBox "!הפקודה  הסתיימה" & Chr(13) & "" & Chr(13) & "" & Chr(13) & "" & Chr(13) & "מתמחים טופ" & Chr(13) & "", vbMsgBoxRight
                        Selection.Find.Execute Replace:=wdReplaceAll
                           Else
                           End If
                        End Sub
                    
                    

                    אשמח אם מישהו יגשר ויכשיר אותה לעניננו ויסביר איך להכניס את השאילות בשאר פקודות וכו'.

                    מ D 2 תגובות תגובה אחרונה
                    1
                    • מגדליםמ מגדלים

                      @dmp יש את הרעיון של זה : 👇 שמשהו אפשר להוציא משם ולסדרו לעניננו, אשמח אם תוכל (אתה או כל מישהו אחר...) להסביר איך להשתמש אם זה בכל מאקרו שהיא, מה ואיפה להוסיף וכדו'...

                      ' שאלת פתיחה
                      If MsgBox("?האם לתקן שגיאות במסמך זה", vbYesNo) = vbYes Then
                          Selection.Find.ClearFormatting
                          Selection.Find.Replacement.ClearFormatting
                          With Selection.Find
                          End With
                          Selection.Find.Execute Replace:=wdReplaceAll
                          Selection.Find.Execute
                          Selection.Find.Execute Replace:=wdReplaceAll
                          Selection.Find.Execute
                      ' הודעת סיום
                          MsgBox "!הפקודה  הסתיימה" & Chr(13) & "" & Chr(13) & "" & Chr(13) & "" & Chr(13) & "מתמחים טופ" & Chr(13) & "", vbMsgBoxRight
                          Selection.Find.Execute Replace:=wdReplaceAll
                             Else
                             End If
                          End Sub
                      
                      

                      אשמח אם מישהו יגשר ויכשיר אותה לעניננו ויסביר איך להכניס את השאילות בשאר פקודות וכו'.

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

                      @מגדלים @dmp ?

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

                        @dmp יש את הרעיון של זה : 👇 שמשהו אפשר להוציא משם ולסדרו לעניננו, אשמח אם תוכל (אתה או כל מישהו אחר...) להסביר איך להשתמש אם זה בכל מאקרו שהיא, מה ואיפה להוסיף וכדו'...

                        ' שאלת פתיחה
                        If MsgBox("?האם לתקן שגיאות במסמך זה", vbYesNo) = vbYes Then
                            Selection.Find.ClearFormatting
                            Selection.Find.Replacement.ClearFormatting
                            With Selection.Find
                            End With
                            Selection.Find.Execute Replace:=wdReplaceAll
                            Selection.Find.Execute
                            Selection.Find.Execute Replace:=wdReplaceAll
                            Selection.Find.Execute
                        ' הודעת סיום
                            MsgBox "!הפקודה  הסתיימה" & Chr(13) & "" & Chr(13) & "" & Chr(13) & "" & Chr(13) & "מתמחים טופ" & Chr(13) & "", vbMsgBoxRight
                            Selection.Find.Execute Replace:=wdReplaceAll
                               Else
                               End If
                            End Sub
                        
                        

                        אשמח אם מישהו יגשר ויכשיר אותה לעניננו ויסביר איך להכניס את השאילות בשאר פקודות וכו'.

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

                        @מגדלים @מלאכת-מחשבת עיינו בעזרה של אופיס

                        תגובה 1 תגובה אחרונה
                        1
                        • D dmp

                          @מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:

                          איך אוכל במאקרו לעשות בוורד שכאני לוחץ עליו נפתח כזה מגירה (לא יודע איך להגדיר 😄 ), ושם מביא לי כמה מאקרוים ואני בוחר איזה אני רוצה?

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

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

                          @dmp אמר באיך להוסיף שאילה בפקודה בוורד ,ועוד.:

                          אפשר ליצור טופס (כמו תיבת דו שיח של וורד) ולהוסיף לו לחצנים שיבצעו את המקרואים הרצויים,

                          איך???
                          בדיוק זה מה שאני מחפש.

                          @dmp אמר באיך להוסיף שאילה בפקודה בוורד ,ועוד.:

                          @מגדלים @מלאכת-מחשבת עיינו בעזרה של אופיס

                          אם תוכל עכ"ז לעזור לי יהיה לי לתועלת , בינתיים (אולי לאחר שתעזור לי תרוויח שכבר אסתדר בעצמי. אולי?) אני לא מבין מה כתוב שמה..
                          תודה!

                          D תגובה 1 תגובה אחרונה
                          1
                          • מ מלאכת מחשבת

                            @dmp אמר באיך להוסיף שאילה בפקודה בוורד ,ועוד.:

                            אפשר ליצור טופס (כמו תיבת דו שיח של וורד) ולהוסיף לו לחצנים שיבצעו את המקרואים הרצויים,

                            איך???
                            בדיוק זה מה שאני מחפש.

                            @dmp אמר באיך להוסיף שאילה בפקודה בוורד ,ועוד.:

                            @מגדלים @מלאכת-מחשבת עיינו בעזרה של אופיס

                            אם תוכל עכ"ז לעזור לי יהיה לי לתועלת , בינתיים (אולי לאחר שתעזור לי תרוויח שכבר אסתדר בעצמי. אולי?) אני לא מבין מה כתוב שמה..
                            תודה!

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

                            @מלאכת-מחשבת אנסה על רגל אחת...
                            הפונקציה MsgBox מציגה למשתמש תיבת הודעה ומחזירה את הערך שהמשתמש בחר,
                            ניתן לשמור את הערך בתוך משתנה ולהשתמש בו על מנת להחליט על המשך פעילות המאקרו.
                            לפונקציה יש מספר ארגומנטים שיש להזין, הראשון הינו הכרחי והוא הטקסט שיופיע בתיבת ההודעה. השני הינו סגנון תיבת ההודעה כמו סוג הכפתורים, עיצוב אזהרה/שאלה/מידע, מימין לשמאל או להיפך וכדו', ניתן לראות את כל האפשרויות בקישור שהבאתי לעיל, (במקרה שלא נבחר סגנון יופיע ברירת המחדל עם כפתור אישור בלבד). השלישי הינו כותרת ההודעה (אופציונלי).
                            לאחר מכן יש להשתמש ב"משפטי התנאים" של visual basic כדי להחליט מה לעשות עם מה שהמשתמש בחר, (שזה כמובן נושא בפני עצמו), וכן לפעמים יש להשתמש ב goto כדי לדלג למקום אחר, וכמו בדוגמא שהבאתי לעיל.
                            ואידך זיל גמור...

                            תגובה 1 תגובה אחרונה
                            2
                            • מגדליםמ מגדלים העביר נושא זה מ-עזרה הדדית - תוכנות ב-

                            • התחברות

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

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