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

حظك حلو إن كلمة السر قصيرة وإلا كان الموضوع هيكون صعب وشبه مستحيل إليك الملف المرفق غير محمي على الإطلاق وتحيا مصر ، وعاشت مصر حرة مستقلة Unprotected.rar

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

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

ردك غريب وكأنك ترد الباب في وجهي وتقول "مش عايز منك مساعدة" !! أرجو أن يكون ظني في غير محله .. لم تفدنا هل أدى المطلوب الغرض أم لا .. بارك الله فيك أخي العزيز .. الكل يشارك وأنا لست بمفتي المدينة إنما طالب علم مثلي مثلكم ، والمناقشات تثري الموضوعات وتفيد الجميع أرجو أن تغير اسم الظهور للغة العربية ، فأنت عضو قديم في المنتدى ولك صولات وجولات في موضوعات كثيرة

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

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

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

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

أخي الكريم عامر لابد أن تقوم بالأمر بنفسك الخطأ المتوقع أنه يجب استبدال الفاصلة العادية بفاصلة منقوطة .. قم باستبدال الفاصلة العادية في المعادلة المقدمة من قبل أخونا سليم بفاصلة عادية (يرجع ذلك لإعدادات الويندوز) ثم لا تنسى بعد أن تكتب المعادلة أن تضغط CTRL + SHIFT + ENTER معاً لأنها معادلة صفيف .. شاهد الفيديو التالي لتعرف كيف يتم الأمر ولما لم تعمل معك المعادلة .. أمامك خياران إما أن تقوم بتغيير الإعدادات الإقليمية لتستخدم الفاصلة العادية وفي هذه الحالة يمكنك نسخ المعادلة بشكل طبيعي وتطبيقها على الملف بدون حدوث أخطاء أو تقوم بتغيير الفاصلة تبعاً لما هو موجود في الإعدادات لديك الفيديو سيوضح لك الأمر 2016-08-29_10-08-50.rar

=SUMPRODUCT(IF(DATEDIF($B$12:$B$200,$B$10,"y")=$G13,1,0),IF($E$12:$E$200=H$12,1,0)) اثراء للموضوع هذه المعادلة (Ctrl+Shift+Enter) بدون عامود مساعد توضع في الخلية H13 , وتسحب يميناً حتى I13 و ثم نزولاً

السلام عليكم هناك حلان لهذا الامر 1- استخدام tempvars بحيث تضع هذه القيمة فيه ثم تقوم باستخدامها في اي نموذج او استعلام 2- انشاء وحدة نمطية وتعريف متغير من نوع public ثم تقوم باعطاءه قيمة من النموذج الاول وتستعديها من المتغير في النموذج الثاني

السلام عليكم مثال قديم للأستاذ أبو هاجر لاستخدام الماسح ( السكانر ) عن طريق الأكسس قمت على تحديثه وزيادة السيطرة واستبعاد تخزين مسار الصور حيث لا داعي لها . مرفق ملف مكتبة dll يجب نسخه في مجلد Windows\System . لا تنسونا من دعاكم . تحياتي . الملفات المرفقة Scanner.rar ( 471.28ك ) عدد مرات التنزيل: 38

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

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

الاخ الدبعي ارفع الملف به هذه البيانات مع باقي الفلدرات مبدئيا احذف موديول1 Module1 ثم استورد هذه الموديول1 Module1.rar اذا بقي الوضع كما اخبرتني ارفع الملف به هذه البيانات مع باقي الفلدرات

حفظك الله اخي العزيز ياسر ورفع قدرك ما تم عمله خطوتين 1- تغيير نطاق المسح واللصق في كود الترحيل فبدلا المسح واللصق كات بداية من العمود A فتم تغييره الى العمود b Sheets("äÇÌÍ").Range("B12:ax1012").ClearContents Sheets("äÇÌÍ").Range("B12:ax1012").ClearFormats Sheets("ÏæÑ ËÇäì").Range("B12:ax1012").ClearContents Sheets("ÏæÑ ËÇäì").Range("B12:ax1012").ClearFormats 2-بعد لن اصبح العمود A خارج نطاق المسح واللصق تم وضع معادلة ترقيم تلقائي مرتبطة بالاسم في العمود C =IF(C12="";"";COUNTA($C$12:C12)) والحقيقةان كل ما قمت به موجود بالمنتدى ولو ان السائل رعاه الله استخدم خاصية البحث لوجد حلولا كثيرة متنوعة

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

يا اخ ياسر مش عارف كيف اشكرك فأنت انا استاذ ورئيس قسم كبير وحليت لى مشكلة كبيرة اما عن حماية اوراق العمل مش مطلوبة ربنا يعوضك خيرا فى صحتك ويبارك لك ربنا فى اسرتك

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

أخي الكريم فايز راجع موضوع التوجيهات :: العنوان غير مناسب للمطلوب .. قسم المطلوب لطلب واحد فقط في كل موضوع لتجد استجابة أسرع .. أرجو من الأخوة الكرام مراعاة التوجيهات !! تقبل تحياتي

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

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

