اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

السلام عليكم

انا اريد ان اعمل زر مرتبط بخلية( فيها رقم مثلا من 1 الى 10 ) بحيث اذا تغير الرقم في الخلية وضغطت الزر يذهب الى ورقة من ورقات ملف الاكسل بحسب الرقم

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

لكن بدون استخدام المايكرو وانما VBA

قام بنشر

شكرا لك

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

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

محل صرافة.rar

قام بنشر

شكرا لك هذا افضل من اللي انا احتاجة

ما شاء الله عليك فنان انا اول مره اشوف قوائم تنقل بين صفحات

لكن لو باتعبك معي كيف عملتها يعني الخطوات كيف ؟؟؟؟؟؟

قام بنشر

مرحبا بك إبراهيم

أولا : قائمة بأسماء الشيتات

ثانيا : الخلية التى بها الأسماء نعمل لها داتا فاليديشن بحيث تظهر بها القائمة السابقة

ثالثا : بالكود الموجود فى حدث التغيير بالصفحة ننتقل إلى اسم الشيت الموجود بالخلية

و هذا هو الكود الذى وضعته بكل الأوراق كى يمكنك العودة

Private Sub worksheet_change(ByVal target As Excel.Range)

Dim ws As Worksheet

For Each ws In Worksheets

If ws.Name = Sheets("1").Range("b1").Value Then

ws.Visible = True

ws.Select

End If

Next ws

End Sub

  • Like 1
  • 3 months later...
قام بنشر

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

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

كنت أبحث عما ورد في هذا الموضوع وجزاكم الله خير ولكن لي طلب من الأخ kemas في الحل الأخير وهو التنقل بين الشيتات تبع قيمة الخلية وهو عدم الإنتقال مباشرة للشيت الآخر بعد اختيار اسم الشيت ولكن بعد اختيار الشيت في الخلية يتم ضغط زر من خلاله يتم الإنتقال هذا وشكرا لكم وجزاكم الله خيرا

قام بنشر

أخي العزيز kemas والله إنت عزيز على قلبي بدون ما شفتك معزة إلاهية

أخي كان عندي برنامج لتحويل ملف إكسل 2007 إلى 2003 ولأن إصبح ما عندي الرجاء تزويدي به

والبرنامج إلى كان عندي فيه مشكلة هو مجرد تنصيبه في جهازي لا أستطيع تثبيت مرة ثانية فين المشكل

قام بنشر

الأستاذ الشهابي

ضع زرا فى صفحة الدين

ضع فى الكود الخاص بهذا الزر - حدث النقر

هذا الكود و هو نفس الكود الموجود

ثم كرر ذلك بباقى الصفحات

Dim ws As Worksheet

For Each ws In Worksheets

'If ws.Name <> "1" And ws.Name <> Sheets("1").Range("b1").Value Then

'ws.Visible = False

'End If

If ws.Name = Sheets("1").Range("b1").Value Then

ws.Visible = True

ws.Select

End If

Next ws

المرفقات

التنقل بين الشيتات تبع قيمة الخلية-kemas.rar

قام بنشر

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

الأخ kemas أولاً شكرا جزيلا على سرعة الرد ، وأعلمك بأنه تم تطبيق الكود والحمد لله ضبط معي فجزاك الله خير ممكن طلب آخر وإن شاء الله تلبوا طلبي في الملف المرفق جدول مقسم إلى قسمين البيانات والدرجات أريد زراً من خلاله يتم فتح نموذج الإضافة والتعديل الموجود في برنامج الأكسل لقسم البيانات وآخر لقسم الدرجات والعفو منكم

فتح النموذج بزر ماكرو.rar

  • 2 weeks later...
قام بنشر

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

الأخ / خبير اكسل

بعد التحيه

هل لو ممكن تقولى ابسط طريقه لتعلم excel vb او موقع او اى شئ تراه مناسب مع العلم اننى لا امتلك اى معلومات عن البرمجه او الفيجوال بيسك

لاننى اريد عمل برنامج شئون موظفين يسهل على عملى

وهل يوجد ب اوفيس 2010 فيجوال بيسك ام لا و كيف اصل اليه

برجاء الرد

وتفضلوا سيادتكم بقبول فائق الأحترام

و شكراً

قام بنشر

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

محرر فيجوال بيسك ملحق بجميع نسخ أوفيس بما فيها 2010

الوصول إليه من الشيت

Alt+F11

أما تعلم VB

فمن خلال متابعة مشكلات الإخوة هنا و حلول أعضاء المنتدى لها خطوة خطوة

وعمل برامج بسيطة للتدريب و اكتساب الخبرة و سؤال الأعضاء فيما تتوقف عنده

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

http://www.youtube.com/user/MsKemas

حوالى 60 فديو

و إن شاء الله تكون من المحترفين

  • 2 months later...
قام بنشر

السلام عليكم

الشكر واصل للاخ الحبيب كيماس

على جهوده المتواصلة لنشر العلم

===================================

المرفق جدول مقسم إلى قسمين البيانات والدرجات أريد زراً من خلاله يتم فتح نموذج الإضافة والتعديل الموجود في برنامج الأكسل لقسم البيانات وآخر لقسم الدرجات والعفو منكم

تفضل ملف اكسل 2007

هنا رابط التحميل

  • 2 weeks later...
قام بنشر

الأخ خبور خير شكراً على مرورك وجزاك الله خيرا على الكودووهل ترى أسهل التعامل مع هذا الفورم أومن خلال فورم من خلال VBA ولو كان هذا مناسب هناك طلب آخر وهو أريد أن يظهر مع فورم الدرجات اسم التلميذمقفل غير قابل للتعديل إن أمكن ذلك وجزاك الله خير والعفو منك

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