با سلام
موضوع سوال شما با محل طرح سوال همخوانی نداره بهتره شما تاپیک جدا برای سوالتون باز کنید.
از مدیران درخواست کنید که تاپیک رو انتقال بدن.ظاهرا هم جواب سوال شما نیاز به کد نویسی دارد.
من دو روش رو انجام دادم یکی با Conditional formatting یکی هم با کد البته هر دو روش دقیقا چیزی که شما نشون دادید نیست ولی شاید نیازتون رو برطرف کنه.
روش اول ابزار Conditional formatting هست که از فرمول زیر استفاده شده است.
کد PHP:
=CELL("address";A1)=ADDRESS($O$5;$O$6)
روش دوم استفاده از کدنویسی هست که به این صورت هست:
کد:
Sub test()
Dim prow, pcolumn As Variant
Static xRow
Static xColumn
prow = Range("o5").Value
pcolumn = Range("o6").Value
xRow = prow
xColumn = pcolumn
With Columns(pcolumn).Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
With Rows(prow).Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
End Sub
این کد هم در شیت باید قرار بدید.
کد:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$O$5" Or Target.Address = "$O$6" Then
Cells.Interior.Pattern = xlNone
End If
End Sub
علاقه مندی ها (Bookmarks)