نجوم المشاركات

قم بالدخول على لوحة التحكم Control Panel ثم الإعدادات الإقليمية Regional and Language وآخر تبويب Administrative وانقر Change System Locale واختر من القائمة المنسدلة Arabic ثم قم بعمل ريستارت للجهاز ..

العنوان يدل على الموضوع لا تكلف نفسك بالترتيب الابجدي او الرقمي بعد اليوم اكسل يقوم بالواجب autosort.rar

اخى الفاضل تفضل الملف المرفق .. اختر من القائمة المنسدلة السيارات المباعة ثم اضغط ترحيل المباع تحياتي DEMO.rar

اخى الفاضل استخدم المعادلة التالية ستفي بالمطلوب ان شاء الله =LEN(SUBSTITUTE(A2," ","")) تحياتي عدد الحروف في سلسة نصية.rar

أخى الفاضل / ابو الشهب مرحبا بك بين إخوانك تم تغيير العنوان ليناسب محتوى الطلب ولكن يرجى منك أخى الفاضل ارفاق ملف كما أخبرك أخوى الفاضلين ( ابن مصر وياسر خليل ) حتى يمكن عمل المطلوب تقبل تحياتى وكل التحية لأخى ابن مصر وأخى ياسر خليل

اعزائي رواد المنتدى الفاضل اقدم لكم فكرة وطريقة في تحويل التاريخ الميلادي الى تاريخ ام القرى وهو الى حد ما التاريخ الهجري . وذلك باستخدام مكتبات الاكسل ! كما انه وعد مني للاخ والأستاذ أبو خليل وفي احد المناقشات وجب على الوفاء به ! وقد كانت هذه الفكرة طرحتها في احد المنتديات الشقيقة ولكن بدون مثال او تنفيذ . اترككم مع المثال املا الاستفادة منه وطرح آراؤكم ومقترحاتكم البناءة ! لكم خالص تحياتي Private Sub أمر4_Click() ''رمهان '' اوفيسنا ''abc_2_me@hotmail.com '' هدية للاخ ابو خليل Set xl = CreateObject("Excel.Sheet") xl.Application.Range("A1").Value = CDate(t2) xl.Application.Range("A1").NumberFormat = "[$-1170000]B2yyyy-mm-dd;@" t1 = xl.Application.Range("A1").Text xl.Application.Quit Set xl = Nothing End Sub رمهان - ام القرى.rar

السلام عليكم ورحمة الله وبركاته اخواني/اخواتي رأيت الكثير من الاسئلة حول تصدير بيانات الاكسس الى الاكسل ، وكل سؤال يختلف عن غيره بطريقة او اخرى ، فحبيت ان اضع بين يديكم برنامج اشتغلت عليه ، واتمنى من الله سبحانه وتعالى انه يقدر يخدم الكل البرنامج سهل الاستعمال ، فكل المطلوب في الواجهة ، ولا تحتاج الذهاب للكود اولا: الواجهة: 1. تختار من مربع السرد ، جدول او استعلام ، 2. على اساس الاختيار في رقم 1 ، ستظهر لك قائمة باسماء الجداول او الاستعلامات في برنامجك ، 3. اسم ملف الاكسل المراد حفظه به ، ومجلد التخزين ، فتلقائيا يكون في نفس مجلد البرنامج ، 4. هنا تكتب اسم صفحة الاكسل التي تريدها (انظر الصورة في الاسفل) ** تستطيع ان تصدر اي عدد من الصفحات الى اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم اسم صفحة جديدة) ، ** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 5. تستطيع بدء تصدير البيانات الى اي خانة في اكسل مثل A2 او C5 او اي خانة اخرى ، ** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 6. تستطيع ان تحفظ ملف الاكسل بالصيغ التاليه: "xls" او "xlsx" او "xlsm" او "xlsb" او "csv" او "txt" ، والصيغتين الاوليتين هما الاهم ، والصيغتين الاخيرتين بهم قيود معينة ، 7. تستطيع ان تختار المجلد الذي تريده ، مع كتابة اسم الملف المناسب لك (انظر الرقم 3 اعلاه) ، 8. تستطيع تصدير البيانات مع اسماء الحقول (في الاكسس) ، وتستطيع تصدير البيانات مع عناوين/مسميات الحقول (في الاكسس) ، نلاحظ اعلاه ، بان الجدول elemnts لا يحتوي على عناوين/مسميات الحقول بالعربي ، بينما الجدول elemnts2 يحتوي عليها ، وتستطيع تصدير البيانات فقط بدون اسماء الحقول ، 9. تستطيع ان تصدر البيانات الى ملف اكسل فيه بيانات سابقة ، وهنا تستطيع الاستفادة من الارقام 4 و 5 اعلاه ، او ان تحذف ملف الاكسل الموجود حاليا بنفس الاسم ، وتبدأ تصدير ملف جديد ، 10. بعد تصدير البيانات الى اكسل ، هل تريد إحتواء وتوسيع كل الاعمدة فيه ، حتى ترى كل البيانات بدون الحاجة الى توسيع كل عمود على حدة ، او لا تريد توسيع الاعمدة. 11. الزر الذي يقوم بعملية تصدير البيانات الى اكسل ، حسب الاختيارات اعلاه ، مع ملاحظة: يجب تعبئة الحقول داخل المربعات الحمراء ، اما بقية الحقول فإختيارية ، 12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها. طبعا هناك أفضلية تصدير البيانات من الاستعلام ، حيث تستطيع ان تتحطم بالبيانات المطلوب تصديرها. ملاحظات؟ اخطاء/عطل؟ إضافات؟ انا في الخدمة ، قدر المستطاع جعفر -------------------------------------------------------- الموضوع منقول من منتدى شقيق وتم نقله كماهو وذلك للاهميه الرجاء الدعاء للاستاذ : جعفر بارك الله فيه Export_to_Excel تصدير البيانات الى اكسيل.zip

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

