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

رابعاً :- التعامل مع خصائص الــ Frame فى لغة البرمجه فى الدرس السابق عرفنا ازاى نتحكم فى خصائص الــ Frame اثناء مرحلة التصميم واليوم بأذن الله هنعرف ازاى نتعامل مع الخصائص فى الاكواد لكتابة اى كود خاص بأى عنصر تحكم فى الفورم يكون على الشكل التالى شاهد الصوره شوف الصوره دى هنعرف ازاى نكتب الكود وازاى الفيجوال بيسك بيقدم لنا مساعده لو حضرتك محترف كتابة انجلش كويس على الكيبورد وسريع خلاص لا تهتم بالقائمة المساعده للخصائص اللى بيعرضها الفيجوال بيسك واكتب انت بنفسك سطر الكود كدا عرفنا بشكل عام ازاى نكتب سطر الكود ناخد بعض الامثله الخاصيه ( Caption ):- Frame1.Caption = "سند قبض" نلاحظ هنا اننا كتبنا سند قبض بين علامتى تنصيص " " ----------------------------------------------------------------------------------------------------------------------------------------- الخاصيه ( Enabled ):- هذه الخاصيه تحمل خيارين true و False لو عايز الفريم يكون متاح للعمل امام المستخدم Frame1.Enabled = True ولو عايز الفريم يكون غير متاح للعمل امام المستخدم Frame1.Enabled = False ------------------------------------------------------------------------------------------------------------------------------------------------------- الخاصيه ( Font ):- هذه الخاصيه تتيح للمستخدم تغيير نوع وحجم وسماكة الخط لعنوان الـ Frame ( الذى يتم كتابته بالخاصيه Caption ) لتحديد نوع الخط بالكود وليكن يكون tahoma Frame1.Font = tahoma لتحديد سماكة الخط بالكود ( true لجعل الخط سميك ) ( False لجعل الخط عادى غير سميك ) Frame1.Font.Bold = True لاحظ اننا بعد كلمة font وضعنا . ثم Bold لتحديد نوع السماكه لتحديد حجم الخط بالكود وليكن 20 Frame1.Font.Size = 20 لاحظ اننا بعد كلمة font وضعنا . ثم Size لتحديد حجم الخط ثم كتبنا = 20 أنا مش هعمل امثله تانية لان انا عرفتك القاعده العامه فى بناء سطر الكود لاى خاصيه لاى عنصر وعايزك انت تجرب بنفسك باقى الخصائص بنفسك ولو صادفك اى مشكله لا تتردد انك تراسلنى ---------------------------------------------------------------------------------------------------------- شوف الكود بشكله النهائى Private Sub UserForm_Initialize() Frame1.BackColor = 15849925 Frame1.Caption = "ÓäÏ ÞÈÖ" Frame1.Enabled = True Frame1.Font = tahoma Frame1.Font.Size = 20 End Sub يمكن ايضا كتابة الكود بشكل ابسط نعم يوجد طريقه اخرى من خلال استخدام With وطبعا لازم نقفل With بـ End with ويكون بداية سطر الكود هو . ثم اسم الخاصيه ثم = ثم نوع أو قيمة النتيجة شاهد الكود كالتالى Private Sub UserForm_Initialize() With Frame1 .BackColor = 15849925 .Caption = "ÓäÏ ÞÈÖ" .Enabled = True .Font = tahoma .Font.Size = 20 End With End Sub **************************************************************************************** الى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد ان شاء الله هيكون عن كيفية اضافة عناصر تحكم للفريم اثناء عمل الفورم وهو نشط وايضا التحكم فى الاسكرول بار انتظرونا تقبلوا تحياتى

أخي الكريم الجواد الأبيض أهلا بك في المنتدى ونورت بين إخوانك نتمنى لك قضاء أمتع الأوقات مع إخوانك بالمنتدى جرب الملف التالي عله يفي بالغرض Swimming Heats.rar

اخى الكريم انت من البدايه لم توضح طلبك هل تريدها بالفورم ام تريدها على الشيت بقائمه منسدله وبخصوص حلك كويس انك بتطور فى الكود لكن جرب كدا تطلع من الشيت وبعدين ترجع تانى ستجد القائمة بتكرر كل مره بتدخل بالشيت وعلشان تمنع التكرار لازم تضيف السطر ده بداية الكود ورقة10.Range("x:x").ClearContents عموما شاهد المرفق دا الكود فى حدث تغيير تحديد الخلايا داخل الشيت 1003 عند الوقوف على الخلية A1 وهو بيعمل قائمه منسدله بالكود ولا داعى لتصميمها من Data Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = 1 And Target.Column = 1 Then Range("cv:cv").ClearContents For i = 1 To Sheets.Count If IsNumeric(Sheets(i).Name) Then lr = Cells(Rows.Count, "cv").End(xlUp).Row Cells(lr + 1, 100) = Sheets(i).Name End If Next Range("a1").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=OFFSET($CV$2,0,0,COUNTA(CV:CV))" End With End If End Sub جرب تحذف اى شيت او تضيف شيت او تعدل اسم شيت الى رقم وشاهد تغيير القائمة المنسدله قائمة منسدلة بالصفحات الارقام فقط.zip

