شماره رديف هوشمند

[Amir Ghasemiyan]

سلام دوستان

كدي كه تقديم ميكنم كارش اينه كه شماره رديف ميزنه اونم بصورت هوشمند. كليپ رو ببينين گوياي همه چي هست. :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




يادتون باشه كه اين كدها رو بايد در شيت قرار بدين نه در ماژول

براي اينكه بهتر متوجه بشيد فايل آموزش رو پيوست ميكنم.

[علی فاطمی]

با سلام و روز بخیر
بسیار جالب بود. فقط یه سوال چرا بعد از هر گونه تغییرات امکان undo وجود نداره مربوط به این کد میشه یا خود شما تنظیماتی رو اعمال کردین؟ یعنی وقتی اطلاعات یکی از سل های ستون B پاک یا اضافه میشه تا زمانی که روی همان سل باشی undo فعاله وقتی سل دیگری را انتخاب می کنی undo غیر فعال میشه البته کد شما در Worksheet_SelectionChange نوشته شده یعنی با Select کردن Worksheet تغییرات اعمال میشه ولی متوجه غیر فعال شدن undo نشدم!؟

[mokaram]

ممنون از امیر عزیز
فقط مشکلی که داره اینه که اگه 5مثلا ردیف اطلاعات وارد کنیم و اطلاعات ردیف سوم از ستون b را پاک کنیم شماره ردیف 3 به بعد کلاً پاک میشه در صورتیکه اطلاعات ردیف های بعد از 3 به قوت خودش باقیه

[Amir Ghasemiyan]

با سلام و روز بخیر
بسیار جالب بود. فقط یه سوال چرا بعد از هر گونه تغییرات امکان undo وجود نداره مربوط به این کد میشه یا خود شما تنظیماتی رو اعمال کردین؟ یعنی وقتی اطلاعات یکی از سل های ستون B پاک یا اضافه میشه تا زمانی که روی همان سل باشی undo فعاله وقتی سل دیگری را انتخاب می کنی undo غیر فعال میشه البته کد شما در Worksheet_SelectionChange نوشته شده یعنی با Select کردن Worksheet تغییرات اعمال میشه ولی متوجه غیر فعال شدن undo نشدم!؟

سلام علي آقا
اين خاصيت كدهاي vba هست. ديگه undo غير فعال ميشه. فكر هم نكنم راهي باشه كه بشه undo رو فعال كرد


ممنون از امیر عزیز
فقط مشکلی که داره اینه که اگه 5مثلا ردیف اطلاعات وارد کنیم و اطلاعات ردیف سوم از ستون b را پاک کنیم شماره ردیف 3 به بعد کلاً پاک میشه در صورتیکه اطلاعات ردیف های بعد از 3 به قوت خودش باقیه

من عمدا اينطوري نوشتم جناب مكرم عزيز
ميشد اونطوري كه شما گفتي هم تعريف كرد هيچ كاري نداره. فقط كافيه else رو حذف كني. تنها مشكلي كه به وجود مياره اينه كه تعداد محاسبات فوق العاده زياد ميشه و درنتيجه سرعت فايل به شدت مياد پايين.