چگونه میتوان یک پیام خاص را در قالب پاپ آپ در اکسل نمایش داد . مثلا وقتی دکمه ای زده شد یا کار خاصی شد یک پاپ آپ جداگانه باز شود و موضوعی را نمایش دهد
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
با سلام
برای پاپ آپ از کدهای ذیل استفاده کنید
کد PHP:Sub LunchBreak()
Dim strMsg As String
Dim obj As Object
Set obj = CreateObject("WScript.Shell")
Const TIMEOUT = 1
Beep
strMsg = obj.Popup("انجام شد!", TIMEOUT, "پيغام سيستم")
End Sub
با تشکر
لطفا دقیقتر بفرمائید که کدهای مورد نظر رو کجا باید وارد کرد ؟ ماکرو در وی بی ؟ لطفا با تصویر نمایش دهید .
در قسمت کدنویسی vb کپی نمایید و هر موقع نیاز داشتید آن ماکرو را فراخوانی کنید
لطفا یمشه از ابتدا توضیح بدید ؟
سلامنوشته اصلی توسط iranweld
فایل پیوست اجرا نمیشه
در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست
دوست عزیز به هنگام اجرای فایل احتمالا نوار زرد رنگی بالای صفحه ( حدودا زیر تب های بالایی اکسل ) مشاهده می کنید که دکمه enable editing ( احتمالا این باشه یا چیزی شبیه به این ) بعد مشکلتون حل میشه.
استاد جسارت نباشه من چند ساله با شماها کار میکنم اینا دیگه میدونم
به هنگام اجرای فایل پیغام خطا میده و یک فایل خالی باز میشه
اگه این فایل در سیستم شما اجرا میشه لطفا با پسوند Xlsm ذخیره و دوباره آپلود کنید ممنون از شما اساتید بزرگم
ویرایش توسط میثم مقدم نیا : 2019/11/10 در ساعت 07:38
در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست
سلام دوست عزيز
شما چرا پسوند فايل رو تغيير داديد؟
پسوند فايل xls هست و با همين پسوند اجرا ميشه
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
مجوز های ارسال و ویرایش
پاسخ با نقل قول
علاقه مندی ها (Bookmarks)