با سلام خدمت کاربران عزیز آی تی سواد
ما می دانیم چگونه رنگ تب شیت ها را به صورت دستی تغییر دهیم .
اما اگر بخواهیم رنگ زبانه بر اساس مقدار سلول تغییر کند باید چکار کنیم؟
برای اینکار باید از ماکرو استفاده کنیم .
تغییر رنگ تب شیت بصورت خودکار
فرض کنید که شما می خواهید بر اساس آنچه که در سلول A1 قرار دارد رنگ تب نیز تغییر کند.
۱. کلیدهای Alt + F11 را فشار دهید تا پنجره Microsoft Visual Basic for Applications باز شود .
۲. در پنجره Microsoft Visual Basic for Applications از قسمت Project بر روی شیت موردنظرتان دابل کلیک کنید
۳. سپس مانند تصویر زیر رویداد Worksheet_Change را انتخاب کنید.
سپس کد زیر را وارد کنید و بعد پنجره Microsoft Visual Basic for Applications را ببندید.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
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 رنگ تب بصورت خودکار تغییر می کند.
برای مشاهده رفرنس اینجا کلیک کنید.
ممنون از همراهی شما کاربران عزیز آی تی سواد
اشتراک گذاری
با سلام و عرض ادب
یک شیت روزانه دارم که حساب روزانه افراد در آن نوشته میشود میخواهم که این حسابها به صورت خودکار در شیتهای افراد نیز نوشته شود. با تشکر تازه کارم لطفا کامل توضیح دهید.
با تشکر و خسته نباشید
سلام
بهترین ابزار برای اینکه گزارش حساب هر فرد رو داشته باشید pivot table هست .
با پیوت تیبل شما می تونید تنها با انتخاب یک فرد گزارش تراکنش های اون فرد رو داشته باشید
در صورت نیاز به hamed_mahmoudkhani@ در تلگرام پیام بدهید
سلام و وقت بخیر.
این آموزش خیلی به دردم میخوره. ممنون از شما.
فقط یه سوالی دارم و اونهم اینکه من مثلا همون خونه اول رو فرمول دادم که از یک شیت دیگه کپی کنه اینجا یا فرمول دادم که رفتارش بستگی به سلول و شیت دیگه ای داره. ولی تا روی این سلول یا هر سلول دیگه ای توی این شیت دبل کلیک و اینتر نزنم تب شیتم رنگی نمیشه. چه دستوری باید بدم که با جایگذاری،اتوماتیک خودش تب شیت رنگش عوض بشه؟
سلام
در مرحله سه بجای رویداد Worksheet_Change ،
Worksheet_Calculate رو انتخاب کنید
و ابتدای کد را با این مقدار جایگزین کنیدMyVal = Sheet1.Range(“A1”).Value
With Sheet1.Tab
sheet1 نام شیتی هست که میخواهید تغییر رنگ دهد