עזרה בוורד עזרא | פיתרונות בוורד...

[הללוהו ב ו]

במאקרו הנ"ל יש אפשרות שאם לא כתבתי מילה הוא יכתוב "לא הוכנס בחירה"?

לגבי רשימת המאקרו אפשר לעשות אולי מספר לכל מאקרו ואם אתה רוצה פעולה X תקיש 1 פעולה Y תקיש 2 וכו'

אם יש לך כוח להסביר אשמח לשמוע...
וחוץ מזה לא "...סתם מתענין"

אלא משהו הרבה יותר..

 

[אפר]

במאקרו הנ"ל יש אפשרות שאם לא כתבתי מילה הוא יכתוב "לא הוכנס בחירה"?

אם יש לך כוח להסביר אשמח לשמוע...
וחוץ מזה לא"...סתם מתענין"צפה בקובץ המצורף 933506 אלא משהו הרבה יותר..

כפי שראית השתמשתי ב INPUTBOX לקבל את הקטע שאני רוצה ממך
אני יכול להשתמש בו על מנת לקבל מספר
ואז לפעול בהתאם למספר שהתקבל ע" SELECT CASE שבודק את הערך ופועל לפי ההתאמה

    'הצבת משתנה לשמירת הטקסט לשאלה
    Dim TextAsk As String
    'הצבת משתנה לשמירת התוצאה
    Dim Result
    'יצירת הטקסט לשאלה בכל שורה מוסיף טקסט ולאחר מכן ירידת שורה
    TextAsk = TextAsk & "1-אפשרות 1" & vbCrLf
    TextAsk = TextAsk & "2-אפשרות 2" & vbCrLf
    TextAsk = TextAsk & "3-אפשרות 3" & vbCrLf
    'הצגת השאלה
    Result = InputBox(TextAsk, "בחר אפשרות")
    'הפעלת קטע בהתאם לתשובה
    Select Case Result
        Case 1
            'אפשרות 1
        Case 2
            'אפשרות 2
        Case 3
            'אפשרות 3
        Case Else
            'הצגת תיבת לא נמצאה פעולה מתאימה
            MsgBox "לא נמצאה פעולה מתאימה", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "שגיאה"
    End Select

 

[הללוהו ב ו]

קוד:

אם אפשר ביצוע קטנה לדוגמא של פקודה 1 ו2 וכו' שזה יסביר לי יותר מכל וכל...

 

[אפר]

אם אפשר ביצוע קטנה לדוגמא של פקודה 1 ו2 וכו' שזה יסביר לי יותר מכל וכל...

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

 

[הללוהו ב ו]

אפשרות מכניסים או הפניה

יש שתי מקומות שכתוב בהן אפשרות באיזה מהן אני מכניס ואיפה אני מכניס הפקודה במצב שהיא ארוכה? ואיך אני עושה הפניה?
ומתי מה שאני כותב מוצג כשאילה?

 

[הללוהו ב ו]

כפי שראית השתמשתי ב INPUTBOX לקבל את הקטע שאני רוצה ממך
אני יכול להשתמש בו על מנת לקבל מספר
ואז לפעול בהתאם למספר שהתקבל ע" SELECT CASE שבודק את הערך ופועל לפי ההתאמה

    'הצבת משתנה לשמירת הטקסט לשאלה
    Dim TextAsk As String
    'הצבת משתנה לשמירת התוצאה
    Dim Result
    'יצירת הטקסט לשאלה בכל שורה מוסיף טקסט ולאחר מכן ירידת שורה
    TextAsk = TextAsk & "1-אפשרות 1" & vbCrLf
    TextAsk = TextAsk & "2-אפשרות 2" & vbCrLf
    TextAsk = TextAsk & "3-אפשרות 3" & vbCrLf
    'הצגת השאלה
    Result = InputBox(TextAsk, "בחר אפשרות")
    'הפעלת קטע בהתאם לתשובה
    Select Case Result
        Case 1
            'אפשרות 1
        Case 2
            'אפשרות 2
        Case 3
            'אפשרות 3
        Case Else
            'הצגת תיבת לא נמצאה פעולה מתאימה
            MsgBox "לא נמצאה פעולה מתאימה", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "שגיאה"
    End Select

הצלחתי!!!!!!!!!!!!
והאם תוכל לעשות שלא יוצג כמצב של אני מקליד תשובה רק כנ"ל שכמו "כן או לא" הוא נותן לי עוד אופציות ללחיצה פשוטה? ורק בתיבות חיפוש רציתי תיבה שבה אני מכניס לבד פקודה אבל פה אני רוצה אופציה שהכפתור תיתן לי לאן לעבור, והאם הוא גם יכול ללכת אל מאקרו אחרת?

 

[אפר]

הצלחתי!!!!!!!!!!!!
והאם תוכל לעשות שלא יוצג כמצב של אני מקליד תשובה רק כנ"ל שכמו "כן או לא" הוא נותן לי עוד אופציות ללחיצה פשוטה? ורק בתיבות חיפוש רציתי תיבה שבה אני מכניס לבד פקודה אבל פה אני רוצה אופציה שהכפתור תיתן לי לאן לעבור, והאם הוא גם יכול ללכת אל מאקרו אחרת?

