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

السلام عليكم ورحمة الله وبركاته الدرس الثالث 3-selection عمل تحديد للخلايا وسوف نتناول فى هذه الدرس الاتى كيفيةالدخول الى محرر الاكواد كيفية تسمية الماكرو تحديد خليه واحده تحديد اكثر من خليه تحديد نطاق من الخلايا تحديد نطاق من الخلاياالتى تم اعطائها اسم تحديد خليه بواسطه السطر والعمود تحديد خليه تقع ضمن نطاق الخلايا تحديد خليه بواسطة التحرك تحديد الاسطر تحديد الاعمده تحديد اخر خليه تحديد الخلايا التى بها بيانات نسخ البيانات المحدده ........................................... كيفية الدخول الى محرر الاكواد وذلك من اجل اضافة كود معين اتبع الصوره 1 ستفتح لك نافذه بيضاء فارغه كما فى الصوره رقم 2 كيفية تسمية الماكرو لابد ان يبدأ اسم الماكرو ب Sub وينتهى ب end sub نقوم باعطاء الماكرو اسم معين وليكن selection بالتالى ستجد ان الماكرو المنشأ يكون بهذا الشكل كما يتضح من الصوره تحديد خليه واحده نفترض اننا نريد تحديد الخليه A23 سيكون شكل الكود كالاتى Sub selection_a23() 'تحديد الخليه A23 Range("A23").Select End Sub تحديد اكثر من خليه نفترض اننا نريد تحديد الخليهa25 وb25 سيكون شكل الكود كالاتى Sub selection_a25_b25() 'تحديد الخليه a25,b25 Range("A25,B25").Select End Sub تحديد نطاق من الخلايا نفترض اننا نريد تحديد تحديد الخلايا من a27 الى g28 سيكون شكل الكود كالاتى Sub selection_a27tog28() 'تحديد نطاق من الخلايا Range("A27:g28").Select End Sub تحديد نطاق من الخلاياالتى تم اعطائها اسم نفترض اننا نريد تحديد الخلايا من a29:g30 سوف نقوم بعمل ذلك من خلال تسمية النطاقات اتبع الصوره سيكون شكل الكود كالاتى Sub select_a29tog30() ' تحديد نطاق من الخلاياالتى تم اعطائها اسم ' من a29 الى g41 Range("select_a29tog30").Select End Sub تحديد خليه بواسطه السطر والعمود نفترض اننا نريد تحديد الخليه الواقعه بين السطر 44 والعمود 4 اى d44 وسيكون شكل الكود كالاتى Sub selection_cells_r_c() ' تحديد الخليه الواقعه بين السطر 44 والعمود 4 اى d44 Cells(44, 4).Select End Sub ملحوظه بما اننا لم نتطرق الى التعرف على cells فنعدى عليها نتعرف عليها ببساطه cells زيها زى range الفرق بينها وبين range انها تستخدم للاشاره الى خليه واحده فقط ويكون شكلها الافتراضى كالاتى Cells(row, Columns).Select تحديد خليه تقع ضمن نطاق من الخلايا هنا نفترض اننا لدينا نطاق مكون من مجموعه من الخلايا من a47:g47 ونريد عند كل مره يتم الظغط على الزر يتم تحديد خليه مختلفه من خلايا النطاق سيكون شكل الكود كالاتى Sub selection_rnd() 'تحديد نطاق من الخلايا التى تقع فى النطاق من a47 الى a57 'Cells(Int(Rnd * 10) + 47, 1).Select ' تحديد خليه تقع ضمن نطاق الخلايا من a47 الى g47 Cells(47, Int(Rnd * 7) + 1).Select End Sub لاحظ ان عدد الاعمده 10 اعمده هى من a الى g تحديد خليه بواسطة التحرك نفترض اننا نريد تحديد الخليه التى تلى الخليه a51 بمقدار سطرين وفى نفس العمود سوف نستخدم هنا offset سيكون شكل الكود كالاتى Sub selection_move() ' تحديد الخليه التى تلى الخليه a51 بمقدار سطرين وفى نفس العمود Cells(51, 1).Offset(2, 1).Select End Sub ملاحظه بما اننا لم نتطرق الى offset فنتعرف سريعا على كيفيه استخدامها offset هى عباره عن التحرك لاتجاه معين الشكل الافتراضى ل offset Offset(row,columns) فلو كتب هكذا Offset(1,2) فهذا يعنى اننا سوف ننتقل الى الخلية فى السطر التالى وفى العمود الذى يليها بعمودين وهكذا فمثلا فى مثالنا هنا Cells(51, 1).Offset(2, 1).Select فلو حزفنا offset واصبح الكود بهذا الشكل Cells(51, 1).Select فهذا يعنى اننا سوف نقوم بتحديد الخليه a51 ثم حينما نضيف offset ليصبح الكود بهذا الشكل Cells(51, 1).Offset(2, 1).Select فهذا يعنى اننا سوف نقوم بتحديد الخليه a51 ثم نتحرك بمقدار سطرين لاسفل اى اننا اصبحنا الان فى السطر 53 ثم التحرك بمقدار عمود واحد لنصبح فى العمود الثانى وبما اننا اصبحنا فى السطر 53 والعمود 2 سنجد ان الخليه التى تقع فيهما هى الخليه b53 تحديد الاسطر نفترض اننا نريد تحديد الاسطر من 53 الى 54 سيكون شكل الكود كالاتى Sub selection_row() ' تحديد الاسطر من 53 الى 54 Rows("53:54").Select End Sub تحديد الاعمده نفترض اننا نريد تحديد الاعمده من العمود a الى العمودG سيكون شكل الكود كالاتى Sub selection_COL() ' تحديد الاعمده Columns("A:G").Select End Sub تحديد اخر خليه نفترض اننا لدينا مجموعه من الخلايا فى السطر الاول مملوؤه بالبيانات وان اول خليه بها بيانات هى الخليه a58 ونريد الوصول الى اخر خليه بها بيانات بعد الخليه a58 سيكون شكل الكود كالاتى Sub SELECTLASTCELLS() ' تحديد اخر خليه بها بيانات Range("A58").End(xlDown).Select End Sub تحديد الخلايا التى بها بيانات بداية من خليه معينه نفترض اننا نريد تحديد الخلايا التى بها بيانات بداية من الخليه a62 سيكون شكل الكود كالاتى Sub SELECTCELLSDATA() ' تحديد الخلايا التى بها بيانات بداية من Range("A62", Range("A62").End(xlDown)).Select End Sub اتمنى ان يكون الدرس مفيدا مرفق شيت اكسيل به التطبيقات learnvba.rar تقبلوا تحياتى

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

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

