كيف يمكن إخفاء الزر عن طريق نفس الزر وإتاحة زر آخر

[حسن أبو علي]

السلام عليكم ورحمة الله وبركاته.

 

في الملف المرفق، في صفحة (الإدخالات) هناك أربعة أزرار.

 

أريد أن تكون جميع الأزرار غير متاحة إلا الزر الأول.

 

وعند النقر على الزر الأول يقوم بتنفيذ التعليمات البرمجية، ويصبح هو نفسه غير متاح، ويصبح الزر الثاني هو المتاح.

 

ونفس الشيء مع الزر الثاني، عند النقر عليه، يصبح هو نفسه غير متاح بعد تنفيذ الأوامر البرمجية، ويصبح الزر الثالث هو المتاح.

 

وهكذا.

 

وشكرا للجميع,

 

وتقبل الله من الجميع الصيام والقيام

Pupils' Names.zip

[ياسر خليل أبو البراء]

الأخ الكريم حسن

يرجى تغيير اسم الظهور للغة العربية .. راجع التوجيهات من هنا

 

يوضع الكود التالي في حدث المصنف حيث يقوم بإخفاء الأزرار 2 و 3 و 4 ويتبقى الزر الأول فقط

Private Sub Workbook_Open()
    With Sheet2
        .Buttons("Button 2").Visible = False
        .Buttons("Button 3").Visible = False
        .Buttons("Button 4").Visible = False
    End With
End Sub

ثم قم بوضع الأكواد التالية في موديول ..

لاحظ أنه في نهاية كل كود يتم إخفاء الزر الخاص بالكود وإظهار الزر التالي ..

Sub ConvertToVlaues()
    Dim Rng As Range
    Set Rng = Union(Range("C:H"), Range("I:N"))
    Application.ScreenUpdating = False
        Rng.Copy
        Rng.PasteSpecial xlPasteValues
        Range("A1").Select
        With Sheet2
            .Buttons("Button 1").Visible = False
            .Buttons("Button 2").Visible = True
        End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Sub ButtonTwo()
    MsgBox "This is Button 2"
    With Sheet2
        .Buttons("Button 2").Visible = False
        .Buttons("Button 3").Visible = True
    End With
End Sub

Sub ButtonThree()
    MsgBox "This is Button 3"
    With Sheet2
        .Buttons("Button 3").Visible = False
        .Buttons("Button 4").Visible = True
    End With
End Sub

Sub ButtonFour()
    MsgBox "This is Button 4"
    With Sheet2
        .Buttons("Button 4").Visible = False
    End With
End Sub

الإخفاء هو الوسيلة الوحيدة لعمل المطلوب حيث أن خاصية Enabled و Disabled لا تؤثر في عمل الكود بعد إصدار الأوفيس 2010 ...

جرب الملف المرفق

تقبل تحياتي

Pupils' Names.rar

[حسن أبو علي]

شكرا لك يا أستاذنا الفاضل.

لكن هناك مشكلة.

وهي: لو أنني قمت بتنفيذ الزر الأول، وثم أغلقت الملف وثم قمت بفتحه مرة أخرى، فإن جميع الأزرار تكون مختفية.

[حسن أبو علي]

هل من الممكن جعل الزر الاول ينفذ الكود استنادا إلى قيمة في خلية معينة.

 

بمعنى أن الزر الأول الآن يقوم بتثبيت القيم في الأعمدة المذكورة في الكود.

 

هل من الممكن جعل الكود يأخذ بيانات الأعمدة من خلية معنية.

 

بحيث أنني لو قمت بكتابة الأعمدة في الخلية يقوم الزر بتثبيت قيم  هذه الأعمدة، وإذا غيرت أسماء الأعمدة في الخلية يقوم الكود بأخذ المعطيات الجديدة.

 

وبهذه الطريقة استغني عند اخفاء الأزرار الكثيرة.

[ياسر خليل أبو البراء]

أخي الكريم حاول توضح أكثر .. كدا الموضوع تاه عن الهدف وأصبح هناك طلب جديد

إذا كان الطلب مختلف عن الطلب ها هنا يمكنك طرح موضوع جديد لتعم الاستفادة ..