לעשות הרבה אפשרויות אפשר ליצור טופס עם לחצנים אבל זה כבר שלב אחר
אם תרצה תנסה לעשות גוגל על USERFORM WORD VBA

 

[אפר]

יש שתי מקומות שכתוב בהן אפשרות באיזה מהן אני מכניס ואיפה אני מכניס הפקודה במצב שהיא ארוכה? ואיך אני עושה הפניה?
ומתי מה שאני כותב מוצג כשאילה?

בהתחלה זה לשאלה בהמשך לפקודה

 

[הללוהו ב ו]

ליצור טופס עם לחצנים

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

Sub תיבת_הודעה()

1
a = MsgBox("האם ברצונך להמשיך עם הפעולה?", vbQuestion + vbYesNo, " פרוג:-)")
If a = vbYes Then GoTo 1

End Sub

איך לסמן את הואם לא...
עריכה: כמובן את מס' 1 עלי לשים לפני הפקודה , אבל אם הפקודה לאחר השאילה גם אם אני עונה "לא" הוא ממשיך את הפקודה מאחר שצריך לסיים ואני רוצה שתהיה גם אופציה שואם "לא" תהיה הפניה כנ"ל לתיבת השגיאה...

 

[אפר]

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

Sub תיבת_הודעה()

Again:
a = MsgBox("האם ברצונך להמשיך עם הפעולה?", vbQuestion + vbYesNo, " פרוג:-)")

If a = vbYes Then
    GoTo Again
else
    'אם לא
end if'
End Sub

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

 

[הללוהו ב ו]

vbNo

איפה זה ?
וכן אני רוצה כאן תיבה שמבקשת "אישור" על ביטול הפעולה כמו הנ"ל של השגיאה...
ואיך אני יכול לשנות את השאילות חוץ מכן/לא או להוסיף "דלג על פקודה זו" דהיינו אפי' בלי להוסיף "דלג"שהואם לא ילך לשאילה הבאה שבפקודה זו וכל "לא" יריץ הלאה , אבל גם אם אני לוחץ "כן " אני רוצה לאחר ביצוע הפעולה לבוא לשאילה הבאה שכשעניתי "לא" הופניתי מיד אליו וכן הלאה...?

 

[אפר]

איפה זה ?
וכן אני רוצה כאן תיבה שמבקשת "אישור" על ביטול הפעולה כמו הנ"ל של השגיאה...

במקום vbYes
אז תעשה כמו שם

 

[הללוהו ב ו]

@אפר ערכתי בשאילה הקודמת, מקוה שבקשה אחרונה להיום... אם תוכל להסביר לי?

 

[הללוהו ב ו]

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

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

 

[אפר]

איפה זה ?
וכן אני רוצה כאן תיבה שמבקשת "אישור" על ביטול הפעולה כמו הנ"ל של השגיאה...
ואיך אני יכול לשנות את השאילות חוץ מכן/לא או להוסיף "דלג על פקודה זו" דהיינו אפי' בלי להוסיף "דלג"שהואם לא ילך לשאילה הבאה שבפקודה זו וכל "לא" יריץ הלאה , אבל גם אם אני לוחץ "כן " אני רוצה לאחר ביצוע הפעולה לבוא לשאילה הבאה שכשעניתי "לא" הופניתי מיד אליו וכן הלאה...?

לשנות זה מאד מוגבל מצורף קישור עם כל האפשרויות

MsgBox function (Visual Basic for Applications)

Office VBA reference topic

docs.microsoft.com

לגבי התנאים צריך להשתמש ב IF ELSE ELSEIF או SELECT CASE לפי העניין
אפשר להכניס IF בתוך UF וכדו'
אם תכתוב ברור יותר מה קורה אם אוכל יותר לכוון אותך

 

[הללוהו ב ו]

GoTo Again else 'אם לא end if'

ואיפה אני מכניס את הפקודה?

 

[אפר]

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

לצאת לגמרי אפשר לכתוב EXIT SUB שיוצא מהמאקרו הנוכחי
אפשר להשתמש ב IF אן SELECT CASE לפי העניין כנ"ל

 

[אפר]

ואיפה אני מכניס את הפקודה?

איפה שכתבתי אם לא

 

[הללוהו ב ו]

אם תכתוב ברור יותר מה קורה אם אוכל יותר לכוון אותך

בזה הקודם למה שכתבתי ערכתי יותר ברור מקוה שיעזור לך (קרי "לי")...

 

[אפר]

בזה הקודם למה שכתבתי ערכתי יותר ברור מקוה שיעזור לך (קרי "לי")...

if a= vbyes or a= vbno then
    מה לעשות עם כן או לא
else
    exit sub
end if

ותחליף את vbYesNo ב vbYesNoCancel