اذهب الي المحتوي
أوفيسنا

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

  1. وليد فتحي

    وليد فتحي

    04 عضو فضي


    • نقاط

      12

    • Posts

      580


  2. محمد ابو البـراء

    محمد ابو البـراء

    05 عضو ذهبي


    • نقاط

      9

    • Posts

      1303


  3. أم عبد الله

    أم عبد الله

    الخبراء


    • نقاط

      4

    • Posts

      2166


  4. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      3

    • Posts

      8723


Popular Content

Showing content with the highest reputation on 03/30/14 in مشاركات

  1. السلام عليكم ورحمة الله وبركاته الاخ الفاضل نينوص06 على حسب فهمي لطلبك اتفضل المرفق واتمني من الله ان يكون هذا طلبك عداد_W.rar
    3 points
  2. الأستاذ / أبو بهاء المصري السلام عليكم ورحمة الله وبركاته بعد إذن الأستاذ الفاضل / محمد أبو البراء جزاه الله خيراً على مجهوده الكبير جداً وأنا مشفقة عليه هذه الأيام ربنا يعطيه الصحة والعافية وتم عمل المطلوب في الملف الأول ولكن الكهرباء قطعت منذ أكثر من ساعة ولكن وجدت بعض الاستفسار عن المجموعات متى تكون المجموعة الولى ومتى تكون الثانية حسب ما نطبقه في المدرسة مجموعة اولى حسب اختيار المواد او حضرتك عاملها حسب العلمي والأدبي أرجو مراجعتها.وهل الأستاذ محمد عمل الملف الثاني أو يسمح لي ان اعمله نيابة عنه. النماداه 1 (تم الحفظ تلقائياً).rar
    3 points
  3. السلام عليكم اخوتي في المنتدى ​اضع بين ايديكم هذا الكود البسيط/عسى ان ينال اعجابكم ترقيم من إلى.rar
    2 points
  4. أخي العزيز / أظن إن ما في داعي لتحويل المعادلة إلى كود لأن الملف عندك معادلات وإظن إن الصعوبة التي واجهتك هي تكرار المعادلة في بقية الصفوف ولتسهيل العملية كان لابد من تثبيت بعض النطاقات بوضع علامة الدولار قبلها حتى يتم نسخ المعادلة أو سحبها من الصف الأول في الجدول إلى بقية الصفوف دون حدوث خطأ انظر للتعديل التالي استبدل هذه المعادلة بالمعادلة في الخلية (E5) واسحبها لأسفل أوقم بعمل نسخ للخلية ثم قم باللصق في بقية الخلايا التي أسفل منها =SUMPRODUCT(SUMIF(INDIRECT("'"&$L$5:$L$11&"'!C3:C33");B5;INDIRECT("'"&$L$5:$L$11&"'!E3:E33"))) هذا والله أعلم
    2 points
  5. السلام عليكم ورحمة الله وبركاته أخواني ادارة موقعنا الحبيب اتمنى من الادارة رفع هذا الملف في المشاركة الاولى ففيه تعديل بسيط جدا لضبط عمود em (عمود المجموع في ورقة الشيت ) [وتثبيت خلية في هذا االعمود] واضافة شرط [عند غياب الطالب في جميع المواد يكتب الطالب غ في المجموع] والله اسال ان يكون أخر تعديل وبكرر اعتذاري لاخواني ولعل هذا من العجلة لضيق الوقت وارهاق الذهن وكثرة المشاغل .. شيت النقل للصنايع_كل التخصصات 14 مادة تضاف للمجموع + 2 مادة لا تضاف للمجموع 30-3-2014.rar
    2 points
  6. السلام عليكم هذه الطريقة بلا كود قد تعجبك يمكن إضافة عمود قبل الجدول (وليكن باللون الأزرق) لحساب رقم الصفحة الذي يتغير كل 15 صف ثم من قائمة Data ثم Subtotal وبناءا علي هذا العمود الجديد يمكن عمل ذلك وستلاحظ الأرقام 1-2-3 في أعلي اليمين التي تكونت نتيجة ذلك إضغط علي كلا منها علي حدي لتتعرف عليها تفضل المرفق Book20.rar
    2 points
  7. اخواني الاكارم البرنامج التالي يخص محلات بيع النظارات و اطباء العينية و هو مأجور و ليس مجاني الأجرة ( دعوة صالحة لي و لمعلمي ( أبو آدم )) :rol: اترككم مع المرفق و انا بانتظار الردود ( في حال وجود خطأ لا سمح الله ) -------------------------------------------------------------------------------------------------------------------------- اعتذر لجميع الاخوة يرجى اضافة المرفق التالي مع المرفق الأول وهو وحدة نمطية لمنع التحرك بين السجلات عن طريق دولاب الفارة فقط استخرج المف المرفق وضعه في فولدر البرنامج MyCustomerData.rar std.rar
    1 point
  8. الصلاة والسلام علي رسول الله سيدنا محمد النبي الامي خاتم الانبياء اما بعد تعليم office 2010 كامل CD 8 من شركة pc lab الشهيره رابط مباشر + تورينت شرح برنامج الورد word 2010 شرح برنامج الاكسيل excel 2010 شرح برنامج بوربونت PowerPoint 2010 شرح برنامج اكسيس access 2010 هام قبل التحميل نتيجة فحص الروابط الارشيف من هنا نتيجة فحص الروابط التورنت من هنا التحميل بحجم 915 ميجا رابط مباشر ارشيف رابط مباشر مركز الخليج أفضل موقع رابط تورنت من اخبكم ومحبكم في الله خيالووو هام عند وجود هذه المشكله وهي عدم عرض الملفات الفيديو للتشغيل نتبع الاتي من start....run %temp% بارك الله في كل من له بصمه في هذا العمل
    1 point
  9. يحتوى برنامج الفيزيو 2010 على خاصية اضافة الملاحظات و علامات المراجعة Mark up و لكن للاسف لا يحوي امكانيات متقدمة مثل برنامج الوورد للتحكم فى طباعتها و لكن يوجد حل بديل عن طريق الماكرو حيث يتم انشاء مربع نص و نسخ قائمة بالتعديلات اليه و ذلك بجوار الرسم المصدر http://support.microsoft.com/kb/898514/en-us و هذا هو الكود Public Sub GetComments() Dim pagMarkup As Visio.Page Dim pag As Visio.Page Dim shp As Visio.Shape Dim sText As String Dim iRow As Integer Set pag = Visio.ActivePage sText = "Reviewer" & vbTab & "Date" & vbTab & "Comment" If pag.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then For iRow = 0 To pag.PageSheet.RowCount(Visio.visSectionAnnotation) - 1 sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("") sText = sText & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU sText = sText & vbTab & Format(pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd") sText = sText & vbTab & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("") Next iRow End If For Each pagMarkup In pag.Document.Pages If pagMarkup.Type = visTypeMarkup Then If pagMarkup.OriginalPage = pag Then If pagMarkup.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then sText = sText & vbCrLf sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.ReviewerID - 1, Visio.visReviewerName).ResultStr("") For iRow = 0 To pagMarkup.PageSheet.RowCount(Visio.visSectionAnnotation) - 1 sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("") sText = sText & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU sText = sText & vbTab & Format(pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd") sText = sText & vbTab & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("") Next iRow End If End If End If Next pagMarkup Dim iAutoSize as Integer 'new iAutoSize = pag.AutoSize 'new pag.AutoSize = 0 'new Set shp = pag.DrawRectangle(-pag.PageSheet.Cells("PageWidth").ResultIU, 0, 0, pag.PageSheet.Cells("PageHeight").ResultIU) pag.AutoSize = iAutoSize 'new shp.AddSection visSectionUser 'new shp.AddNamedRow visSectionUser, "msvNoAutoSize", visTagDefault 'new shp.CellsU("User.msvNoAutoSize").FormulaU = 1 'new shp.Cells("Para.HorzAlign").Formula = "0" shp.Cells("VerticalAlign").Formula = "0" shp.Name = "Reviewers Comments" shp.Text = sText End Sub
    1 point
  10. السلام عليكم ورحمة الله وبركاته بعد الحمد لله والصلاة والسلام على رسول الله وبعد وبعد نزول الاصدارالاول من شيت كنترول النقل(للتعليم الفني) صنايع [انتظام][جميع التخصصات 14 مادة +2 لا تضاف][الاصدار الأول] ظهرت فيه بعض المشاكل البسيطة واهم هذه المشاكل هي 1 ) تاخر فتح الملف 2 ) لم يكن هناك اصدار 2003 3 ) عدم ظهور الطالب الاول في شهادة نصف العام وبعض المشاكل البسيطة الاخرى ولله الحمد تم حل هذه المشاكل في الاصدار الثاني وهذه النسخة اصدار 2003 ليستطيع الجميع استخدامها والان اترككم للتصفح وانا في انتظار ارائكم والسلام عليكم ورحمة الله وبركاته للعلم جميع المعلومات عن هذه المرحلة وما يخصها من درجات والقرارات الوزارية ماخوذة من الاستاذ //ahmed alimer فله الشكر وعند وجود اي أخطاء ارجو الابلاغ لتعديلها والسلام عليكم ورحمة الله وبركاته.. شيت النقل للصنايع_كل التخصصات 14 مادة تضاف للمجموع + 2 مادة لا تضاف للمجموع 29-3-2014.rar
    1 point
  11. الاستاتذة الكرام السلام عليكم ورحمه الله وبركاته فى المرفق عدد 2 شيت حيث فى الشيت الاول ( اذون الاستلام ) يتم استلام بضاعة ويتم ادراج رقم اذن الدخول عليها حيث ان اذن الدخول ممكن ان يتكرر فى اكثر من اذن استلام وبالتالى فى الشيت الثانى يتم حصر اذون الدخول ويتم تجميع الكميات الداخله لكل اذن وذلك عن طريق دالة sumproduct وبالتالى وجدنا عند المراجعه لاذن الدخول يراد معرفه ارقام اذون الاستلام الخاصه بهذا الاذن والتى كتب عليها رقم اذن الدخول حيث ان الحد الاقصى لعدد اذون الاستلام التى تستخدم لاذن الدخول 4 اذون استلام وفى المرفق مثال بالارقام لتوضيح الفكرة البحث عن ارقام الاستلام التى دخلت فى تجميع رقم اذن الدخول.rar
    1 point
  12. الاستاذ // ahmd_asd4 راجع المشاركة رقم 31 الاستاذ // ahmed alimer جزاك الله خيرا على كلامك ولعله القريب العاجل جدا بإذن الله تعالى سيخرج شيت 20 مادة + 2 اضافي وانا اعلم انه ستعتريه بعض المشاكل في شكل الورقة عند الطباعة!! ولكن ليس هذا مهم ملحوظة : اتمنى الرجوع للمشاركة رقم 26
    1 point
  13. السلام عليكم استاذ احمد كلام حضرتك صح وهو دا اللى عمله الاستاذ محمد انك تحدد المواد سواء اكانت ثقافيه او فنيه او عمليه وكمان ممكن تحط الدرجات فيها بنفسك مش درجات ثابته ويا ريت تطلع على الشيت اكثر فهذا هو المطلوب بالاضافه الى زياده عدد المواد كما تفضلو الاخوه فى التعليقات لأختلاف المواد الفنيه فى كل مدرسه عن الآخرى بأختصار اكبر مدرسه صناعيه لا يمكن ان يكون بها اكثر من 20 ماده (ثقافى +فنى +عملى)طبعآ بالإضافه الى طالب الخدمات (درجاته بدون اعمال سنه) فالشيت انا فعلآ جربته على مواد مدرستى فهو اكثر من رائع طبعآ بالاضافه الى زياده عدد المواد وشيت الخدمات اللى الاستاذ محمد ان شاء الله شغال فيه حاليآ والسلام عليكم ورحمه الله وبراكاته
    1 point
  14. السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل أبو بهاء المصري أو الاستاذ وليد شرف لي ان يكون اسمي مثل اسمك والعفو اخي نحن جميعا هنا اخوة متحابين في الله والحمد لله اننا جميعا هنا متحابين في الله نعمل جميعا لوجه الله ولا نطمع ولا نرجو غير دعوة صالحة لعلها تكون ساعة اجابة وألف مليون سلامة على أخي الاستاذ محمد ابو البراء جزاك الله كل خير استاذ ابو بهاء وزادك الله من علمه وجعل مثواك الجنة لك كل تحيه وتقدير
    1 point
  15. أخي الحبيب/ محمد ابو البراء سيدتي الفاضلة / ام عبدالله الاستاذ/ وليد فتحي يا اخوان حرام عليكم الكلام ده والله العظيم انا شعر راسي وقف من المحبة اللي بينكم ومن تفانيكم في خدمة الاعضاء والله العظيم ما لاقي كلام اوصف بيه مشاعري وانا اقرا تلك الكلمات الرقيقة التي تنساب منكم مش عارف اعمل ايه معاكم غير اني اقول يا رب ازرع مثل هذه المحبة في قلوب كل الناس في بلدي صدقوني سنقول وقتها اننا نعيش في الجنة علي الارض الله يباركلم دنيا واخرة واشكر السيدة الفاضلة / ام عبدالله والاستاذ / وليد فتحي ((وعلي فكر انا اسمي وليد زي اسم حضرتك طبعا تشابه اسماء فقط وليس تشابه عقول))( ابتسامة رقيقة) علي تشريفهم موضوعي والاستاذ/ الشهابي فهو يمد لي يد العون في عملي دون ابطاء او تاخير واخي محمد ابو البراء الف سلامة عليك لا اعلم انك متعب ما كنت اثقلت عليك
    1 point
  16. رررررررررررررررررررائعين
    1 point
  17. السلام عليكم الاخ الكريم / محمد رزق بارك الله فيك لاثراء الموضوع ... وبعد حل اخي الحبيب / أبوعيد ... جزاه الله خيرا اليك حل آخر ولكن باستخدام الاكواد تقبلوا خالص تحياتي -ترحيل بشروط Book20.rar
    1 point
  18. أخي الحبيب // وليد فتحي ووالله انت كذلك يعلم الله مدى شعوري لشخصكم الكريم واحبك الله الذي احببتنا من اجله وظلنا الله في ظله يوم لا ظل الا ظله..
    1 point
  19. أخي وحبيبي في الله الاستاذ محمد أبو البراء يعلم الله عزوجل مدي حبي لك في الله ويعجر اللسان بعد هذا الكلام الطيب من شخصكم الطيب والكريم والمعطاء أن يقول شئ جزاك الله كل خير وزادك من علمه وجعل مثواك الجنة أنت ووالديك وكل من تحب لك كل تحيه وتقدير
    1 point
  20. أخي وحبيبي في الله // وليد فتحي دائما مميز دائما لا تعجزك صعاب دائما خدوم للاخرين دائما بروح طيبة ونفس رضية دائما تسعى للافضل اسال الله ان يجزيك خير الجزاء وان يتجاوز عنا وعنك...
    1 point
  21. 1 point
  22. عذرا لم انتبه لعمود الفصل بصفحة (legan) فعدلته لجلب رقم الفصل تقبلوا تحياتي المناداة_WW.rar
    1 point
  23. السلام عليكم ورحمة الله وبركاته بعد اذن استاذتنا الفاضلة أم عبد الله وأخي وحبيبي في الله الاستاذ محمد ابو البراء انا اخد ملف الاستاذة ام عبدالله بس خليت أعمدة ( المجموعة - رقم اللجنة - مقر اللجنة ) بصفحة (names) تعمل اتوماتيك من الجدول المجاور لها حسب طلب الاستاذ ابو بهاء المصري اما صفحة (legan) فلا تحتاج أي شئ بعد عمل الاستاذة الفاضلة أم عبدالله لكم جميعا كل تحيه وتقدير المناداة_W.rar
    1 point
  24. السلام عليكم و رحمة الله اخي محمد اليك ما طلبت النموذج على الصفحة (ورقة 2(1)) تستطيع ان تلمؤه بما بناسبك (احفظ نسخة احتياطية عن الملف قبل البدء بالعمل) حتى تتدارك الأخطاء فيما لو حصلت جمع اختياري.rar
    1 point
  25. عليكم السلام ورحمة الله وبركاته أخي وحبيبي في الله الاستاذ محمد ابو البراء ماشاء الله عليك كل يوم تبهرني بأعمالك الأكثر من روعة سواء في شكل الاخراج أو المضمون وفعلا جزئية انك تسيب اسماء المواد والدرجات فارغة دي فكرة حلوة جزاك الله كل خير وزادك من علمه وجعل مثواك الجنه لك كل تحيه وتقدير لشخصكم الكريم المعطاء
    1 point
  26. هذا مثال للملف بعد وضع أرقام الصفحات في الوسط النجم الساطع.rar
    1 point
  27. عليكم السلام ورحمة الله وبركاته الاستاذ الفاضل ابو لارا اتفضل وأتمني من الله أن يكون هذا طلبك Mohammed_w.rar
    1 point
  28. السلام عليكم ورحمه الله وبراكاته والله لسانى عاجز عن الشكراستاذى الحبيب لكن هرجع واقول لك بارك الله فيك وفى مجهوداتك العظيمه على استخراج هذا العمل الاكثر من ممتاذ بس هقول ايه هى دى صفتك الجميله وروح الحب والتعاون رغم انى بكرر انك مش تابع للتعليم الفنى ولكن تعاونت معنا لاستخراج هذا العمل الممتاذ لتفيد به التعليم الفنى بأجمعه جعل الله هذا العمل فى ميزان حسناتك ان شاء الله وبارك الله فيك وفى اسره المنتدئ جميعآ
    1 point
  29. بارك الله فيك اخي الحبيب / اسلام الشيمي تقبل خالص تحياتي
    1 point
  30. ahmed // الاستاذ جزاك الله خيرا على هذه الكلمات الرائعة وشكرا على ملاحظاتك في استخراج الاخطاء كما اشكرك شكر خاص على الامداد بمعلومات عن هذه المرحلة جعله الله في ميزان حسناتك --------------------- ملحوظة : اتمنى الرجوع للمشاركة رقم 10
    1 point
  31. السلام عليكم ورحمة الله وبركاته أخواني ادارة موقعنا الحبيب اتمنى من الادارة رفع هذا الملف في المشاركة الاولى ففيه تعديل بسيط لضبط نتيجة أخر العام والله اسال ان يكون أخر تعديل وبعتذر لاخواني ولعل هذا من ضيق الوقت وارهاق الذهن وكثرة المشاغل .. شيت النقل للصنايع_كل التخصصات 14 مادة تضاف للمجموع + 2 مادة لا تضاف للمجموع 29-3-2014.rar
    1 point
  32. السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل ايهاب ممدوح انا لا اعلم هذه الجزئية وهي انني استغني عن ساعة الجهاز انتظر لو احد الاساتذة الافاضل لدية اجابة لسؤالك لن يبخل عليك بالاجابة
    1 point
  33. الأستاذ / وحيد احمد السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. حساب الإقامة.rar
    1 point
  34. بسم الله الرحمن الرحيم الاخوة الاعزاء / مشرفى واعضاء المنتدى الكرام السلام عليكم ورحمة الله وبركاته مرفق ملف مضغوط به رسالة مزعجة وهى رسالة خطأ فى النظام هذه الرسالة تظهر دوما عند فتح الجهاز فما معن هذه الرسالة وماهو الحل للتخلص من تلك الرسالة بارك الله فيكم خطأ فى النظام.rar
    1 point
  35. 1 point
  36. ابوحنين ابداع *ابداع* ابداع *ابداع ابداع *ابداع ابداع *ابداع ابداع *ابداع والله مش كفاية عايز اكتب اكثر ابداع *ابداع ابداع *ابداع
    1 point
  37. عليكم السلام ورحمة الله وبركاته استاذ alyafei2000 اولا لك دعوة طيبة بتغيير اسمك طبقا لسياسة المشاركة بالمنتدي ثانيا يمكنك ارفاق ملف تصوري به ما تريد وسوف تلاقي ان شاء الله التعديل المناسب لك من جميع الاعضاء وفق ما تريده
    1 point
  38. نرجو من الاخوة الاعضاء سرعة التلبية حتى يتسنى للفريق الاعلامى نشر الموضوع الذي سيتم اختياره فى العدد القادم (أبريل 2014) ووضع المواضيع الخاصة بهم هنا تحياتى
    1 point
  39. أفضل طريقة لتحميل الفيديوهات من اليوتيوب وتحويلها بدون برامج وحل نهائي لمشكلة داونلود مانجر مع صيغة الـ MP4 حمل فيديوهات اليوتيوب وحولها إلى صيغ أخرى بدون برامج السلام عليكم ورحمة الله وبركاته، الكثير منا يعاني من مشكلة تحميل الفيديوهات من اليوتيوب وأحياناً نُحمل الفيديو ولا يعمل خصوصاً صيغة الـ MP4 سواء بإستخدام داونلود مانجر أو غيره، لكن اليوم أحضرنا لكم موقع مميز يسمح لك بتحميل الفيديوهات من اليوتيوب من غير حاجه إلى برامج ويمكنك تحميل الفيديو من المتصفح ذاته بدون أي إضافات ويمكنك تحويله إلى أي صيغه قبل بدء عملية التحميل أيضاً بدون برامج، إنه موقع clipconverter الرهيب. مميزات موقع كليب كونفريتر 1- يسمح لك بتحميل الفيديوهات من اليوتيوب بدون برامج. 2- يحول الفيديو إلى صيغ أخرى مثل MP4, 3GP, AVI, MOV. 3- يمكنك تحويل الفيديو إلى صوت بصيغة MP3, M4A, AAC. 4- يعالج مشكلة داونلود مانجر في حالة عدم توافقه مع المتصفحات الحديثة. 5- يعالج مشكلة دوانلود مانجر ويدعمه في تحميل صيغة الـ MP4 بدون مشاكل. 6- الموقع يحول الصيغة ويبدأ التحميل في دقائق. 7- يعطيك الفرصة لأختيار درجة الجودة للفيديو قبل التحميل. 8- التحميل يبدأ في ثواني معدودة. 9- لا يحتاج إلى تسجيل أو أكواد الكابتشا. 10- واجهة بسيطة وسهل الإستخدام. طريقة التحميل من الموقع 1- أولاً انسخ رابط الفيديو من اليوتيوب. 2- الصقه في مربع عنوان الموقع Media URL to Download. 3- اضغط على Continue ثم انتظر حتى يظهر صورة للفيديو ودرجات الجودة المتوفرة. 4- حدد نوع ودرجة الجودة. 5- اختر الصيغة التي تريدها إذا أردت تحويل الفيديو. 6- اضغط على Start. 7- اضغط على تحميل Download. 8- سيبدأ التحميل سواء بالمتصفح أو عن طريق داونلود مانجر مباشرة. رابط الموقع إضغط هنا http://www.clipconverter.cc
    1 point
  40. جرب هذا Sub Macro3() Dim Cont, i, R, ary() Cont = 100000 ReDim ary(1 To Cont, 1 To 1) For R = 1 To Cont If Len(Trim(Cells(R, "A"))) Then i = i + 1: ary(R, 1) = i Next Range("B1").Resize(Cont, 1).Value = ary Erase ary End Sub تحياتي
    1 point
  41. أخوتني ..أ حتاج الى برنامج بسيط على الأكسل ( ماكرو) او الأكسس، يعمل على ضبط تسليم واستلام العُهد، من عدد او ملابس رسمية او عدة طباخين. فقط معلومات تسليم واستلام و ارجاع العهدة طبعا مع التواريخ والكميات ولآكثر من دائرة او قسم. لا حاجة لأسماء موردين او اسعار، انما اسماء الموظفين المستلمين و ارقامهم.
    1 point
  42. يا رب أجعل قبري بعد فراق الدنيا أجمل مسكن تنام به عيناي أنتَ إذا قُلت : ياااااا اللّه ! :" تيقّن أنّك تستغيثُ بمن يُغيث ، وتسْتَجيرُ بمنْ يُجير، وتُنادي لمنْ يُلبّي النّداء ربَيْ إنْ بينّ ضلوِعيّ ( أمنيه ) يتمنأهإ قلُبيْ وروحيَ وعقليّ ! ربُيَ إنْ ” أمنيتيَ ” تنبضُ بينَ قلبْ هوَ ملككَ ! فلإ تحرمنَيْ من فرحة تحقيقهإ , فَ أنت ألوَحيدْ الذَيْ إذا قالْ لْلشيءَ ؛ كُنَ فَـ : يكوِنّ ! اللهم اجـعـل يـقـيـنـي بــك يـقـيـنـي مـن كـل شــر و إيـمـانـي بـك يـهـديـنـي إلـى كـل خــيــر، و رجـائـي فـيـك يـحـفـظـنـي مـن كـل ضــر... إلــهــي ضــعـفـي و ذلــي ظـاهـر بـيـن يـديــك... و هـذا حــالـي لا يـخـفـى عـلـيـك... أنـت الـقـوي فـقـونـي... و أنـت الـســــــتيـر فـاسـتـرنــي و أنـت الـمـعـز فـأعـزنـي و أنـت الـغـنـي فـأغـنـنـي و أنـت الـرحـمـن فارحـمـنـي يا أرحـــــــــم الراحميــــــــــن
    1 point
  43. اللهم إني أعوذ بك من فتنة النار، وعذاب النار، وفتنة القبر وعذاب القبر، ومن شر فتنة الغنى، ومن شر فتنة الفقر، وأعوذ بك من شر فتنة المسيح الدجال، اللهم اغسل خطاياي بماء الثلج والبرد، ونق قلبي من الخطايا كما نقيت الثوب الأبيض من الدنس، وباعد بيني وبين خطاياي كما باعدت بين المشرق والمغرب، اللهم إني أعوذ بك من الكسل والهرم والمأثم والمغرم لك الحمد ياربُّ إنْ فاضَ دمعي وأصبحتُ رهناً لضيقِ المدَى لك الحمدُ إن هدّني طولُ صَمتي وبتُّ أواصلُ فيكَ الرجَا ! ..إذا أنتَ ياربِّ لم تعفُ عني وضاعَت علي الحياةُ سُدى ..فمن لي سواكَ أعلِّقُ فيهِ رجَائي ، وحُبي ، وكلُّ المنى ••لأن الله ربي •• سأبحر في أُمنياتي .. سأزيدُ رغباتي !سَأطمع في دُعائي أكثر •• لأن الله رَبي•• سأطرُق البابَ وإن طال الفَتح `سأنطَرِحُ على الأعتاب ،، وإن امتدّ الزمان ،فحتماً ولابُد ; سأبكي فرحاً يوماً من دَهشتي بالعطاء
    1 point
  44. شكرا لك الاخ الكريم ضاحى ما كان ينبغى عليك ذكر اسمى فى تقديم الموضوع لانه لك ولكن ذلك من شيم الرجال جزاك الله كل الخير
    1 point
  45. السلام عليكم أستاذي شكرا جزيلا لك برنامج Exe Icon Changer وجدت فيه الكراك والستلب لم اجد أما فيما يخص هذا الرابط http://www.jrsoftware.org/isdl.php أين أذهب للتحميل
    1 point
  46. الرساله تعني انه يوجد شخص آخر بنفس الاسم يمكن لحضرتك اختيار اسم آخر او استخادم حرف ال ( أ ) او ( ا ) كما يمكنك استخدام مفتاح المسافه من لوحة المفاتيح مرتين ( احمد غانم ) و الله اعلم شكرا لك اخي احمد فضيله لقد تم تغيير الأسم بعون الله .. و نؤيد الفكره و نشجع عليها
    1 point
×
×
  • اضف...

Important Information