ABA


"שאלה על תיכנות ב VB בסביבת אקסל"
גירסת הדפסה        
קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #10047 מנהל    סגן המנהל    מפקח   Winner    צל"ש   מומחה  
אשכול מספר 10047
dor 
חבר מתאריך 31.1.07
1188 הודעות, דרג אמינות חבר זה
   22:10   29.08.10   
אל הפורום  
  שאלה על תיכנות ב VB בסביבת אקסל  
 
   אני משתמש במאקרואים בתוך ה Visual Basic המובנה ב Excel שאת חלקם אני מקליט ואחר-כך מעצב קוד.

יש לי מאקרו שעושה סדרה של עיצובים שבמהלכו הוא מקפיץ שתי הודעות שדורשות משוב מהמשתמש:

-"האם השורה הראשונה מכילה כותרות עמודות? (כן/לא)" אשר קופצת כאשר אני יוצר סכומי ביניים.

-"האם אתה בטוח שברצונך למחוק את הגליונות הנבחרים? (כן/לא)" אשר קופץ בשלב בקוד שמורה למחוק גליונות.

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

תודה


                                שתף        
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

  האשכול     מחבר     תאריך כתיבה     מספר  
  לפני הפעולה שמקפיצה את ההודעה תכניס MrSus 31.08.10 00:42 1
     תודה רבה רבה !!! :) dor  31.08.10 09:49 2

       
MrSus
חבר מתאריך 8.5.09
1801 הודעות, דרג אמינות חבר זה
   00:42   31.08.10   
אל הפורום  
  1. לפני הפעולה שמקפיצה את ההודעה תכניס  
בתגובה להודעה מספר 0
 
   לפני הפעולה שמקפיצה לך את ההודעות האלה תכניס:


Application.DisplayAlerts = False

ומיד אחרי הפעולה תכניס:


Application.DisplayAlerts = True

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


Application.DisplayAlerts = False
Sheets(1).Delete
Application.DisplayAlerts = True

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


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
dor 
חבר מתאריך 31.1.07
1188 הודעות, דרג אמינות חבר זה
   09:49   31.08.10   
אל הפורום  
  2. תודה רבה רבה !!! :)  
בתגובה להודעה מספר 1
 
  


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

תגובה מהירה  למכתב מספר: 
 
___________________________________________________________________

___________________________________________________________________
למנהלים:  נעל | תייק בארכיון | מחק | העבר לפורום אחר | מחק תגובות | עגן אשכול
       



© כל הזכויות שמורות ל-רוטר.נט בע"מ rotter.net