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")