Amir Ghasemiyan
2014/07/08, 04:46
سلام دوستان
كدي كه تقديم ميكنم كارش اينه كه شماره رديف ميزنه اونم بصورت هوشمند. كليپ رو ببينين گوياي همه چي هست. :o
http://www.aparat.com/v/tZEi8
همچنين ميتونيد از يوتيوب مشاهده كنيد:
https://www.youtube.com/watch?v=YoA8ZyDqE7Y&feature=youtu.be
اينم كد خدمت شما:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range
i = 1
If Target.Column = 2 Then
temp = Range("A1").Value
Range("A:A").ClearContents
For Each cel In Range("A:A")
If cel.Row = 1 Then
Range("A1").Value = temp
ElseIf Cells(cel.Row, cel.Column + 1) <> "" Then
cel.Value = i
i = i + 1
Else
Exit Sub
End If
Next cel
End If
End Sub
يادتون باشه كه اين كدها رو بايد در شيت قرار بدين نه در ماژول
براي اينكه بهتر متوجه بشيد فايل آموزش رو پيوست ميكنم.
كدي كه تقديم ميكنم كارش اينه كه شماره رديف ميزنه اونم بصورت هوشمند. كليپ رو ببينين گوياي همه چي هست. :o
http://www.aparat.com/v/tZEi8
همچنين ميتونيد از يوتيوب مشاهده كنيد:
https://www.youtube.com/watch?v=YoA8ZyDqE7Y&feature=youtu.be
اينم كد خدمت شما:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range
i = 1
If Target.Column = 2 Then
temp = Range("A1").Value
Range("A:A").ClearContents
For Each cel In Range("A:A")
If cel.Row = 1 Then
Range("A1").Value = temp
ElseIf Cells(cel.Row, cel.Column + 1) <> "" Then
cel.Value = i
i = i + 1
Else
Exit Sub
End If
Next cel
End If
End Sub
يادتون باشه كه اين كدها رو بايد در شيت قرار بدين نه در ماژول
براي اينكه بهتر متوجه بشيد فايل آموزش رو پيوست ميكنم.