یک نمونه دیگر
که در صورت وارد شدن دو عدد در سمت راست شیت ، جواب ضرب آن دو در جدول با سطر و ستون مربوطه رنگی میگردد
کد PHP:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer, j As Integer, RNG As Range
Set RNG = Sheet1.Range("B2:J10")
RNG.Interior.ColorIndex = 0
Y = Range("N3").Value
Z = Range("P3").Value
For I1 = 2 To 10
For J1 = 2 To 10
X = Y * Z
If Cells(I1, J1).Value = X And Cells(1, J1) = Y And Cells(I1, 1) = Z Then
For i = 2 To I1
Cells(i, J1).Interior.ColorIndex = 37
Next i
For j = 2 To J1
Cells(I1, j).Interior.ColorIndex = 37
Next j
End If
Next: Next
Y = Range("N3").Value
End Sub
علاقه مندی ها (Bookmarks)