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

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

السلام عليكم إخواني الكرام أقدم لكم اليوم ملف قمت بإعداده ، لنتعلم من خلاله كيفية عمل قائمة منسدلة يمكن البحث من خلالها ... الملف به كل التفاصيل أرجو أن ينال إعجابكم وأن ينفعكم به Searchable Drop Down List.rar

السلام عليكم ورحمة الله تعالى وبركاته أقدم لكم هذه الهدية البسيطة والمتواضعه وهي عبارة عن فورم لمعرفة رموز الالوان RGB color codes chart صورة الفورم وفي الأخير اتمنى هذا العمل ان ينال إعجابكم في إنتظار أرائكم وإقتراحاتكم تقبلو خالص تحياتي RGB color.rar

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

السلام عليكم بارك الله فيك وجازك كل الخير اخي الصقر الجريح عندي تعقيب بسيط على الموضوع ارجو ان تتقبله بصدر رحب لانه لاغاية لي الى اثراء الموضوع اولا عندما نعطل احد وضائف المصنف مثلا كود تثبيت الشاشة Application.ScreenUpdating = False من الافضل ارجاعه الى وظيفته الافتراضية عند نهاية الكود Application.ScreenUpdating = True ثانيا في كود معرفة اخر خلية تحوي بيانات في العمود بما انك ستتعامل مع الخلية التي تليه يكون من الافضل اضافة الواحد في الكود نفسه بدلا من تكرار العملية مع كل خلية سترحل لها البيانات lr = .Cells(.Rows.Count, "D").End(xlUp).Row + 1 ثالث هنا عملية الترحيل بسيطة وليس فيها الكثير من البيانات فرضا انه لدينا بيانات كثيرة سترحل سيكون من الافضل استخدام الحلاقات الدورانية لتنفيذ المطلوب لاكن في المثال السابق ليس من المستحسن استخدامها لان ترتيب البيانات المرحلة متخالف مع المرحل اليها انما سيربكنا استعمالها لذى افضل استخدام المصفوفات التي تتسم بالسرعة الفائقة في التنفيذ و اختزال الاسطر الكثيرة ليكون المثال السابق كالاتي Sub ترحيل() Application.ScreenUpdating = False With Sheet4 lr = .Cells(.Rows.Count, "D").End(xlUp).Row + 1 ' مصفوفة تحوي البيانات التي سترحل حسب ترتب الترحيل Dim Matrix: Matrix = Array([D8], [G7], "", [D10], "=R[-1]C+RC[2]-RC[1]", "", [d11]) 'كود الترحيل بستخدام المصفوفة و دالة Resize .Range("A" & lr).Resize(1, 7).Value = Matrix End With Application.ScreenUpdating = True End Sub في الاخير ارجو ان تكون فكرتي وصلت وان تستفيدو منها واكرر اعتذاري للاخ الصقر الجريح وارجو ان لا اكون قد تطاولت على موضوعه تحياتي للجميع