السلام عليكم ورحمة الله وبركاته كنت قد وضعت هذا المثال في منتدى الفريق العربي للبرمجة ، وأخي ابو الآ ما قصر وعمل نسخة منه الى هذا المنتدى (انا لم اكن من روّاد هذا المنتدى حينئذٍ) على هذا الرابط: http://www.officena.net/ib/topic/58001-منقول-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل/ والآن ، وبعد عمل مجموعة تعديلات عليه واصبح في نسخته الخامسة ، واهمها ان البرنامج اصبح يعمل على 32بت و 64بت ، رأيت ان اضع البرنامج بين يديكم طريقة العمل هي كما في الرابط السابق (ولكن للأسف لا يمكن رؤية الصور التوضيحية هناك) ، فعليه ، سأقوم بعمل نسخة منه هنا مع الصور التوضيحية: رأيت الكثير من الاسئلة حول تصدير بيانات الاكسس الى الاكسل ، وكل سؤال يختلف عن غيره بطريقة او اخرى ، فحبيت ان اضع بين يديكم برنامج اشتغلت عليه ، واتمنى من الله سبحانه وتعالى انه يقدر يخدم الكل البرنامج سهل الاستعمال ، فكل المطلوب في الواجهة ، ولا تحتاج الذهاب للكود اولا: الواجهة: 1. تختار من مربع السرد ، جدول او استعلام ، 2. على اساس الاختيار في رقم 1 ، ستظهر لك قائمة باسماء الجداول او الاستعلامات في برنامجك ، 3. اسم ملف الاكسل المراد حفظه به ، ومجلد التخزين ، فتلقائيا يكون في نفس مجلد البرنامج ، 4. هنا تكتب اسم صفحة الاكسل التي تريدها (انظر الصورة في الاسفل) **1** تستطيع ان تصدر اي عدد من الصفحات الى اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم اسم صفحة جديدة) ، **2** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 5. تستطيع بدء تصدير البيانات الى اي خانة في اكسل مثل A2 او C5 او اي خانة اخرى ، **3** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 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 اليها. طبعا هناك أفضلية تصدير البيانات من الاستعلام ، حيث تستطيع ان تتحطم بالبيانات المطلوب تصديرها. ملاحظات؟ اخطاء/عطل؟ إضافات؟ انا في الخدمة ، قدر المستطاع جعفر 7.Export_to_Excel_05.1.mdb.zip

السلام عليكم ورحمة الله وبركاته اخواني/اخواتي رأيت الكثير من الاسئلة حول تصدير بيانات الاكسس الى الاكسل ، وكل سؤال يختلف عن غيره بطريقة او اخرى ، فحبيت ان اضع بين يديكم برنامج اشتغلت عليه ، واتمنى من الله سبحانه وتعالى انه يقدر يخدم الكل البرنامج سهل الاستعمال ، فكل المطلوب في الواجهة ، ولا تحتاج الذهاب للكود اولا: الواجهة: 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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أحببت أن أضع هذا الموضوع بين أيديكم ليكون مرجعاً لمن أراد معرفة بداية الطريق في التعامل مع محرر الأكواد والبرمجة الموضوع لن يطول فيه الكلام ، سأدع الصور تتحدث وتوصل المعلومة ، حتى تكون المعلومة أثبت للمتعلم حل مشكلة ظهور . رسالة تحذير الخصوصية عند حفظ المصنف كان معكم طائر البطريق من منتدى أوفيسنا العريق دمتم على طاعة الله Download VBE Basics

أخي الحبيب أبو نصار أعتقد أنه لا داعي لاستخدام الحلقات التكرارية المتداخلة حيث أن ذلك يبطيء من عمل الكود ... جرب الكود بهذا الشكل ولاحظ الفرق في سرعة تنفيذ الكودين Sub Ali_Num() Dim SW As Worksheet Dim R, Rb, Rb_To, Vl, i Set SW = ورقة1 With ورقة18 For R = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row If .Cells(R, 1) <> Empty Then Rb = Val(.Cells(R, 3)) Rb_To = Val(.Cells(R, 4)) Vl = Val(.Cells(R, 1)) SW.Cells(Rb + 1, "I").Resize(Rb_To - Rb + 1) = Vl End If Next End With End Sub

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

