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

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

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

السلام عليكم

في حالة اردنا نعمل انتقالات الى اوراق العمل بداخل مصنف

بواسطة زر فاننا نستخدم كود للتعريف باسم الورقة المراد الذهاب اليها

وهكذا بالنسبة لبقية الاوراق الموجودة في المصنف

فإذا كان لدينا في المصنف خمسة اوراق فاننا نعمل خمسة اكواد

ما رايكم بكود واحد يربط جميع الزرارات الناقلة للاوراق

على شرط يكتب الاسم الصحيح للورقة في الزر

وهو يتعرف على اسم الورقة من خلال الاسم المكتوب

على الزر الذي قمت بالضغط عليه

Sub Kh_Sheets_Go()
On Error Resume Next
Dim Kh_Name As String
Kh_Name = ActiveSheet.Shapes(Application.Caller) _
.TextFrame.Characters.Text
Sheets(Kh_Name).Select
On Error GoTo 0
End Sub

مع تحياتي وشكري

________________________________.rar

تم تعديل بواسطه خبور خير
قام بنشر

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

وكعادتك دائما مفاجئاتك جميلة

الله يزيدك علما ونورا وايمانا

انا اعجبني كثيرا عملك السابق و الذي يشبة نفس الفركة بعمل فورم للذهاب الى كافة اوراق العمل في الملف

وهو موجود في المرفق

:clapping::clapping::clapping:

_____________________________________.rar

قام بنشر

السلام عليكم

الاخ الفاضل احمد يعقوب ------------------ حفظه الله

اشكرك اخي على مبادرتك بالرد

الفكرة من الموضوع في حالات مثلا :

لما تحتاج الى عمل صفحة رئيسية

ومن خلالها يتم التنقل الى الاوراق

او حالات مشابهة لذلك

وبالنسبة للكود الذي ارسلته في ملفك المرسل (كود الفورم)

هو ليس انا الذي قمت به

وانما هو ماخوذ من المنتدى

وقد استخدمته انا في ملف الترحيل الى ما شثت من اوراق العمل

وفي الكثير من الاعمال

تقبل شكري وتقديري

الاخ / الفاضل ابو اسامة --------------- حفظه الله

احسن الله اليك

تقبل شكري وتقديري

قام بنشر

السلام عليكم

اخى خبور

في حال تم الحذف او الزياده في الاوراق

هنا فكره اتمنى ان تنال اعجابك

و هي اضافه لا اكثر على عملك المتميز

________________________________.rar

قام بنشر

السلام عليكم

جمعة مباركة

اخي ابو عبدالله الجزيرة _______________حفظه الله

سبقتنا بدقيقة فلم ارك عندما رديت سابقا

حفظك الله ورعاك تقبل شكري واحترامي

الاخ / ابو اسامة العينبوسي ___________________حفظه الله

شف مش قلت لك من سابق ان الافكار المتنوعه لما تختلط مع بعض

سوف تولد انتاج فكري عظيم

فكرة ممتازة واكيد سيكون لها مردود فكري آخر

بارك الله فيك اكثر من هذه المداخلات فهي تسعدنا

تحياتي وشكري

قام بنشر

كود راائع

جزاك الله خيرا

شف مش قلت لك من سابق ان الافكار المتنوعه لما تختلط مع بعض

سوف تولد انتاج فكري عظيم

فكرة ممتازة واكيد سيكون لها مردود فكري آخر

بارك الله فيك اكثر من هذه المداخلات فهي تسعدنا

انظروا الى تواضع العلامة ودماثة اخلاقه ..... لنتعلم

بارك الله للعلامة خوبور وكل من يساهم في عمل لوجه الله

قام بنشر

الاخ الفاضل / محمدي -------------------------------- حفظه الله

حضرتك من الكرماء

الله يحفظك لاهلك واولادك وذويك ولكل محبيك

الاخ الفاضل / هادي سالم-------------------------------- حفظه الله

تقبل شكري وتقديري

الاخ الفاضل / ahh-------------------------------- حفظه الله

شكرا جزيلا

  • 3 weeks later...
قام بنشر
لاأجد مااكافأك به الا الدعاء لك في ظهر الغيب أدعوا الله لك يا استاذ خبور بالتوفيق وان يجعل الله لك من كل ضيق مخرجا

يارب اعط استاذنا خبور كل طيب

قام بنشر
السلام عليكم

اخى خبور

في حال تم الحذف او الزياده في الاوراق

هنا فكره اتمنى ان تنال اعجابك

و هي اضافه لا اكثر على عملك المتميز

اللهم بارك لكما

واجزيكما الخير كله

ولي سؤال

وكيف اغير مكان الزراير من a1 في المكان المناسب

قام بنشر

سهل جداً زر الفاره الايمن واذا تنشط الزر مثل الصوره المرفقه اسحبه في المكان المناسب

حاول تجربة حلك وانتقل الى صفحة اخرى وارجع ثانية الى الصفحة الاولى

وانظر

ولكن قبل ان ننسى شكرا لردك شكرا شكرا

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