سلام. دوستان من تعداد زیادی اعداد در یک ستون دارم که باید به برخی شماره ها زیر شماره ها اضافه کنم. برای همین هر بار باید زیر اون شماره یک ردیف insert کنم. آیا راهی یا برنامه ای هست که با سرعت و راحتی این کار رو بکم چون خیلی وقتمو میگیره و تعداد فایل هام زیاده. در فایل نمونه زیر شماره ها با رنگ زرد مشخص شدند. ممنون میشم کمکم کنین.
-
-
با سلام
از قابلیت دبل کلیک در رویدادهای اکسل میتوانید استفاده کنید
در فایل پیوست بر روی هر سلول ستون A دوبار کلیک کنید یک سطر جدید ایجاد میگردد
کد PHP: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
Last edited by iranweld; 2016/05/01, 12:30. -
آقای مهندس ممنون. این کد فقط تو ستون a سطر ایجاد میکنه. میشه با دبل کلیک تو چند تا ستون ایجاد کنه مثلا a تا e ؟کامنت
-
با سلام
کد را بصورت ذیل تغییر دهید
کد PHP: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
کامنت
-
بازم ممنون آقای مهندس ولی باید روی هر سلول دبل کلیک کرد تا سطر اضافه بشه. مبشه کاری کرد با یک بار کلیک یک سطر کلی ایجاد بشه؟کامنت
کامنت