نمایش پیغام

[mmousavi]

سلام من میخوام یه فرمول بنویسم که اگه شرایط معینی برقرار بود اکسل پیغام یا اخطار خاصی رو تو صفحه اصلی و شروع نرم افزار نمایش بده. آیا امکانش هست؟

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[~M*E*H*D*I~]

سلام من میخوام یه فرمول بنویسم که اگه شرایط معینی برقرار بود اکسل پیغام یا اخطار خاصی رو تو صفحه اصلی و شروع نرم افزار نمایش بده. آیا امکانش هست؟

بدون امکانات vba به دو روش امکان ایجاد شرط وجود داره

1 - استفاده از دیتاولیدیشن

2- استفاده از کاندیشنال فرمتینگ

حالا بفرمایید چه کاری قراره انجام بشه تا بهتر راهنمایی بشید

[mmousavi]

با تشکر. یه پورتفوی سهام ایجاد کردم . میخوام اگر قیمت یک سهام خاص از قیمت خاص بالاتر یا پایین تر رفت موقع باز کردن نرم افزار بهم هشدار بده.

[~M*E*H*D*I~]

با تشکر. یه پورتفوی سهام ایجاد کردم . میخوام اگر قیمت یک سهام خاص از قیمت خاص بالاتر یا پایین تر رفت موقع باز کردن نرم افزار بهم هشدار بده.

پیشنهاد بنده به شما استفاده از کاندیشنال فرمتینگ هست که به لحاظ بصری هم شیت رو زیباتر میکنه

[mokaram]

از طریق VBA :
در ایونت ورک بوک در قسمت open دستور زیر را بنویسید: ( فرضا قیمت سهام خاص تو خونه a2 هست و شما می خواهید اگه نسبت به 1400 تغییر کرد بگه )

Private Sub Workbook_Open()
If Sheet1.Range("a2").Value > 1400 Then
    MsgBox "افزایش قیمت سهام", vbCritical, "تغییر قیمت "
ElseIf Sheet1.Range("a2").Value < 1400 Then
    MsgBox "کاهش قیمت سهام", vbCritical, "تغییر قیمت"
End If
End Sub 

[Alexis]

آقای مکرم من فکر میکنم منظور دوستمون این بود که اگه یه لیست قیمت داشته باشیم و در این لیست قیمت سهم ها از یه حدی بالاتر یا پایین تر بره . سیستم آلارم بده یا حتی یه لیست بما بده که شامل اون موارد تغییر کرده باشه ؟

[mokaram]

آقای مکرم من فکر میکنم منظور دوستمون این بود که اگه یه لیست قیمت داشته باشیم و در این لیست قیمت سهم ها از یه حدی بالاتر یا پایین تر بره . سیستم آلارم بده یا حتی یه لیست بما بده که شامل اون موارد تغییر کرده باشه ؟

با عرض خیر مقدم خدمت آقای بهروز خان مطیع زرندی باید عرض کنم تو متن نوشته های دوستمون صراحتا عرض کردن " یک سهام خاص از یک قیمت خاص " و بنده هم بابت این نوشته اون کد را نوشتم k:

[mmousavi]

از طریق VBA :
در ایونت ورک بوک در قسمت open دستور زیر را بنویسید: ( فرضا قیمت سهام خاص تو خونه a2 هست و شما می خواهید اگه نسبت به 1400 تغییر کرد بگه )

Private Sub Workbook_Open()
If Sheet1.Range("a2").Value > 1400 Then
    MsgBox "افزایش قیمت سهام", vbCritical, "تغییر قیمت "
ElseIf Sheet1.Range("a2").Value < 1400 Then
    MsgBox "کاهش قیمت سهام", vbCritical, "تغییر قیمت"
End If
End Sub 

سلام. دوست عزیز این کد ها رو وارد کردم اما برای اجرا و فعال شدنش باید چکار کنم؟

[mokaram]

سلام. دوست عزیز این کد ها رو وارد کردم اما برای اجرا و فعال شدنش باید چکار کنم؟

شما اطمینان داشته باشید که ماکروها تو سیستمتون فعاله

[mmousavi]

سلام. با تشکر که جواب دادین.حالا اگه به قول دوستمون بخوام این کار نه توی یک خانه بلکه توی یک ستون انجام بدم به چه نحوی میشه؟مثلا اگه در ستون a عددی از 1400 بیشتر شد اطلاعات سلول مقابلش رو نشون بده.