نیاز به هایلات سلول های متغیر بر اساس انتخاب از لیست ها، داشتم
ممنون میشم اگر راهنمایی بفرمایید.
|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
=AND($A2=$D$9,OR(B$1=$D$7,B$1=$D$8))
Private Sub Worksheet_Change(ByVal Target As Range)
Dim m1, m2, nm As String
m1 = Range("d7").Text
m2 = Range("d8").Text
nm = Range("d9").Text
Range("b2:g5").Interior.ColorIndex = 0
For r = 2 To 5
For s = 2 To 7
For s2 = 2 To 7
If nm = Cells(r, 1) Then
If m1 = Cells(1, s) And m2 = Cells(1, s2) Then
Rng = Cells(r, s).Address & ":" & Cells(r, s2).Address
Range(Rng).Interior.ColorIndex = 7
Exit For
End If
End If
Next s2
Next s
Next r
End Sub
کامنت