السلام عليكم هل تقصد اضافة عمود يقوم بعمل مسلسل حسب رقم الحجره ؟ واذا كان المقصد المسلسل في عمود رقم الحجره كيف اعرف هذا الاسم ينتمي لأي حجره ! جرب هذا الكود حسب فهمي لطلبك Sub Ali_Num() Dim Sw As Worksheet Dim R, Rb, Rb_To, Vl, i Set Sw = ورقة1 With ورقة18 For R = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row If .Cells(R, 1) <> Empty Then Rb = Val(.Cells(R, 3)) Rb_To = Val(.Cells(R, 4)) Vl = Val(.Cells(R, 1)) For i = Rb To Rb_To Sw.Cells(i + 1, "I") = Vl Next End If Next End With End Sub

السّلام عليكم و رحمة الله و بركاته على رأي أخي الفاضل و أستاذي القدير " ياسر العربي " .. أنت الآن جئت برجليْك لملعبي .. فقط قبل ذلك ما هو الاسم " بالعربية طبعا " الذي تودّ ظهوره على الشّاشة الافتتاحية .. هذا الاسم الذي يُرجى حسب توجيهات المنتدى أن يوفّقك الله و يتم الظهور به على منتدانا الحبيب بإذن الله .. فائق إحتراماتي

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

الكود ليس لي بالطبع .. ولكني أسعى لخدمة إخواني بكل السبل الكود محتاج خبير في الأكسس أكتر منه خبير في الإكسيل .. مرورك أخي الحبيب ومعلمي الكبير أبو نصار على العين والرأس

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

كود رائع اخي ياسر خليل تقبلو مروري

شكرا لكم على الردود هي الفكرة أنا عندي جدول العملاء و15 جدول لأنواع الطلبات... حيث أن العميل ممكن يطلب من قائمة الجدول الاول أو الثاني أو الثالث مثلا العميل سعيد لديه بيانات الاتصال وغيرها في جدول العملاء يريد طلبية وهذه الطلبية من جدول الارز رقم 12 الصنف رقم 3 مثال اخر العميل جعفر لديه بيانات في جدول العملاء ويريد طلبية وهذه الطلبية مختلفة تماماً موجودة في جدول بسكوت3 وصنفها رقم 8 اذا راح احتاج التالي: جدول للعملاء ببياناتهم جدول النوع الاول وبه 15 صنف جدول النوع الثاني وبه 15 صنف وهكذا 15 جدول والسبب انها بهذه الطريقة لان: الصنف 1 التمر مثلا لدي منه 15 نوع (تمر فاخر - تمر مجفف - تمر منزوع النوى...الخ) الصنف 2 اكواب لدي منها 15 نوع (كوب فخار - كوب زجاج - كوب بلاستك ..... الخ) اعتقد اتضحت الفكرة !!! اما مسألة وضعها في جدول واحد سوف اكتب كلمة تمر 15 مرره ثم ابداء العد من جديد واكتب كلمة كوب 15 مرره وابدا العد من جديد ....الخ ومن لديه اسلوب افضل من هذه الطريقة يفيدني جزاه الله خير...

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

اخى الفاضل ممكن بعد اذن حضرتك ترفق الملف اللى فيه الكود ياريت تراجع التوجيهات للاعضاء http://www.officena.net/ib/topic/63020-توجيهات-للأعضاء-لمعرفة-كيفية-التعامل-مع-المنتدى-بشكل-أفضل/?do=findComment&comment=408853 تقبل تحياتى

خليها max بدلا من last لان الاولي بياخد اكبر تاريخ والتانية بياخد اخر حركه .... ممكن تكون اخر حركه بتاريخ قديم وكانت منسيه

الحل فى الكود دا If type_matr = "1" Then [قائمة الاختيار].RowSource = "اسم الجدول" ElseIf End If حيث type_matr اسم الاختيار

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

لا حول ولا قوة الا بالله لا حول ولا قوة الا بالله

أخى العزيز / خالد الرشيدى تحية طيبة وبعد ،،،،،، أشكرك جزيل الشكر بداية على إهتمامك بالأمر وثانية على هذة المعادلة الأكثر من رائعة والتى أتت بالنتيجة المرجوة تماماً. خالص شكرى وتقديرى أخوك عيد مصطفى

السّلام عليكم و رحمة الله و بركاته اخي عبد العزيز البسكري رائــــــــــــــــــــــــــــع جـــــــــــــــدا جزاك الله خيرا الملف يعمل %في%

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

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

السلام عليكم اخى الكريم يمكنك استخدام المعادلة التالىه =VLOOKUP($M$305-IF(WEEKDAY($M$305)-5<=0;0;WEEKDAY($M$305)-5);$C$2:$I$366;3;0) Retrieving the last value according to a certain date.rar

اخى الكريم

