پیدا کردن عدد خاص و تغییر رنگ سلول اکسل VBA
- آخرین بروزرسانی: 31 اردیبهشت 1402
پیدا کردن عدد خاص و تغییر رنگ سلول اکسل VBA با شما هستی با سری آموزش رایگان اکسل از دسته بندی بانک کد vba در اکسل توی این آموزش اکسل
برای شما نحوه پیدا کردن عدد خاص با تغییر رنگ سلول اکسل آموزش میدهید که یک آموزش بسیار کاربردی است.
پس ادامه آموزش را با آکادمی روح الله همراه باشید
آموزش های پیشنهادی برای شما
قبل از هر کاری آموزش زیر را مشاهده فرمایید👇
نحوه ذخیره فایل اکسل حاوی ماکرو
کار با رنگ ها در اکسل با استفاده از کدهای VBA
پیشنهاد آکادمی روح الله برای شما
پیدا کردن عدد خاص و تغییر رنگ سلول اکسل با استفاده از کد نویسی VBA می توانید از کد های زیر استفاده کنید
روش اول پیدا کردن عدد خاص و تغییر رنگ سلول اکسل VBA
1 2 3 4 5 6 7 8 9 10 |
Sub FindAndColorCells() Dim targetValue As Double Dim cell As Range targetValue = 10 ' عددی که میخواهید پیدا کنید For Each cell In ActiveSheet.UsedRange If IsNumeric(cell.Value) And cell.Value = targetValue Then cell.Interior.ColorIndex = 3 ' تغییر رنگ سلول End If Next cell End Sub |
این کد ابتدا مقدار هدف را در متغیر targetValue ذخیره میکند، سپس برای هر سلول در محدودهی استفاده شده در صفحه فعلی، بررسی میکند که آیا مقدار سلول یک عدد عددی است و با targetValue برابر است یا نه. در صورتی که شرایط بالا برقرار باشند، رنگ پسزمینه سلول را با استفاده از Interior.ColorIndex تغییر میدهد.
برای اجرای کد، به تب Developer رفته و روی دکمهی “Visual Basic” کلیک کنید، سپس در پنجره باز شده، گزینهی “Insert” را انتخاب کرده و سپس “Module” را انتخاب کنید. کد بالا را در پنجرهی باز شده وارد کرده و سپس کلید F5 را برای اجرای کد فشار دهید.
روش دوم پیدا کردن یک عدد خاص و تغییر رنگ آن سلول اکسل با استفاده از کد نویسی vba
1 2 3 4 5 6 7 |
Sub ChangeColor() For Each Cell In Range("A1:A100") If Cell.Value < 10 Then Cell.Interior.ColorIndex = 3 ' Red End If Next Cell End Sub |
برای پیدا کردن یک عدد خاص در اکسل و تغییر رنگ سلول آن، میتوانید از قابلیت شرطی (Conditional Formatting) استفاده کنید.
- ابتدا سلولهایی که میخواهید رنگ آنها تغییر کند را انتخاب کنید.
- سپس به تب “Home” رفته و روی دکمهی “Conditional Formatting” کلیک کنید.
- در منوی باز شده، گزینهی “New Rule” را انتخاب کنید.
- در پنجرهی باز شده، گزینهی “Use a formula to determine which cells to format” را انتخاب کرده و در فیلد زیر آن، فرمول زیر را وارد کنید:
=A1=خواسته_شما
در این فرمول، A1 به سلولی اشاره میکند که میخواهید در آن بررسی کنید که آیا مقدار مورد نظر موجود است یا نه. همچنین، خواسته_شما را با عددی که میخواهید پیدا کنید جایگزین کنید. 5. سپس برای تعیین رنگ سلول، روی دکمهی “Format” کلیک کنید و رنگ مورد نظر خود را انتخاب کنید.
- در انتها روی دکمهی “OK” کلیک کرده و تغییرات را ذخیره کنید.
اکنون، اگر عددی که میخواهید پیدا کنید در سلول مورد نظر وجود داشته باشد، رنگ سلول به رنگی که انتخاب کردهاید تغییر میکند.
هیچ دیدگاهی برای این نوشته ثبت نشده است.