الاخوة الكرام اقدم لكم بقية لدرس الترحيل كيفية وضع شروط تجبر المستخدم على ادخال بيانات مما لا شك فيه ان سند القبض اللى بصورة التالية لابد من ادخال جميع البيانات اللى بالسند وهى المظلله باللون الاصفر رقم الايصال بالخلية [G7] تاريخ السند بالخلية [D8] الجهه التى تم القبض منها بالخلية [D10] المبلغ المقبوض بالخلية [D11] ان شاء الله اليوم بنتعرف كيف يمكن اجبار المستخدم على ادخال البيانات قبل ترحيلها فلا يعقل مثلا ان يقوم المستخدم بعدم كتابه تاريخ للسند ويترك الخلية فارغه بدون تاريخ ثم يقوم بالترحيل لازم اجبره على ادخال التاريخ اولا: اجبار المستخدم على ادخال رقم الايصال بالخلية [G7] هنستخدم السطر التالى بالكود If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub هذا السطر يتم اضافتة بعد هذا السطرمن الكود Application.ScreenUpdating = False ليصبح هكذا Sub ترحيل() Application.ScreenUpdating = False If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [D8] .Cells(Lr + 1, "B") = [g7] .Cells(Lr + 1, "D") = [D10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End With End Sub تعالى بقى نشرح معنى هذا السطر If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub هذا السطر من الكود معناه ببساطه كدا ان لو الخلية [g7] فارغه اكتب رساله تظهر للمستخدم تنبهه بان الخلية فارغه ويجب ادخالها و اخرج من الكود ومتكملش الشىئ الذى تريد تنفيذه then الشرط المطلوب التحقق من وجوده if استخدمنا هنا IF وذالك لعمل شرط قبل عملية الترحيل وهى كما نعرف جميعا ان iF معناها لو then معناها تنفيذ الشرط الذى نريده كما اتفقنا من قبل هو عدم ترك الخلية [g7] فارغه اللى بيسجل بها رقم الايصال الكود هيقوم باختبار الشرط التالى "" = [if [g7 "" العلامه هذا بالكود تعنى فارغ ( فلو [g7] تساوى فارغ نفذ كذا كذا ) نفذ دى فى الكود هى Then وسيكون لونها بالكود ازرق هينفذ ايه بقى انا عايزة يظهر رساله وهى " الرجاء ادخال رقم الايصال" ونلاحظ انها مكتوبه بين علمتى تنصيص ( تكتب من خلال شيفت + حرف ط بالكيبور) وهينفذ ايه تانى غير الرساله هينفذ خروج من الكود ميكملش يعنى ودى بتكون exit sub : وبعدها كتابتها ستجد ان لونها اصبح ازرق لمتابعه شرح عن كتابة الرسائل فى لغة البرمجه يرجى مراجعه الرابط التالى ستجد شرح باستفاضه http://www.officena.net/ib/index.php?showtopic=57199&hl= ) ثانيا : عايزين نجبر المستخدم على ادخال التاريخ If [d8] = "" Then MsgBox "الرجاء ادخال تاريخ لسند القبض": Exit Sub هو نفس السطر السابق بس بنختبر الخليه [d8] فيها تاريخ ام لا ثالثا : اجبار المستخدم على ادخال الجهه التى تم الاستلام منها If [d10] = "" Then MsgBox "الرجاء ادخال اسم الشخص الذى تم الاستلام منه": Exit Sub رابعا: اجبار المستخدم على ادخال المبلغ المقبوض If [d11] = "" Then MsgBox "الرجاء ادخال المبلغ المقبوض": Exit Sub وهيكون الكود فى شكله النهائى كالتالى Sub ترحيل() Application.ScreenUpdating = False If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub If [d8] = "" Then MsgBox "الرجاء ادخال تاريخ لسند القبض": Exit Sub If [d10] = "" Then MsgBox "الرجاء ادخال اسم الشخص الذى تم الاستلام منه": Exit Sub If [d11] = "" Then MsgBox "الرجاء ادخال المبلغ المقبوض": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [g7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End With End Sub يعنى الكود قبل الترحيل هيعمل اربع اختبارات الاول هيمسك اول سطر بتاع رقم الايصال لو موجود ينتقل للسطر اللى بعده ولو مش موجود هبخرج من الكود ومش هيكمل وهكذا ما باقى الاسطر الين يتحقق من وجود بينات بالاربع خلايا ثم يقوم بعمليه الترحيل خامسا : هل يمكن عمليه الاختبار بسطر واحد بدلا من اربع اسطر نعم يمكن ذالك من خلال السطر التالى If [g7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub هنا تم استخدام داله OR وهى تعنى أو لو الخلية اللى بها رقم الايصال فارغه أو الخلية اللى بها التاريخ فارغه او الخلية اللى بها الجهه التى تم استلام المبلغ منها أو الخلية اللى بها المبلغ فارغه نفذ رساله ثم اخرج من الكود ومتكملش ويكون الكود بشكله النهائى كالتالى Sub ترحيل() Application.ScreenUpdating = False If [g7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [g7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End With End Sub وفى النهاية ارجوا ان اكون وفقت بالشرح واتمنى ان يستفيد منه الجميع تقبلوا منى وافر الاحترام والتقدير

بين تاريخين hossam.rar

بسم الله الرحمن الرحيم أساتذتى بالمنتدى و ألاخوة الزملاء كل عام وانتم بخير بمناسبة العام الجديد مما لا شك فيه أن الأهداء يقدم الى أغلى شخص لدى الانسان وبما انه اغلى شخص فلابد من تقديم أغلى هدية يملكها فسمحو لى ان اقدم أغلى ما املك واعز ما أملك وهو برنامج EMA الى أغلى منتدى . منتدى أوفيسنا هذا الصرح العظيم الذى شرفت بالانضمام اليه أهداء برنامج EMA برنامج EMA تم تصميمة بعمل متواصل على مدار 300 يوم بمعدل لا يقل عن 5 ساعات يوميا معظمها كان البحث والتفكير وكيفية التنفيذ فأن أحسنت فمن الله وما توفيقى الا بالله وأن أخطأت فمن نفسى والشيطان والحمد لله الذى بنعمته علينا تتم الصالحات تم رفع البرنامج بتاريخ 29-9-2014م وهذا كان الاصدار الاول من الجزء الاول للبرنامج وبعد التواصل مع الاعضاء ومشاركتى لأرائهم طلب منى بعض الاضافات الاخرى والحمد لله تم ذالك أقدم لكم الاصدار الثانى من الجزء الاول أتمنى أن يحوز اعجابكم ورضاكم البرنامج به أمكانيات وخيارات كبيرة جدا تم تصميمه على اعلى مستوى من الرقابه والتحكم فى المدخلات أنا الحمد لله عملت على برامج كبرى وهذا البرنامج عصارة خبرة محاسبية وأنتظرو منى قريباً الجزء الثانى للبرنامج (المخازن والمبيعات والمشتريات) فى نفس الملف وأخيرا وليس أخراً البرنامج بين أيديكم لا يتم فتج البرنامج الا فى الساعه 12ص أى بالليل 2015/1/1م لأنه نسخة عام 2015م ملحوظه مهمه جدا 1-يفضل تشغيل البرنامج على 2007 2-لا يتم تغيير اسم البرنامج نهائيا لانه لا يفتح عند تغيير- الاسم (EMA)فقط فى بعض الاحيان عند التنزيل يكون EMA 1 فى هذه الحالة يحذف 1 أن شاء الله نرفق لكم شرح لكيفية العمل على البرنامج اسم المستخدم / الدعم الفنى الباسورد / 123 EMA.zip

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

السلام عليكم ورحمة الله وبركاته : في ما يتعلق بتخفيف حجم ملفات إكسل 2007 - من واقع التجربة العملية إكتشفت وعن طريق الصدفة مايلي : عند ضغط ملف إكسل إلى Zip أو RaR ـ يصبح حجم الملف مع حماية (البنية برقم سري ) أكثر منه وهو غير محمي إطلاقاأو ( محمي البنية لكن بدون رقم سري ) فمثلا حجم الملف بعد حماية بنيته " برقم سري " يصبح من 1 ميجا إلى 900 كيلو بايت بعد ضغطه بالرار وهذا قليل يعني تخفيف غير ملحوظ - هذا طبعا مع حماية البنية برقم سري ـ بينما يكون حجم الملف بدون حماية البنية أو مع الحماية ولكن بدون رقم سري يصبح الحجم من 1 ميجا إلى 300 كيلو بايت أو أقل وهو كما ترى تخفيف هائل . وللتخلص من الرقم السري - بعد أن تذهب إلى "حماية البنية والإطارات " سوف يخرج لك مربع لإدخال الباسوورد - إترك المربع فارغا وإضغط موافق . الخلاصة : يفضل حماية بنية الملف حتى لايتم العبث أو تغيير أسماء الورق ولكن بدون أن تضع رقم سري بعد ذلك قم بضغط الملف بالرار أو بـ Zip حتى تتمكن من إرفاقه إلى المنتديات وهو خفيف ملاحظة / حماية " البنية " بدون وضع رقم سري لاتتعارض مع "حماية الورقة" فيمكنك أن تحمي نفس الورقة برقم سري ثم تذهب لحماية ( البنية ) لكن بدون رقم سري . وبهذا تكون حميت الملف وخففت من حجم الملف حدود ثلاثة أضعاف حجمه الأصلي قبل الضغط . دمتم في خير

الاخوة الكرام فى المنتدى الغالى أقدم لكم شرح مبسط للداله MAX والداله Min أولا : الداله Max 1-اسم الداله هى اختصار Maximum والترجمه الحرفيه لها هى أعلى قيمة أو الحد الاقصى 2- شكل الداله بالاكسيل MAX ( number1 , number2 , ... ) ويمكن كتابة 30 رقم بين الاقواس بحد اقصى هذا الشكل يستخدم عندما نريد معرفه اكبر قيمة فى عدة خلايا متفرقه الشكل الاخر للداله =MAX(range start : range end) هذا الشكل يستخدم عندما نريد معرفه اكبرقيمة فى مجموعه من الخلايا المتتابعه بشكل راسى او اوفقى ثانيأ : الداله Min 1- اسم الداله هى اختصار Minimum والترجمه الحرفيه لها هى اقل قيمة أو الحد الادنى 2- شكل الداله MIN ( number1 , number2 , ... ) ويمكن كتابة 30 رقم بين الاقواس بحد اقصى هذا الشكل يستخدم عند نريد معرفه اكبر قيمة فى عدة خلايا متفرقه الشكل الاخر للداله =Min(range start : range end) هذا الشكل يستخدم عندما نريد معرفه اقل قيمة فى مجموعه من الخلايا المتتابعه بشكل راسى او اوفقى ********************************************************************************* حتى يتضح لنا معنى الكلام الهيلوغريفى ده لازم شرح بالصور والامثله العمليه مثال 1 لدينا مجموعه من الخلايا المتفرقه كما هو موضخ بالصورة المرفقه ونريد معرفه اكبر قيمة تم كتابة داله Max بالخلية ( K1 ) =MAX(A2;C3;C7;B12;E8;F4) زى ما احنا شايفين بالمعادله ان بعد كتابة كل خلية متبوعه بهذه العلامه ( ; ) وتكتب من خلال جعل لغة الكيبور انجلش ثم الضغط على حرف ك بالعربى من الكيبور وكما هو واضح بالصورة ان اكر قيمة هى 9 المظلله باللون الاصفر وهى بالطبع اكبر قيمة مثال 2 فى نفس المثال السابق وعلى نفس الصورة نريد معرفه اقل قيمة تم كتابة داله Min بالخلية ( K1 ) =MIN(A2;C3;C7;B12;E8;F4) وكانت النتيجة 2 وهى بالطبعه اقل قيمة من القيم الموجوده بالصورة مثال 3 نريد معرفه اكبر قيمة من الخلايا من A1 الى A10 كما هو بالصورة المرفقه تم كتابة المعادله بالخلية K1 والمظلله باللون الاصفر =MAX(A1:A10) ثم كتابة المعادله كالتالى a1 ( وهى بداية النطاق المراد معرفه اكبر قيمه فيه ) ثم هذه العلامه ( : ) (نقطتين فوق بعض - تكتب شيفت + حرف ك بالكيبور) ثم A10 (وهى نهاية النطاق المراد معرفه اكبر قيمه فيه ) النتيجة كما هو واضح بالصورة 10 وبالطبع هى اكبر قيمة مثال 4 نريد معرفه اقل قيمة من الخلايا من A1 الى A10 كما هو بالصورة المرفقه تم كتابة المعادله بالخلية K1 والمظلله باللون الاصفر =MIN(A1:A10) ثم كتابة المعادله كالتالى a1 ( وهى بداية النطاق المراد معرفه اقل قيمه فيه ) ثم هذه العلامه ( : ) (نقطتين فوق بعض - تكتب شيفت + حرف ك بالكيبور) ثم A10 (وهى نهاية النطاق المراد معرفه اقل قيمه فيه ) النتيجة كما هو واضح بالصورة 1 وبالطبع هى اقل قيمة مثال 5 الداله max و الداله Min تتعامل مع الارقام فقط وتتجاهل النصوص لو نظرنا للصورة التالية نلاحظ هنا ان الداله اعطت النتيجة 0 لماذا لانها لا تتعامل مع النصوص فهى تتعامل مع الارقام فقط مثال 6 الداله max و الداله Min لا تتعامل مع نطاق احدى الخلايا به فيها Error فكما هو موضح بالصورة احدى الخلايا بالنطاق فيه Error على الرغم من وجود رقم 3 و 5 والمفترض ان النتيجة للمعادله هى 5 / ولكن النتيجة كما هو بالمعادله بالخلية( K1 ) هى Error ارجوا من الله ان اكون وفقت بالشرح وان يستفيد منه الجميع تقبلوا تحياتى واحترامى للجميع

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

اخى الجموعي فورم رائع ولا غنى عنه لأي متعامل مع الفورم والأكواد، سلمت يمينك وجعل الله عملك في ميزان حسناتك تحياتى

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

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

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

باخفاء كل البيانات invigilations99.rar

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

اخى الفاضل أ.طاهر جرب الملف المرفق لربما به طلبك تحياتي كشف الزيارات.rar

بارك الله فيك وفي علمك وعملك عمل في قمة الروعة والابداع

اخى الفاضل اذهب الى ملف File خيارات Options خيارات متقدمة Advanced وانزل قليلا للاسفل وتأكد من وجود علامة صح بجانب اظهار كافة النوافذ في شريط المهام Show All Windows In Taskbar .. ان لم تكن موجودة قم بوضعها كما في الصورة المرفقة .. جرب واعلمنا بالنتيجة تحياتي

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

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

مشاء الله تبارك الله ..موضوع مميز فعلا جزاك الله خيرا عن كل حرف كتبت

السلام عليكم أخي العزيز عندك أكثر من خطأ واحد بالملف أولا النطاق الذي ترجع إليه بالدالة VLOOKUP وهو النطاق المسمي "الشيت" غير محدد بطريقة مضبوطة فهذا النطاق لابد أن يكون أول عمود به هو العمود الذي ستبحث عنه بالدالة VLOOKUP أي أنه لابد أن يبدأ من أرقام الجلوس أي العمود C تم تعديل ذلك بالملف ثانيا لابد من أن تفهم كيفية عمل الدالة VLOOKUP فهي يتبعها بين الأقواس 4 عوامل ، الثلاثة الأوائل منها إلزامية والرابع إختياري يأخذ إحدي قيميتن (1 أو 0) وهي نفسها قمتي التحقيق ( True, False) وهذا العامل الرابع أنت لم تضعه في معادلتك فسيفرضه نظام الاكسل =1 وهو كما اتفقنا يأخذ إحدي قيمتين 1 أو Trueوتعني تقريبي 0 أوFalseوتعني تماما فكانت نتيجة معادلتك الأولي أنه يبحث عن أرقام الجلوس في مجال لايبدأ بأرقام الجلوس فيأتي بأول قيمة في المجال ثم العاتمل الرابع غير موجود (لايساوي 0) فلايتحري الدقة في تساوي النتيجة فيتكرر يعني إذا أعدت صياغة المعادلة في الخلية D7 إلي التالي VLOOKUP(B7,الشيت,9,0) وهكذا باقي المعادلات ثالثا وأخيرا عمود التخصص يرجع لمرجع قبل رقم الجلوس وهذا ليس الطبيعي في دالتنا هذه لذلك غيرتها لك بدالة أخري Match مع مساعدة من دالة ثالثة Offset تفضل المرفق مناداة-Tarek.rar

اخى الفاضل وبعد إذن أخى الفاضل عبدالله .. جرب الملف المرفق لربما به طلبك تحياتي pro.rar

ارجو من سيادتكم مساعدى فى عمل كويرى جديدة للربط بين (مع الوضع فى الاعتبار ان يكون بيانات العاملين nomperحتى يمكننى ان اضيف رقم جيد و ليس outnamper tbl1 , work , بيانات العاملين بدل من tbi, worl , emps mas_add_diffsV2.rar

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

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

السلام عليكم بعد إذن أخي وحبيبي / ياسر ممكن عملها بدون اكواد (بالمعادلات) ولكن لابد من تعطيل الخطا المرجعي (Circular) كما بالصورة بداخل الملف المرفق تفضل Test بدون اكواد .rar

تفضل الطلب الأول Test.rar

=IF(MOD(F2,1)>=0.5,MOD(F2,1)-0.5,MOD(F2,1)) لم أستطع إرفاق الملف ..النت بطيء جدا ورأيت مشاركة الأخ حسام ، وهذه المعادلة أيضاً تفي بالغرض

الاخت الكريمة جربى المعادله التالية فى الخلية G2 ثم سحبها الى اسفل =IF(F2-INT(F2)>=0.5;F2-INT(F2)-0.5;F2-INT(F2)) مرفقك ملفك بعد التعديل تقبلى تحياتى الحافز.zip

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

على قولهم : احسن اعلمك تصيد هذه القوائم خاصة بأكسس 2003 الاصدارات الاحدث تعمل بطريقة اخرى ابحث عن قوائم 2007

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

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

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

الحقيقة الطلب غير واضح , مالذي تريده من الجدولين الآخرين ؟ اذا كنت تريد عمل الصلاحيات و تحديد نماذج , يوجد برنامج جاهز من تصميم الأخ مهند عبادي http://www.officena.net/ib/index.php?showtopic=24909&hl=%D8%A7%D9%84%D8%B5%D9%84%D8%A7%D8%AD%D9%8A%D8%A7%D8%AA

من خلال هذا الكود المرفق تحويل خلايا الاكسيل إلى صورة كل ما عليك فتح الاكسيل واضافة موديول وضع بداخلة الكود بالمرفق ثم قم بتشغيل الماكرو وشاهد Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) _ As Long Sub SaveLogoAsGif() Dim MyChart As Chart Dim objPict As Object Dim RgCopy As Range On Error Resume Next Set RgCopy = Application.InputBox("Select the range to copy / Saveas", "Selection Save", Selection.Address, Type:=8) If RgCopy Is Nothing Then Exit Sub On Error GoTo 0 RgCopy.CopyPicture Appearance:=xlScreen, Format:=xlBitmap ActiveSheet.PasteSpecial Format:="Bitmap" Set objPict = Selection With objPict .CopyPicture 1, 1 ':=1 Set MyChart = ActiveSheet.ChartObjects.Add(1, 1, .Width + 8, .Height + 8).Chart End With With MyChart .Paste .Export ThisWorkbook.Path & Application.PathSeparator & "Temp.gif" .Parent.Delete End With '// cleanup objPict.Delete Set RgCopy = Nothing Set objPict = Nothing '// Now lets View it ShellExecute 0, vbNullString, ThisWorkbook.Path & Application.PathSeparator & "Temp.gif", _ vbNullString, vbNullString, vbMaximizedFocus End Sub

بسم الله ما شاء فعلاً خير البر عاجله ماكنتش متوقع هذه الاستجابة أن تكون بهذه السرعة أستاذى الفاضل أشعر وكأن الموضوع كان بخلدك ومستنى تكه ويطلع الحمد لله ربنا يجعله فى ميزان حسناتك لى اقتراح أستاذى الفاضل وهى أن نمسك الدوال مجموعة مجموعة أقصد عمل تصنيف لها نبدأ مثلاً بالدوال الرياضية ثم دوال الوقت والتاريخ ثم دوال التحويل والتفاعل والنصوص وهكذا ونخلص مجموعة مجموعة حتى لا نتتشتت كيف نتناول الدالة ؟ أقترح اسم الدالة نوعها ( تبع أى مجموعة ) الوظيفة صورتها البسيطة صورتها المركبة مع دالة غيرهاأو أكثر تطبيقات متنوعة بين السهل والصعب أين نضع الدوال فى مكتبة كمكتبة الأكواد او فى ملف اكسل ؟ الأمران سيان عند البعض والبعض الآخر وهو كثير يميل الى التطبيق ( وأنا أفضل العمل على ملف اكسل ) لان الرياضيات أصلا مش حفظ قانون فقط ولكن تطبيق هذا 1 2 بعض المعادلات يصعب على البعض كتابتها وخاصة لما تكون المعادلة مركبة من كذا دالة . 3 عمل نوع من الاختلاف بين المكتبتين فلا يقال هناك ثمة تقليد لكم :fff: منى

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

تفضل مثال Database4.rar

إخواني الكرام ..ها أنا أعمل على قدم وساق ..أضفت 4 أكواد أربعة بقول أربعة ..مستفز بطبعي تفضلوا الإصدار الأخير ................>>>>>>>> Codes Library v1.2.rar

ايوه كده يااخى الحبيب حمدالله على سلامتك بعد الغيبه الطويله جزاكم الله خير وبارك فيكم

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

اسخراج كشف حساب الفيديو الأول مشاهدة مفيدة وممتعة

دائما انت مبدع جزاكم الله خيرا

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

كود ملء الشاشة ، اخفاء شريط الادوات ،اخفاء شريط الصيغة DisplayFullScreen.rar