پیدا کردن عدد خاص و تغییر رنگ سلول اکسل VBA

- بانک کد VBA در اکسل
- آموزش رایگان اکسل
آخرین بروزرسانی: 31 اردیبهشت 1402

پیدا کردن عدد خاص و تغییر رنگ سلول اکسل VBA با شما هستی با سری آموزش رایگان اکسل از دسته بندی بانک کد vba در اکسل توی این آموزش اکسل
برای شما نحوه پیدا کردن عدد خاص با تغییر رنگ سلول اکسل آموزش میدهید که یک آموزش بسیار کاربردی است.

پس ادامه آموزش را با آکادمی روح الله همراه باشید

آموزش های پیشنهادی برای شما

قبل از هر کاری آموزش زیر را مشاهده فرمایید👇

نحوه ذخیره فایل اکسل حاوی ماکرو

آموزش فعال کردن ماکرو اکسل

کار با رنگ ها در اکسل با استفاده از کدهای VBA

پیشنهاد آکادمی روح الله برای شما

بانک کد VBA در اکسل

آموزش رایگان اکسل

در اکسل حرفه ای شوید

دوره های جامع اکسل

فایل های آماده اکسل

پیدا کردن عدد خاص و تغییر رنگ سلول اکسل با استفاده از کد نویسی VBA می توانید از کد های زیر استفاده کنید

روش اول پیدا کردن عدد خاص و تغییر رنگ سلول اکسل VBA

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

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 تغییر می‌دهد.

پیش نهاد آکادمی روح الله برای شما :

فعال سازی آفیس 2021 +دانلود کرک آفیس 2021

برای اجرای کد، به تب Developer رفته و روی دکمه‌ی “Visual Basic” کلیک کنید، سپس در پنجره باز شده، گزینه‌ی “Insert” را انتخاب کرده و سپس “Module” را انتخاب کنید. کد بالا را در پنجره‌ی باز شده وارد کرده و سپس کلید F5 را برای اجرای کد فشار دهید.

روش دوم پیدا کردن یک عدد خاص و تغییر رنگ آن سلول اکسل با استفاده از کد نویسی vba

Sub ChangeColor()
    For Each Cell In Range("A1:A100")
        If Cell.Value &lt; 10 Then
            Cell.Interior.ColorIndex = 3 ' Red
        End If
    Next Cell
End Sub

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) استفاده کنید.

پیدا کردن عدد خاص و تغییر رنگ سلول اکسل VBA

ابتدا سلول‌هایی که می‌خواهید رنگ آن‌ها تغییر کند را انتخاب کنید.
سپس به تب “Home” رفته و روی دکمه‌ی “Conditional Formatting” کلیک کنید.
در منوی باز شده، گزینه‌ی “New Rule” را انتخاب کنید.
در پنجره‌ی باز شده، گزینه‌ی “Use a formula to determine which cells to format” را انتخاب کرده و در فیلد زیر آن، فرمول زیر را وارد کنید:

پیش نهاد آکادمی روح الله برای شما :

نحوه اجرای ماکرو در اکسل

=A1=خواسته_شما

در این فرمول، A1 به سلولی اشاره می‌کند که می‌خواهید در آن بررسی کنید که آیا مقدار مورد نظر موجود است یا نه. همچنین، خواسته_شما را با عددی که می‌خواهید پیدا کنید جایگزین کنید. 5. سپس برای تعیین رنگ سلول، روی دکمه‌ی “Format” کلیک کنید و رنگ مورد نظر خود را انتخاب کنید.

در انتها روی دکمه‌ی “OK” کلیک کرده و تغییرات را ذخیره کنید.

اکنون، اگر عددی که می‌خواهید پیدا کنید در سلول مورد نظر وجود داشته باشد، رنگ سلول به رنگی که انتخاب کرده‌اید تغییر می‌کند.

میانگین رتبه 5/5 تعداد رای : 2

روح الله وکیل زاده

روش اول پیدا کردن عدد خاص و تغییر رنگ سلول اکسل VBA

نظر یا سوال شما در این مورد چیست؟ انصراف