sabertb
2014/10/11, 11:17
سلام
سوال من اینه که من قبلا با کمک دوستان تونسته بودم روش نشان دادن شماره سطر انتخاب شده در یک سلول انجام بدم به شکل زیر
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Application.Intersect(ActiveCell, Range("rng").Cells) Is Nothing) Then _
Call UpdateAfterAction
End Sub
Sub UpdateAfterAction()
Dim topRow As Integer
topRow = Range("rng").Cells(1, 1).Row
[selectrow] = ActiveCell.Row() - topRow + 1
End Sub
حالا می خوام چندتا rng براش تعریف کنم با اسم های rngpl و rngip و rngl و در هرکدون از این range ها شماره سطر انتخاب شده رو در سلول مورد نظرم بنویسه
در واقع وقتی من 4 تا Range دارم بتونم 4 تا شماره سطر رو درون 4 سلول ازقبل تایین شده بدست بیارم.
چطور این کار رو کنم ؟
سوال من اینه که من قبلا با کمک دوستان تونسته بودم روش نشان دادن شماره سطر انتخاب شده در یک سلول انجام بدم به شکل زیر
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Application.Intersect(ActiveCell, Range("rng").Cells) Is Nothing) Then _
Call UpdateAfterAction
End Sub
Sub UpdateAfterAction()
Dim topRow As Integer
topRow = Range("rng").Cells(1, 1).Row
[selectrow] = ActiveCell.Row() - topRow + 1
End Sub
حالا می خوام چندتا rng براش تعریف کنم با اسم های rngpl و rngip و rngl و در هرکدون از این range ها شماره سطر انتخاب شده رو در سلول مورد نظرم بنویسه
در واقع وقتی من 4 تا Range دارم بتونم 4 تا شماره سطر رو درون 4 سلول ازقبل تایین شده بدست بیارم.
چطور این کار رو کنم ؟