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

[Amir Ghasemiyan]

سلام دوستان

كدي كه تقديم ميكنم كارش اينه كه شماره رديف ميزنه اونم بصورت هوشمند. كليپ رو ببينين گوياي همه چي هست.

همچنين ميتونيد از يوتيوب مشاهده كنيد:

اينم كد خدمت شما:

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 رو حذف كني. تنها مشكلي كه به وجود مياره اينه كه تعداد محاسبات فوق العاده زياد ميشه و درنتيجه سرعت فايل به شدت مياد پايين.