إنّا للّه و إنّا إليه راجعون نسأل الله سبحانه وتعالى أن يغفر له ويثبته ويرزقه الجنة اللهم آمين

السلام عليكم و رحمة الله و بركاته أخي الغالي أنس دروبي .. لاحظ المرفق لو سمحت ربما يقرّبك من الفكرة التي تريد تنفيذها .. بإمكانك زيادة عدد التاكسات بوكس مثلما تشاء مع إضافة تسميتها بطبيعة الحال من كود اليوزرفورم خالص احتراماتي أنس دروبي.rar أنس دروبي.rar

إن شاء الله ليلاً إن تيسر لي الوقت سأقدم لك شرحاً للكود ... تقبل تحياتي ويرجى مراجعة التوجيهات (خاصةً اسم الظهور) أخي الكريم جرب المعادلة التالية في الخلية B2 في ورقة العمل data =IF(SUMPRODUCT(('Sheet 1'!$A$2:$A$500=$A2)*(B$1>='Sheet 1'!$B$2:$B$500)*(B$1<='Sheet 1'!$C$2:$C$500))>0,TRUE,"") ثم قم بسحب المعادلة لأسفل وإلى اليمين إلى آخر النطاق للأعمدة والصفوف إذا لم تعمل المعادلة يمكنك استبدال الفاصلة في المعادلة بفاصلة منقوطة كما يمكنك استخدام المعادلة التالية =IF(COUNTIFS('Sheet 1'!$A$2:$A$500,$A2,'Sheet 1'!$B$2:$B$500,"<="&B$1,'Sheet 1'!$C$2:$C$500,">="&B$1)>0,TRUE,"")

