پرسش تغییرات همزمان در چند کلید با کلید دیگر

[omid0912]

سلام
عزیزان، من چند ماکرو دارم که هر کدوم برای خودشون کلید داره
این کلید ها ( باتن ها) از شیپ درست شده که
در مرجله اول با کلیک روی اون، ضمن اینکه دستورات اجرا مبشه نوشته و رنگ هر کلید تغییر می کنه
مثلا (برای اینکه دستورات تکرار نشه لازم بود رنگ از سبز به قرمز و متن هم از انجام شد به انجام نشد تغییر کنه)
حاللت دوم که کلیک می کنی اماده میشه برای اجرای مجدد دستورات
پس کلیک بار دوم فقط رنگ و متن روی کلید رو تغییر می ده و عملا دستورات اصلی رو انجام نمیده.
حالا چون تعداد کلید ها زیاده می خوام یک کلید جدا (کلیک بار دوم) کلید ها رو انجام بده
(دونه دونه مرحله دوم رو، روی هر کلید نزنم که یکیش جا بمونه)
لطفا دستورشو برام بنویسید
نام کلید ها :
"Key 3" , "Key 2" , "Key 1"
تعداد کلید ها زیاده باقیشو حودم اضافه می کنم.
ممنون از لطفتون

[omid0912]

لطف می کنید پاسخ بدید.

[میثم مقدم نیا]

سلام
عزیزان، من چند ماکرو دارم که هر کدوم برای خودشون کلید داره
این کلید ها ( باتن ها) از شیپ درست شده که
در مرجله اول با کلیک روی اون، ضمن اینکه دستورات اجرا مبشه نوشته و رنگ هر کلید تغییر می کنه
مثلا (برای اینکه دستورات تکرار نشه لازم بود رنگ از سبز به قرمز و متن هم از انجام شد به انجام نشد تغییر کنه)
حاللت دوم که کلیک می کنی اماده میشه برای اجرای مجدد دستورات
پس کلیک بار دوم فقط رنگ و متن روی کلید رو تغییر می ده و عملا دستورات اصلی رو انجام نمیده.
حالا چون تعداد کلید ها زیاده می خوام یک کلید جدا (کلیک بار دوم) کلید ها رو انجام بده
(دونه دونه مرحله دوم رو، روی هر کلید نزنم که یکیش جا بمونه)
لطفا دستورشو برام بنویسید
نام کلید ها :
"Key 3" , "Key 2" , "Key 1"
تعداد کلید ها زیاده باقیشو حودم اضافه می کنم.
ممنون از لطفتون

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

[Amir Ghasemiyan]

سلام
عزیزان، من چند ماکرو دارم که هر کدوم برای خودشون کلید داره
این کلید ها ( باتن ها) از شیپ درست شده که
در مرجله اول با کلیک روی اون، ضمن اینکه دستورات اجرا مبشه نوشته و رنگ هر کلید تغییر می کنه
مثلا (برای اینکه دستورات تکرار نشه لازم بود رنگ از سبز به قرمز و متن هم از انجام شد به انجام نشد تغییر کنه)
حاللت دوم که کلیک می کنی اماده میشه برای اجرای مجدد دستورات
پس کلیک بار دوم فقط رنگ و متن روی کلید رو تغییر می ده و عملا دستورات اصلی رو انجام نمیده.
حالا چون تعداد کلید ها زیاده می خوام یک کلید جدا (کلیک بار دوم) کلید ها رو انجام بده
(دونه دونه مرحله دوم رو، روی هر کلید نزنم که یکیش جا بمونه)
لطفا دستورشو برام بنویسید
نام کلید ها :
"Key 3" , "Key 2" , "Key 1"
تعداد کلید ها زیاده باقیشو حودم اضافه می کنم.
ممنون از لطفتون

ActiveSheet.Shapes.Range(Array("[COLOR=#ff0000]Rectangle 1
سلام دوست عزيز
اگر فايلتون رو بذاريد بهتر ميشه راهنمايي كرد اما در حالت كلي اين كد ميتونه كمكتون كنه:
")).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB([COLOR=#ff8c00]155, 0, 0[/COLOR])
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "[COLOR=#008000]ExcelIran[/COLOR]"

راهنماي كد:
نام دكمه (نام شيپ)
رنگ مورد نظر براي بك گراند بصورت RGB
متن مورد نظر[/COLOR]