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

[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]

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