بسم الله ما شاء الله متميز كعادتك أيها الصقر (اللي مش جارح طبعاً) بارك الله فيك وجزاك الله كل خير عايز أعرف ايه الفرق اللي بين الخاصية Enabled والخاصية Locked ؟؟؟

أخي الكريم طاهر محمد يمكن عمل المطلوب عن طرق التحقق من الصحة حدد الخلايا المطلوب العمل عليها وروح للتبويب Data ثم الأمر Data Validation هيطلع لك نافذة (ممكن تفتحها تدخل نسمة هوا عشان تخفف حدة الحر شوية) ومن النافذة اختر من القائمة المنسدلة الأولى Text Length ودي بتتعامل مع طول النص ومن القائمة المنسدلة الثانية اختر Equal to زي ما طلبت لا أكثر ولا أقل دي تديك النتائج بالضبط وأخير في المستطيل الأخير الموجود اكتب طول النص 11 زي ما طلبت واضغط أوك حاول تكتب في الخلايا اللي حددتها وجرب وشوف اللي هيحصل

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

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

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

السلام عليكم ورحمة الله وبركاته الدرس الاول 2-RANGE هنا سوف نتعرف على كيفية الاشاره الى خليه او الى مجموعه من الخلايا وانا بعتبر ان الدرس ده هو اهم درس يجب البدأ بيه فى تعلم VBA لان مفيش تطبيق يتم فى VBA بدون الاشاره الى الخلايا تقبلوا تحياتى

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

برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) office 2010 اليوم وبعد مرور ستة شهور من طرح برنامجى السابق على الرابط التالى http://www.officena....opic=41247&st=0 اقدم لكم برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) برنامج يحتوى على الاتى 1- شاشه ادخال الفواتير بكافه انواعها وفى هذه الصفحه ايضا يكمنك البحث عن اى فاتورة وتعديلها او الغائها او طباعتها كما يوجد اختصار لاخرالفواتير المدخله التى يمكن استدعائها بضغطة زر واحده و العديد من التفاصيل اكتشفها بنفسك 2- شاشه لادخال العملاء و التعديل عليها بها جميع تقاصيل العميل 3- شاشه ادخال الموردين و التعديل عليها بها جميع تقاصيل المورد 4-شاشه ادخال الاصناف و التعديل عليها بها جميع تقاصيل الصنف 5-شاشه ادخال المناديب و التعديل عليها 6- شاشه ادخال مستخدمين بصلاحيات مختلفه 7- شاشات التقرير وتشمل الكثير و الكثير من التقارير كتقارير المبيعات و المشتريات وتقرير على حسب المناديب او المستخدمين و الكثير من التقارير التى يمكن اكتشافها بنفسك 8- شاشه تقرير حسب العميل يوضح مشتراياته ومدفوعاته بالتواريخ وايضا يبين المديونيه المستحقه 9- كما توجد العديد والعديد من الشاشات كادخال السندات و الخصومات و المصاريف وطباعتها 10- الكثير من المزايا الاخرى كحركه صنف وتقرير المخزون وتقرير الموازنه والربح و الخساره... اكتشف المزيد ملاحظات هامه 1- تم عمل البرنامج على اوفيس 2010 و البرنامج لن يعمل بشكل جيد الا على هذا الاصدار لذلك ارجون من يقوم بتجربته ان يكون على هذا الاصدار 2- تم وضع الكثير من الاختصارات التى توصلك لبعض التقارير وتم الشرح داخل البرنامج 3- لاى استفسار خاص بالبرنامج يكون عن طريق هذا الصرح العظيم او عن طريق مراسلتى بالايميل التالى amroomo@gmail.com 4- اتمنى ان يكون هذا البرنامج اضافه لهذا المنتدى العظيم 5- شكر واجب لكل مشرفى و اعضاء منتدى اوفيسنا الذى اصبح مناره الاوفيس فى الوطن العربى 6- الرقم السرى للدخول 123 7- الرقم السرى لمحرر الاكواد هو 85211 8- للبدء باستخدام البرنامج وتجربته قم بادخال الاصناف او حتى صنف واحد وكذلك مع العملاء و الموردين قم بادخال بيان واحد لكل منهما وبعد ذلك قم بعمل الفواتير و السندات بعد ذلك يمكنك استدعاء التقارير المختلفه الخاصه بالبرنامج كما انه لابد من ادخال المناديب او حتى مندوب واحد لكى تستطيع حفظ الفاتوره صورة البرنامج اخيرا ارجو من الجميع عدم التردد فى اى استفسار او ملاحظات تم رفع البرنامج على موقع الميديا فاير حيث ان مساحه البرنامج 1.9 ميجابايت ============================= تم إضافة الملف الى المشاركة بدل الرابط الخارجي الإشراف ============================= البرنامج هو تحديث للبرنامج السابق على الرابط التالى http://www.officena....opic=41247&st=0 برنامج المخزون و الفواتير 2013.rar

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

