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

جلب وملأ بيانات لنموذجين مختلفين من ملف واحد


nono2011

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

السلام عليكم

أضنني اتدلل عليكم بطلباتي التي لا تنتهي ... ولكنني أحاول ان أتعلم منكم وقد تعلمت منكم الكثير

ولكنني بصراحة أبقى مبتدئة

- اليوم عندي ملف طلب مني عمله واحترت فيه .. جربت وحاولت ولم افلح لذا لم اجد ملجأ بعد الله إلا أنتم

وضني فيكم لن يخيب بإذن الله ..

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

النموذج الأول : يتم فيه جلب المادة ( الخلية الصفراء )

النموذج الثاني : يتم ملأ البيانات حسب المادة من النموذج الأول .

وقد أرفقت زرين في الورقة Prof حيث أن الزر الأول يجلب كل المواد حسب النموذجين , أما الزر 2 فيجلب مادة أو مواد محددة فقط وذلك وفق النموذجين طبعا

وقد وضعت للزر 2 UserForm1 للإستدعاء .... طبعا أنا استعنت ببرنامج الأخ الحسامي حفظه الله ورعاه

كما وضعت شرح المطلوب بالملف

سؤال ثان : هل يمكن ربط ملف إكسل بقاعدة بيانات أكسس ؟ كيف الطريقة

أرجو أن اجد منكم مساعدة

RGF.rar

رابط هذا التعليق
شارك

السلام عليكم :

لم اعلم ان طلبي صعب لهذه الدرجة :wink2:

لذا قمت بتكييف طلبي واعادة صياغته .... لكن كل امل هذه المرة المرة في انصافي ومساعدتي

ولو بوضعي على السكة الصح ....

انظرو المرفق ....

- كما يبقي سؤالي قائما ... : عن كيفية ربط قاعدة بيانات اكسس بملف اكسل ؟

ارجوا المساعدة وشكرا لمن حاول ولم يقدر

طلب.rar

رابط هذا التعليق
شارك

انا مبتدء ايضا ببرنامج الاكسل وتمنيت ان عندي الاستطاع لمساعدتك

ولكن الطريقة الوحيده والتي استطيع ان اساعدك فيها هي رفع هذا الموضوع ...

الله يكون في عونهم .. فوق مشاغلهم وضيق وقتهم والله ماقصروا معانا ..

رابط هذا التعليق
شارك

  • 2 weeks later...

السلام عليكم

الاخ الفاضل nono2011

كما يقولون فهم السؤال نصف الإجابة

===

هل تقصد في المنصب هو تكرار المادة

يعني مثلا الرياضيات

لها طارق عمري يعتبر منصب اول

و محمد اسحاق يعتبر منصب ثاني

ولاكن افواج كلن منهما تختلف عن الاخر

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

بمعنى اذا تكررت مادة

يعمل خط اسفل الاثنين او الثلاثة الخ المكرر

هل هكذا فهمي صحيح

رابط هذا التعليق
شارك

السلام عليكم

عندي سؤال عن كود ان امكن تجابوني عليه


Sub ETAp()

S = 9

M = 11

v = 23

For k = 11 To 60

For S = 9 To 39

If Sheets("Prof1").Range("h" & S) = Sheets("المعطيات").Range("br" & k) Then


Worksheets("المعطيات").Range("bt:ce" & k).Copy

Worksheets("Prof1").Select

    Range("h9").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

	    :=False, Transpose:=True


  End If

Next k

Next S

    End Sub

تفاصيل الكود :

عندي بيانات في ورقة اسمها المعطيات وورقة اسمها Prof1

يبحث في الورقة الثانية عن متغير ويحط مقاله جميع توابعه ( التي تتراوح من 1 إلي 12 ) حسب كل شخص ومتغير

جربته وحاول وما اشتغل معي اين الخلل ياريت تصححولي الخطأ

رابط هذا التعليق
شارك

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