أخي الكريم موريادي قمت بعمل أعمدة مساعدة في الورقة المسماة Report عمود لإدراج الشهور الهجرية فيه .. وعمود لإدراج السنوات .. وفي الخلية I1 معادلة لمعرفة رقم الشهر الهجري ومقارنته أثناء عمل الكود تقوم بالاختيار من القائمة المنسدلة الشهر المطلوب وليكن "شعبان" ثم تختار السنة الهجرية من الخلية المجاورة F2 .. ثم أخيراً انقر على زر الأمر لجلب البيانات من ورقة العمل Data تم استخدام المصفوفات في الأكواد لسرعتها في التعامل مع البيانات الكبيرة Sub Test() 'Author : YasserKhalil 'Release : 29 - 08 - 2016 '------------------------ Dim Ws As Worksheet, Sh As Worksheet Dim Arr, Temp Dim Lr As Long, I As Long, P As Long Dim lMonth As Integer, lYear As Integer Set Ws = Sheets("Data"): Set Sh = Sheets("Report") Lr = WorksheetFunction.CountA(Ws.Columns(2)) lMonth = Sh.Range("I1").Value lYear = Sh.Range("F2").Value Arr = Ws.Range("A2:H" & Lr).Value ReDim Temp(1 To UBound(Arr, 1), 1 To 3) For I = 1 To UBound(Arr, 1) If Month(DHijri(CDate(Arr(I, 5)))) = lMonth And Year(DHijri(CDate(Arr(I, 5)))) = lYear Then Temp(P + 1, 1) = Arr(I, 4) Temp(P + 1, 2) = Arr(I, 5) Temp(P + 1, 3) = Arr(I, 8) P = P + 1 End If Next I Sh.Range("A6:C10000").ClearContents If P > 0 Then Sh.Range("A6").Resize(P, UBound(Temp, 2)).Value = Temp MsgBox "Done...", 64 Else MsgBox "No Data For This Month And This Year", vbExclamation End If End Sub Function DHijri(dtGegDate As Date) As String VBA.Calendar = vbCalHijri DHijri = dtGegDate VBA.Calendar = vbCalGreg End Function أرجو أن يفي هذا بالغرض إن شاء الله تقبل تحياتي Grab Data By Hijri Dates Using Arrays YasserKhalil.rar

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

الحمد لله أن تم المطلوب على خير .. لاحظت شيء أثناء عملي بالملف بالنسبة لإجمالي عدد الساعات سيظهر بشكل خاطيء في عمود ساعات العمل ..لذا قم بتنسيق النطاق E38:G38 بتنسيق مخصص [hh]:mm ليظهر لك عدد الساعات بشكل منضبط .. أرجو أن يفي هذا بالغرض وأن تكون الأمور على ما يرام وفقك الله لما يحب ويرضى تقبل تحياتي

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

المشكلة إن الوقت لا يقبل أن يكون بالسالب .. أقترح أن تقوم بإضافة عمود جديد وتسيمه "عمود التأخير" على غرار عمود "ساعات الإضافي" ووتقوم بوضع المعادلة التالية .. بفرض أن العمود الجديد سيكون محل عمود الملاحظات ، في الخلية G7 ضع المعادلة التالية =IF(E7<$A$5,$A$5-E7,"") وبذلك تحصل على وقت التأخير بالموجب وبدون مشاكل .. أرجو أن يفي هذا بالغرض

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

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

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

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

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

استاذ سليم حاصبيا لقد حاولت باستخدام (Ctrl+Shift+Enter) لكن يعطيني خطأ ...ارجوا تفضلكم علينا بارفاق المعادلة داخل الملف وانتم اهل لذلك ...شكرا لكم لاجابتكم على سؤالنا تقديري واحترامي لشخصكم الكريم

بارك الله فيك أخي العزيز أبو عبد الباري .. وجزيت خيراً على مساهماتك الرائعة أرجح إرفاق الحل في المشاركة مع الملف المرفق .. أخي الكريم م / هاني طبعاً أنت أدرى بملفك مني ، ومشاركتي لإثراء الموضوع فقط ليس إلا .. دعنا نتحدث بلغة المنطق : الحل المقدم قارن بين الخلية D2 وأول خلية في النطاق وآخر خلية في النطاق .. هكذا اعتمدت المعادلة السؤال المنطقي : هل هذا صحيح بهذا الشكل ؟ ماذا لو كانت الأرقام في النطاق A1:A5 غير مرتبة تصاعدياً ؟؟ أي ماذا لو كانت الخلية A3 تحتوي على الرقم 151 >> سيكون الناتج في هذه الحالة "خارج النطاق" إذاً لابد من التفكير بأسلوب مشابه ولكن بما يفي بالغرض .. أولاً سنقوم باستخراج أقل قيمة في النطاق وأكبر قيمة في النطاق ، ثم نقارن القيمة في الخلية D2 بالنطاق ونرى إذا ما كان خارج النطاق أم في النطاق .. جرب المعادلة التالية =IF(AND(D2>=MIN(A1:A5),D2<=MAX(A1:A5)),"In Range","Out Range") الشرط الأول هو أن تكون الخلية D2 أكبر من أو يساوي أقل قيمة في النطاق A1:A5 والشرط الثاني هو أن تكون الخلية D2 أقل من أو يساوي أكبر قيمة في النطاق A1:A5 إذا تحقق الشرطين معاً وركز في قولي معاً (بسبب استخدام الدالة AND) سيتم كتابة النص "في النطاق" ، أما إذا لم يتحقق الشرطين يكتب النص "خارج النطاق" إذا لم تعمل المعادلة قم باستبدال الفاصلة العادية بفاصلة منقوطة ملحوظة أخرى : قم بتغيير النص فقط للشرح حيث أن اللغة العربية تظهر العكس في المشاركة .. فقط للتوضيح قم بتغيير النص In Range إلى النص "في النطاق" ، والنص Out Range إلى "خارج النطاق" تقبلوا تحياتي

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

