چگونه رنگ تب شیت در اکسل بر اساس مقدار سلول تغییر کند؟

با سلام خدمت کاربران عزیز آی تی سواد

ما می دانیم چگونه رنگ تب شیت ها را به صورت دستی تغییر دهیم .

اما اگر بخواهیم رنگ زبانه بر اساس مقدار سلول تغییر کند باید چکار کنیم؟

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

تغییر رنگ تب شیت بصورت خودکار

فرض کنید که شما می خواهید بر اساس آنچه که در سلول A1 قرار دارد رنگ تب نیز تغییر کند.

۱. کلیدهای Alt + F11 را فشار دهید تا پنجره Microsoft Visual Basic for Applications باز شود .

۲. در پنجره Microsoft Visual Basic for Applications از قسمت Project بر روی شیت موردنظرتان دابل کلیک کنید

۳. سپس مانند تصویر زیر رویداد Worksheet_Change را انتخاب کنید.

سپس کد زیر را وارد کنید و بعد پنجره Microsoft Visual Basic for Applications را ببندید.

Private Sub Worksheet_Change(ByVal Target As Range)
    MyVal = Range("A1").Text

    With ActiveSheet.Tab
        Select Case MyVal
            Case "0"
                .Color = vbBlack
            Case "1"
                .Color = vbRed
            Case "2"
                .Color = vbGreen
            Case "3"
                .Color = vbYellow
            Case "4"
                .Color = vbBlue
            Case "5"
                .Color = vbMagenta
            Case "6"
                .Color = vbCyan
            Case "7"
                .Color = vbWhite
            Case Else
                .ColorIndex = xlColorIndexNone
        End Select
    End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

MyVal = Range("A1").Text

With ActiveSheet.Tab

Select Case MyVal

Case "0"

.Color = vbBlack

Case "1"

.Color = vbRed

Case "2"

.Color = vbGreen

Case "3"

.Color = vbYellow

Case "4"

.Color = vbBlue

Case "5"

.Color = vbMagenta

Case "6"

.Color = vbCyan

Case "7"

.Color = vbWhite

Case Else

.ColorIndex = xlColorIndexNone

End Select

End With

End Sub

از این به بعد با تغییر رنگ مقدار سلول A1 رنگ تب بصورت خودکار تغییر می کند.

برای مشاهده رفرنس اینجا کلیک کنید.

ممنون از همراهی شما کاربران عزیز آی تی سواد

اشتراک گذاری

بیشتر

4 دیدگاه دربارهٔ «چگونه رنگ تب شیت در اکسل بر اساس مقدار سلول تغییر کند؟;

مسعود ارشدی

بهمن 4, 1399 در 10:06 بعد از ظهر

با سلام و عرض ادب
یک شیت روزانه دارم که حساب روزانه افراد در آن نوشته میشود میخواهم که این حسابها به صورت خودکار در شیتهای افراد نیز نوشته شود. با تشکر تازه کارم لطفا کامل توضیح دهید.
با تشکر و خسته نباشید
پاسخ
- حامد محمودخانی
  
  بهمن 4, 1399 در 11:06 بعد از ظهر
  
  سلام
  بهترین ابزار برای اینکه گزارش حساب هر فرد رو داشته باشید pivot table هست .
  با پیوت تیبل شما می تونید تنها با انتخاب یک فرد گزارش تراکنش های اون فرد رو داشته باشید
  در صورت نیاز به hamed_mahmoudkhani@ در تلگرام پیام بدهید
  پاسخ
ماینر

آذر 23, 1400 در 7:56 بعد از ظهر

سلام و وقت بخیر.
این آموزش خیلی به دردم میخوره. ممنون از شما.
فقط یه سوالی دارم و اونهم اینکه من مثلا همون خونه اول رو فرمول دادم که از یک شیت دیگه کپی کنه اینجا یا فرمول دادم که رفتارش بستگی به سلول و شیت دیگه ای داره. ولی تا روی این سلول یا هر سلول دیگه ای توی این شیت دبل کلیک و اینتر نزنم تب شیتم رنگی نمیشه. چه دستوری باید بدم که با جایگذاری،اتوماتیک خودش تب شیت رنگش عوض بشه؟
پاسخ
- حامد محمودخانی
  
  آذر 23, 1400 در 10:50 بعد از ظهر
  
  سلام
  در مرحله سه بجای رویداد Worksheet_Change ،
  Worksheet_Calculate رو انتخاب کنید
  و ابتدای کد را با این مقدار جایگزین کنیدMyVal = Sheet1.Range(“A1”).Value
  
  With Sheet1.Tab
  
  sheet1 نام شیتی هست که میخواهید تغییر رنگ دهد
  پاسخ

با سلام خدمت کاربران عزیز آی تی سواد

تغییر رنگ تب شیت بصورت خودکار

ممنون از همراهی شما کاربران عزیز آی تی سواد

4 دیدگاه دربارهٔ «چگونه رنگ تب شیت در اکسل بر اساس مقدار سلول تغییر کند؟;

دیدگاهتان را بنویسید لغو پاسخ