سوال بی پاسخ

**~M*E*H*D*I~** · 2015/03/10, 18:22

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

سلام
من یک سوال پرسیدم که برخی دوستان چواب دادند اما انچه که مورد نظر من بود را نگفتند.

فرض کنید ده تا button روی صفحه اکسل دارید. میخواهید فقط یک ماکرو بنویسید که با فشردن هریک از ان ده تا button همان ماکرو
اجرا شود و متن روی button را در سلول A1 بنویسد

جوابی که دوستان نوشته بودند برای هر button یک ماکرو نوشته اند. خواسته من فقط یک ماکرو است .

شما هر بار که یک button به شیت اضافه کنید یک پنجره assign macro فعال خواهد شد که مجموعه ماکروهای موجود رو نمایش میده شما کافیه ماکروی مورد نظر خودت رو انتخاب و اوکی کنی

**majid_mx4** · 2015/03/11, 02:06

با سلام

قبل از پاسخ تشکر بابت سوال خوبتان ، دو نکته باید رعایت بشه ا
اول ماکرو را بشکل زیر باشه

کد:

Sub mir()
Range("a1") = ActiveSheet.Buttons(Application.Caller).Caption
End Sub

دوم :
تمامی دکمه را یکجا انتخاب کرده ( میتوانید Ctrl +g > اسپیشیال > آبجکت به راحتی اینکار را انجام دهید و یا.....)
روی آنها رایت کلیک کرده Assign Macro را انتخاب و از بین ماکرو ها اسم ماکرو بالا را انتخاب میکنیم و دکمه Ok را فشار می دهیم .

و تمام

با تشکر میر