سوال در مورد اکسل

[mokaram]

ممنون از شما. عالي بود. آيا امكانش هست سلولهاي b3 تا b10 را در همين كد اضافه كرد؟

کد زیر را جایگزین کنید.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("mrm").Cells) Is Nothing Then
    ActiveCell.Value = ActiveCell.Value + 1
End If
End Sub 

نکته : محدوده b3 تا b10 به نام mrm نامگذاری شده