اجرای تابع با کلیک بر روی سلول

**iranweld** · 2015/09/25, 00:05


Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next  'skip all run-time errors

 If Not Application.Intersect(Target, Range("A1:a15")) Is Nothing Then

Application.EnableEvents = False

I = Target.Row



If Range("a" & I).Value <> "" Then

Range("e" & 5).Value = Range("a" & I).Value


 End If

 End If
 
Application.EnableEvents = True

On Error GoTo 0  'Turn off error trapping and re-allow run time errors

End Sub

فایل های پیوست شده

**mfr** · 2015/09/25, 00:42

ببینید مثلا من توی ستون a1 تا a10 ده تا کد ملی دارم باید تک تک اونا رو توی مثلا e5 کپی کنم تا عمل جستجو که واسه اکسل نوشتم اجرا بشه ... میخوام واسه کاربرا با کلیک روی هر کد ملی اونو تو ستون e5 کپی کنه تا از بابت copy & paste راحت بشم

**Alireza** · 2015/09/25, 00:48

نوشته اصلی توسط mfr

ببینید مثلا من توی ستون a1 تا a10 ده تا کد ملی دارم باید تک تک اونا رو توی مثلا e5 کپی کنم تا عمل جستجو که واسه اکسل نوشتم اجرا بشه ... میخوام واسه کاربرا با کلیک روی هر کد ملی اونو تو ستون e5 کپی کنه تا از بابت copy & paste راحت بشم

سلام
بهتر نیست از دیتاولیدشن استفاده کنید تا کابر از لیست ابشاری کد رو انتخاب کنه ؟

**mfr** · 2015/09/25, 00:55

نه این کد ملیا نتیجه یک جستجو هستن مدام تغییر میکنن

**Alireza** · 2015/09/25, 00:58

نوشته اصلی توسط mfr

نه این کد ملیا نتیجه یک جستجو هستن مدام تغییر میکنن

خوب اشکالی نداره شما یک رنج مشخص رو وارد دیتاولیدشن می کنید لیست ابشاری بر اساس اخریت تغییرات نمایش داده میشه

**mfr** · 2015/09/25, 02:00

نوشته اصلی توسط iranweld

با سلام

این لینک را ملاحظه کنید

کد PHP:


Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next  'skip all run-time errors

 If Not Application.Intersect(Target, Range("A1:a15")) Is Nothing Then

Application.EnableEvents = False

I = Target.Row



If Range("a" & I).Value <> "" Then

Range("e" & 5).Value = Range("a" & I).Value


 End If

 End If
 
Application.EnableEvents = True

On Error GoTo 0  'Turn off error trapping and re-allow run time errors

End Sub

[ATTACH=CONFIG]8670[/ATTACH]

خیلی جالب بود ولی متاسفانه از اونجاییکه همون کد ملی ها خودشون از یک تابع دیگه بدست میان که تو همون سلول هستن وقتی روشون دبل کلیک کنی تابع ظاهر میشه سلولو اگه قفل کنی دیگه این تابع کار نمیده ؟؟؟؟؟؟؟؟؟

مگر اینکه با تک کلیک کار کنه

**iranweld** · 2015/09/25, 10:43

نوشته اصلی توسط mfr

خیلی جالب بود ولی متاسفانه از اونجاییکه همون کد ملی ها خودشون از یک تابع دیگه بدست میان که تو همون سلول هستن وقتی روشون دبل کلیک کنی تابع ظاهر میشه سلولو اگه قفل کنی دیگه این تابع کار نمیده ؟؟؟؟؟؟؟؟؟

مگر اینکه با تک کلیک کار کنه

با سلام
در فایل جدید بر روی هر سلول در محدودهa1:a15 در سلول e5 نمایش داده میشود

فایل های پیوست شده