اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

  1. ياسر خليل أبو البراء

    ياسر خليل أبو البراء

    المشرفين السابقين


    • نقاط

      34

    • Posts

      13,165


  2. عبدالله بشير عبدالله
  3. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      3

    • Posts

      8,723


  4. عامر ياسر

    عامر ياسر

    03 عضو مميز


    • نقاط

      3

    • Posts

      190


Popular Content

Showing content with the highest reputation on 29 أغس, 2016 in all areas

  1. حظك حلو إن كلمة السر قصيرة وإلا كان الموضوع هيكون صعب وشبه مستحيل إليك الملف المرفق غير محمي على الإطلاق وتحيا مصر ، وعاشت مصر حرة مستقلة Unprotected.rar
    2 points
  2. السلام عليكم بعد اذن استاذنا الفاضل ياسر خليل ابو البراء حفظه الله وادامه الله نبراسا لنا في هذا المنتدى هذا بالنسبة للطلب الأول الصف الأول الإبتدائي.rar
    2 points
  3. الحمد لله أن تم المطلوب على خير وأنك تعلمت شيئاً جديداً .. فلربما في يوم من الأيام سأل سائل أو وقع أحدهم في نفس مشكلتك .. ساعتها ستسطيع أن تجيبه مسألته ولا تنسى أنني قد ألح عليك في أن تقوم بالعمل بنفسك لتتعلم .. فلن تتعلم أبداً طالما تأخذ وفقط .. لابد من العطاء لتستمر المسيرة تقبل تحياتي
    2 points
  4. ردك غريب وكأنك ترد الباب في وجهي وتقول "مش عايز منك مساعدة" !! أرجو أن يكون ظني في غير محله .. لم تفدنا هل أدى المطلوب الغرض أم لا .. بارك الله فيك أخي العزيز .. الكل يشارك وأنا لست بمفتي المدينة إنما طالب علم مثلي مثلكم ، والمناقشات تثري الموضوعات وتفيد الجميع أرجو أن تغير اسم الظهور للغة العربية ، فأنت عضو قديم في المنتدى ولك صولات وجولات في موضوعات كثيرة
    2 points
  5. أخي الكريم صلاح مش عارف تقول ايه وقلت "جزاك الله خيراً" كدا إنت قلت أهو .. لو اطلعت على الموضوع في الرابط في أول مرة كان هيفيدك في الحل .. بس أعمل ايه مفيش كلام بيتسمع ولا أقولك بلاش لو عشان دي بتفتح أبواب الشيطان . نقول " قدر الله وما شاء فعل ، ولعله خير .. تقبل تحياتي
    2 points
  6. نعم هذا هو الخطاأ لم استبدل الفاصلة جزيتم خيرا ً استاذنا الكريم ياسر خليل أبو البراء منكم نتعلم شكرا والف شكر والشكر موصول للاستاذ سليم حاصبيا زادكم الله علماً . شكرا لتفضلكم بالاجابة
    2 points
  7. أخي العزيز م / هاني فاروق مشاركتي لا تعني أبداً التقليل من المساهمة الرائعة والجميلة من أخونا أبو عبد الباري ، إنما هي للنقاش وإثراء الموضوع .. وأخونا عبد الباري بارك الله فيه قام بالعمل على الملف المرفق كما توقع أن يكون بالنسبة لشرحك للمطلوب ، فتوقع أن تكون الأرقام بهذا الشكل (مرتبة تصاعدياً) فعمل على المطلوب بهذا الشكل وأجاد فقمت أنا بتوقع أن تكون الأرقام غير مرتبة ، وقمت بالتعديل فقط على معادلته ليتناسب مع المنطق الذي قمت بشرحه لك وفي النهاية نحمد الله عزوجل أن تم المطلوب على خير تقبلوا وافر تقديري واحترامي
    2 points
  8. أ / ياسر خليل أبو البراء يشرفنى مرورك ومساهمتك فى المشاركة الخاصة بى فعلا رأيك صحيح والحل المقدم من سيادتكم اقوى واشمل بكثير شاكر لك مجهودك ومرورك الكريم ولا انسى اخى الكريم أ / عبد البارى بمشاركته ايضا ومساهمته والحل المقدم منه السهل الممتنع تقبلوا تحياتى جميعا
    2 points
  9. أخي الكريم عامر لابد أن تقوم بالأمر بنفسك الخطأ المتوقع أنه يجب استبدال الفاصلة العادية بفاصلة منقوطة .. قم باستبدال الفاصلة العادية في المعادلة المقدمة من قبل أخونا سليم بفاصلة عادية (يرجع ذلك لإعدادات الويندوز) ثم لا تنسى بعد أن تكتب المعادلة أن تضغط CTRL + SHIFT + ENTER معاً لأنها معادلة صفيف .. شاهد الفيديو التالي لتعرف كيف يتم الأمر ولما لم تعمل معك المعادلة .. أمامك خياران إما أن تقوم بتغيير الإعدادات الإقليمية لتستخدم الفاصلة العادية وفي هذه الحالة يمكنك نسخ المعادلة بشكل طبيعي وتطبيقها على الملف بدون حدوث أخطاء أو تقوم بتغيير الفاصلة تبعاً لما هو موجود في الإعدادات لديك الفيديو سيوضح لك الأمر 2016-08-29_10-08-50.rar
    2 points
  10. =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 و ثم نزولاً
    2 points
  11. السلام عليكم هناك حلان لهذا الامر 1- استخدام tempvars بحيث تضع هذه القيمة فيه ثم تقوم باستخدامها في اي نموذج او استعلام 2- انشاء وحدة نمطية وتعريف متغير من نوع public ثم تقوم باعطاءه قيمة من النموذج الاول وتستعديها من المتغير في النموذج الثاني
    2 points
  12. السلام عليكم مثال قديم للأستاذ أبو هاجر لاستخدام الماسح ( السكانر ) عن طريق الأكسس قمت على تحديثه وزيادة السيطرة واستبعاد تخزين مسار الصور حيث لا داعي لها . مرفق ملف مكتبة dll يجب نسخه في مجلد Windows\System . لا تنسونا من دعاكم . تحياتي . الملفات المرفقة Scanner.rar ( 471.28ك ) عدد مرات التنزيل: 38
    1 point
  13. أخي العزيز هاني صراحة لا أفهم الطلب بشكل واضح .. ما هي المعطيات؟ أقصد الخلايا التي سيكون العمل عليها ؟ وما هي الخلايا المطلوب عمل المعادلات فيها؟ وما هو منطق العمل؟ التخمين لن يجدي ويفيد بشيء .. أرجو ألا أكون أثقل عليك بإلحاحي في التوضيح
    1 point
  14. أخي العزيز / فايز فراج وبعد أذن أساتذتنا الكرام هذا كود طباعة الشهادات محددة من إلى إن شاء الله يحقق الطلوب تقبلوا تحياتي الصف الأول الإبتدائي.rar
    1 point
  15. الاخ الدبعي ارفع الملف به هذه البيانات مع باقي الفلدرات مبدئيا احذف موديول1 Module1 ثم استورد هذه الموديول1 Module1.rar اذا بقي الوضع كما اخبرتني ارفع الملف به هذه البيانات مع باقي الفلدرات
    1 point
  16. حفظك الله اخي العزيز ياسر ورفع قدرك ما تم عمله خطوتين 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)) والحقيقةان كل ما قمت به موجود بالمنتدى ولو ان السائل رعاه الله استخدم خاصية البحث لوجد حلولا كثيرة متنوعة
    1 point
  17. اخي ياسر لا ارى داع لتحميل ملفات كبيرة بهذا الحجم (حوالي7 ميغا) لا يكفي قسم بسيط من الملف للعمل عليه كنموذج الا ترى ان هذا الشيء يجعل من يريد ان يساعد ان ينفر من هذا الامر يرجى توجيه هكذا رسالة الى الاعضاء تحت عنوان: (ساعدوا المساعدين كي يساعدونكم و........يسعدونكم)
    1 point
  18. أخي الكريم م / هاني عليك ألا تخاطب شخص بعينه فقد يكون عند غيره الحل لمشكلتك .. !! المهم ارفق ملف للعمل عليه ..أنا لا أعمل إلا على الملف المرفق لأتحقق من صحة النتائج تقبل تحياتي
    1 point
  19. يا اخ ياسر مش عارف كيف اشكرك فأنت انا استاذ ورئيس قسم كبير وحليت لى مشكلة كبيرة اما عن حماية اوراق العمل مش مطلوبة ربنا يعوضك خيرا فى صحتك ويبارك لك ربنا فى اسرتك
    1 point
  20. بارك الله فيك أخي العزيز عبد الله وجزيت خيراً على مساهمتك الرائعة ، ولكن الأفضل أن توضح خطوات العمل ليستفيد الأعضاء الأفضل أخي فايز أن تقوم بطرح موضوع لكل طلب وصدقني هذا أفضل لك إن شاء الله
    1 point
  21. أخي الكريم فايز راجع موضوع التوجيهات :: العنوان غير مناسب للمطلوب .. قسم المطلوب لطلب واحد فقط في كل موضوع لتجد استجابة أسرع .. أرجو من الأخوة الكرام مراعاة التوجيهات !! تقبل تحياتي
    1 point
  22. لم أفهم المطلوب بشكل واضح .. أخي أحمد ركز في الموضوع حتى يمكنك أن تجد الحل بسهولة ما هي الخلية التي توضع فيها الدرجة ؟ ما هو العمود المراد البحث فيه؟ ما هي النتيجة المتوقعة بعد البحث؟ أين توضع النتيجة المطلوبة ..؟؟ دعك من كل ما مضى وركز في الإجابة على هذه التساؤلات ..! لأني بصراحة تهت معاك ومش فاهم المطلوب بدقة
    1 point
  23. أخي الكريم أحمد أقصد باللغة العربية هو اسمك Ahmede أن يكون باللغة العربية (ويفضل اسم ولقب) المهم راجع موضوع التوجيهات وستعرف كيف يمكنك ذلك .. يبدو أنني نسيت إرفاق الملف لك في مشاركتي السابقة ..اطلع على الملف المرفق وأبدي ملاحظاتك عليه ... وضع المعادلات و الأكواد داخل أقواس الكود لتظهر بشكل صحيح في المشاركات أو ارفق الملف مرة أخرى موضحاً الخلايا التي توضع فيها المعطيات والنتائج المتوقعة Sample.rar
    1 point
  24. أخي الكريم موريادي قمت بعمل أعمدة مساعدة في الورقة المسماة 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
    1 point
  25. لم أتدخل لأتلقى اعتذار إنما أردت لموضوعك أن يسير بشكل صحيح لكي تجد الاستجابة المناسبة والحل الشافي إن شاء المولى والتوجيهات وضعت لمصلحة الأعضاء وليست ضدهم
    1 point
  26. الحمد لله أن تم المطلوب على خير .. لاحظت شيء أثناء عملي بالملف بالنسبة لإجمالي عدد الساعات سيظهر بشكل خاطيء في عمود ساعات العمل ..لذا قم بتنسيق النطاق E38:G38 بتنسيق مخصص [hh]:mm ليظهر لك عدد الساعات بشكل منضبط .. أرجو أن يفي هذا بالغرض وأن تكون الأمور على ما يرام وفقك الله لما يحب ويرضى تقبل تحياتي
    1 point
  27. استاذى الكبير ياسر خليل اعتذر لانى لم اشاهد مشاركتك على الموضوع وان كنت شوفتها من الاساس لم اكن لاعلق فلا يفتى ومالك فى المدينة
    1 point
  28. أخي الكريم سليم أعتقد أن المشكلة في ملف الأخ ياسر الشيخ تكمن في الصورة التالية أخي العزيز أبو عبد الباري ننتظر منك تقديم ما تم عمله في الملف ليستفيد الجميع .. تقبل تحياتي
    1 point
  29. وجزيت خيراً بمثل ما دعوت لنا أخي الحبيب أسامة .. نرجو لك التوفيق والسداد تقبل وافر تقديري واحترامي
    1 point
  30. أخي الكريم الشيباني الموضوع الجيد لابد أن يكون له عنوان معبر عن الطلب .. لاحظ العنوان "سند قبض ودفع" لم يعبر عن المطلوب الأفضل أن يكون العنوان معبر عن الطلب بدقة أمر آخر عند إرفاق ملف لا تضع كلمة سر للملف حتى يتسنى لمن يريد تقديم المساعدة المساهمة ... كلمة المرور 111 لاحظ أن غيري قد لا يتعدى على الملف ويحاول معرفة كلمة السر ، وما قمت بالتعدي على الملف إلا للمساعدة فقط .. الطلب غير واضح بشكل كبير .. لاحظ أن الملف يحتوي على كثير من الأكواد مما يستلزم الكثير من الوقت لدراسته ومعرفة المشكلة بالضبط ، فحاول أن تكون أكثر دقة وتحدد المشكلة أي عند النقر على زر الأمر كذا في الفورم المسمى كذا .. يحدث كذا ومن المفترض أو المطلوب أن يحدث كذا ... هكذا يكون أسهل على من يريد تقديم المساعدة لأن الصورة في هذه الحالة تكون مكتملة بالنسبة له تخميناً مني ولا أحب التخمين في حل المشكلات أنك تريد التعديل على زر الطباعة الموجود في الفورم المسمى Toumana لاحظ أن الكود متشعب أي عند النقر دبل كليك على زر الأمر طباعة ، ينتقل بك الزر لتنفيذ الإجراء المسمى CmdPrint_Click ، وهذا الإجراء به سطر ينفذ إجراء آخر اسمه Printingout وعند الانتقال للإجراء Printingout ستجد في آخر سطر أنه ينقلك لإجراء آخر اسمه Print_All ، وفي هذا الإجراء الأخير الأمر المسئول عن الطباعة PrintOut قم بالتعديل على هذا السطر لزيادة عدد النسخ المطلوبة بالشكل التالي .PrintOut Copies:=2 أرجو أن يفي هذا بالغرض .. تقبل تحياتي
    1 point
  31. اخى الكريم قيس برامج النقل من اى قاعدة بيانات سواء اكسيل او اكسيس الى ال SQL متعددة لكن البرامج دى بتنقل جداول على بعضها مش بيانات فقط بمعنى انها بتاخد الجدول من الاكسيل او الاكسيس على انه جدول فى قاعدة بيانات ال SQL اذا كان هو دا المطلوب ففيه برنامج اسمه PHPMYAdmin ودا هو اقوى البرامج دى على الاطلاق بالتوفيق باذن الله فيما تبحث
    1 point
  32. الحمد لله لغاية الان الامور تمام سيتم التجريب ومعرفة النتائج جزاك الله الف خير انتا والاخوه
    1 point
  33. إذا كانت طبيعة العمل هكذا فأهل مكة أدرى بشعابها ..فقط كنت أتحدث بلغة المنطق والحساب المهم أن الأمر تم على خير والحمد لله الذي بنعمته تتم الصالحات
    1 point
  34. استاذ سليم حاصبيا لقد حاولت باستخدام (Ctrl+Shift+Enter) لكن يعطيني خطأ ...ارجوا تفضلكم علينا بارفاق المعادلة داخل الملف وانتم اهل لذلك ...شكرا لكم لاجابتكم على سؤالنا تقديري واحترامي لشخصكم الكريم
    1 point
  35. بارك الله فيك أخي العزيز أبو عبد الباري .. وجزيت خيراً على مساهماتك الرائعة أرجح إرفاق الحل في المشاركة مع الملف المرفق .. أخي الكريم م / هاني طبعاً أنت أدرى بملفك مني ، ومشاركتي لإثراء الموضوع فقط ليس إلا .. دعنا نتحدث بلغة المنطق : الحل المقدم قارن بين الخلية 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 إلى "خارج النطاق" تقبلوا تحياتي
    1 point
  36. تم حل المشكلة بمساعدة استاذ عبد الله قدور شكرا كتير جداااااا الله يعطيك العافيه
    1 point
  37. أخي العزيز أسامة أولاً يرجى عند طرح موضوعات أن توضع عناوين مناسبة للموضوعات حتى نستطيع أن نتابع الموضوع بسهولة بالنسبة للملفات أشعر أن هناك أمر غير منطقي (كيف يكون هناك فائض وناقص في الشاحنات A مثلاً في نفس الوقت؟؟؟!!! هذا الأمر غير منطقي) أي انظر لناتج الفائض -15 والناقص 300 لما لا يكون الأمر في هذه الحالة أن هناك نقص 285 ...!! ونقطة أخرى لما لا يكون العكس في الإدخال أي الموجب هو الفائض والسالب هو الناقص (هذا هو المنطق في لغة الحساب : السالب يعني تحت الصفر أي غير موجود فيعتبر ناقص ، والموجب موجود فيعتبر زائد أو فائض) المهم طلبك الثاني ضع المعادلة التالية في الخلية O13 =IF(OR(N13<=0,N13=""),"","take " & VALUE(N13) & " trucks from " & E13) أرجو أن يفي هذا بالغرض إن شاء الله
    1 point
  38. أحسنت أخي العزيز سليم .. هكذا يجب أن تكون المشاركات (أصبت الهدف تماماً ..) كفانا ملفات جاهزة وحسب ..هذا لن يقدم للعضو شيئاً جديداً علموهم الصيد لنرتقي ..علموهم الصيد لنرتقي
    1 point
  39. أخي الكريم أحمد يرجى تغيير اسم الظهور للغة العربية .. قمت بعمل كود واحد يتم النقر على الزر المرسوم "توكل على الله وانقر هنا" ، ليتم وضع جميع النتائج .. كل ما عليك أن تكتب الدرجات في الخلايا الصفراء : L3 بدلاً من الخلية P2 التي أشرت إليها ، والخلية A26 لتحصل على جميع النتائج مرة واحدة .. ملحوظة : تركت لك الأزرار المرسومة الأخرى كدليل فقط ، وعند النقر عليها لن يحدث شيء أي أنها غير مرتبطة بحدث معين .. وحذفت لك جميع الأكواد الأخرى الموجودة وتركت لك الكود التالي فقط Sub Test() Application.ScreenUpdating = False Range("M3:O3,B26:E26").ClearContents If Not IsEmpty(Range("L3")) Then With Range("M3:O3") .FormulaR1C1 = "=IFERROR(INDEX(R3C[-4]:R134C[-4],MATCH(R3C12,R3C8:R134C8,0),1),"""")" .Value = .Value End With End If If Not IsEmpty(Range("A26")) Then With Range("B26:E26") .FormulaR1C1 = "=IFERROR(INDEX(R3C:R22C,MATCH(R26C1,R3C1:R22C1,0),1),"""")" .Value = .Value End With End If Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub أرجو أن يفي هذا بالغرض تقبل تحياتي
    1 point
  40. السلام عليكم تم حل المشكلة الأولى ووضع المعادلات اللازمة في الخلايا m3 m4 m5 m6 باقي المشكلة الثانية كما في الصورة يعنى أنك تقسم الشاحنات الناقصة فقط على الخلايا أما الشاحنات الزائدة فلا تحتاجها في الحساب فهل هذا صحيح ؟ جرب المرفق plan223.rar
    1 point
  41. الأخ الكريمعامر ياسر السلام عليكم جرب الملف التالى لعلة يكون المطلوب نسألكم الدعاءabo_abary_حساب عدد الطلاب حسب العمر والجنس بتاريخ محدد.rar abo_abary_حساب عدد الطلاب حسب العمر والجنس بتاريخ محدد.rar
    1 point
  42. أخي الكريم صلاح وضعت لك رابط فيه كود مشابه لما سأقدمه الآن وقد كان الحل بين يديك (نفس الفكرة تقريباً مع بعض التعديلات ليتناسب مع ملفك) جرب الكود التالي عله يفي بالغرض ويكون أسرع في التعامل مع البيانات 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
    1 point
  43. الأقسام التي ذكرتها موجودة في أي عمود ؟ A أم B أم C
    1 point
  44. الاخ الدبعي شاهد المرفق تصفح تعليمات البرنامج قبل ان تفعل اي شئ تمت التجربة علي اكسيل 14 / 2010 اكسيل 11 / 2003 Omar_1.rar
    1 point
  45. الأخ الكريم سليم الاخرس السلام عليكم ارجو ان يفى الملف التالى بالغرض ونسألكم الدعاء abo_abary_كرت دوام.rar
    1 point
  46. الأخ الكريم م / هانى فاروق محمد السلام عليكم جرب المرفق التالى لعلة يفى بالغرض وان لم يكن ارسل ملف به مثال وبه شكل النتائج المتوقعة نسألكم الدعاء abo_abary_out_in_range.rar
    1 point
  47. أخي العزيز أسامة ولا يهمك .. كلنا نخطيء ولكن علينا أن نتعلم من الخطأ حاول أن تنظم أفكارك بشكل جيد ثم ارفق ملف وبه بعض النتائج المتوقعة ليسهل تصور الفكرة وصدقني أن معرفة المشكلة بشكل واضح يمثل 90 % من الحل .. وهذا ما لا يدركه الكثيرون التخبط في فهم المشكلة يجعل الموضوع يطول بدون داعي وتجد كل من يريد تقديم المساعدة يتخبط ويخمن ويعمل على أساس تخمينه والذي ربما لا يكون هو المطلوب ، فيضيع الوقت والجهد هباءً وبدون فائدة آمل أن نتعلم كيف نتعامل مع المشكلات بأسلوب علمي وبمنطق واضح تقبل وافر تقديري واحترامي
    1 point
  48. الاخ احمد بن ابراهيم انظر المرفقات Omar_2.rar
    1 point
  49. أتبع هذا الرابط أخى ربما تجد به ماتريد http://www.officena.net/ib/index.php?showtopic=56283&view=findpost&p=356267 تقبل تحياتى
    1 point
  50. تفضل أخى جمع من عدة شيتات.rar
    1 point
×
×
  • اضف...

Important Information