السلام عليكم ورحمة الله وبركاته. اقتراحات: 1 - إن استخدام بعض الزملاء الأعضاء الجدد لصور شخصية مشوهة كصور أفلام الكرتون المنفرة والمقززة تجعلنا نشيح بنظرنا عنها وكذلك الصور التي لها طابع سياسي أو عسكري غير مرغوبة رجاء متابعتها وطلب تغييرها. 2 - كان هناك شريط إعلان عن المشاركات الجديدة يظهر أعلى الصفحة افتقدناه. 3 - كان للمرفقات التي يحملها العضو الكريم في المشاركات يظهر عدد مرات تنزيلها فنتبين أهميته لكثرة تنزيله. 4 - لا يزال العديد ممن ينتسبون للمنتدى الكريم يدخلون بأسماء أجنبية أو معربة حرفيا" فمتى تنتهي هذه الظاهرة. تقبلوا تحياتي والسلام عليكم.

بسم الله الرحمن الرحيم الاخوة والاخوات فى هذا الصرح العظيم أقدم لكم اليوم الاصدار الثالث من برنامج EMA يشمل جميع الامور المحاسبيه هذه النسخه نسخه تجريبيه يرجى من الاخوة المحاسبين والمهتمين بالامور المحاسبية التجربه والتقييم للوصول الى الافضل ان شاء الله بنزل الشرح عن كيفية الاستخدام والتعامل مع البرنامج اى سؤال أو استفسار لا تترد وأنا تحت امركم كلمة المرور - الدعم الفني الباسورد - 123 تفضل نسختك EMA.zip

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

السلام عليكم ورحمة الله وبركاته الاساتذة الافاضل هل من طريقة لعمل UserForm عوض من VBA.InputBox fatorrr.zip

هل تعلم ؟ ان طول الصيغه فى الخليه الواحده فى اكسيل يمكن ان يتكون من 8000 حرف ... تخيل بقى لو قعدت تكتب فى 8000 حرف ---------------------------------------------------------------------------- ان الخليه الواحده يمكن ان تحتوى على 32000 حرف . وطبعا لا انصحك بكتابة هذا العدد من الحروف فى الخليه الواحده. ---------------------------------------------------------------------------- هذا الموضوع بداية لسلسلة هل تعلم ؟ فى الاكسيل ارجو من جميع الاعضاء المشاركه لاكمال هذه السلسلة جزاكم الله خيرا تقبلوا تحياتى

