اختصاص اتوماتیک زیر شماره ها

[amir0914]

سلام. دوستان من تعداد زیادی اعداد در یک ستون دارم که باید به برخی شماره ها زیر شماره ها اضافه کنم. برای همین هر بار باید زیر اون شماره یک ردیف insert کنم. آیا راهی یا برنامه ای هست که با سرعت و راحتی این کار رو بکم چون خیلی وقتمو میگیره و تعداد فایل هام زیاده. در فایل نمونه زیر شماره ها با رنگ زرد مشخص شدند. ممنون میشم کمکم کنین.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

از قابلیت دبل کلیک در رویدادهای اکسل میتوانید استفاده کنید

در فایل پیوست بر روی هر سلول ستون A دوبار کلیک کنید یک سطر جدید ایجاد میگردد

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Me.Range("a:a")) Is Nothing Then

Target.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End If
End Sub 

[amir0914]

آقای مهندس ممنون. این کد فقط تو ستون a سطر ایجاد میکنه. میشه با دبل کلیک تو چند تا ستون ایجاد کنه مثلا a تا e ؟

[iranweld]

با سلام

کد را بصورت ذیل تغییر دهید

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Me.Range("A:E")) Is Nothing Then

Target.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End If
End Sub 

[amir0914]

بازم ممنون آقای مهندس ولی باید روی هر سلول دبل کلیک کرد تا سطر اضافه بشه. مبشه کاری کرد با یک بار کلیک یک سطر کلی ایجاد بشه؟