پرسش رنگی کردن یک محدوده که آدرس دهی شده است

[ieumts]

با سلام خدمت دوستان و اساتید بزرگوار
سوالی داشتم خدمتتون
همونطور که توی فایل ضمیمه هم مشاهده میفرمایید، من یه محدوده داده از A1:F30 دارم. و در سلولهای G1,G2,G3 سه آدرس نوشته شده است. میخواهم این محدوده آدرسها به کمک فرمول نویسی در Conditional Formatting رنگی شوند.
لازم به ذکر است که این آدرسها در فایل اصلی، پویا هستند و تغییر میکنند.
با تشکر از توجه شما

[iranweld]

با سلام

فایل پیوست با قابلیت رویدادها در اکسل و ماکرونویسی انجام شد. هر رنجی را که در ستون G وارد نمایید آن محدوده رنگی میگردد

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = False

z1 = Sheet1.Cells(Sheet1.Rows.Count, "g").End(xlUp).Row

Cells.Interior.ColorIndex = 0

For i = 1 To z1

If Range("g" & i) <> "" Then

Range(Range("g" & i)).Interior.ColorIndex = 5

End If

Next

Application.ScreenUpdating = True

End Sub 

[komeilex]

با سلام
تشکر می کنم از پاسخ دوست و همشهری خوبم Iranweld عزیز.
ما خیلی وقته فعالیتمون در کنار اساتیدی چون شما کم شده و از دانش بالای شما بی بهره موندیم. بالاخره تشکر بابت اینکه حجم بالایی از فعالیت ها رو به عهده گرفتین.
واما در مورد سوال کاربر عزیز.
چون ایشون اصرار بر استفاده از ابزار کاندیشنال فرمتینگ دارن و شاید همانند من اطلاعات کمتری نسبت به ماکرو نویسی و محیط VB داشته باشن، من سوالتون رو با همون ابزار کاندیشنال فرمتینگ پاسخ دادم و مطمعنم با آشنایی که نسبت به این ابزار دارین حتما متوجه روند کار میشین و اگر هم چنانچه سوالی بود من و سایر دوستان در خدمتیم.

Book1-Reply.xlsx

[rahi_feri]

سلام
جواب جالبیه!..