سلام و وقتتون بخیر.
کمک میخواستم از اساتید محترم
فایلی دارم که به تعداد روزهای ماه شیت داره. و یک شیت نهایی دارم که ابتدا اونجا تاریخ رو میزنم و خودش توی شیت ها جایگذاری میکنه. دنبال یه ماکرو بودم که بتونه با توجه به روز جمعه که توی همون شیت اصلی (کارکرد کلی پرسنل) وارد میکنم بصورت اتوماتیک رنگ تب شیت ها رو قرمز کنه. یه فرمول ماکرو پیدا کردم که باهاش میشه رنگ تب شیت رو با توجه به سلولی که مشخص کردم، عوض کنه ولی مشکلش اینه که حتما باید اون سلول رو انتخاب کنم و اینتر بزنم تا تغییر رنگ اتفاق بیفته. من میخوام بدون این عملیات رنگ تب، اتوماتیک عوض بشه. البته توی عکس اون جمعه که زیر تاریخ نوشته شده بصورت فرمول و ماکرو نویسی (فرساران) هست و مشکلم همینه که وقتی خودش جایگذاری میشه هیچ تغییری نمیکنه.
به فکرم زد با آدرس دهی اون شیت که تاریخ رو میزنم، اینجا اگه تشخیص داد روز جمعه هست رنگ تب قرمز بشه تا اون مشکل اینتر زدن رو مثلا حل کنم که نفهمیدم چجوری باید آدرس اونجا رو بدم. و مشکل دیگه هم اینه که اسم اون شیت فارسی هست. (کارکرد کلی پرسنل) حتی از فرمول اتورفرش هم استفاده کردم ولی تغییری ایجاد نشد و حتما باید توی این شیت یه تغییری انجام بدم تا اون تب رنگش عوض بشه.
کمک میخواستم از اساتید محترم
فایلی دارم که به تعداد روزهای ماه شیت داره. و یک شیت نهایی دارم که ابتدا اونجا تاریخ رو میزنم و خودش توی شیت ها جایگذاری میکنه. دنبال یه ماکرو بودم که بتونه با توجه به روز جمعه که توی همون شیت اصلی (کارکرد کلی پرسنل) وارد میکنم بصورت اتوماتیک رنگ تب شیت ها رو قرمز کنه. یه فرمول ماکرو پیدا کردم که باهاش میشه رنگ تب شیت رو با توجه به سلولی که مشخص کردم، عوض کنه ولی مشکلش اینه که حتما باید اون سلول رو انتخاب کنم و اینتر بزنم تا تغییر رنگ اتفاق بیفته. من میخوام بدون این عملیات رنگ تب، اتوماتیک عوض بشه. البته توی عکس اون جمعه که زیر تاریخ نوشته شده بصورت فرمول و ماکرو نویسی (فرساران) هست و مشکلم همینه که وقتی خودش جایگذاری میشه هیچ تغییری نمیکنه.
به فکرم زد با آدرس دهی اون شیت که تاریخ رو میزنم، اینجا اگه تشخیص داد روز جمعه هست رنگ تب قرمز بشه تا اون مشکل اینتر زدن رو مثلا حل کنم که نفهمیدم چجوری باید آدرس اونجا رو بدم. و مشکل دیگه هم اینه که اسم اون شیت فارسی هست. (کارکرد کلی پرسنل) حتی از فرمول اتورفرش هم استفاده کردم ولی تغییری ایجاد نشد و حتما باید توی این شیت یه تغییری انجام بدم تا اون تب رنگش عوض بشه.
کد:
Private Sub Worksheet_Change(ByVal Target As Range)
MyVal = Range("A4").Text
With ActiveSheet.Tab
Select Case MyVal
Case "جمعه"
.Color = vbRed
Case Else
.ColorIndex = xlColorIndexNone
End Select
End With
End Sub
کامنت