samycalls2020 قام بنشر مايو 14, 2020 مشاركة قام بنشر مايو 14, 2020 السلام عليكم .. هل يمكن اضافة للكود بحيث يتم تغير لون الشكل مع لون الكلمة زر مزدوج.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 14, 2020 مشاركة قام بنشر مايو 14, 2020 Try This Macro Sub Button02() ActiveSheet.Shapes.Range(Array("مستطيل 1")).Select If Selection.Text = "إخفاء الصفوف" Then Rows("5:20").EntireRow.Hidden = True With Selection .Font.ColorIndex = 2 .Text = "إظهار الصفوف" .ShapeRange.Fill.ForeColor.RGB = _ RGB(255, 0, 0) End With Else Rows("5:20").EntireRow.Hidden = False With Selection .Font.ColorIndex = 3 .Text = "إخفاء الصفوف" .ShapeRange.Fill.ForeColor.RGB = _ RGB(209, 255, 0) End With End If [A1].Select End Sub 2 رابط هذا التعليق شارك More sharing options...
samycalls2020 قام بنشر مايو 15, 2020 الكاتب مشاركة قام بنشر مايو 15, 2020 طلب أخير استاذ / سليم .. أن سمحت لى أضفت زر أخر لنفس الماكرو والمراد .. هو أن يعمل الزران معاً بنفس الماكرو ويتغير نصهما ولونهما معاً بالضغط على أى منهما . زر مزدوج2.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر مايو 15, 2020 أفضل إجابة مشاركة قام بنشر مايو 15, 2020 اللغة العربية دائما ما تسبب مشاكل في الاكواد (انصح بعدم استعمالها) لذلك تم تغيير اسماء الازرار الى SHP_1 و SHP_2 الكود Sub Button02() Dim arr(1), i% arr(0) = "SHP_1": arr(1) = "SHP_2" For i = 0 To 1 ActiveSheet.Shapes.Range(Array(arr(i))).Select ' +++++++++++++++++++++++++++++ If Selection.Text = "Show" Then Rows("5:20").EntireRow.Hidden = False With Selection .Font.ColorIndex = 2 .Text = "Hide" .ShapeRange.Fill.ForeColor.RGB = _ RGB(192, 0, 0) End With Else Rows("5:20").EntireRow.Hidden = True With Selection .Font.ColorIndex = 6 .Text = "Show" .ShapeRange.Fill.ForeColor.RGB = _ RGB(0, 0, 255) End With End If '++++++++++++++++++++++++++++++++ Next [A1].Select End Sub الملف مرفق Double_but.xlsm 3 رابط هذا التعليق شارك More sharing options...
samycalls2020 قام بنشر مايو 18, 2020 الكاتب مشاركة قام بنشر مايو 18, 2020 السلام عليكم .. مرة أخرى وإن شاء الله أخيرة فى هذا الموضوع إن أذن لى استاذ / سليم.. Double_but2.xlsm رابط هذا التعليق شارك More sharing options...
samycalls2020 قام بنشر يونيو 1, 2020 الكاتب مشاركة قام بنشر يونيو 1, 2020 للرفع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.