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

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

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

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

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


    • نقاط

      14

    • Posts

      13165


  2. عبد العزيز البسكري

    • نقاط

      13

    • Posts

      1352


  3. جعفر الطريبق

    جعفر الطريبق

    الخبراء


    • نقاط

      5

    • Posts

      140


  4. محمد حسن المحمد

    • نقاط

      4

    • Posts

      2220


Popular Content

Showing content with the highest reputation on 09/05/15 in all areas

  1. هذا كود آخر جربه يمكن يتعامل معاك مع الهمزة على نبرة Sub ReplaceChars() Dim ToRemove(), Itm Dim Cel As Range ToRemove() = Array("أ", "إ", "آ") For Each Itm In ToRemove() For Each Cel In Range("F16:F" & Cells(Rows.Count, "F").End(xlUp).Row) Cel.Replace What:=Itm, Replacement:="ا", MatchCase:=True Next Cel Next Itm End Sub يبدو من مشاركتك الأخيرة انك تريد استبدال الحرف الأول فقط عموماً جرب الكود ولن تخسر شيئاً
    3 points
  2. السلام عليكم و رحمة الله و بركاته أخي الغالي و أستاذي الفاضل محمد حسن المحمد ..كي يشتغل زر التوجية لا بد من التغيير في النقاط المصبوبة .. أمّا إذا بقيت النقاط على حالها فأكيد التوجيه لن يطرأَ عليه أي تغيير .. كود التوجيه هو لدينامو الأساتذة و الزّعيم الروحي للمنتدى "ياسر خليل أبو البراء" ماشاء الله تبارك الله .. يمكن له أن يفيدك أكثر مني ومن صاحب الملف .. كامل احتراماتي سيّدي
    3 points
  3. أخي الحبيب أبو يوسف الأمر AddItem يضيف العناصر للقائمة المنسدلة أي أن هذه العناصر الموجودة عند تفعيل الفورم يتم إضافتها لقائمة الكومبوبوكس
    3 points
  4. Sub SortSheets() Dim I As Integer, J As Integer For I = 1 To Sheets.Count - 1 For J = I + 1 To Sheets.Count If Val(Sheets(I).Name) > Val(Sheets(J).Name) Then Sheets(J).Move Before:=Sheets(I) End If Next J Next I End Sub
    3 points
  5. 3 points
  6. جرب الكود التالي (مع العلم انه سيتعامل مع الحرف الأول فقط) Sub ReplaceAll() Dim Cel As Range For Each Cel In Range("F16:F" & Cells(Rows.Count, "F").End(xlUp).Row) If Left(Cel, 1) = "أ" Or Left(Cel, 1) = "إ" Or Left(Cel, 1) = "آ" Then Cel = "ا" & Right(Cel, Len(Cel) - 1) End If Next Cel End Sub
    2 points
  7. السلام عليكم و رحمة الله و بركاته أخي العزيز عمار اللهيبي .. لاحظ الصورة المرفقة أدناه .. أنا قمت بتسمية النطاقM4:M24 ب ZZZ وللتغيير أو الاضافة سأقوم بتحديد النطاق ذاته مرة ثانية و أعيد تغيير تسميته باسم جديد..ثم من خلال التبويب DONNEES ..إذهب إلى VALIDATION DES DONNEES ..أعد كتابة اسم النطاق الجديد .. لاحظ الأسهم لو سمحت
    2 points
  8. اخى واستاذى ومعلمى وحبيبى /ياسر خليل انا تلميذ بالنسبه لعلمك فأنا قطره فى بحر علمكم الفياض وهذا ما تعلمنه منكم جزاكم الله خيرا ونفع بك وجعل اعمالك فى ميزان حسناتك صدقه جاريه تقبل منى وافر الاحترام والتقدير والمحبه فى الله
    2 points
  9. السلام عليكم انت شغال ايه بالضيط يا ابو سليمان ؟ ... (: الشغل المطلوب ده .... شغل مهندسين مساحة عموما هو طلبك استفزنى والحل مرفق .... لكن خد بالك من ادخال النقاط بالترتيب عكس عقارب الساعة Area Calculations.zip
    2 points
  10. السلام عليكم و رحمة الله و بركاته أخي العزيز أشرف النعّاس .. أتمنّى أنْ يكون هذا هو المطلوب .. أشرف النعاس 4.rar
    2 points
  11. شكرا على ترحيبكم و كلماتكم الطيبة ... العضو الكريم السيد *ياسر خليل* هو من استضافني في هدا المنتدى
    2 points
  12. السلام عليكم إخوتي الكرام: لقد شوقنا الأستاذ الكريم ياسر خليل أبو البراء لمعرفة الأستاذ الكريم جعفر الطريبق عندما عرض لنا بحثاً حول العدسة المكبرة في الإكسل وها نحن الآن نراه بيننا ...نرحب بك أستاذنا الكريم أيما ترحيب أخ عزيز ومكرّم بين أخوة متحابين ...ستجد إن شاء الله تعالى في منتدانا الكريم هذا كل التفاعل والتكامل والمودة والإخاء والإيثار. كنا شغوفين ومتلهفين لمعرفتك فلله الفضل والمنة راجين منك التكرم بإعطاء هذا المنتدى الكريم عصارة وخلاصة أفكارك النيرة والتي جمعتها عن خبرة وعلم رفيع من خلال طرح أفكار جديدة ابتداءً أو الرد لحل المشكلات التي تعوق الأخوة المشاركين كمساهمة مع الأساتذة الكرام الذين نقدم لهم كل إجلال واحترام وتقدير ونشكرهم على كل ما بذلوا ويبذلونه لنا. تقبل تحياتي والسلام عليكم.
    2 points
  13. حياك الله اخي الكريم .. في الحقيقة لم اشاهد المرفق لإختلاف تنسيق الأوفيس . عموما جرب هذه الطريقة ... 1- اضف عنصر نص للتقرير واسمه مثلا txtcount . 2- من خصائص عنصر التحكم ... ضع مصدر البيانات(control source ) يساوي 1= 3- اضغط على خانة تفصيل في التقرير ( detail ) ... اذهب إلى حدث عند التنسيق on format ثم ضع هذا السطر .. Cancel= Me.txtCount> 10 بإمكانك التحكم في العدد بتغيير الرقم 10.. بالتوفيق
    2 points
  14. السلام عليكم النقاط المطلوبة 1- فرز البيانات في العمو د A الى الاعمدة المجاورة على ان يبداء فرز التاريخ في العمود C 2-عمل ترتيب للعمدة المفروزة بحيث يكون التاريخ الاحدث هو في الصف الاول وكلما نزلنا للاسفل يكون التاريخ اقدم (( وطبعا تلقائي يتم ترتيب البيانات المجاورة للتاريخ مع التاريخ ) 3- عمل كود للتريب لان البيانات يتم جلبها من خارج الملف الى الملف ويكون مقرها العمود A فيكون الكود هو فرز البيانات ثم ترتيبها حسب الاحدث يكون بالاعلى حسب التاريخ 4- يكون فيه مجال انني انسخة واطبقة على ملفات اخرى ليتم العمل عليها بنفس الكود _4070.rar
    1 point
  15. أخي الحبيب أبو عبد الملك صراحة مش ناسيك بس الموضوع معقد شويتين .. لو تفرد موضوع مستقل للطلب ده يكون أفضل ، حتى يشارك فيه الأخوة الكرام .. شدوا بأزري
    1 point
  16. اخي العزيز ابو سليمان الحل المرفق بمعلوميه الاحداثيات اما اذا كنت تريد حساب المساحة عن طريق الاطوال فيجب عليك تقسيم الاشكال الي مثلثات. ثم حساب مساحة كل مثلث علي حده وتجميعها بعد ذلك مثلا ابعاد الحوش الذي تتكلم عنه ينقصها قياس احد اقطاره. ثم تقوم بحساب مساحة كل مثلث عن طريق المعادلة التالية. مساحة المثلث = الجذر التربيعي ل ح * (ح-س)*(ح-ص)*(ح-ع) حيث س، ص، ع هي اطوال اضلاع المثلث و ح هي نصف محيط المثلث (س+ص+ع)/2
    1 point
  17. أخي الغالي محمد الخازمي وحشتنا مشاركاتك القيمة جرب الكود التالي عله يفي بالغرض Sub ReplaceAll() With Range("F16:F" & Cells(Rows.Count, "F").End(xlUp).Row) .Replace "أ", "ا", , 1 .Replace "إ", "ا", , 1 .Replace "آ", "ا", , 1 End With End Sub
    1 point
  18. السلام عليكم و رحمة الله وبركاته اخي الحديثة ادخل على الكود الي عملناه السطر الذي يوجد به الرقم 0 صفر If Val(FS.Cells(ER1, 96)) > 0 Then عدله بدل 0 ضع 5 If Val(FS.Cells(ER1, 96)) > 5 Then الآن يرحل اكبر من 5 = بمعنى سته او اكثر خالص تحياتي
    1 point
  19. أخي الغالي زيزو عندك تفعيل نسخة أوفيس Ultimate 2007 لغة إنجليزية .. يا ريت لو عندك لأني محتاجه ضروري
    1 point
  20. بسم الله الرحمن الرحيم اخي العزيز الف شكر وممنون
    1 point
  21. السلام عليكم ممكن تجرب الاتي خيارات اكسل advanced General وشيل الصح عن الخيار الثالث ignore........(النسخة العربية تجاهل التطبيقات الاخرى.....) ثم ok
    1 point
  22. السلام عليكم تفضل أخي هذا الحل لقد وضعت تعبير في القيمة الافتراضية لمربع النص وهذا هو =Nz(DMax("[num_bgn]";"cnt");0)+1 arab (2).rar
    1 point
  23. اخى ياسر اليك الملف sort sheets.rar
    1 point
  24. السلام عليكم اخي قنديل كما اوضحت سابقا الترقية للجيل الرابع ضرورة و ليس خيار ، و لا اعتقد ان هذه النسخة ينقصها الكثير عن سابقتها بل فيها مميزات اضافية. و هناك اشياء يمكن اضافتها مع الوقت و ليس الاهم هو الشكليات لانها مقدور عليها و يمكن تعديلها مع الوقت و سياتي عليها تعديلات متعددة باذن الله اما النسخة السابقة ، فلا مستقبل لها حيث اوقفت الشركة المنتجة تطويرها فعليا ، لذا مع تطور لانظمة التشغيل لدى المستخدمين او السيرفر سيظهر فيها مشاكل جوهرية لن نستطيع التعامل معها دون دعم فني من الشركة ناهيك عن متطلبات الامن و خلافه و التي ستتأثر بتوقف التطوير. ان الترقية الي الجيل الرابع خيار استراتيجي من ناحية التطوير المستقبلي و الحماية و الامن و هذا امر لا شك فيه و مثلا درجة توافق النسخة الحالية مع اجهزة الهاتف لا يقارن بسابقتها و ان كان مازال يحتاج الي تحسين ، ايضا سرعة الاداء مختلفة الان و هناك تحسينات كثير مثل سحب المرفقات الى صندوق التحميل مثلا. اما العودة للنسخة السابقة فمعناه بالاضافة الي خسران المميزات المستقبلبة و مواكبة التطوير فانه معناه العودة لتاريخ 18 يوليو و خسران مشاركات ما يزيد على شهر ، حيث ان تصميم قواعد البيانات مختلف و به تعديلات كبيرة و لا يمكن التحويل ، فالشركة تقدم سكريبتات للترقية فقط و ليس للعودة للنسخة السابقة , كل ما يمكن هو استعادة النسخة بتاريخ 17 يوليو بحالتها و بياناتها. لم اشأ التطرق الي هذا سابقا ، و لكن الترقية يم تكن نزهة ، و لم يمكننا خلالها الاهتمام كثيرا بالشكليات ، و كل فترة يصلنا تعليق عن النسخة ما بين انتقاد و ما بين التحدث مزاحاً عن ثورة فى المنتدى بالرغم مما تم توضيحه ، بينما التغلب على مشاكل الترقية نفسها تطلب مجهود و ضغط غير غير عادي ربما لم نمر بمثله منذ افتتاح المنتدى فى عام 2003، و تطلب الاستعانة بتدخل دعم فني خارجي من كل من شركة الاستضافة و شركة الاي بي و التنسيق مبينهما و اضطررنا اثناء الفترة الماضية الي توفير نسخ خارجي مستمر و سيرفر اضافى خارجي بالكامل ليتم من خلاله العمل على مايزيد على 10 نسخ احتياطية من ملفات الموقع تم حفظها منذ بدء المشاكل حيث مساحة السيرفر الحالي لا تسمع بذلك كسيرفر سحابي حيث ان الموقع به حالاي ما يقارب التسعين الف ملف مرفوع ، و هذا ليتم مقارنتها و استعادة ما فقد منها حيث تبين ان هناك خطا فى سكريبت الترقية ادي لاخطاء فى تسجيل المرفقات فى قواعد البيانات و آخر أدي لاعادة التسمية لبعض الملفات ، و عند الاصلاح تم تنفيذ سكريبتات لم تعمل بصورة مثالية مما اداي لحذف بيانات اخري و دخلنا فى دوامات متتالية مثلت ضغطاً كبيراً لحرصنا على الحفاظ على كل مشاركة اضافها الاخوة و كان من الممكن الترجع و فقدا بعض المشاركات و بداية الترقية من جديد ، و لكن هذا ايضا لم نقبله. النتسيق مع فريق الدعم للشركة فى امريكا لم يكن بالامر السهل لاختلاف التوقيت فكان اغلب نشاطهم فى توقيت النوم لدينا ، الخلاصة ان اللفترة الماضية كانت فترة عصيبة و تعرضنا فيها لمشاكل عديدة و ضغط عصبي كبير ، و اخر ما كنا نفكر فيه هو لون الخط ام ترجمة كلمة او التنسيق و ان كان قد تم الاستجابة مع كل ذلك لاغلب ما وصلنا من ملاحظات. بالتأكيد تشغيل هذه السكريبتات و استعادة و جذف الملفات كان له تأثير على سرعة الموقع فى حينه و قد حدث مرات عديدة مسح للكاش من قاعدة البيانات مما يؤدي لبطء عند التصفح و كون واجهة المستخدم تحتاج لعمل ريفريش لتعمل جيداٌ ، و اخيرا و لله الحمد تم مؤخرا استعادة كافة الملفات و اصلاح قاعدة البيانات و لذلك تم ارسال البريد الاخير طلبنا للمساعدة فى التحقق من المرفقات للتاكد من اكتمال المهمة بنجاح. و يبدو ان الامور حاليا على ما يرام بالنسبة للمرفقات. خلال هذه الفترة كان اسهل الحلول هو العودة للنسخة السابقة و فقدان المشاركات التي اضيفت بعد الترقية ، و لكن هذا بدا لي كمن يشتري حاضره بمستقبله ، و رفضت هذا الخيار شكلا و موضوعا لثقتي بما سيتحقق من فائدة مع مرور الوقت باذن الله تعالى. النسخة الجديدة تحتاج لنتعود عليها و نتعرف على امكانيتها و التي سيتم اكتشافها مع الوقت و هي فى نفس الوقت نقطة الانطلاق لتحديثات مستمرة من الشركة باذن الله سيكون فيها الكثير من الاضافات، فمن عاصر معنا النسخة السابقة فى بدايتها الي ان استقرت، كان التطوير و الاضافات ملموس مع كل ترقية. بينما السابقة هي نقطة نهاية مستقرة لاستخدام ثابت و لكن تعرضها للمشاكل مستقبلا اقرب لتوقف الدعم و التطوير بصورة نهائية. مثلا اي مشكلة تواجه مستخدم نتيجة انتقاله لويندوز 10 او ما سيليه او تحديث لاصدار متصفح مثل الاكسبلورر او جوجل او حتى صدور متصفح جديد مثل ايدج ستكون الشركة ملزمة بحلها لهذه النسخة اما السابقة فقد لا نجد لها حلاً لان تطوير النسخة قد توقف .ايضا عندما طرحنا بعض التعديلات للتغلب علي مشاكل اكتشفناها بالنسخة السابقة كانت الاجابة ببساطة نعتذر فقد توقف تطوير الجيل الثالث. اذا هناك ملاحظات محددة يرجى اضافتها فى الموضوع المخصص لذلك ملاحظات النسخة الجديدة - الاصدار الثاني لنعمل على تعديلها تباعا باذن الله او التواصل مع الشركة بشأن اضافتها فى الترقيات القادمة باذن لله
    1 point
  25. حياك الله اخي الكريم .. تفضل المرفق .... يوجد مرفقين واحد يشرح الخطوتين 1+2 .. وهو للأستاذ علي العتيبي . والمرفق الآخر فيه المثال . من خصائص التقرير اجعل طريقة العرض معاينة قبل الطباعة. بالتوفيق . Autonumber_report.rar منار العلم.rar
    1 point
  26. بارك الله فيك اخي عبد العزيز وصلت الى المطلوب الحمد لله
    1 point
  27. أين المرفق أخي الحبيب أسامة؟ هل أنستك العقارب الملف المرفق؟
    1 point
  28. السلام عليكم و رحمة الله و بركاته إخوتي الكرام: جزاكم الله خيراً على هذا العمل الرائع ...ولكن ما العمل الذي يقوم به زر التوجيه...إذ إنني ضغطت عليه فلم ألحظ تغييراً يذكر على ورقة العمل.. علماً أنني أرى أنه لإضافة نوع دراسة معينة كما يبين الكود Private Sub ComboBox1_Change() End Sub Private Sub UserForm_Activate() ComboBox1.AddItem "محاسبة وجباية" ComboBox1.AddItem "موارد بشرية" ComboBox1.AddItem "التسويق" ComboBox1.AddItem "تجارة دولية " ComboBox1.AddItem "محاسبة 2" ComboBox1.AddItem "موارد بشرية 2" ComboBox1.AddItem "التسويق 2" ComboBox1.AddItem "تجارة دولية 2" ComboBox1.AddItem "محاسبة 3" ComboBox1.AddItem "موارد بشرية 3 " ComboBox1.AddItem "التسويق 3" ComboBox1.AddItem "تجارة دولية 3" End Sub . متمنياً لكم التقدم والازدهار
    1 point
  29. السلام عليكم يا اخ عبد الله يعجز اللسان عن الشكر لاتعرف اهمية هذا الموضوع لي اثابك الله خيرا بنفعك لغيرك
    1 point
  30. السلام عليكم ورحمة الله وبركاته مرفق ملف موضح به معادلة تفقيط التاريخ للفائدة تفقيط تاريخ.rar
    1 point
  31. بارك الله فيه م / ياسر فتحي
    1 point
  32. السلام عليكم ورحمة الله وبركاته أخي الكريم أنس الدروبي جزاك الله خير على ماقدمت وتقدم...أما من حيث التصميم فهو رائع بل أكثر من رائع حيث اعتمدت على إطار مستدير الزوايا جاذبيته أكثر وحبذا لو كانت مستطيلات التيكست بوكسز أيضاً كذلك ولكن أظنها غير موجودة ..وانسجام الألوان ضمن إطار العمل يعبر عن مكنون طيب. هذا من ناحية التصميم أما من ناحية البرمجة فلا يعلم الغيب إلا الله ولكنني أظنها تنطلق من فكر راقٍ ... حبذا لو تطلعنا على هذا الإبداع الجميل تصميمه وبرمجته بعد انتهائك من عمله لنشحذ أفكارناوهممنا. أدعو الله لك التوفيق في مشروع عملك هذا وفي مشاريعك المستقبلية والسلام عليكم أخوكم أبو يوسف.
    1 point
  33. السلام عليكم و رحمة الله و بركاته جرّب أخي الغالي ابن الحجاز هذا الملف .. ابن الحجاز 2.rar
    1 point
  34. السلام عليكم و رحمة الله تعالى و بركاته بسم الله .. ما شاء الله روعة أستاذي الغالي KHMB .. هذا ما أريده بالضبط .. جزاك الله خيرًا و بارك الله فيك و لك .. ألف شكر و ألف تحية و تقدير و احترام
    1 point
  35. حياك الله اخي الكريم ... ضع هذا السطر في حدث عند التحميل للنموذج form_load ... وفي حدث عند النقر ايضا لإضافة جديد. Me.num_bgn = Nz(DMax("num_bgn", "cnt"), 0) + 1 num_bgn الأولى : هي تسمية عنصر النص في النموذج . num_ban الثانية : هي التسمية في جدول cnt وفقنا الله واياك ..
    1 point
  36. أخي العزيز / ضع المعادلة التالية في الخلية (B3) واسحبها لأسفل =IF(A3>MAX($A$2:A2);B2+1;B2) إن شاء الله تفي بالغرض
    1 point
  37. و الله يا أخي أشرف جربت الملف عندي و هو يشتغل بصورة عاديّة .. لست أدري أين الخلل بالضبط ربما تكون الاجابة من عند أساتذتنا الأعزّاء .. و إليك صورة الملف
    1 point
  38. السلام عليكم و رحمة الله و بركاته لم أفهم المقصود أخي أشرف النعّاس .. هل ممكن التّوضيح أكثر .. لأنّي أنا مثلك تمامًا أو أكثر منك طالبًا للمعرفة و التعلّم .
    1 point
  39. السلام عليكم برنامج رائع ...ولكن هل يمكن جعل البرنامج الأساسي واحداً غير مقسم حسب الشهور ليسهل علينا القيام بالتصفية حسب البنك أو المورد وما تعني ألوان الخلايا الخضراء؟...يرجى إفادتنا... علماً أننا قد نكتب أكثر من شيك لأكثر من بنك لعدة موردين في اليوم الواحد ...فما الحل؟!. جزاكم الله خيراً ووفقكم إلى عمل الخير الخالص لوجهه الكريم. والسلام عليكم. ملاحظة :عرفت أن الخلايا الحمراء تشير إلى أيام الجمع.. اخي الكريم الخلايا الخضراء بالتواريخ تعني ايام الثلاثاء والاخ خالد الرشيدى شكراً جزيلا هذا هو المطلوب كان جزاك الله كل خير اخي العزيز
    1 point
  40. بارك الله فيك اخي عبد العزيز على رد ولكن اريد التعديل يكون على نفس الملف السلام عليكم و رحمة الله و بركاته تفضّل أخي الفاضل أشرف النعّاس هذا الملف ربما يفي بالغرض .. التغيير الوحيد الذي أحدثته في ملفك و هو في اليوزرفورم رقم 3 قمت بحذف الكومبوبوكس رقم 2 و أبقيت على الكومبوبوكس رقم 1 فقط لأنّه في نظري اختيار طريقة البحث يكون بالأبسيون بوتون و ليس بالكومبوبوكس .. أشرف النعاس 3.rar
    1 point
  41. الحمد لله أن تم المطلوب على خير الحمد لله الذي بنعمته تتم الصالحات إن شاء الله سأحاول عندما يتوفر لي الوقت أن أفرد موضوع أقوم فيه بشرح هذا الجزء الهام جداُ في عالم البرمجة وهو استخدام الكائن المسمى Scripting.Dictionary والشكر موصول لكم جميعاً وأخص بالذكر أخي وحبيبي الغالي حسام عيسى صاحب الموضوعات المتميزة والراقي جداً في فكره وأفكاره تقبلوا تحياتي
    1 point
  42. السلام عليكم اخى ياسر اكوادك ثورة في عالم المحاسبة جزاك الله خيرا وفقكم الله
    1 point
  43. إخواني الكرام أخي الحبيب حسام عيسى وأنس دروبي وأبو يوسف بارك الله فيك صقر المنتدى وجزاك الله كل خير جرب الكود التالي وشوف النتائج صحيحة أم لا .. للتأكد من عمل الكود وجرب سرعة الكود مع بيانات أكثر .. Sub YasserKhalil() Dim Accts As Variant, Data As Variant, Results() As Double Dim D1 As Date, D2 As Date Dim I As Long, J As Long With Sheets("Data") Data = .Range("A5", .Range("A" & Rows.Count).End(xlUp)).Resize(, 9).Value End With With Sheets("Balance") Accts = .Range("B8", .Cells(Rows.Count, "B").End(xlUp)).Value ReDim Results(1 To UBound(Accts, 1), 1 To 2) D1 = .Range("B3").Value D2 = .Range("B4").Value With CreateObject("Scripting.Dictionary") .CompareMode = 1 For I = 1 To UBound(Accts, 1) .Item(Accts(I, 1)) = I Next I For I = 1 To UBound(Data, 1) If .Exists(Data(I, 2)) Then If Data(I, 1) >= D1 And Data(I, 1) <= D2 Then J = .Item(Data(I, 2)) If Data(I, 8) <> "" Then Results(J, 1) = Results(J, 1) + Data(I, 8) If Data(I, 9) <> "" Then Results(J, 2) = Results(J, 2) + Data(I, 9) End If End If Next I End With .Range("E8:F8").Resize(UBound(Results, 1)).Value = Results End With End Sub ميزان المراجعة بالكود.rar
    1 point
  44. السلام عليكم و رحمة الله و بركاته جرّب هذا الملف أخي الكريم لعلّ و عسى يكون المطلوب .. أشرف النعاس.rar
    1 point
  45. السلام علبكم بناء علي طلب من اخي حسن New4a والذي كان به المطلوب كالتالي ولتكن التكمله تحت نفس الموضوع بالرغم من رفعها في موضوع اخر يمكنك اخي اضافة اي بيان في صفجة العملاء لاي عميل و كذلك للموردين مع ملاحظة عدم المساس بالاعمدة التي بها بيانات جرب المرفق و اخبرني النتيجة تحياتي العملاء و الموردين.rar
    1 point
  46. السلام عليكم عذرا على كلمة السر لكن والله لم اتذكرها الا قبل دقائق من كتابة هذه الكلمات عى كلاً هنا المرفق مفتوح وان كنت اغلقته فقط من ناحية جمالية لا اكثر اما موضوع شرحه فذلك صعب جدا كون هذا الكود مترابط ومتشعب ويقوم بعدة امور ذات جوانب منطقية ويتطلب إلمام جيد في الاكواد لكن هنا الملف مفتوح واذا تم دراسته وربط الخلايا مع الاكواد قد يتم استيعابه عماد الحسامي
    1 point
  47. طب وعلى ذكر سيرة التعليم ... مرة لقيت برنامج كان عاملة الاستاذ حسام سفر .. طيب الله ذكره ... برنامج عن المعاهد وكل ما يختص بالمعاهد التدريبية او التعليمية ... يعني شؤون الطلبة ... شؤون الموظفين .... شؤون الدراسة .... جداول المواد .... والحصص ..... اشياء حلوة وبواجهة اكسس سويتش يعني سهلة بس الفكرة حلوة .... يلا يلا يا منذر نزل وجرب وشوف واديني رايك ولو حبيت حزيدك كمان وكمان وكمان وكمان ........ لما تزهق وتقول خلاص بس مش عايز ....... هاهاهاهاهاهاها المرفقات ______.zip
    1 point
  48. اخي منذر عساج الغالي ..... اشكرك على متابعة الموضوع .... ولاجل عيونك سأتابع تنزيل البرامج رغم قلة الردود والتفاعل مع الموضوع ((( مش عارف ليش ؟؟؟ ))) وبصراحة انا متردد هل استمر في التنزيل .... او ان الموضوع غير مهم ..... بس مادام فيه ولو واحد بس معاي سأستمر انشاء الله وياريت ياريت ياريت ياريت ..... بلاش سلبية ..... خلينا الكل نتعاون ونجامل ونتكلم بالصح او بالغلط .... لان في الاخر حنوصل لنتيجة انشاء الله اليوم جايبلكم يا احبائي برنامج ((( مسير رواتب ))) لقيته من المخزن عندي مدفون وعدلت عليه شئ بسيط جدا ( يعني خلفية وشوية لوازم ) مع الاعتذار لصاحب الموضوع اللي انا مش عارفه بس انشاء الله ربي يجازيه خير المرفقات __________.rar
    1 point
  49. وهذا برنامج نظام المحاسبة التجاري نظام المحاسبة.rar
    1 point
  50. أخوتي الكرام تحية طيبة وبعد عند مجموعة كبيرة من الاكواد التي تنفع المبتدي وغيره وقد جمعت هذه الاكواد من فترة طويلة وأريد أن أنشر هذه الاكواد بعد تنقيتها في هذا المنتدى الرائع فما رأيكم ما هي الطريقة الصحيحة في مثل هذه الحاله حيث أن الوورد لا ينفع فكيف أكتبها تحياتي
    1 point
×
×
  • اضف...

Important Information