السلام عليكم ورحمة الله وبركاته بعد اذن الأستاذ أسامه وباقى الأساتذة الأخ KHMB هذا كود لتلوين مدى معين بعد تمام اكتمال بياناته اعتمادا على عدد الخلايا الفارغة فيه Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Integer, Rownum As Integer, CountBlank As String LR = Cells(Rows.Count, 1).End(xlUp).Row For Rownum = 2 To LR CountBlank = Application.WorksheetFunction.CountBlank(Range(Cells(Rownum, "A"), Cells(Rownum, "H"))) If CountBlank = 0 Then Range(Cells(Rownum, "A"), Cells(Rownum, "H")).Interior.ColorIndex = 38 Next Rownum End Sub الكود يوضع فى حدث الورقة التلوين يعمل من الصف الثانى على الأعمدة من A الى H جرب المرفق التالى Color a row after entering the required information .rar

أخي الكريم طاهر إذً لا مجال في هذه الحالة إلا بالكود وقد قدمه العلامة الكبير جعفر الطريبق لك

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

أخي الكريم أنا ناس ... أكيد أنا ناس (مش حاجة تانية) أولاً هتحتاج خلية من خلايا ورقة العمل أي خلية تعجبك .. وليكن هشرح على الخلية O1 حدد الخلية روح للتبويب Data ثم Data Validation واختار من القايمة List عشان تعمل قايمة واكتب في مستطيل الـ Source كلمتين ON و OFF ON,OFF تمام .. قووووووووول تمام (مقلتش على فكرة وأنا سامعك) روح بقا للتبويب الأول Home وروح للتنسيق الشرطي Conditional formatting واختار New Rule ومن النافذة اللي قدامك (ركز وصحصح واصحى) اختار آخر خيار Use a formula to determine ...... وضع المعادلة التالية في المستطيل الكبير اللي على يمينه علامة حمرا =IF($O$1="OFF",TRUE,FALSE) طبعاً لو فيه رسالة خطأ طلعت لك ابقا استبدل الفاصلة بفاصلة منقوطة .... اضغط OK .. وكمل معايا >>>>>>>>>>>>>>>>>>>>> ادخل مرة تانية على التنسيق الشرطي بس المرة دي اختار Manage Rule عشان هنغير حاجة بسيطة كدا اختار من القايمة This worksheet عشان تظهر لك كل المعادلات الخاصة بالتنسيق الشرطي في كل ورقة العمل لما تبص على معادلاتك هتلاقي إن المعادلات مرة بتنطبق على العمود A ومرة على العمود B ومرة على العمود C ..بكدا نفهم إننا لازم نعمل نطاق يلم الثلاثة أعمدة وليكن النطاق A2:C1503 .... نحدد المعادلة بتاعتنا الجديدة (ملناش علاقة بمعادلاتك القديمة) نحدد ونيجي في صندوق Applies to ونكتب النطاق =$A$2:$C$1503 هتلاقي مربع في ناحية اليمين هتعلم عليه علامة صح Stop If True وأخيراً اضغط OK بس خلاص ... جرب بقا روح للخلية O1 واختار مرة ON ومرة OFF ولاحظ التغيير أرجو أن أكون قد أفدتك تقبل تحياتي

بارك الله فيك أسلوبك رائع فى الشرح يا أ / إبراهيم جزاك الله خيرا

هل تعلم أن الأخ محمد الريفي متوقف عن الموضوع من فترة ؟؟ لعل غيابه عن المنتدى خير إن شاء الله في انتظار إحياء الموضوع نظراً لأهميته

وعليكم السلام ورحمة الله وبركاته أخي الحبيب صلاح بارك الله فيك على الفكرة الطيبة والمفيدة للجميع الموضوع موجود مسبقاً للأخ محمد الريفي بعنوان "سلسلة هل تعلم؟" يمكن المساهمة في موضوعه وإحياء الموضوع من جديد من خلال الرابط التالي من هنا

أخي الكريم أنس هل المطلوب وضع التاريخ في مربع النص TextBox الذي به المؤشر فقط؟ لو انتقل المؤشر هل يتم مسح التاريخ من مربع النص الذي كان به المؤشر أم لا بعد الانتقال منه إلى مربع نص آخر؟

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

السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً على الجهود التي تبذلونها والتي ستكون مثمرة بعون الله تعالى بمتابعة المبتدئين أمثالي ..حيث من واجبنا دراسة معمقة ومتأنية لاستيعاب دقائقها وتفاصيلها راجياً لكم دوام التقدم والعطاء. أما عن نفسي بسبب قدم المعالج وصغر حجم الهارد فالتنزيل يتم ببطء سأدرسها بتمهل وتمعن لأنها وسيلتي لدخول عالم الـ VBA إن أعانني الله وقدّر لي البقاء. والسلام عليكم.

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

السلام عليكم شكراً أستاذ إبراهيم جزاك الله خيراً

اخى الصقر مجهود كبير ومعلومات دسمه بارك الله فيك

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

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

شرفنى مرورك يا كبير وفيك بارك وحمدالله على السلامه اعتقد انه لا يوجد فرق بين الخاصيتين فكلاهما يمنع المستخدم من الادخال او التعديل فقط ننتظر رأى الخبراء ربما يكون لهما رأى اخر لى طلبين من فضلك 1-ياريت تحاول تدمج المواضيع كلها بموضوع واحد والردود فى الاخر ( بحيث يكون كل شروحات الفورم ورا بعض ومتاليه 2-ياريت تترك لى خاصيه التعديل لان بعد ما بخلص براجع الشرح ممكن اكون عايز اضيف شئ جديد او بلاقى فى بعض الاحيان أخطاء وعايز اعدلها وبيكون خاصيه التعديل مش موجوده ( رجاء من فضلك ) تقبل تحياتى

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

احتمال أن يكون هذا فورم لتأكيد عملية الحفظ فإذا أدخلت كلمة المرور تم الحفظ وإلا لا يتم الحفظ .. عموماً ننتظر الملف المرفق للإطلاع عليه كما أخبرك الحبيب أبو عيد

الأخ العزيز / يونس ( الخليفة الأول ) السلام عليكم ورحمة الله وبركاته أولا أتقدم بجزيل الشكر والتقدير لأخينا العزيز الأستاذ / عبد العزيز البسكري حفظه الله على متابعته للموضوع واستفساراته التي ساعدتنا في فهم المطلوب إن شاء الله جزاكم الله خير أستاذ عبد العزيز ثانيا : بالنسبة لاستدعاء البيانات إلى الفورم أجده شيء من الصعوبة وذلك لقلة الخبرة في هذا المجال ولكن ربما أستاذننا القدير عبد العزيز أو أحد من الأخوة والأساتذة الكرام يقومون بذلك فانتظر فما رأيك بطريقة أخرى ؟ وهي استدعاء البيانات بنفس تنسيق الفورم في ورقة أخرى أسميتها ( طباعة ) إليك بعض خطوات العمل المهمة فيها 1- تم عمل كود لإنشاء قائمة بأسماء الموظفين حسب الأوراق المسمية بكل موظف كم تم عمل رقم لكل موظف بالتسلسل حسب ترتيب موقع ورقته في الملف ( هذا من أجل الطباعة ) 2- تم عمل أعمدة مساعدة لجلب البيانات وهي ملونة باللون الأحمر ( مهمة في جلب البيانات ) 3- تم جلب البيانات حسب ( اسم الموظف )للأسابيع الأربعة ثم جلبها لكل اسبوع ( حسب اسم الأسبوع ) من خلال (الأعمدة المساعدة المذكورة) ثم جلب البيانات حسب كل يوم وحسب عناوين الأعمدة لكل أسبوع المعادلات المستخدمة في جلب البيانات متعددة ومتداخلة وقد تكون معقدة بعض الشيء ولكن حاول أن تدرسها وتفهما وإن شاء الله ستصبح سهلة بالنسبة لكم لقد واجهتنا معادلات متداخلة هكذا ولكن من خلال دراستها ومحاولة تطبيقها تم التعرف عليها ولا زلنا نتعرف على معادلات متداخلة من قبل كثير من الإخوان في هذا المنتدى الكل يفيد ويستفيد 4- تم عمل زر لطباعة كل الموظفين من خلال كود يقوم بذلك إن أردت الطباعة ليس للكل وإنما لعدد محدد من المظفين مثلا من (1)إلى (4)لطباعة أربعة موظفين حسب أرقامهم المحددة أو من ( 2 ) إلى ( 2 ) لطباعة الموظف رقم ( 2 ) فقط اتركك مع الملف لتنظر إليه ومنتظر أراءكم ومقترحاتكم والعفو حسابات الموظفين.rar

أخي الكريم عبد الله ممكن مزيد من التفصيل لتتضح الصورة .. في الملف المرفق يوجد مصنفين واحد باسم "كشف الايتام" والتاني باسم "استبانة يتيم" في مصنف "كشف الايتام" يوجد ورقتي عمل ... أيهما مصدر البيانات للاستبانة ؟ أمر آخر ما هو الشكل المتوقع للاستبانة .. يرجى وضع نموذج للمطلوب المتوقع ؟ أمر آخر .. هل تريد تصدير كل ID إلى ملف ورد منفصل أم إلى ملف إكسيل منفصل؟ مزيد من التوضيح أخي الحبيب

أخي الحبيب إبراهيم مشكور على المجهود الرائع ومتابعينك فخلي بالك متخليش الجهاز يتعطل تاني ..

أخي الحبيب حسام عيسى بارك الله فيك على الرابط الرائع والمفيد أخي الغالي جعفر لكم يسعدني ويدخل السرور على قلبي أن أرى مشاركاتك فيما بيننا أخي الكريم أشرف النعاس افتح الملف انقر بالماوس على زر الأمر Test1 .. هيطلع لك عفريت (متخافش منه دا عفريت صاحبي وأنا عارفه) هتلاقي في العفريت زر أوك اضغط عليه وهتلاقي قدامك أسطر باللون الأحمر تعالى بعد كلمة Declare وأضف كلمة PtrSafe هتلاقي السطر اللي بالأحمر بقا بالأزرق اضغط F5 عشان تنفذ هيطلع لك العفريت تاني كرر نفس الخطوات .. أضف الكلمة PtrSafe بعد كلمة Declare إلى أن تنتهي من جميع الأسطر وتختفي الأسطر التي باللون الأحمر يا ريت بس متنسناش بدعوة .. تقبلوا تحياتي

ماشاء الله ماشاء الله اخي صلاح المصرى

هل تعلم أن مفتاح الإختصار ( CTRL+SHIFT+* ) يحدد تقرير PivotTable بأكمله و مفتاح الإختصار ( CTRL+SHIFT+@ ) تطبيق التنسيق "وقت" بالساعة والدقيقة و"ص" أو"م"

هل تعلم ؟ لتحديد العمود بالكامل حدد أي خلية بالعمود ثم اضغط من لوحة المفاتيح CTRL + SpaceBar (مسطرة) ولتحديد الصف بالكامل حدد أي خلية بالصف ثم اضغط من لوحة المفاتيح SHIFT + SpaceBar (مسطرة) برجاء من الأخوة عدم كتابة أي ردود سوى المشاركات الفعالة التي تساهم في إثراء الموضوع ، حفاظاً على شكل الموضوع .. من يشارك فقط بمعلومة فليتفضل بالمشاركة

هل تعلم لإدخال نفس البيانات في جميع الخلايا قم بما يأتي 1/ حدد نطاق من الخلايا 2/ اكتب البيانات التي تريدها 3/ اضغط Ctrl+Enter هل تعلم لإدخال كسر في الخلية قم بما يأتي : اكتب الرقم 0 تليه مسافة , ثم قيمة الكسر باستخدام الرمز / يقوم الأكسل بتنسيق الخلية باستخدام التنسيق الرقمي "كسور"

السلام عليكم ورحمة الله وبركاته ترتيب العشرة الاوائل حسب المجموع والعمر ادخل معطياتك بداية الكود '================================================== ' من نطاق البيانات '================================================== '''''''' اسم النطاق او عنوانه مع اسم الورقة Private Const MyRng As String = "RangDate" '''''''' ارقام الاعمدة من نطاق البيانات '''''''' :حسب الترتيب التالي '''''''' رقم الجلوس,الاسم,تاريخ الميلاد,الفصل '''''''' SeatNum,Name,Bridate,MyClass Private Const MyColumn As String = "1,2,4,3" '================================================== ' من ورقة الاوائل '================================================== '''''''' اول خلية لوضع لست الاوائل Private Const MyRngPast As String = "D7" '''''''' نطاق اسماء الفصول Private Const MyClass As String = "P7:P13" '''''''' نطاق اسماء المواد ومواقعها Private Const MyTotal As String = "R7:T19" '''''''' تنسيق التاريخ Private Const DateFormat As String = "yyyy/mm/dd" '================================================== '================================================== المرفق اكسل2003 اكسل2007 ترتيب العشرة الاوائل حسب المجموع والعمر.rar ======================================================= تم التعديل حسب ملاحظة ايسم ابراهيم ادناه المرفق اكسل 2003/2007 ترتيب العشرة الاوائل حسب المجموع والعمر1.rar 61.97K 0 عدد مرات التحميل

بارك الله فيك اخي الكريم // خالد سوف اقوم بضبط سند القبض كسند الصرف وارفقه لك ان شاء الله في اقرب فرصة تقبل تحياتي

السلام عليكم ورحمة الله وبركاته هذه اول تجربة اقوم بها لاستحداث دوال جديدة ولا اعلم ان كان هناك من قام بعملها في السابق او ان كانت موجودة اصلا فان بالاساس لا اقوم باستخدام الدوال ولا احب استخدامها وعلى اي حال هنا اربع دوال متعلقة بالبحث "VLOOKUP" وعلى اربعة اشكال كالتالي : ---------------------------------------------- دالة البحث العكسية "VLOOKUPREVE" بحيث ان الدالة الرئيسية تقوم بالقراءة من اليمين لليسار اما هذه الدالة فتقوم بالقراءة بالعكس من اليسار لليمين الشرح المفصل مع الامثلة لهذه الدالة في المرفق vlookuprev.rar ---------------------------------------------- دالة البحث ذات المعيارين"VLOOKUPTOW" وهي دالة تقوم باستخدام معييارين لجلب البيانات وليس معيار واحد كما الدالة الاصلية وهي على شكلين "VLOOKUPTOW1" وهنا اذا كان المعيارين موجودان في العمودين الاول والثاني مباشرة "VLOOKUPTOW2" وهنا اذا كان المعيار الاول في العمود الاول والمعيار الثاني متغير اي في العمود الذي تختاره انت الشرح المفصل مع الامثلة لهذه الدالة في المرفق ---------------------------------------------- دالة البحث ذات الثلاث معايير"VLOOKUPTHREE" وهي نفس الدالة السابقة ولكن بثلاث معايير ويمكن عمل الدالة لاكثر من ثلاث معايير "VLOOKUPTHREE1" وهنا اذا كان المعايير الثلاث في العمودين الاول والثاني والثالث مباشرة "VLOOKUPTHREE2" وهنا اذا كان المعيار الاول في العمود الاول والمعيارين الثاني والثالث متغيرين اي في الاعمدة التي تختاره انت الشرح المفصل مع الامثلة لهذه الدالة في المرفق ---------------------------------------------- دالة البحث الترتيبية "VLOOKUPRNK" وهي دالة تقوم بايجاد البيانات حسب الترتيب المطلوب في حالة البيانات المتشابهة فالدالة الاصلية تقوم بجلب اول بيانات موجودة اما هذه الدالة فنقوم باختيار الترتيب المطلوب جلب البيانات حسبه الشرح المفصل مع الامثلة لهذه الدالة في المرفق vlookuprev.rar vlookuptwo.rar vlookupthree.rar VLOOKUPRNK.rar

اخوي جرب هذه الداله في مصدر بيانات مربع نص غير مرتبط =Int(-100*[Myfield])/-100 مع تغيير MyField الى اسم الحقل لديك