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

[mfr]

با سلام ... آیا راهی وجود داره با کلیک بر روی یک سلول تابع بخصوص فعال بشه و همون سلول رو توی جای دیگه کپی کنه مثلا با کلیک بروی b1 محتویات b1 توی e1 کپی بشه ... اگرم با ماکرو باشه مهم نیست ... من اینکار رو فقط واسه 15 سلول نیاز دارم در ضمن خود b1 نیز حاوی تابع میباشد

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

[iranweld]

با سلام

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

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]

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

[Alireza]

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

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

[mfr]

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

[Alireza]

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

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

[mfr]

با سلام

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

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 

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

[iranweld]

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

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

[mfr]

بسیار بسیار بسیار سپاس