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

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

قام بنشر

السلام عليكم

اولا اشكر المنتدى الرائع الذى استفيد منه جدا وكلما وقعت فى مشكلة اجد الحل عندكم بأذن الله

بارك الله مجهودكم وجعلها فى موزازين حسناتكم

المشكلة انى قمت بعمل فورم متعدد الايقونات واريد عندما اضغط على الايقونة يفتح لى الشيت فى الاكسل

ثم الرجوع مرة اخرى للقائمة او الفورم الرئيسى

وهو تقريبا 50 ايقونة تفتح 50 شيت

حتى اتمكن من ادخال البيانات داخل الشيت او البحث فى الشيت عن الداتا المطلوبة

ارجو المساعدة جزاكم الله خيرا

وسوف احاول رفع نسخة من البرنامج بعد حذف معلومات منه حيث انه يخص العمل

فى انتظار ردودكم فارجو الا تبخلوا على

قام بنشر

الاخ الفاضل

ابو احمد

جزاك الله خيرا على ردك السريع

وانا خفت الغى اسم الشركة من الملف يخرب الملف كله اذا حبيت ارجعه تانى لانى مش عارف هل الاسم مرتبط بالمعادلات ام لا

لهذا هل يمكن ان ارسله لك على الايميل الخاص

ارجو الافادة وجزاك الله خيرا

اخوك فيفا

قام بنشر

الاخ العزير زين

اشكرك كثيرا على الملف

ولقد استفت منه كثيرا حبث قمت بنسخ الكود وجربته ومشى الحال بس واجهتنى مشكلة وهى انى عندى 50 شيت ولكن الحمد لله حلتها بفضل الله ثم فضلك

ولكن مش عارف اثبت الفورم على الشاشة او اخليه يظهر تلقائى بع الانتهاء من العمل ويرجع تانى الى الشاشة الرئيسية

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

اخوك فيفا

قام بنشر

الاخ الفاضل

ابو احمد

جزاك الله خيرا على ردك السريع

وانا خفت الغى اسم الشركة من الملف يخرب الملف كله اذا حبيت ارجعه تانى لانى مش عارف هل الاسم مرتبط بالمعادلات ام لا

لهذا هل يمكن ان ارسله لك على الايميل الخاص

ارجو الافادة وجزاك الله خيرا

اخوك فيفا

يمكنك ارساله على الخاص

وساقوم بعمل ما باستطاعتي

ابواحمد

قام بنشر

بسم الله الرحمن الرحيم

يمنك استخدام الكود التالى للاختيار بين اوراق العمل مع التغيير التلقائى لاسماء اوراق العمل

Private Sub UserForm_Activate()

    ComboBox1.Clear

    For i = 1 To Sheets.Count

        ComboBox1.AddItem (Sheets(i).Name)

    Next i

End Sub

Private Sub ComboBox1_Change()

    Sheets(ComboBox1.Text).Activate

End Sub

مرفق ملف

السلام عليكم

Form.rar

  • 2 weeks later...

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