בחירת טווח באמצע קוד

[אלוורדו]

אני מעוניין לקבל תזכורת במהלך הפעלת קוד - תזכורת לבחירת טווח באופן ידני.
כלומר, מבקש שתעלה תיבת MsgBox כזו, אני אלחץ 'אישור' , אבל הקוד צריך להמתין.
רק לאחר שאני בוחר טווח אחד או יותר (ע"י Ctrl) - הוא ישאל "האם להמשיך" ויקבל אישור.
(7,2010)

 

[מיכאל אבידן]

למיטב זיכרוני לא בעזרת MsgBox

1. עבור לעורך ה- VB > בתפריט Insert UserForm.
2. בארגז הכלים בחר TextBox
3. גרור מלבן בתוך ה- UserForm והקלד בו את הטקסט הדרוש.
4. לחץ, קליק ימני על UserForm ובחר ב'מאפיינים' > במאפיין ShowModal בחר ב- False.
5. במקרו שלך הזן: UserForm1.Show היכן אתה רוצה להציג אותו ו- UserForm1.Hide היכן שאתה רוצה להסתיר אותו.

 

[אלוורדו]

ביצעתי, אבל ה- UserForm אינו משהה את הקוד.
הוא עולה במקום הרצוי , ונעלם במקום שצריך, אבל הקוד אינו עוצר.
רק אם מריצים ב F8 אז רואים את ה TextBox ויש אפשרות טכנית לבחור טווח. ואז צריך לחזור למאקרו וללחוץ F5 .
קצת מורכב.
ניסיתי להכניס פקודת Wait ל 30 שניות (בקוד עצמו), אבל כשהקוד בהמתנה לא ניתן לעשות שום פעולה על הגיליון...

 

[מיכאל אבידן]

הייתי בטוח שאתה כבר "שוחה" בענייני VBA ו- UserForms.

לאחר הקמת 'טופס ובו לחצן ביטול - נסה בקובץ חדש וריק, הקלד ברמת הגיליון:

Private Sub Worksheet_Activate()
     UserForm1.Show
End Sub

ב'טופס' הוספתי לחצן CommandButton ואליו שידכתי את המקרו:

Private Sub CommandButton1_Click()
    UserForm1.Hide
End Sub

 

[אלוורדו]

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

עכשיו, ברמת הגיליון יש מקרו שמציג את ה UserForm בכל פעם שהגיליון הופך לפעיל, (וכך זה עובד)
ויש גם כפתור (ע"ג הגיליון) שתפקידו להסתיר את ה UserForm. (וגם זה פועל)

ומה לגבי סעיף 5 משעה 13:44 ...?
ואיך אני אמור לעבוד עם זה ?

 

[אלוורדו]

בוקר טוב,
מצורף קובץ (שיניתי סיומת).
מה לא עשיתי נכון ?

 

[מיכאל אבידן]

בוקר טוב,
מצורף קובץ (שיניתי סיומת).
מה לא עשיתי נכון ?

.
אצלי כל עובד.

אני הייתי מציב את הלחצן (המסתיר את הטופס) על גבי הטופס ולא ברחבי הגיליון.

 

[אלוורדו]

חוץ ממיקום CommandButton1 , שזה בהחלט נוח יותר, אני מבקש להבין רק זאת :
האם הצגת UserForm במהלך ריצה, אמורה לגרום לעצירת הריצה ???
והאם הסתרת ה UserForm אמורה לגרום לקוד להמשיך לרוץ מאותה נקודה שעצר (אם עצר...) ????

 

[מיכאל אבידן]

חוץ ממיקום CommandButton1 , שזה בהחלט נוח יותר, אני מבקש להבין רק זאת :
האם הצגת UserForm במהלך ריצה, אמורה לגרום לעצירת הריצה ???
והאם הסתרת ה UserForm אמורה לגרום לקוד להמשיך לרוץ מאותה נקודה שעצר (אם עצר...) ????

.
למיטב הבנתי שתי התשובות הן "כן" !

 

[אלוורדו]

תודה רבה !