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

الانتقال الى اوراق العمل بواسطة كود واحد


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

السلام عليكم

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

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

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

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

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

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

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

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

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