تغییر رنگ سلول در هنگام انتخاب
- آخرین بروزرسانی: 9 شهریور 1402
تغییر رنگ سلول در هنگام انتخاب به طور پیشفرض، هنگام انتخاب یک دسته سلول، رنگ زمینه خاکستری می شود. اگر می خواهید محدوده انتخاب شده را مشخص تر کنید، می توانید رنگ زمینه آن را با توجه به نیاز خود تغییر دهید. پس با آکادمی روح الله همراه باشید توی این آموزش رایگان اکسل به صورت کامل آموزش میدهیم که چطوری بتوانید تغییر رنگ سلول های انتخاب شده را تغییر بدهید
با چند روش عالی.
بیایید کد را بهتفصیل بررسی کنیم
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
: این خط به معنای شروع تابع رویدادی است که در هنگام تغییر انتخاب کاربر در ورکشیت اجرا میشود. ورکشیت مورد نظر باعث ایجاد این رویداد میشود.With Target
: این دستورات درون یک بلوکWith
اجرا میشوند که از تمامی عملیات بعدی بر روی متغیرTarget
(که نمایانگر محدودهای از سلولها است که توسط کاربر انتخاب شده است) استفاده میکند. این روش به ویژه در مواردی که چندین دستور باید روی یک شیء انجام شود، مفید است و کد را خواناتر میکند..Worksheet.Cells.FormatConditions.Delete
: این دستور تمام شرایط قالببندی (قواعد قالببندی) را از سلولهای ورکشیت حذف میکند. به این ترتیب، هر قاعدهای که قبلاً تعریف شده باشد، حذف میشود..FormatConditions.Add xlExpression, , "TRUE"
: با این دستور، یک شرط قالببندی جدید با نوعxlExpression
(یعنی بر اساس یک عبارت منطقی) به سلولها اضافه میشود. عبارت منطقی در اینجا “TRUE” است، به این معنی که این شرط در همه موارد برقرار است و تمام سلولها تحت تأثیر قرار میگیرند..FormatConditions(1).Interior.Color = vbYellow
: در این خط، رنگ زمینه داخلی (Interior) سلولها تغییر داده میشود و به زرد تنظیم میشود..FormatConditions(1)
به اولین شرط قالببندی اشاره دارد که در اینجا تنها یک شرط وجود دارد.
پس از اجرای این کد، هر بار که کاربر یک سلول را انتخاب کند، تمام سلولها در ورکشیت با پسزمینه زرد رنگ نمایش داده میشوند. این کد به عنوان یک نمونه ساده از استفاده از قواعد قالببندی در VBA اکسل است.
تغییر رنگ سلول در هنگام انتخاب
نمونه کد تغییر رنگ سلول در هنگام انتخاب رنگ زرد
1 2 3 4 5 6 7 |
Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target .Worksheet.Cells.FormatConditions.Delete .FormatConditions.Add xlExpression, , "TRUE" .FormatConditions(1).Interior.Color = vbYellow End With End Sub |
تغییر رنگ سلول هنگام کلیک با کد vba
این نمونه کد برای تغییر رنگ سلول هنگام کلیک به رنگ آبی آسمانی می باشید
برای تغییر رنگ قالببندی سلولها به روش دلخواه، میتوانید از کدهای VBA زیر استفاده کنید. در اینجا مثالی از تغییر رنگ زمینه به رنگ آبی آسمانی آورده شده است
1 2 3 4 5 6 7 |
Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target .Worksheet.Cells.FormatConditions.Delete .FormatConditions.Add xlExpression, , "TRUE" .FormatConditions(1).Interior.Color = RGB(, , 255) ' رنگ آبی آسمانی End With End Sub |
تغيير رنگ سلول انتخاب شده در اکسل
برای تغيير رنگ سلول انتخاب شده در اکسل به رنگ آبی از نمونه کد زیر استفاده کنید
در این مثال، ما از تابع RGB
استفاده کردهایم تا رنگ مورد نظرمان را با استفاده از مقادیر قرمز (Red)، سبز (Green) و آبی (Blue) تعیین کنیم. با تغییر مقادیر این سه عدد، میتوانید رنگ مورد نظر خود را تعیین کنید.
همچنین، به جای استفاده از RGB
، میتوانید از کدهای رنگ از فهرست پیشفرض VBA استفاده کنید. به عنوان مثال
1 2 3 4 5 6 7 |
Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target .Worksheet.Cells.FormatConditions.Delete .FormatConditions.Add xlExpression, , "TRUE" .FormatConditions(1).Interior.Color = vbBlue ' رنگ آبی End With End Sub |
در اینجا vbBlue
به عنوان کد رنگ آبی در VBA اکسل استفاده شده است. شما میتوانید از کدهای دیگر موجود در VBA برای انتخاب رنگهای مختلف استفاده کنید.
البته در نظر داشته باشید که یک آموزش کامل نحوه استفاده از رنگ های vba در اکسل توی سایت موجود است می توانید مشاهده فرمایید.
و رنگ دلخواه خود را به سلول های اکسل بدهید برای این منظور آموزش زیر را مشاهده فرمایید.
هیچ دیدگاهی برای این نوشته ثبت نشده است.