Popup באקסל
-
האם יש אפשרות ב'MsgBox' שההודעה תופיע זמן מסוים ולאחמ"כ היא תעלם?!
-
עשיתי איזה מאקרו ומשום מה זה לא עובד, מישהו יודע מה הבעיה?!
Sub הצג() Dim A, B, C A = InputBox("סיסמא", "הכנס סיסמא להצגה", , 13000, 6000) B = 900 / 3 C = B / 3 Application.Run "'חוברת1.xlsm'!Macro13" If A = C Then Range("R4").Select Selection.End(xlDown).Select ActiveCell.Offset(1, -8).Range("A1").Select ActiveCell.FormulaR1C1 = "הצג" Else Beep MsgBox ("הסיסמא אינה נכונה") End If MsgBox ("שלום ותודה!") ActiveCell.FormulaR1C1 = "אל תציג" End Subובהזדמנות זו אשאל האם יש אפשרות ב'MsgBox' שההודעה תופיע זמן מסוים ולאחמ"כ היא תעלם?!
@חנון-המרבה אמר בקוד מאקרו שאינו עובד:
ובהזדמנות זו אשאל האם יש אפשרות ב'MsgBox' שההודעה תופיע זמן מסוים ולאחמ"כ היא תעלם?!
createobject("wscript.shell").popup(...) -
@חנון-המרבה אמר בקוד מאקרו שאינו עובד:
ובהזדמנות זו אשאל האם יש אפשרות ב'MsgBox' שההודעה תופיע זמן מסוים ולאחמ"כ היא תעלם?!
createobject("wscript.shell").popup(...)@משחזר-מידע תודה, אבל לא הבנתי איך משתמשים עם זה, אתה יכול אולי להדגים לי את זה?
תודה שוב. -
@משחזר-מידע אמר בקוד מאקרו שאינו עובד:
@חנון-המרבה אמר בקוד מאקרו שאינו עובד:
ובהזדמנות זו אשאל האם יש אפשרות ב'MsgBox' שההודעה תופיע זמן מסוים ולאחמ"כ היא תעלם?!
createobject("wscript.shell").popup(...)@משחזר-מידע תוכל לתת לי הסבר איך בדיוק עושים את זה (קצת יותר מפורט)
תודה מראש..@אוריי אמר בקוד מאקרו שאינו עובד:
תוכל לתת לי הסבר איך בדיוק עושים את זה (קצת יותר מפורט)
i = CreateObject("wscript.shell").popup("This is a MsgBox who will be automatically Closed!",1,"Note")
שלום! נראה שהשיחה הזו מעניינת אותך, אבל עדיין אין לך חשבון.
נמאס לכם לגלול בין אותם הפוסטים בכל ביקור? כשנרשמים לחשבון, תמיד תחזרו בדיוק למקום שבו הייתם קודם, ותוכלו לבחור לקבל התראות על תגובות חדשות (בין אם במייל, ובין אם בהתראת פוש). תוכלו גם לשמור סימניות ולפרגן ב-upvote לפוסטים כדי להביע הערכה לחברי קהילה אחרים.
בעזרת התרומה שלך, הפוסט הזה יכול להיות אפילו טוב יותר 💗
הרשמה התחברות