Ahmed Saad 2017 قام بنشر نوفمبر 21, 2018 قام بنشر نوفمبر 21, 2018 برجاء من السادة الاعضاء التعديل علي الكود بحيث يتم تفعيل خصية البحث قي الكومبو بوكس بكتابة اول حرف من اسماء الشيت المدرجة بورقة العمل مع امكانية البحث عن اسماء الشيتات المخفيه من ورقة العمل وعند الضغط عليها يتم الذهاب اليها دون اظهارها في شريط اسماء ورقات العمل مرسل لسيادتكم الكود 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
Ali Mohamed Ali قام بنشر نوفمبر 21, 2018 قام بنشر نوفمبر 21, 2018 اهلا بك اخى الكريم فى المنتدى تفضل هذا الملف لعله يفيدك تعبئة الكومبوبوكس بأسماء أوراق العمل Fill ComboBox With Sheets Names .xlsm 1
Ahmed Saad 2017 قام بنشر نوفمبر 21, 2018 الكاتب قام بنشر نوفمبر 21, 2018 (معدل) استاذ علي المحترم شكرا علي الملف حاولت نقله علي الشيت لدي مع تعديل اسم الشيت ولكن عند الضغط علي اسم الشيت الذي يظهر في الكومبو بوكس تظهر رسالة خطأ تم تعديل نوفمبر 21, 2018 بواسطه Ahmed Saad 2017 تغير الملف المرفق
Ahmed Saad 2017 قام بنشر نوفمبر 21, 2018 الكاتب قام بنشر نوفمبر 21, 2018 (معدل) استاذ علي المحترم تم العمل بنجاح علي الملف الخاص بي شكرا جزيلا هل يوجد حل ان يتم العمل علي الملف في حالة ان اليوزر فورم مفتوحه تم تعديل نوفمبر 21, 2018 بواسطه Ahmed Saad 2017
Ali Mohamed Ali قام بنشر نوفمبر 21, 2018 قام بنشر نوفمبر 21, 2018 (معدل) لو ممكن رفع ملفك لتدارك الخطأ الذى يحدث معك ومحاولة حله ان شاء الله بارك الله فيك وهل قمت بعمل الفورم وتسمية صفحة من الملف بإسم Main أم لا ؟ تم تعديل نوفمبر 21, 2018 بواسطه ali mohamed ali 1
Ahmed Saad 2017 قام بنشر نوفمبر 21, 2018 الكاتب قام بنشر نوفمبر 21, 2018 الاستاذ علي المحترم تم تعديل الشيت وتم تشغيل اليست بوكس بنجاح هل من الممكن التعامل مع شيت الاكسيل من تعديل او اضافة في حالة ان اليوزر فورم مفتوحه
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.