مش عارف والله كل الناس بتسأل على النقطة دي ..إنهم عايزين يتعلموا والغريبة إن فيه باب مفتوح في المواضيع المثبتة (بس محدش معبر الباب) ... فكرني يا أخي الحبيب ابن مصر نبقا نغير لون الباب ونخليه لون جذاب عشان الأخوة الأعضاء ياخدوا بالهم http://www.officena.net/ib/index.php?showtopic=56941 دا رابط فيه البدايات اللي إن شاء الله تقدر تستفيد منها وتقدر من خلالها تنطلق لعالم الأكواد الممتع تقبل تحياتي

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

السلام عليكم ... جزيت خيرا وكفيت شرا .. واكمل ماتكرمت به واشرح لي الكود واكون شاكرا ممتنا ... واعانك الله على امثالي بالصبر ... ودعوا لك بحسن الخاتمة .. ولله الحمد

اخى الفاضل ما ده اللى قولتهولك في الاول .. ازاى كاتب Me.Noura1.caption=A وانت اساسا في الفورم لا يوجد Control بهذا الاسم ... فهذا الاسم هو اسم الليبل الخاص بالعداد وانت لم تضعه في الملف المرفق فيظهر لك الخطأ.. انظر الصورة التالية مرفق الملف بعد التعديل تحياتي الملف.rar

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

السلام عليكم تفضل اخي اعتقد تم تغطيت اكثر اسئلتك بالتوفيق http://www.gulfup.com/?DwJC26

الأخ الفاضل عمار ما قصدته بالمخرجات أي شكل النتائج المرجوة بعد تنفيذ الأكواد ..وقد تفضلت بطرح شكل النتائج في مشاركتك الأخيرة تفضل الملف التالي ..بعد الضغط على زر الأمر سيقوم الكود بنسخ الصف الذي به العناوين قبل كل اسم ..بعدها يمكنك تغيير ارتفاع الصفوف لتجعل الطباعة تطبع 10 موظفين في كل ورقة .. Salary Copy Title For Each Name.rar

اخى الفاضل ارفق ملف الأستاذ الفاضل ضاحي غريب .. حيث عند نقل العمل التزم بمسميات الفورم كما هى واذا قمت بالتعديل عليها لابد ان تعدلها بالكود .. على سبيل المثال ال Im1 هذا هو الليبل الذي يتحرك فيه النص ... اذا لابد في الفورم عندك ان يكون اسمه Im1 اما اذا وضعت اى اسم اخر وليكن Label1 لابد ان تعدل سطر الكود فيصبح me.label1.width وهكذا تحياتي

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

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

اختى الفاضلة جربي الملف المرفق تحياتى استمارة128.rar