أخي العزيز أسامة أولاً يرجى عند طرح موضوعات أن توضع عناوين مناسبة للموضوعات حتى نستطيع أن نتابع الموضوع بسهولة بالنسبة للملفات أشعر أن هناك أمر غير منطقي (كيف يكون هناك فائض وناقص في الشاحنات A مثلاً في نفس الوقت؟؟؟!!! هذا الأمر غير منطقي) أي انظر لناتج الفائض -15 والناقص 300 لما لا يكون الأمر في هذه الحالة أن هناك نقص 285 ...!! ونقطة أخرى لما لا يكون العكس في الإدخال أي الموجب هو الفائض والسالب هو الناقص (هذا هو المنطق في لغة الحساب : السالب يعني تحت الصفر أي غير موجود فيعتبر ناقص ، والموجب موجود فيعتبر زائد أو فائض) المهم طلبك الثاني ضع المعادلة التالية في الخلية O13 =IF(OR(N13<=0,N13=""),"","take " & VALUE(N13) & " trucks from " & E13) أرجو أن يفي هذا بالغرض إن شاء الله

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

السلام عليكم تم حل المشكلة الأولى ووضع المعادلات اللازمة في الخلايا m3 m4 m5 m6 باقي المشكلة الثانية كما في الصورة يعنى أنك تقسم الشاحنات الناقصة فقط على الخلايا أما الشاحنات الزائدة فلا تحتاجها في الحساب فهل هذا صحيح ؟ جرب المرفق plan223.rar

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

الأخ الكريمعامر ياسر السلام عليكم جرب الملف التالى لعلة يكون المطلوب نسألكم الدعاءabo_abary_حساب عدد الطلاب حسب العمر والجنس بتاريخ محدد.rar abo_abary_حساب عدد الطلاب حسب العمر والجنس بتاريخ محدد.rar

أخي الكريم صلاح وضعت لك رابط فيه كود مشابه لما سأقدمه الآن وقد كان الحل بين يديك (نفس الفكرة تقريباً مع بعض التعديلات ليتناسب مع ملفك) جرب الكود التالي عله يفي بالغرض ويكون أسرع في التعامل مع البيانات Sub Data_Between_Two_Dates() Dim Ws As Worksheet, Sh As Worksheet Dim Arr, Temp Dim I As Long, P As Long, T As Long Dim startDate As Date, endDate As Date Set Ws = Sheets("all data"): Set Sh = Sheets("filter") Arr = Ws.Range("A2:K" & Ws.Cells(Rows.Count, 1).End(xlUp).Row).Value startDate = Sh.Range("L2").Value2: endDate = Sh.Range("M2").Value2 ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For I = LBound(Arr, 1) To UBound(Arr, 1) If Arr(I, 2) >= startDate And Arr(I, 2) <= endDate Then For T = 1 To 11 Temp(P + 1, T) = Arr(I, T) Next T P = P + 1 End If Next I Sh.Range("A2").Resize(P, UBound(Temp, 2)).Value = Temp End Sub

وعليكم السلام ورحمة الله وبركاته أهلا بك أ/ خالد الفيصل وأرجو أن تجد في هذا المنتدى حلولا لكل ما يواجهك في عالم البرمجة حللت أهلا ونزلت سهلا وتبوأت من الجنة منزلا أخي العزيز : تم حل مشكلة التقرير ولكن لي استفسار كما في الصورة أما المشكلة الأولى فلم أفهمها . الرجاء شرحها بشيء من التفصيل تجربة 3.rar

الأقسام التي ذكرتها موجودة في أي عمود ؟ A أم B أم C

الاخ الدبعي شاهد المرفق تصفح تعليمات البرنامج قبل ان تفعل اي شئ تمت التجربة علي اكسيل 14 / 2010 اكسيل 11 / 2003 Omar_1.rar

الأخ الكريم سليم الاخرس السلام عليكم ارجو ان يفى الملف التالى بالغرض ونسألكم الدعاء abo_abary_كرت دوام.rar

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

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

الاخ احمد بن ابراهيم انظر المرفقات Omar_2.rar

أتبع هذا الرابط أخى ربما تجد به ماتريد http://www.officena.net/ib/index.php?showtopic=56283&view=findpost&p=356267 تقبل تحياتى

تفضل أخى جمع من عدة شيتات.rar