اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

برجاء من السادة الاعضاء التعديل علي الكود بحيث يتم تفعيل خصية البحث قي الكومبو بوكس بكتابة اول حرف من اسماء الشيت المدرجة بورقة العمل مع امكانية البحث عن اسماء الشيتات المخفيه من ورقة العمل وعند الضغط عليها يتم الذهاب اليها دون اظهارها في شريط اسماء ورقات العمل 

مرسل لسيادتكم الكود 

Private Sub ComboBox1_Change()
'Updateby Extendoffice
    If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub

 

Private Sub ComboBox1_DropButtonClick()
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
        ComboBox1.Clear
        For Each xSheet In ThisWorkbook.Sheets
            ComboBox1.AddItem xSheet.Name
        Next xSheet
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub


Private Sub ComboBox1_GotFocus()
ComboBox1.Clear
    If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub

قام بنشر (معدل)

استاذ علي المحترم

شكرا علي الملف حاولت نقله علي الشيت لدي مع تعديل اسم الشيت ولكن عند الضغط علي اسم الشيت الذي يظهر في الكومبو بوكس تظهر رسالة خطأ 

 

 

ji.PNG

تم تعديل بواسطه Ahmed Saad 2017
تغير الملف المرفق
قام بنشر (معدل)

استاذ علي المحترم تم العمل بنجاح علي الملف الخاص بي 

شكرا جزيلا 

هل يوجد حل ان يتم العمل علي الملف في حالة ان اليوزر فورم مفتوحه

 

تم تعديل بواسطه Ahmed Saad 2017
قام بنشر (معدل)

لو ممكن رفع ملفك لتدارك الخطأ الذى يحدث معك ومحاولة حله ان شاء الله

بارك الله فيك

وهل قمت بعمل الفورم وتسمية صفحة من الملف بإسم Main أم لا ؟

تم تعديل بواسطه ali mohamed ali
  • Like 1
قام بنشر

الاستاذ علي المحترم تم تعديل الشيت وتم تشغيل اليست بوكس بنجاح

هل من الممكن التعامل مع شيت الاكسيل من تعديل او اضافة في حالة ان اليوزر فورم مفتوحهwerdwer.PNG.28b9fac4f1106482add9622b48d94098.PNG

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information