اختى الفاضلة تم عمل التعديلات المطلوبة بحذف السطر الأول الفارغ وكذلك جعل الفورم يفتح بملئ الشاشة ... الفورم الآن يفتح بمجرد تشغيل الملف وكذلك من خلال الزر اظهار الفورم ولكن تم وضعه بآخر الصف الأول كما بالصورة او يمكن تشغيل الفورم بالضغط على الماكرو بالاعلى كما بالصورة ايضا تحياتي استمارة128.rar

لم افهم مالذي تريده ممكن توضح اكثر

اخى الحبيب احمد ...ابن مصر مثلك لا يستأذن ...بل يستأذن منه تسلم ايدك اخى الحبيب انت كما عاهدناك ..ريحانه هذا المنتدى تحياتى وتقديرى

اشكركم اخوتي ( الطلحي ورفعت ) فعلا المشكلة عند ادراج الجدول ولوحة المفاتيح بالغة الانجليزية وقد حلت المشكلة عندي فلكم كل التقدير والاحترام

السلام عليكم ورحمة الله أخي الكريم ابن مصر، معادلة رائعة جدا جازاك الله خيرا وتقول "لربما تفي بالغرض" بل وتفي بالغرض حتما... وأقدم تبسيطا للمعادلة (في الخلية E2 مع تأكيدها معادلة صفيف ثم سحبها إلى الأسفل)... أخوكم بن علية المعادلة المبسطة : =SUM(IF(FREQUENCY(IF($A$1:$A$1000=$D2, MATCH($B$1:$B$1000,$B$1:$B$1000,0)),ROW($1:$1000)),1))

السلام عليكم ورحمة الله أخي الكريم، أكواد الطباعة والأزرار موجودة في الأصل ولم أقم إلا بتعديل طفيف على كود "طباعة كل الشهادات"، ثم ربط الأزرار بهذه الأكواد... أخوك بن علية الملف المرفق : ‫القالب - نسخة 2.rar

بارك الله فيك اخي ابو عبد الله و جزاك خير الجزاء و بعد اذنك و ددت المساهمة في الحل و هي نفس الطريقة التي تفضلت بها. و قد تم عمل اجراء باسم changeColor و استدعاؤه بحدث بعد التحديث لمربع التحرير و السرد و كذلك بحدث في الحالي للنموذج ليتم التنفيذ عند التنقل بين السجلات ايضاً. Private Sub changeColor() If Me.detach = "استقالة" Or Me.detach = "عطلة مرضية" Or _ Me.detach = "متقاعد" Or Me.detach = "منتدب" Or _ Me.detach = "وفاة" Then Me.تفصيل.BackColor = vbRed Else Me.تفصيل.BackColor = RGB(198, 217, 241) End If End Sub المرفق بعد التعديل بالتوفيق للجميع تلوين نموذج.rar

اخى الفاضل جرب الملف المرفق .. سيتم حفظ الملف على سطح المكتب بالإسم الموجود في الخلية J1 تحياتي ExportTOtxt.rar

تم التعديل في المرفق حسب رغبتك معذرة هذه الجزئية غير واضحة عندي برنامج3.rar

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

السلام عليكم الاخ الكريم / أبو چيداء ضع الكود التالي في حدث ThisWorkbook علي اعتبار ان الفورم باسم UserForm1 Private Sub Workbook_Open() UserForm1.Show End Sub جزاك الله خيرا فتح الفورم عند فتح الملف.rar

