مفتاح يعمل بناء علي اسمه

[ابو حمادة]

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

استفسار من الاخوة الكرام

هل من الممكن انشاء ( UserForm1 ) ووضع مفتاح ( CommandButton1 )يعمل بناء علي اسمه

بمعني لو اسم المفتاح ( تعاقدات ) وهناك صفحة بنفس الاسم ( تعاقدات ) 

هل من الممكن وضع كود بداخل المفتاح يفتح الصفحه التى بنفس الاسم ويخفي باقي الصفحات الاخرى واذا غيرنا اسم المفتاح الي ( تعاقدات 1 ) يتم فتح الصفحه التي بنفس الاسم

 

ارجو الافاده

ولكم جزيل الشكر

 

 

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

أخي الكريم أبو حماده

إليك الملف التالي عله يكون المطلوب أو مشابه للمطلوب

يمكنك اختيار أوراق العمل لإخفائها أو لإظهارها

 

Hide Unhide Sheet Manager.rar

[ابو حمادة]

اخي الفاضل

شكر لاهتمامك والرد

انا اقصد مفتاح اذا غيرنا اسمه يفتح الصفحه التى بنفس الاسم ويخفي باقي الصفحات الاخرى واذا غيرنا اسمه لاسم صفحه اخرى وضغطنا عليه يفتح الصفحه الاخرى ويخفي باقي الصفحات

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

أخي الكريم

ارفق ملفك للإطلاع عليه

حاول أن تسهل على إخوانك لتجد المساعدة

[KHMB]

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

بعد إذن اخونا وإستاذنا الفاضل ياسر خليل

إليك الملف إن شاء الله يكون حسب طلبكم

هذا مما تعلمناه من العلامة القدير الاستاذ / عبدالله احمد باغشير والذي غاب عننا ربنا يرفع عنهم وعننا وسائر بلاد المسلمين البلاء والوباء والغلاء.

 

الإنتقال الي الصفحة بدلالة إسمها علي الزر.rar

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

أخي الحبيب أبا الحسن والحسين

كود رائع وجميل وإن لم يكن مكانه في الموضوع لكنني استفدت منه كثيراً

بالنسبة للسائل يريد التعامل مع زر Command Button على الفورم

قمت بعمل ملف إن شاء الله يعجبكم لكنه به مشكلة بسيطة بحاول أحلها

لنا عودة إن شاء الله

 

[ابو حمادة]

شكرا جدا علي مجهودك الرائع 

فعلا عمل رائع استاذ KHMB

ولكن للاسف لايعمل مع اليوزر فورم كما قال اخي الغالي الاستاذ ياسر ارجو لو هناك حل لكي يعمل علي اليوزر فورم

تقبل تحياتي

 

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

أخي الكريم أبو حمادة

قم بوضع الكود التالي في موديول عادي

Sub ShowForm()
    UserForm1.Show vbModeless
End Sub

Sub UnhideAll()
    Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Sheets
        Ws.Visible = xlSheetVisible
    Next Ws
End Sub

Sub HideAll()
    Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Sheets
        Ws.Visible = xlSheetHidden
    Next Ws
End Sub

أنشيء فورم وعليه 4 أزرار أوامر وقم بتسمية الأزرار باسم cmdClose للإغلاق الخاص بالفورم ، وزر أمر باسم cmdSheet والذي من خلاله يمكنك التعامل مع ورقة العمل المكتوب اسمها على زر الأمر فيخفي أوراق العمل الأخرى ويبقى ورقة العمل فقط ، وزر الأمر cmdRename ويقوم بتسمية زر الأمر السابق المسمى cmdSheet (يغير عنوان الزر وليس اسم الزر) ، وأخيراً زر أمر cmdUnhide لإظهار جميع أوراق العمل

وإليك الكود الذي يوضع في حدث الفورم

'Author     : YasserKhalil
'Released   : 25 - Dec. - 2015
'Use        : This UserForm Enables You To Navigate To Specific Sheet
'             Depending On cmdSheet Caption & Hide Other Sheets.
'--------------------------------------------------------------------

Private Sub cmdSheet_Click()
    Dim Str As String, Ws As Worksheet, Bln As Boolean
    Str = cmdSheet.Caption
    
    On Error Resume Next
        For Each Ws In ThisWorkbook.Sheets
            Ws.Visible = xlSheetVisible
            If Str = Ws.Name Then Bln = True
        Next Ws
        
        If Bln = True Then
            For Each Ws In ThisWorkbook.Sheets
                If Ws.Name = Str Then
                    Ws.Activate
                Else
                    Ws.Visible = xlSheetHidden
                End If
            Next Ws
        Else
            MsgBox "There Is No Such Worksheet Name", 64
        End If
    On Error GoTo 0
End Sub

Private Sub cmdRename_Click()
    Dim StrName As String
    
    On Error Resume Next
        StrName = InputBox("Rename Previous Command Button", "Rename Button")
        If StrName <> "" Then cmdSheet.Caption = StrName
    On Error GoTo 0
End Sub

Private Sub cmdUnhide_Click()
    Call UnhideAll
End Sub

Private Sub cmdClose_Click()
    Unload Me
End Sub

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

تقبل تحياتي

Navigate To Specific Sheet By Command Button Name YasserKhalil.rar

[مهند الزيدي]

دائما ماتبدع "ياسر خليل " ...موفق ان شاء الله

[KHMB]

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

ولإثراء الموضوع

هذا كود من إبداعي ودن الرجوع لاي مصدر

كود صغير جدا خفيف وسهل من 7 كلمات

Dim MySh
MySh = "KHMB"
Sheets(MySh).Select

يتم وضعة في حدث النقر علي زر الامر

مرفق المثال

KHMB الذهاب الي الشيت المحدد من الفورم.rar

[ابو حمادة]

بصراحه انا مش عارف اشكركم ازاى فعلا عمل رائع ربنا يزيدكم علما تنفعون به انفسكم والمؤمنين

جزاكم الله خير الاخوة الكرام استاذ ياسر والاستاذ  KHMB

فعلا الحلين مناسبين مع ان حل الاستاذ    لا يخفي باقي الصفحات ولكنه مميز لصغر حجم الكود