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

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

  1. الصـقر

    الصـقر

    الخبراء


    • نقاط

      6

    • Posts

      1,836


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

    جعفر الطريبق

    الخبراء


    • نقاط

      6

    • Posts

      140


  3. أسامة البراوى

    أسامة البراوى

    الخبراء


    • نقاط

      6

    • Posts

      152


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

    • نقاط

      5

    • Posts

      2,212


Popular Content

Showing content with the highest reputation on 10 سبت, 2015 in all areas

  1. وعليكم السلام ورحمة الله يمكن فعل ذلك باستعمال الدالة SUMPRODUCT أو FREQUENCY أو غيرهما... في الملف المرفق تجد حلين... بن علية Test.rar
    2 points
  2. أضف ليبل label1 و جرب هدا الكود في UserForm Module Option Explicit Private Enum BackForeColor Background ForeGround End Enum Private Enum FlashSpeed Slow Fast End Enum Private bExiting As Boolean Private lLabelBackColor As Long Private lLabelForeColor As Long Private Sub UserForm_Activate() lLabelBackColor = Me.Label1.BackColor lLabelForeColor = Me.Label1.ForeColor Flash Obj:=Me.Label1, What:=Background, Speed:=Fast, FlashColor:=vbGreen End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) bExiting = True End Sub Private Sub Flash( _ ByVal Obj As Object, _ ByVal What As BackForeColor, _ ByVal Speed As FlashSpeed, _ ByVal FlashColor As Long _ ) Dim sProperty As String Dim iSpeed As Integer Dim lInitialColor As Long sProperty = IIf(What = Background, "BackColor", "ForeColor") lInitialColor = IIf(What = Background, lLabelBackColor, lLabelForeColor) iSpeed = IIf(Speed = Slow, 4, 2) Do If Int(Timer) Mod iSpeed And CallByName(Obj, sProperty, VbGet) <> FlashColor Then CallByName Obj, sProperty, VbLet, FlashColor End If If Int(Timer) Mod iSpeed = 0 And CallByName(Obj, sProperty, VbGet) <> lInitialColor Then CallByName Obj, sProperty, VbLet, lInitialColor End If DoEvents Loop Until bExiting End Sub ال Flash Sub هي ماكرو عامة تتقبل أي كونترول و تتقبل تغيير ال BackColor او ال ForeColor كما تحدد لون و سرعة الفلاش
    2 points
  3. الاخوه الكرام أقدم كل التحيه والتقدير للاستاذ الفاضل اسامه البراوى واشكره من كل قلبى لاهتمامه بالموضوع الاستاذ اسامه الفاضل الخلوق له اضافه وتعليق على ما ذكر ومعه كل الحق فمن كرم اخلاقه ومعدنه الاصيل فضل ان يكتبها برساله خاصه وودت ان انقلها لكم لكى تعم الفائده .... يمكن اضافة ادوان تحكم جديدة بالضغط على الزر الايمن فى اى مكان فاضى او مليان فى التول بوكس .... استعمال هذة الاداة ليتيح لك الانتقال الى مود الاختيار ما بين عناصر التحكم الموجودة على الفورم لتحريكها او التحكم فى حجمها .. هناك بعض اصدارات من الاكسيل عندما تختار ان تضيف زر مثلا ... يبقى المؤشر على الفورم فى وضع الاضافة/ فكلما ضغطت على الفورم بعد ذلك يضيف زر جديد وهكذا .... والحل عندها الضغط على المؤشر للهروب من هذة الدائرة المفرغة كل الشكر والتحيه والتقدير الى الاستاذ الفاضل اسامه البراوى واحب اقول لحضرتك لا حياء فى العلم فأنا مازلت تلميذ أرتوى من بحر علمكم الفياض تقبل تحياتى
    2 points
  4. استاذى الحبيب ابويوسف جزاكم الله خيرا على الاهتمام ويكفينى قناعتك بالبرنامج لكل منى كل التحيه والاحترام والتقدير اخوك المحب لك حسام تقبل تحياتى
    2 points
  5. السلام عليكم و رحمة الله و بركاته أخي عبد العزيز: الموضوع الذي طرحته لم أبتغ به مساعدتي في مشكلة"مسألة" صعبت عليّ أريد حلها عندئذ أصبر كما قلت، وأمري إلى الله . أما موضوعي هذا فهو بحاجة إلى ردّ على إحدى الحالات التالية فقط : 1 - أخي أبو يوسف موضوعك قيد الدراسة ومحل اهتمام، سنخبرك بالنتيجة فور انتهائنا من البت فيه.وهذا ما أرجوه. 2 - أخي أبو يوسف لا يمكننا الاستجابة لما طرحت لأسباب (يذكرونها إن شاؤوا...). 3 - أخي أبو يوسف مثل هذه المواضيع خاصة بتقدير إدارة المنتدى ولا شأن للأعضاء بها. مع خالص أمنياتي وجزيل شكري والسلام عليكم.
    2 points
  6. السلام عليكم و رحمة الله و بركاته يا عزيزي يا أبا يوسف .. رجاء لا تقلق بشأن موضوعك و عدم الرد عليه .. أنت بنفسك طلبت من القائمين على المنتدى .. السادة الأفاضل المتابعة و الاطلاع و التقييم .. و هذا بنظري لا يأتي سيدي المحترم في غضون 8 أو 9 ساعات .. ثق تمامًا يا أبا يوسف .. أنّ ما يقلقك يقلقنا و ما يسعدك يسعدنا .. كامل احتراماتي
    2 points
  7. السلام عليكم ورحمة الله وبركاته سوف نقوم بإذن الله تعالى بعمل سلسة من الفيديوهات التعليمية سيكون قسم منها على شكل دروس متلاحقة أجزاء ومنها مواضيع مختلفة متنوعة في فيديو واحد سيتم بعون الله تعالى نشرها بشكل منظم مرفقة بملفات العمل الخاصة بها أسأل الله أن أكون قد أسهمت في تقديم شيء أحتسبه عنده سبحانه بما أن التثبيت للمشاركة بدأ بعد نشر عدة فيديوهات سوف نتبع سياسة فيديو جديد + فيديو قديم الى تغطية الفيديوهات السابقة في نفس المشاركة هذه وبعدها يبدأ كل جديد **************************** فيديو اليوم الجديد اسخراج كشف حساب الفيديو الثالث مشاهدة مفيدة وممتعة
    1 point
  8. الاستاذ عبد العزيز اسلوب جميل ورائع في ايصال المعلومة تسلم والله يبارك فيك
    1 point
  9. السلام عليكم و رحمة الله و بركاته بعد إذن أخي العزيز أبو عبد الملك السوفي .. إذا كنت جزائري الجنسية إذن أنت من منطقة وادي سوف .. فنحن ..جيران ..بارك الله فيك على الكود الرائع .. جزاك الله خيرًا و زادها بميزان حسناتك .. أما الأخ الفاضل ولد الحجاز في الواقع لفت انتباهي في موضوعك جملة " هل يستطيع أحد اكتشاف حل للمشكلة " .. و أنا أجيبك : أنتَ الذي ستكتشف لوحدك الحل بإذن الله .. لا حظ معي لو سمحت ..واتّبع الصور المرفقة بالترتيب :
    1 point
  10. السلام عليكم الاستاذ علي انا اعتذر منك ، فلم ارى مرفقك إلا الآن والسبب اني لم اره ، هو انك عدلت في مشاركتك ووضعت فيه المرفق ، بعد مشاركتي !!! على كل حال ، فتح واكتشاف كائنات برنامجك كان تحديا اكثر من الحل نفسه في مشاركتي الاخيرة قلت: . وبالفعل هي مشكلة برنامجك !! عندك 42 نموذج ، بهم صورة او اثنتين ، و 23 تقرير ، بهم صورة او اثنتين . . صحيح انك في بعض النماذج والتقارير كنت كاتب الكود الصحيح لربط الصور ، ولكن للأسف ، الصور اصلا كانت مضمنة وليست مرتبطة. غير طريقة عرض الصور من Embedded او Shared الى Linked ، واضغط واصلح البرنامج ، وان شاء الله البرنامج يصغر حجمه جعفر
    1 point
  11. أي نوع من ال InputBox تستخدم .. هل هو ال VBA.InputBox أم ال Application.InputBox ما هو اصدار الاكسيل الدي تستعمل و كدالك اصدار للويندوز أكيد في علمك أن بامكانك استخدام UserForm عوض ال InputBox ...مثلا بامكانك اضافة TextBox الى ال UserForm ثم تكبير حجم خط ال TextBox .. هدا أسهل من تغيير حجم خط ال InputBox عن طريق ال APIs
    1 point
  12. السلام عليكم أخي الكريم تفضل ما أردت وفي نفس الجدول وبدون استعلام ولكن لن يعمل على اصدار اوفيس اقل من 2010 Database1.rar
    1 point
  13. اسم البرنامج : Employs رقم الاصدار : 3.1.0 اسم المبرمج : almaistro وصف البرنامج : البرنامج عبارة عن قاعدة بيانات للموظفين يسجل فيها كل بيانات الموظف كما تشاهد بالصورة المرفقة ايضا تستطيع عمل نسخ احتياطى للبيانات (اختيارى) تستطيع ايضا وضع شاشة دخول للبرنامج (إجبارى) تستطيع حفظ واسترجاع قاعدة البيانات (اختيارى) تستطيع حفظ صورة لكل موظف مع تشفير الصورة ووضعها بملف خارجى تستطيع طباعة كشف المرتبات لكل فرع (جديد) تستطيع تسجيل الحضور والانصراف لكل موظف(جديد) تستطيع إستعراض حضور موظف خلال فترة مع حساب اجرة الاضافى(جديد) واشياء اخرى اكتشفها بنفسك ،،، كلمة المرور للبرنامج :arafa صورة للبرنامج انتظرو ادائما جديد البرنامج Employs v3.1.0.rar
    1 point
  14. ممكن عن طريق دالة VLOOKUP لكن لابد ان يكون الرقم المقابل للصنف فريد حيث اننى ارى ان الشيت الجديد مختلف عن الشيت القديم من حيث ارقام الاصناف هذة تجربه للشيت الجديد فقط ارجوا ان اكون وفقت فى حل المطلوب 2015 - No - Sample.rar 2015 - No - Sample.rar
    1 point
  15. السلام عليكم اخي وحبيبي واستاذي أبويوسف نعتذر عن التأخير في الرد بارك الله فيكم وبإدارة المنتدى على هذا الاهتمام والكلام الطيب والمحفز لنشر العلم والمعرفة ويشرفني أن اكون في خدمتكم في نشر العلم والمعرفة في اسهل وابسط الطرق لكي يستفيد منها اكبر قدر من المستخدمين لكم مني الاحترام والتقدير نتمى من الادارة موافقة طلبكم لكي يكون حافز لنا على التطوير والتقدم في هذا الصرح العملاق وان شاء الله في اليومين القادمين نظراً لكبر المشاهدة والطلب عليه من قبل المستخدمين في بعض شركات الخدمات المالية الخاصة سوف اقوم برفع الاصدار الثاني من برنامج الصرافة المالية ومعه بعض التعديلات المهمة وبالاضافة لفيديو تعليمي بسيط في الشرح تقبلو مني تحياتي اخوكم الصغير انس دروبي
    1 point
  16. الموضوع سهل وهو كالآتي: انقر داخل رأس الصفحة لفتحه ثم اذهب إلى تبويب مراجعة و انقر زر " تقييد التحرير " فيظهر لك الشريط الجانبي تحت 2. قيود على التحرير فعل خيار " بلا تغييرات ( للقراءة فقط)،،،، بعد ذلك انقر داخل المستند لغلق الرأس والتذييل وقم بتحديد كافة المستند ومن الاستثناءات فعل خيار الكل بعد ذلك انقر زر نعم ابدا بفرض الحماية وأدخل كلمة السر.
    1 point
  17. جزاكم الله خيرا استاذى الحبيب ابويوسف فعلا كما قلت ان اجرى هو دعوه صالحه بظهر الغيب وانا احوج ما يكون لها تقبل تحياتى
    1 point
  18. السلام عليكم أخي الصقر حسام المحترم ليكن في علمك أنه لا شيء في حقيقة الأمر مجاني بالكامل ، فكل ما نفعله في حياتنا له أجر أو عليه وزر فأين المجانية في ذلك عندما يقول الله تعالى:(لها ما كسبت وعليها ما اكتسبت) إذاً كل ما تفعله من خير ستحصل على أجره.فدعوة صالحة بظهر الغيب هي أجر وكلمة طيبة عند ذكر فلان من الناس أجر فالأجر غير محدود بمقابل مادي زهيد مهما غلا... والصلاة والسلام على سيد المرسلين والحمد لله رب العالمين. أخوكم أبو يوسف.
    1 point
  19. شرح أكثر من ممتاز - جزاك الله كل خير
    1 point
  20. السلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا الفاضل أسامة البراوي على الشّرح الوافي و الكافي .. جزاك الله خيرًا و زادها بميزان حسناتك .. فعلاً أنا أشتغل على أوفيس 2010
    1 point
  21. السلام عليكم Calendar Control قد لا تنزل مع بعض اصدارات الأوفيس مثل اوفيس 2010 لكن يمكن الاستعاضة عنها باحد الادوالت التالية Microsoft Date and Time Picker Control 6.0 Microsoft Month View Control 6.0
    1 point
  22. السلام عليكم أخى العزيز الصقر .... شرحك جميل ... استمر وثق ان العبرة ليست بكثرة الردود بل على العكس فأنا أتمنى ان يكون الموضوعات التى تتناول الشرح مثل موضوعك متتالية بدون تعليقات ويكفى ان يضع متابعيك نقطة إعجاب فقط الا اذا كان يسأل عن نقطة معينة فى الشرح مثل المشاركة رقم 9 ..... وفى هذة الحالة فقط يمكن ان ترد عليه قبل البدء فى الشرح التالى وسيفيد تسلسل الموضوعات بدون قصائد الشكر فى استفادة كل متعلم يبدأ الموضوع ثم يتابع قراءة باقى الشرح متصلا بدون ان تقطعه التعليقات اتمنى منك الاستمرار لكى يستفيد الجميع .... فالمبتدئ سيجد ضالته اما الذى يعلم مسبقا سيزيد معلوماته ويعززها
    1 point
  23. السلام عليكم طلبك بسيط .... (لكن يجب التأكد اولا من ازالة بادئة التنظيف اللى كنا اضفناها مسبقا) ثم تعديل العداد كما يلى واضافة السطر الثانى .... حيث يقوم بفحص التكست بوكس حتى يصل الى اول تكست بوكس فاضى لكى يملأ البيانات. 1: H = H + 1 if Me.Controls("a" & H).Value <>"" then GoTo 1
    1 point
  24. السلام عليكم الصراحة قمة في الاداء والشرح السلس الله يوفقك دنيا واخرة
    1 point
  25. اخى حسام جزيت خيرا على شروحاتك شرح جميل ومفيد اخوانى أعضاء المنتدى نرجو التجاوب مع الشارح لان ذلك فيه افاده تحياتى لمشرفنا ياسر خليل فقد قدم الحلول المشروحه وافرد لنا شروحات فجزاه الله خيرا
    1 point
  26. السلام عليكم جميل ورائع بل اكثر من رائع بارك الله بك وبجهودك والله ولي التوفيق
    1 point
  27. السلام عليكم أخي العزيز حسام.. بصراحة شرح ولا أروع ...من قال أن شرحك غير واضح بل قمة في الوضوح ..أحسنت التعبير عن كل فكرة طرحتها مع الصور واﻷسهم لترسخ في الذاكرة حيث جمعت بين الحس والذاكرة وهذا هو الأسلوب الناجع والناجح للانطلاق نحو أفكار أكبر حيث ننطلق من المحسوس بالرؤية إلى المجرد...وفقك الله إلى كل خير والسلام عليكم.
    1 point
  28. السلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا العزيز حسام .. جزاك الله خيرا و زادك من علمه و فضله بساطة و سلاسة في الشرح و دقّة في تسمية المصطلحات واصل وفّقك الله وسدّد خطاك لما يحبّه و يرضاه كملاحظة أستاذنا لماذا لا تظهر عندي خاصية calendar control ..ألف شكر مسبّقا خالص تحيّاتي
    1 point
  29. السلام عليكم ورحمة الله وبركاته أخي الصقر حسام ليست العبرة في قلة حجم الرد على الموضوع ،بل العبرة فيما يحصّل كل منا بذاكرته من المواضيع التي تطرحونها قد لا يبدو لك أن أحداً ما استفاد مما كتبت ولكن في الحقيقة لكل صوت صدى مهما بلغت دقته ..فإن أردت معرفة الاستجابة والاستيعاب عليك بالتغذية الراجعة أو كما قام أخونا الحبيب أبو البراء في أحد مشاركاته بوضع صورة مرفقة مع ملف طلب منا إدراجها ضمن يوزر فورم Sign in وأجبناه وذلك ليس عيباً ..بل يحقق مردوداً يرضي خاطرك ..هكذا كنا نعمل معشر المعلمين.. تقبل تحياتي..السلام عليكم.
    1 point
  30. استاذى وحبيبى ابويوسف والله انا تلميذ مثلك ومازلت اتعلم وخبرتى بسيطه ولكن حبيبت انى المعلومه اللى اعرفه يشاركنى فيها غيرى ويعرفها زى مش اكتر وهذا والله العظيم ليس تواضع منى ولكن هى الحقيقه التى لا يعرفها الا الله حتى لقب عضو خبير ( والله لا استحقه) انا عضو عادى بين الاعضاء اتعلم من الاساتذه فأنا لست دارساً للبرمجه وانما هى هوايه تقبل تحياتى ************************************ الاخ ابونبا جزاكم الله خيرا تقبل تحياتى ***************************************** الاخ الفاضل ابراهيم ابوليله جزاكم الله خيرا على مرورك العطر ودعنى اقولها لك بصراحه ان قله الردود تعنى ان الموضوع غير مفيد وغير مهم ويحبط كل من يريد ان يقدم شئ لا أتكلم عن نفسى ولكن اتكلم بشكل عام الدرس السابق جلست حوالى 5 ساعات لتجهيزه وتصميم الصور ثم رفعها على الموقع وكتابه الشرح وتنسيقاته فى حين ان الرد على الموضوع لا يحتاج سطر فى ظرف دقيقه الخلاصه لا احتاج انا او غيرى كلمة شكر او أشاده ولكن نحتاج معرفه ما مدى اهميه وقيمة ما نقدمه وهل هو مفيد أم لا تقبل تحياتى ****************************************** استاذى الفاضل ابوسليمان الشرح اعتقد ان بسيط للغايه ومصحوب بالصور ولكن اعدك فى الدرس القادم شروحات اكثر تفصيلا وابسط عرضا تقبل تحياتى
    1 point
  31. السلام عليكم ورحمة الله أحبابي الكرام جميعا لكم من القلب كل التحايا والاحترام نغيب ونرجع ونجدكم أكثر نشاطا وإبداعا ، ما شاء الله لا قوة إلا بالله جزاكم الله كل خير وزادكم وأرضاكم
    1 point
  32. السلام عليكم بالنسبة لرأس الجدول انا حاولت برمجيا ادخل الصفين ولم يجدى .... اكتفى بسطر واحد اما بالنسبة لكمية البيانات اللى بتتكلم عليها فهى كبيرة جدا على ملف ورد واحد .... امكانياته لا تسمح وهيبقى تقيل وممل فى التعامل ممكن تنقل كل 500 سطر من الجدول فى ملف وده بيكون احسن لبرنامج الورد.
    1 point
  33. السلام عليكم جهد بسيط كأساس لقاعدة بيانات لن تعدموا فائدة وآمل ممن يسعى للعمل عليه وإكماله أن يتحفنا بنسخة لآخر ما توصل إليه تحياتي ،،،، الرقم السري 1 ethen.rar
    1 point
  34. السلام عليكم لاختصار الكود... مش لازم تحط العداد ده الاول ... سيبه ينقل ولما العدد يعدى 11 يبلغه انه تم نقل 11 سجل فقط For Ii = 0 To ListBox1.ListCount - 1 H = 0 For I = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(I) = True Then H = H + 1 If H1 > 11 Then MsgBox "لقد تم نقل بيانات 11سطر فقط (اقصى عدد يمكن اختياره)": Exit Sub Me.Controls("a" & H).Value = ListBox1.List(I, 0) Me.Controls("b" & H).Value = ListBox1.List(I, 1) Me.Controls("c" & H).Value = ListBox1.List(I, 2) Me.Controls("d" & H).Value = ListBox1.List(I, 3) End If Next I
    1 point
  35. لو عندك اكسيل 2007 أو ما فوق جرب الكود التالي Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    1 point
  36. لتحديد اسم الصفحة التي يتم فيها الحساب اسبق الرينج باسم الشيت كالتالي Sheet1.Range("A1:H20") Function CountNonEmpty(ByVal Rng As Range) As Long CountNonEmpty = WorksheetFunction.CountA(Rng) End Function Function CountIf(ByVal Rng As Range, ByVal Val As Variant) As Long CountIf = WorksheetFunction.CountIf(Rng, Val) End Function Sub Test() MsgBox CountNonEmpty(Sheet1.Range("A1:H20")) MsgBox CountIf(Sheet1.Range("A1:H20"),"نعم") End Sub
    1 point
  37. أضف الكود التالي في موديول المصنف Private Sub Workbook_Activate() Application.MoveAfterReturnDirection = xlToRight End Sub Private Sub Workbook_Open() Application.MoveAfterReturnDirection = xlToRight End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.MoveAfterReturnDirection = xlDown End Sub Private Sub Workbook_Deactivate() Application.MoveAfterReturnDirection = xlDown End Sub
    1 point
  38. السلام عليكم اتفضل الحل ... بالتعديل الاتى 1- التكست بوكس الاصلية كانت مش مترقمة بالترتيب ... اعدت ترقيمها 2- اضفت جزء من الكود لتنظيف التكست بوكس قبل البدء فى ملئها 3- الخطأ البرمجى اللى كان عندك انك كنت بتستعمل نفس المتغير الى بيعبر عن السطر اللى انت مختاره من الليست بوكس فى ترقيم التكست بوكس .... يعنى لو انت مختار اول سطر مثلا ... ده رقمه 0 ... كان هايدور على textbox0 وطبعا مش لاقيه .. وده اول خطأ .. اما لو كان اختر 1، 5، .... كان ها يكتب فى textbox1 , textbox5 وها يترك الباقى فاضى , والحل هنا فى تخصيص متغير جديد حسب تحقق شرط الاختيار TRS LIST.rar
    1 point
  39. وعليكم السلام ورحمة الله وبركاته شكرا لك وجزاك الله خيرا هل هناك حل كلما زت المدى يطلع في الوورد كلام غير مفهوم وغير واضح وعذرا على الخطأ في الاسم
    1 point
  40. السلام عليكم ورحمة الله وبركاته هذا الكود يقوم بالترحيل من الاكسيل إلى الوورد ولكن المشكلة كلما زدت المدى لا يتم ترحيل شيء فما المشكلة التي في هذا السطر wdDoc.ActiveWindow.Selection.Tables(1).PreferredWidth = CentimetersToPoints(13) 'Name of the existing Word doc. Const stWordReport As String = "Quarter Report.docx" 'Word objects. Dim wdApp As Word.Application Dim wdDoc As Word.Document Dim wdbmRange As Word.Range 'Excel objects. Dim wbBook As Workbook Dim wsSheet As Worksheet Dim rnReport As Range 'Initialize the Excel objects. Set wbBook = ThisWorkbook Set wsSheet = wbBook.Worksheets("Sheet1") Set rnReport = wsSheet.Range("A1:D53954") 'Initialize the Word objets. Set wdApp = New Word.Application rnReport.Copy Set wdDoc = wdApp.Documents.Add(Template:="Normal", NewTemplate:=False, DocumentType:=0) wdApp.Visible = True wdDoc.Activate rnReport.Copy wdDoc.ActiveWindow.Selection.PasteExcelTable False, False, False wdDoc.ActiveWindow.Selection.Tables(1).Rows(2).HeadingFormat = True '. .Select wdDoc.ActiveWindow.Selection.Tables(1).PreferredWidth = CentimetersToPoints(13) With wdDoc.ActiveWindow.Selection.PageSetup .TopMargin = CentimetersToPoints(2) .BottomMargin = CentimetersToPoints(2) .LeftMargin = CentimetersToPoints(1.5) .RightMargin = CentimetersToPoints(1.5) .Gutter = CentimetersToPoints(0) End With Set wdbmRange = Nothing Set wdDoc = Nothing Set wdApp = Nothing 'Clear out the clipboard, and turn screen updating back on. With wbBook.Application .CutCopyMode = False .ScreenUpdating = True End With MsgBox "Done" End Sub
    1 point
  41. السلام عليكم ورحمة الله وبركاته استكمالا لموضوع تحليل التعادل هام للمحاسبين ومديرى المبيعات والانتاج والعاملين بالمجال المالى ---------------------------------------------------------------- كيفة تحديد الربح المستهدف + وتحليل ماذا- لو؟ ------------------------------------------------------------ قد تحتاج ان تعرف ما قيمة المبيعات ؟ اذا ما اردت جنى ارباح مثلا 25000 ؟ وقد تحتاج الاختيار بين عدة بدائل وتحليل حساسية هذه البدائل واختيار البديل الافضل استخدمنا ادوات التحليل ماذا -لو ؟والرسوم البيانيه ومعادلات وصيغ ....الخ لاتنسونا بصالح دعاؤكم تقبلوا تحياتى تحليل التعادل3.rar
    1 point
  42. اسخراج كشف حساب الفيديو الأول مشاهدة مفيدة وممتعة
    1 point
  43. السلام عليكم إخواني وأحبائي وجدت علي موقع أجنبي قائمة للمبتدئين في تعليمات وبرمجيات الفيجوال بيزيك للاكسل القائمة علي شكل فهرس ولم أفعل غير تنسيقها فقط بالإكسل تفضلوا القائمة بصيغتي 2003 ، 2007 عسي الله أن ينفع بهما Excel VBA Index.rar
    1 point
  44. تابع الشرح انتهى الشرح ارجو ان يكون هذا العمل خالصا لوجه الله تعالى وَقُلْ رَبِّ زِدْنِي عِلْمًا
    1 point
  45. السلام عليكم جميعا أخواني الأحباب الغاليين أبوعبدالله قصي خالد ياسر ولد طيبة الله يبارك فيكم مشكورين جميعا علي مروركم الكريم وكلماتك الطيبة نفعنا الله جميعا بما نعلم وبما نعمل آمين
    1 point
  46. أخي الحبيب / م.طارق صباح الفل واسمح لي أكون أول من يشكرك على هديتك الرائعة فجزاك الله خير الجزاء . مع حبي وتقديري أبو عبدالله
    1 point
×
×
  • اضف...

Important Information