بسم الله الرحمن الرحيم يقول تعالى : و ما أوتيتم من العلم الا قليلا فهذا شي يسير الحال من كثير مما أفتقد اليه من هذا العلم الواسع , و على قدر المستطاع أقدم لاخواني هذه الوصايا التي أسأل الله أن تفيدهم قبل الشروع ببناء برامجهم , وفقنا الله و اياكم لما فيه الخير أولا : عمل تحليل مسبق للبرنامج الكثير منا عندما يطلب منه تصميم برنامج , يبدأ مباشرة بتصميم الجداول المطلوبه جنبا الى جنب مع بناء النماذج , ثم يعود ان اضطره الأمر لاعادة بناء الجداول أو العلاقات و هكذا الى أن يتم انجاز البرنامج مما يطيل مدة انجاز البرنامج ناهيك عن دقة التصميم . و قد يغيب عن أذهاننا , و غالبا نكون على عجلة من أمرنا , أن نجاح أتمتة المشروع يعتمد اعتمادا كليا على دقة تحليل النظام و تصميمه بالشكل الصحيح تحليل النظام يعتمد اساسا على الخطوات التالية بشكل اجمالي : - تحليل نظام العمل و كيفية سيره على أرض الواقع اي آلية العمل الفعليه للنظام المراد وضع برنامج له و يكون ذلك بوصف دقيق من قبل من هو مختص بهذا المجال و يعايشه بشكل واقعي , فكم رايت من برامج محاسبية فيها ثغرات محاسبية فادحة , و بسؤالي عن مصمميها يتبين أنهم من غير ذوي الاختصاصات المحاسبيه أصلا . - وضع منهجية العمل الآلية للبرنامج الذي سيستخدم في هذا المجال - وضع المخطط التدفقي للمشروع و تصور النماذج و التقارير المطلوبه - في ضوء المخطط التدفقي يتم وضع تصور للجداول المطلوبه - وضع تفصيل الحقول المراد استخدامها في بناء الجداول ثانيا : عند تصميم الجداول ينبغي التمييز بين البيانات المدخلة و البيانات المخرجة , اذ أن البيانات المدخلة هي فقط التي تخزن في الجداول , أما البيانات المخرجة فقد تكون عبارة عن البيانات الأساسية المدخلة كما هي . أو قد يكون جرى عليها بعد العمليات الحسابية , مثلا اذا كنا نريد حساب القيمة و التي هي عبارة عن : القيمه = الكميه * سعر الوحده يمكن أن نضع حقلا للكميه المباعه و حقلا لسعر الوحده أما القيمة و التي هي عباره عن سعر الوحده * الكميه , فلا يجب أن يكون حقلا ضمن الجدول وذلك لأنه يتأثر بقيمة كل من الكمية و السعر فاذا تغير سعر الوحده فان الجدول لايستطيع حساب القيمه من تلقاء نفسه الا من خلال تشغيل كود معين , لذلك يستعاض عن هذا باستخراج القيمة من خلال استعلام يحوي حقل محسوب يساوي الكميه * السعر ثالثا : يجب فصل البيانات الخاصه بجزئيه معينه عن بعضها , مثلا اذا كان لدينا نظام مبيعات , أي لدينا مواد و زبائن , و حيث أننا نريد أن ندخل اسم العميل في الطلبيه , و نحتاج بنفس الوقت لمعرفة بيانات كامله عن هذا العميل , فاذا كنا سنقوم بادخال بيانات العميل هذه كل مره في جدول الطلبيات فسيكون هذا عملا مرهقا , لذلك يتم انشاءجدول مستقل لبيانات العملاء تجتمع فيه بياناتهم الكامله , و نكتفي في جدول الطلبيات بوضع حقل واحد لرقم العميل , و بعملية الربط بين الجدولين نستطيع معرفة مانريد من بيانات عن هذا العميل . رابعا : استتباعا للوصية السابقة , نؤلف جدول الطلبيات و يكون فيه حقل واحد لكود العميل و يكون الرقم المعرف للعميل و ليس اسمه , و لمزيد من التفاصيل يرجى مراجعة الموضوع التالي http://www.officena.net/ib/index.php?showtopic=6209 خامسا : مع عشقي و حبي الجارف للغة العربية و استخدامها في التخاطب و الكتابة و أعتبرها بحق أرقى لغات العالم , الا أنه و للأسف فان كتابة الأكواد تعتمد على اللغة الانكليزية , لذلك يكون من الأنسب و الأيسر أن يتم استخدام الأسماء الانكليزيه لكل مكونات قاعدة البيانات و خاصة اسماء الجداول و الحقول , لأن استخدام الأسماء الانكليزية أسهل أثناء العمل بالمعادلات و أكواد الفيجوال بيسيك سادسا : تجنب وضع مسافات في التسميات , مثلا اذا كنت تريد تسمية Product List فالأفضل وصلها هكذا ProductList سابعا : كثيرا مايتم بناء استعلام من جدول و يأخذ الاستعلام بشكل تلقائي نفس اسم الجدول , و حتى نميز بين الجدول و الاستعلام يفضل ابتداء اسم الجدول برمز tbl يليه اسم الجدول , مثلا الجدول Product يصبح TblProduct أما الاستعلام فيسبقه الرمز qry و يصبح QryProduct و قد نستدرك بعض الوصايا لاحقا هذا و الله أعلم