أخي الكريم " أبو أحمد 17475 " حسب أزرار الأمر لديك زر الأمر 1 يحيلنا إلى الورقة 1 زر الأمر 2 يحيلنا إلى الورقة 2 زر الأمر 3 يحيلنا إلى الورقة 3 طيّب أخي الكريم .. أدخلنا اسم المستخدم و كلمة المرور .. و ضغطنا على زر الأمر 1 مثلاً .. ذهبنا إلى الشيت 1 ..ثم ماذا بعد ؟؟ فائق إحتراماتي

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

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

السّلام عليكم و رحمة الله و بركاته أستاذي القدير و أخي الغالي " ياسر فتحي البنّا " كلامك يسعدني و مرورك يشرّفني بكل صدق مخلصًا من كل قلبي قلت لك ذلك فائق إحتراماتي

السّلام عليكم و رحمة الله و بركاته أخي الكريم " أبو أحمد 17475 " حاولت تحريك النص الموضّح على الفورم بصورتيْن ربما يعجبك لون إحداهما في الملفين المرفقين أمّا بالنسبة للشّطر الثاني من طلبك الرّخيص يا غالي .. صدّقني لم أفهم ما المطلوب بالضّبط .. كتخمين منّي فقط حاول التّغيير مثلما يشير إليه السّهم بالصّورة أدناه .. و بعدها سنرى المطلوب بإذن الله فائق إحتراماتي يا رب 1.rar يا رب 2.rar

الأخوين والأساتذة الكرام أ / حسام عيسى وأ/ عبد العزيز زادكم الله من علمه وفضلة بارك الله فيكم

جرب هذه المعادلة يمكنك نسخها الى بقية الخلايا TIMESHEET AND PAYROLL -salim.zip

السلام عليكم ضع هذه المعادله فى التحقق من الصحه =OFFSET($A$6;;;COUNTA(A:A)-1) قائمه منسدله.rar

يا حى يا قيوم اصلح لى شأنى كله ولا تكلنى الى نفسى طرفة عين

السلام عليكم اخى الكريم .. لم افهم المطلوب جيداً ..قم بوضع تصور واضح لطلبك مبدئيا .. اليك الملف التالى الرشيدى _ إحصاء_4.rar

تفضل الظاهر يا بيه انك عندك حساسية من تسمية الملفات جعفر 249.تاريخ اخر معاملة.accdb.zip

وعليكم السلام دائما أخي أبوالعلا من السباقين وهذا الرابط به معلومات اضافية: http://www.officena.net/ib/index.php?showtopic=61511 جعفر

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

الملف مرة تانية بالمرفقات ودا الكود المتسخدم بالشرح On Error Resume Next If Range("a3") = "" Or Range("b3") = "" Or Range("c3") = "" Then MsgBox "bla bla1", vbDefaultButton1, "bla bla1 " Else azsh = Sheet2.Range("c50000").End(xlUp).Row + 1 Sheet1.Range("A3:C3").Copy Sheet2.Cells(azsh, 1).PasteSpecial Paste:=xlPasteValues MsgBox "bla bla2", vbDefaultButton1, "bla bla2 " Sheet1.Range("A3:C3") = "" End If كود ترحيل البيانات- أوفيسنا.rar

السلام عليكم ورحمة الله وبركاته قد كتبت على موقع Excel4us موضوع وهو مجموعة ضخمة جداً من اﻷيقونات تبلغ حوالي 3000 أيقونة ذات دقة عالية ومن تصميمي فأحببت أن أشارككم به اﻷيقونات قد قسمتها على ثلاثة مجموعات المجموعة اﻷولى: أيقونات كافة البرامج العالمية المشهورة الروابط http://www.mediafire.com/?42x3exq2c119cvo أو http://www.4shared.com/file/0spN-EYH/1_online.html المجموعة الثانية: أيقونات Windows 7 لكن بشكل آخر ونمط وموديل جديد الروابط http://www.mediafire.com/?97cazvonq76t7r5#1 أو http://www.4shared.com/file/FEvIYjXo/2_online.html المجموعة الثالثة : هي أيقونات 7 Windows مسحوبة من النظام كاملاً الروابط http://www.mediafire.com/?3da8dafesiy96hc أو http://www.4shared.com/file/BEaWVJeU/3_online.html إن شاء الله تنال إعجابكم وأكون أوفيت بهذا الموضوع والسلام عليكم أخوكم أنس دروبي

السلام عليكم طريقة ربط هي اضف مربعي نص وجعلهما مخفيين واجعل مصدر الاول حقل الاسم والثاني حقل الكود ادخل على برمجة كومبو1 الخص بالاسم بعد لتحديث واسند قيمة لنص لثاني الى قيمة لكومبو نص2=comp1 ونفس الطريقة مع لكومبو 2 نص1=comp2

السلام عليكم إضافة تحسينات كثيرة وأهمها عرض النتيجة بنفس النموذج وإمكانية حذف جدول الشواغر . تحياتي . MissingSeq.zip