رنگی شدن زبانه یک شیت به منظور یادآوری

[ACE]

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

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

[mch2v]

سلام
تو این کد اگر تو شیت 1 ، تو سلول A1 عدد 0 وارد بشه زبانه شیت 2 قرمز میشه .
این کد رو در رویداد SelectionChange شیت 1 وارد کنید .

If Range("A1") = 0 Then
ActiveWorkbook.Sheets("Sheet2").Tab.Color = 255
Else
ActiveWorkbook.Sheets("Sheet2").Tab.ColorIndex = xlColorIndexNone
End If 

[generalsamad]

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") = "1394/07/07" Then
Sheets("Sheet1").Tab.ColorIndex = 3
End If
End Sub 

3=رنگ قرمز
4=سبز
5=آبی
6=زرد

[ACE]

سلام:
ممنون از پاسختون.
با تشکر

[ACE]

سلام مجدد:
دوستان اگر بخوام یک پیام بیاد که توی شیت 2 یک یادآوری دارید باید چکار کنم؟

[mch2v]

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

If Range("a1") = 1 Then
MsgBox ("sheet2")
End If 

یا اینکه از یک فرم استفاده کنید و ...
ممنون

[ACE]

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

If Range("a1") = 1 Then
MsgBox ("sheet2")
End If 

یا اینکه از یک فرم استفاده کنید و ...
ممنون

با تشکر ازشما:
من می خوام اگر در شیت 2 هم نبودم و اطلاعاتی به واسطه شیتهای دیگر در شیت 2 ثبت شد باز هم پیام رو نشون بده...این کد فقط در خود شیت اگر باشی ظاهر میشه
ممنون

[mch2v]

سلام
شما میتونید این کد رو در Workbook_SheetSelectionChange بنویسید تا در تمام شیت ها اجرا بشه.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sheets(1).Range("a1") = 1 Then
MsgBox ("sheet2")
End If
End Sub 

[ACE]

سلام
شما میتونید این کد رو در Workbook_SheetSelectionChange بنویسید تا در تمام شیت ها اجرا بشه.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sheets(1).Range("a1") = 1 Then
MsgBox ("sheet2")
End If
End Sub 

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

[mch2v]

سلام
بفرمایید