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

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

قام بنشر

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

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

مثال

الاسم العمر المرتب الذكاة صافى المرتب

لدينا فور من vba مصمم فيه الحقول السابقة

لدينا ورقة اكسل فيها نفس الحقول

كيف يمكننى اضافة البنات من النوذج الى خلا يا اكسل لا ستخدامها كقاعدة

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

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

السلام عليكم،

لا تحتاج إلى كود في الفيجوال بيسك لعمل نموذج إدخال .. فهذه الميزة يوفرها لك الإكسل من خلال قائمة بيانات ثم نماذج .. ..

كما في المرفق التالي:

__________________.rar

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

السلام عليكم

الطريقة رووووووووعة بس علومنا نحن اخوانكم وفي موازين حسناتكم ان شاء الله هيا بسرعه ::*****

قام بنشر

يعني لا زم ماكرو ولازم برنامج تصميم اشكال الازرار ولازم شوية خبرة....

وكمان محمي بباس وورد طيب شكراً

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

السلام عليكم،

السلام عليكم

الطريقة رووووووووعة بس علومنا نحن اخوانكم وفي موازين حسناتكم ان شاء الله هيا بسرعه ::*****

الطريقة سهلة جداً وهي أن تقوم بإنشاء الجدول الذي تود إدراج بياناتك داخله أولاً.. ولكي تتجنب ظهور رسالة تنبيهيه قبل ظهور نموذج الإدخال قم بالتأكد من النقاط التالية قبل إظهار النموذج والذي يتم عن طريق الذهاب إلى القائمة بيانات Data ثم نماذج Form:

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

2- قم بإدخال بيانات سجل واحد على الأقل بالطريقة التقليدية (من غير إستخدام نموذج الإدخال).

3- لا تقم بدمج أي من الخلايا المُكونة للجدول أو الخلايا التي تلي الجدول.

4- ضع المؤشر على أول خلية في الجدول قبل فتح النموذج.

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

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

ولازم برنامج تصميم اشكال الازرار

لا تحتاج لبرنامج لتصميم الأزرار .. يمكنك اٍستخدام الأشكال التلقائية الموجود شريط الأدوات رسم .. والأزرار التي شاهدتها في المرفق السابق جميعها قمت بأخذها من شريط الأدوات رسم.

ولازم شوية خبرة....

ما أعتقد أن الخبرة ضرورية بعد كل هذا الشرح التفصيلي :pp:

وكمان محمي بباس وورد

ولا تزعل .. أنا بصراحة نسيت ألغي حماية الملف قبل إرفاقه .. على كل حال كلمة المرور هي amani

أتمنى يكون هذا كل شيء تحتاجه .. وآسف جداً على الإطالة

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

الى مشرفنا الغالي الاستاذ /على السحيب

البرنامج رائع جدا وعندي بعض الملاحظات وان شاء الله تعطينا الاجابة الشافية :

1- الرسالة ا لترحيبة اللي تجي عند فتح البرنامج كيف عملتها ؟ تكفى نبغى الطريقة ؟

2- الازارير (اضافة - فرز - بحث - حفظ- خروج ) كيف تم ربط هذه الازارير .

وربي يحفظك ..

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

السلام عليكم،

1- بالنسبة للرسالة الترحيبية فهي تعمل مع كود برمجته على أن يشتغل عند فتح الملف وتستطيع أن تراه عن طريق الذهاب إلى محرر الفيجوال بيسك ويكون ذلك عن طريق الضغط على مفتاحي Alt + F11 .. والباسوورد هي amani .. وستجد موديول اسمه (فتح).

2- بالنسبة للأزرار .. فعملها يتطلب أكثر من خطوة:

أ- تصميم الأزرار عن طريق اِلأشكال التلقائية الموجودة ضمن القائمة رسم.

ب- كتابة الأكواد في محرر الفيجوال بيسك.

ج- ربطها يتم عن طريق الضغط بالزر الأيمن على الشكل التلقائي ثم إختيار تعيين ماكرو .. ستخرج لك نافذة تشتمل على جميع الأكواد الموجودة في الملف .. قم بإظهار الأكواد التابعة للملف الذي تعمل عليه .. ثم أختر الكود الذي تود ربطه بالرز .. ثم إضغط موافق.

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

اولا اشكرك على الرد الرائع .

ثانيا : لو اردنا ان ندخل مودل جديد يخص الطباعة ماهو الكود الخاص بالطباعة .

ثالثا : الموديول اللي في البرنامج الخاصة ( بالاضافة - الفرز - البحث - الخروج )

هل هذه الاكواد كتبت باليد او انها تظهر اليا فبمجرد مااختار زر ماكرو واختار اما فتح او اغلاق يتم تسجيل الحركات وتظهر على شكل كود .

حقيقة انا انتظر الاجابة الشافية منكم حول هذا الموضوع . لانني احس بغصة لعدم معرفتي او بالاصح لم اصل لحل حول هذه الاكواد.

وربي يحفظك .

قام بنشر

السلام عليكم،

الكود الخاص بالطباعة هو التالي .. ويمكنك تسجيله بالماكرو:

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

بالنسبة للأكواد الخاصة بالفرز والإضافة والحفظ فقد تم تسجيلها بالماكرو وإجراء بعض الإضافات عليها .. أما بالنسبة للأكواد الخاصة بالبحث و الخروج فقد تمت كتابتهما يدوياً.

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

الكود الخاص بالطباعة هو التالي .. ويمكنك تسجيله بالماكرو:

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

بالنسبة للأكواد الخاصة بالفرز والإضافة والحفظ فقد تم تسجيلها بالماكرو وإجراء بعض الإضافات عليها .. أما بالنسبة للأكواد الخاصة بالبحث و الخروج فقد تمت كتابتهما يدوياً.

<{POST_SNAPBACK}>

استاذي العزيز/ على السحيب الان الموضوع اكتمل لدي يجزيك الله عنا كل خير . ولكن لي طلب أخير وانا خجلان جدا منك من كثر الطلبات وسعة صبرك معنا واستفساري هو ياليت تشرح لنا خطوة خطوة كيف تم تسجيل الاكواد الخاصة بالفرز والاضافة والحفظ بالماكرو وكيف تم عمل الاضافات عليها. (( ممكن نكتفي بشرح واحدة فقط وعلى ضوئها نعرف الباقي )

ولك مني كل الاحترام والتقدير .

  • 3 weeks later...
قام بنشر
السلام عليكم،

لا تحتاج إلى كود في الفيجوال بيسك لعمل نموذج إدخال .. فهذه الميزة يوفرها لك الإكسل من خلال قائمة بيانات ثم نماذج .. ..

كما في المرفق التالي:

<{POST_SNAPBACK}>

اخى ممكن تخبرنى نوع الاو فس الذى صممت به

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

أنا أستخدم أوفيس 2003 .. ولكن ميزة نموذج الإدخال متوفرة حتى في الإصدارات القديمة من الإكسل.

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

انا مش عارف اشكرك ازاى انا الموضوع كان عاملى مشكلة جامدة اوى فى ادخال البيانات

بس هو في حاجة

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

بمعنى انه لوكان رقم الحساب هو السجل الاساسى للنموذج فكيف يمكن تعديل بيانات موظف معين بمجرد استدعاء هذا الرقم عن طريق هذا النوذج

  • 3 months later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information