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

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

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

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

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


    • نقاط

      10

    • Posts

      13165


  2. عبدالله باقشير

    عبدالله باقشير

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


    • نقاط

      6

    • Posts

      4796


  3. محمد القمجي

    محمد القمجي

    02 الأعضاء


    • نقاط

      3

    • Posts

      89


  4. ابوخليل

    ابوخليل

    أوفيسنا


    • نقاط

      2

    • Posts

      12864


Popular Content

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

  1. السلام عليكم ورحمة الله وبركاته اسمحلي اكلمك باسلوبك "التهينا شوية بامور اخرى جينا ولقيناك عامل الهوايل ومكسر الدنيا" يا اخي الحبيب حقيقة لك اسلوب تعليمي يدخّل المعلومة بالراس بالغصب جزاك الله خيراً وبارك فيك تقبلوا تحياتي وشكري
    4 points
  2. السلام عليكم ورحمة الله وبركاته كيف حالكم إخواني الكرام في المنتدى الغالي؟ لقيت نفسي نفسي (نفسي الأولى غير التانية ..) نفسي الأولى يعني أنا - وأعوذ بالله من كلمة أنا - ، ونفسي التانية يعني حاجة أتمنى أعملها .. المهم لقيت نفسي أعمل حاجة مختلفة .. بشكل مختلف .. بأسلوب مختلف يكون فيه عنصر التشويق والإثارة والبساطة مجتمعين في نفس الوقت. كتير مننا أول ما يسمع كلمة البرمجة والأكواد يتخض وكأن الموضوع مستحيل ...أبدا كل الحكاية إننا بنبدأ غلط مش بناخد الخطوات الصحيحة لتعلم البرمجة. لو عايز تتعلم البرمجة ونفسك بجد تبدأ تتمكن فيها خليك معايا ، هنقضيها رغي شوية وهزار شويتين ، وجد مش كتير ... ايه رأيكم؟ نبدأ على بركة الله .. أول حاجة بعد ما تنصب الأوفيس وتفتح الإكسيل تلاقي اللي انت عايزه مش موجود طيب نظهره إزاي ؟؟ ببساطة فيه زر أوفيس فوق شمال هتضغط عليه وتضغط Excel Options هتلاقي نافذة فيها خيار اسمه Show Developer tab in the Ribbon يعني إظهار التبويب ، وهتلاقي جنبه مربع تحط فيه علامة صح مبروك الخطوة الأولى واحد هيقولي عندك اقف أول خطوة فشلت فيها ..هقوله ربنا ما يحرمنا من الفشل لأن الفشل أول طريق النجاح .. هقولك لو ملقتش اللي بحكي عليه يبقا اصدار الأوفيس مختلف أنا شغال على 2007 ، وحضرتك على 2010 أو 2013 (بالنسبة ل 2003 والله ما أنا معبره كفاية عليه لحد كدا) ... بالنسبة لـ 2010 و 2013 بيكون من قائمة File ثم Options ثم من القايمة الشمال فيه Customize Ribbon وفي الناحية اليمين هتلاقي قائمة بالتبويبات وجنب كل تبويب علامة صح اللي يعجبك علم عليه صح واللي ميعجبكش ارميه في الزبالة... المهم هتلاقي التبويب اللي هيفتح لنا الباب لعالم البرمجة .. دا كان المفتاح للدخول نخش لتاني حاجة المفتاح عشان يفتح معاك لازم تحط عليه شوية زيت ، يعني لازم تضبط إعدادات الماكرو عشان الأكواد تشتغل معاك تمام من التبويب الجديد انقر على Macor Security هيفتح معاك نافذة بتختار منها آخر خيار Enable all macros وبتعلم علامة صح على الخيار اللي جنبه مربع Trust access to VBA الحمد لله خلصنا من النقطة الأولى والتانية ... ننتقل لنقطة جديدة : هيظهر التبويب في الآخر .. جمد قلبك واشرب ديو وافتح الباب لمحرر الأكواد اضغط على Visual Basic من التبويب المذكور أو لو بتحب تتعامل مع الكيبورد اضغط Alt + F11 كدا الباب الحمد لله فتح .. لو أول مرة تدخل على محرر الأكواد متتخضش واحدة واحدة هبندا نتعلم كل اللي موجود .. المهم محدش يستعجلني عشان أنا مستعجل النافذة دي اسمها نافذة المشروع Project window يعني الإكسيل بيتعامل مع المصنف إنه مشروع .. والمشروع مكون من 3 شيتات اللي بنسميهم أوراق العمل Sheet1 و Sheet2 و Sheet3 بس في 2013 الحمد لله بيكون الوضع الافتراضي شيت واحد بس (أصلي بتخنق من حتة 3 شيتات ع الفاضي بحس إن الملف كبير ع الفاضي وكل اللي يلزمني للعمل بشكل مبدئي هو شيت ولما أحب أضيف جديد مش هيكون أمر صعب) المهم مع أوراك العمل بنلاقي الكائن المسمى بالمصنف WorkBook ودا اللي بيحوي التعابين كلها أقصد الأكواد .. طيب محدش سألني ايه المنطقة الرمادي دي ومالها ضلمة ليه كدا؟ أنا أقولك عشان إنت تنورها .. اضغط دبل كليك على Sheet1 مثلا في نافذة المشروع هتلاقيها نورت والحمد لله استعداد لبداية الاحتفال بس فيه نقطة الأكواد لو اتكتبت هنا هتأثر على الورقة دي بس ... في الحتة اللي نورت الصق الكود اللي جاي ده وأفضل تكتبه بايدك عشان أنا شايف ايدك بتترعش وخايف .. قلت لك جمد قلبك الموضوع بسيط نبدأ بكود كدا سهل ولذيذ Sub Hello_Officena() MsgBox "Hello Officena!" End Sub أول كلمة Sub يعني ابدأ صب اللي عندك .. لا غلط .. معناها إجراء فرعي Subroutine يعني بينفذ مهمة محددة. وفي آخر الكود End Sub عشان القفلة (لو فاكرين شعبان عبد الرحيم بيقول ايه في الآخر بس خلاص دي القفلة بتاعته) هنا بقا دي القفلة بتاعت الإجراء الفرعي.. طيب ايه Hello_Officena دا اسم الإجراء ودا له قواعد أول حاجة مينفعش يبدأ برقم 77Hello_Officena ولا ينفع يكون فيه مسافة زي كدا Hello Officena بس ممكن لو حبينا بدل المسافة بحط Underscore اللي هي بتيجي بـ Shift + العلامة اللي على يمين الصفر اللي في الأرقام اللي فوق مش الأرقام اللي ف لوحة الأرقام .. وبردو فيه حاجات محرمة في اسم الإجراء زي علامة # أو $ أو % أو & أو % أو النقطة أو الفاصلة أو أو .. بقولكم ايه كفاية كلام عن اسم الإجراء .. لو كان فيه حاجة غلط في الاسم هيطلع لك رسالة خطأ تعرف إن فيه حاجة مش مظبوطة!! طيب السطر اللي في النص دا هو دا الكود .. الإجراء أو المهمة المراد تنفيذها .. بتبدأ بكلمة MsgBox ودي اختصار للكلمة Message Box أي صندوق الاسم ..... والله انا سرحت بس مش همسح اللي بكتبه خلي الكلام يكون تلقائي .. ودي بنكتب وراها الرسالة اللي عايزين نظهرها .. وطبعا فيه مسافة بعد الكلمة والكلام اللي هو الرسالة دا نص فنحطه بين أقواس تنصيص " " .. واحد برق لي عينه بيقولي بتتعمل إزاي دي قول لأقتلك .. هقوله حاضر يا باشا هقولك دي بتيجي إزاي .. اضغط على Shift وبعدين حرف الطاء بس خلاص .. طبعا أقواس التنصيص في أول النص وفي آخره مهو لازم القفلة. نجرب نشغل الكود إزاي .. فيه أكتر من طريقة يا إما تضغط على مثلث لونه أخضر فوق في شريط الأدوات الموجود في محرر الأكواد .. مش عاجبك شكل المثلث الأخضر خلاص روح لقائمة Run واضغط أول أمر .. لو انت تلميذ ذكي هتعرف الطريقة التالتة من التانية .. هسيبكم تقولوها إنتو ..مش عارفين !! طيب هقول أنا وخلاص اضغط على F5 من لوحة المفاتيح بس بشرط يكون مؤشر الماوس واقف في الكود.. لما نشغل الكود دا اللي هيظهر لي وبكدا أكون وصلتكم وفتحت لكم الباب .. لو عايزين نكمل قولوا كمل مش عايزين .. يبقا كفاية لحد كدا ويا كود ما يقربش منك حد .. ونعمل بالمثل الفلاحي اللي بيقول : ابعد عن الكود وادعي عليه! والسلام عليكم سبحانك اللهم وبحمدك .. نشهد أن لا إله إلا أنت ..نستغفرك ونتوب إليك كان معكم على الهواء مباشرة أخوكم أبو البراء من ملعب أوفيسنا .. إلى اللقاء مع مباراة جديدة وأهداف جديدة وشيقة دمتم بود ====================================== ====================================== السلام عليكم نرجوا وضع ردود الشكر والاعجاب على الرابط ادناه هنا ====================================== ======================================
    2 points
  3. Private Sub CommandButton1_Click() Dim cTxt As Control Dim iNm As Integer For Each cTxt In Me.Controls If TypeName(cTxt) = "TextBox" Then iNm = iNm + 1 Next MsgBox "Number Textbox this Userform is " & iNm End Sub
    2 points
  4. تم التعديل قم بتصفح السجلات داخل النموذج علما اني افضل عدم ظهور ( المححولين الى) بعد التأشير داخل نموذج الادخال يعني يمكن نظهرهم من اي مكان آخر ملحوظة : 1- مصدر بيانات النموذج هو الاستعلام ( ابحث عنه داخل النموذج ) 2- تم حذف خانة الاختيار ( محول من ) من الجدول نموزج7.rar
    2 points
  5. اخى الفاضل المفترض ان ترفق ملف حتى يتسنى لأى أخ فاضل معرفة ما تريد ومساعدتك، لكن انظر المرفق لربما يكون هذا هو طلبك تحياتي auto.rar
    2 points
  6. السلام عليكم ورحمة الله وبركاته كنت بصدد عمل برنامج " دليل هاتف " فصادفتني بعض المشاكل باستخدام القوائم فأردت عمل شئ من التغيير في استعمال القوائم حتى هداني الله الى فكرة بأستخدام الاكواد والحمد لله انجزتها ولكنها تبقى في بدايتها وامكانية تطويرها واردة واحببت ان اشارككم بها لعل اجد من ارائكم بعض الامور التي قد تفيد بهذا الشأن هنا ملف يحتوي على صفحة من البرنامج مع احتوائه على القائمة المذكورة اخوكم عماد الحسامي
    1 point
  7. السلام عليكم إخواني الكرام في المنتدى الرائع أقدم لكم كود بسيط يتم وضعه في حدث Worksheet_BeforeDoubleClick يقوم الكود بوضع علامة صح عند النقر المزدوج على أي خلية في النطاق A1:A100 يمكنك تغيير النطاق إلى أي نطاق تريده .. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1:A100")) Is Nothing Then Cancel = True Target.Font.Name = "Marlett" If Target = vbNullString Then Target = "a" Else Target = vbNullString End If End If End Sub
    1 point
  8. السلام عليكم إخواني الكرام أقدم لكم اليوم إضافة مذهلة ورائعة تقوم بفصل البيانات طبقا لما تحدده من شروط أترك لكم المرفق معه شرح للتعامل مع الأداة الإضافة والشرح وملف لعمل اختبار للأداة مرفوع على الموقع التالي : http://www.gulfup.com/?IWS9o6
    1 point
  9. السلام عليكم ورحمة الله وبركاته الاخوه الاعزاء ارجوا وضع الاكواد الخاصه بالنسخ واللصق من textbox الى textbox اخر داخل الفورم ولكم وللمنتدى الرائع كل الشكر والتقدير ..... نسخ.rar
    1 point
  10. السلام عليكم جميعا اخواني السلام لهذا المنتدى الرائع والراقي جدا من اعضاء ومدراء ومشرفين اضع بين يديكم فورم للتعلم والعمل سهل جدا نرجوا منكم الدعاء iraq.rar
    1 point
  11. ارفق لكم مثال 2003 و 2007 لثلاثة امثلة لحركات النص جميلة جدا تستطيعو الاستفادة من الكود في برامجكم . حركات النص.rar
    1 point
  12. اخي الكريم تكون هذه المشكله عادة عندما يكون هنالك تنسيفات مختلفه لبعض الخلايا والتى تسبب فى كبر حجم الملف قم بالتاشير على الخليه A30 اخر خليه فى الجدول ثم كنترول + شيفت ثم سهم سار + سهم اسفل ثم clear format نزل حجم الملف من 118 ميجا الى 30 kb الملف بالمرفقات بعد ازالة التنسيقات فى الخلايا الغير مستخدمه مسودة الصف الرابع 00.rar
    1 point
  13. الاستاذين الكريمين ضاحي الغريب و شوقى ربيع عمل راقي لابعد حد بارك الله فيكم تقبل تحياتي
    1 point
  14. الأخ الحبيب حماده عمر (العفريت سابقا) الله يبارك فيك .. والله فرحتي دائما بكم وفرحتي بكم لا تقدر بأي فرحة أخرى .. وأنا ما زلت وسأظل تلميذا صغيرا في هذا الصرح العملاق والترقية في نظري ليست هدية بقدر ما هي مسئولية صحيح ممكن تنقل الحلقات في أول الموضوع بارك الله فيك هل طلب تجميع الحلقات صعب .. حتى يسهل على الأعضاء متابعة الموضوع بعيدا عن الردود
    1 point
  15. الأخ محمد يوسف أيوا كل شيء ممكن إن شاء الله ممكن زي كدا With Range("A1:B13") .HorizontalAlignment = xlCenter .Font.Name = "Times New Roman" .Font.Size = 17 .Font.Bold = True .Font.Color = vbBlue End With With Range("A1:B1") .Font.Size = 20 .Font.Color = vbRed End With اعتمدت على نطاق واحد بالكامل من أول A1:B13 وعملنا التنسيقات المتشابهة وبعدين نشوف المختلف ونخصص له جزء جديد من الكود ونغير فيه ..
    1 point
  16. تسلم يا ابن مصر نشاط رائع بارك الله فيك بصراحة بيعجبني شغلك جدا .. مستوى متميز وراقي
    1 point
  17. الأخ الحبيب محمد الريفي جزيت خيراً على كلماتك الرقيقة وشعورك الطيب . ووالله مخدت بالي من موضوع الترقية دا إلا منك .. دي مسئولية قبل ما تكون هدية .. وعقبالك يا كبير وصدقني هناك من يستحق هذه الترقية ومن هم أفضل مني أمثال سليم وحضرتك والأخ وائل المصري وابن مصر وكتير صراحة يعذروني لو كنت نسيت حد فيهم. بالنسبة لطلبك شوية كدا وهتلاقي ابن الحلال اللي يتبرع ويعمل الدروس PDF لأني معنديش فكرة صراحة أو مجربتش .. شوية كدا بس لما الأمور تبدأ تتظبط متقلقش الأخ الفاضل عبد الله إحنا بنتعلم وتسجيل الماكرو مجرد معين مش هو الأساس لأن فيه أكواد مينفعش فيها تسجيل ماكرو .. وبعدين اللي هيكتبه التسجيل في 50 سطر إحنا هنقدر نعمله بكل بساطة في 5 أسطر أكيد يفرق .. وإلا مكانش حد اتعلم واعتمدنا على تسجيل الماكرو وانتهى الأمر
    1 point
  18. جزاك الله خيرا اخي الفاضل عمل ممتاز جدا
    1 point
  19. أستاذي وأخي ومعلمي عبد الله باقشير يكفينا شرفاً مرورك العطر على الموضوع .. وبعدين ولا مكسر الدنيا ولا حاجة .. إحنا يدوب بنحاول نوصل المعلومة بأبسط أسلوب عشان أولا الناس يبدأ حاجز الخوف من البرمجة يتشال وحاجة تانية تكون دي بداية دايما للي حابب يتعلم ، لأني في الفترة الأخيرة لاحظت إن كتير بيسألوا إزاي نبدأ طيب نبدأ منين طيب مين هيعلمنا فقلت إني دي ممكن تكون بداية وبداية قوية إني أقحمه في المجال لو هو حابب يتعلم. الأستاذ الغالي مجدي بوركت وجزيت خيراً أخي الفاضل الأخ الفاضل محمد علي أشكرك على كلماتك الطيبة ودعائك الطيب .. وإن شاء الله بعون الله وبفضله انتظر المزيد الأخ الحبيب حسام عيسى اللي غاب عننا فجأة نورت الموضوع .. مش يكفيني الإعجاب أنا محتاج ردود وردود تكون مؤثرة يعني إضافة لمعلومة تصحيح مسار ابداء رأي كل دا مطلوب أما بالنسبة للشروح فدا أمر بسيط هيقوم به المشرفين إنهم ينقلوا الحلقات ومتابعة الواجبات في أول الموضوع عشان يسهل المتابعة وبعدين أول يوم تحضر فيه ومفيش معاك كشكول الواجب كدا غلط وأنا كدا أزعل الأخ الكريم مختار حسين مشكور على مرورك العطر ودعائك الطيب بالنسبة لطبك أنا شايفه غريب ..اللي بيتعلم لازم يبدأ مش يفكر إنه يبدأ وإحنا هنا في الحلقات اللي بنقدمها بدأنا بالفعل وخلصنا تقريبا 50 % من البدايات مش عارف إذا كانت النسبة صح ولا غلط أنا مش ممنهج في الحلقات أنا بشوف ايه الضروري الأول وببدأ بيه عشان يكون تعلمنا بمثابة صعود السلالم من تحت لفوق وواحدة واحدة وإن شاء الله توصل للاحتراف بس تابع بشكل جيد الموضوع واعمل الواجب ..هرجعكم تاني تدرسوا .. أنا عايز الطالب المتميز اللي يجيب الواجب ومعاه معلومة جديدة يفيد بيها غيره .. التعلم دايما أفضل طريقة فيه المشاركة .. أنا لا أملك كل المعلومات قد أكون معي الطريقة التي أقدم بها المعلومة وانت معاك المعلومة فنتشارك انت تقول المعلومة ولو صعبة على الناس نبدأ نبسطها لحد ما يستوعبوها مش عايز أبدأ حلقة جديدة إلا ونكون استوعبنا كل اللي فات مش بشكل جيد لا بشكل ممتاز بشكل احترافي .. عايزين نوصل للاحتراف في طريقة التعلم أنا لا أرضى بالقليل في التعلم أبدا كن ذا همة تصل للقمة .. فليكن هذا شعارنا وكفانا حديثا ولبندأ العمل (دقت ساعة العمل دقت ساعة العمل)
    1 point
  20. اقتراح على الاساتذه بالمنتدى عمل امكانية التواصل بين الاعضاء من خلال الميك وذلك يسهل عملية الشرح لاى كود او معادله بين الاساتذه بالمنتدى والعضو بشكل اسهل واسرع لان عملية شرح الكود بالكتابه اصعب بشكل كبير جدا وتاخذ وقت طويل ايضا وشاقه على الاساتذه بالمنتدى ولكن بالشرح من خلال الميك تكون سهله وبسيطه وغير شاقه على الاساتذه بالمنتدى وبنفس الوقت يستطيع العضو فهم الكود بشكل ادق واوضح واسرع الملاحظ بهذا المنتدى تكرار الاسئله ومن اسباب ذلك وجود المعادله او الكود ولكن بعض الاعضاء لا يستطيعون فهمها فاتمنى ان نتبع لا تعطنى سمكة ولكن علمنى كيف اصطاد اسف للاطاله ولكن هذا مجرد اقتراح ارجوا كل من يدعم هذا المقترح يكتب تعليقا ودعم للمقترح
    1 point
  21. السلام عليكم ورحمة الله وبركاته ،، اذا تكرمت ، نريد الشرح للخطوات للأفادة ، وشكرا جزيلا.
    1 point
  22. اضغط على الهيدر وقم باختيار الخيار صفحة اولى مختلفة سيتم حذف هيدر الصفحة الاولى ثم افعل ما تشاء بهيدر الصفحة الاولى يكون مختلف عن بقية الصفحات شوف الصورة تحت بالمرفقات مع الملف عملتو لك صفحة 1.rar
    1 point
  23. السلام عليكم قلت قبل ما أنا أقدم لكم دالة كدا ع السريع يمكن تفيد أي حد الدالة تقوم بعمل عد للتواريخ في نطاق ما .. الدالة بسيطة جدا بتعتمد على اختبار الخلية باستخدام IsDate وترجع القيمة إلى True أو False فلما يكون تاريخ العداد يضيف واحد في كل مرة أرجو أن تنال إعجابكم Function CountDates(R As Range) For Each Cell In R If IsDate(Cell) Then Counter = Counter + 1 Next Cell CountDates = Counter End Function
    1 point
  24. تم عمل الواجب أستاذي ابو البراء إن شاء الله وفقت في ذلك Range("A1:B10").HorizontalAlignment = xlCenter Range("A1:B10").Font.Name = "Arial" Range("A1:B10").Font.Size = 14 Range("A1:B10").Font.Bold = True Range("A1:B10").Font.Color = -52429
    1 point
  25. جزاك الله خير اخي اسير فعلا هذا المطلوب ...
    1 point
  26. بسم الله الرحمن الرحيم بعد التوكل على الله برنامج رائع يستخدم في المختبرات الطبيه (التحليلات المرضيه ) يحتوي البرنامج على الكثير من المميزات والخصائص التي تجعله فريد من نوعه كما يتصف بالسهوله في الاستخدام والوصول الى النتائج بسرعه برنامج noraea الطبي نبدا اولا بشاشة دخول البرنامج حيث تحتوي على كلمة سر واسم مستخدم بواجهه احترافيه ثانيا تم اضافة خاصية فقدان كلمة السر اسم البرنامج program noraea مميزات البرنامج 1-حماية قويه لقاعدة البيانات حيث تعمل بباسورد مختلف عن باسورد البرنامج وهو 123 2-حماية البرنامج باسم مستخدم وكلمة سر مع امكانية تغيرهما حسب الطلب 3-لائحة ادخال معلومات اي مريض بسهوله 4-امكانية البحث عن اي مريض باول حرف من اسمه 5-يمتاز البحث بامكانية معرفة جميع زيارات المريض خلال اي فتره حتى لو كانت بالسنين وكذلك عدد زيارته 6-امكانية اخذ نسخه احتياطيه بسهوله اسم المستخدم (الله لا اله الا هو) كلمة السر(123) هذا العمل للمبرمج علي عقيل وهو عمل لوجه الله تعالى نرجوا تثبيته في المنتدى وذلك لانه حصري وسوف لن يتم رفعه على منتدى اخر مستعدين لاي تعديلات تتنساب مع مشاريعكم بدون مقابل فقط المراسله على الايميل aliaqeel2013@gmail.com ومن الله التوفيق program noraea .rar
    1 point
  27. شكرا صﻻح على توجيهاتك سيتم العمل بها ان شاء الله قريبا في اﻻصدار الجديد
    1 point
  28. اول شي مثلا انا عندي برنامج مبيعات اوي برامج انت مصممه مثلا اسم البرنامج data1 . 1-نأخذ من نسخة من البرنامج ونسميه اي اسم اخر مثلا ونضعها علي سطح المكتب ونسميها data2 . 2- طبعا dsta1 هي الاساس نحذف منها الاستعلامات والنماذج والتقرير واي شئ ما عادي الجداول . 3- نروح ل data2 نحذف منها الجداول فقط علشان هي دي الي هنوزعها علي الاجهزه الاخري اي علي المستخدمين الاخرين . 4- طبعا بعد حذف الجداول من data2 هنعمل ايه بعدين علي قائمة اكسس 2007 ونختار بيانات خارجيه ونختار من قائمة بيانات خارجيه اكسس سوف تظهر لي قائمة بها خياران نختار الثاني الي هو ( الارتباط بمصدر البيانات بواسطة انشاء جدول مرتبط ) وبعد ذالك نضغط علي استعراض وشوف انتي حاطط data1 فين وعلم علي عليها كليكالبياناتها ثم اضغط علي فتح ثم تظهر لك قائمة بها الجداول اضغط تحديد الكل ثم موافق . كده انت قسمت قاعدة البينات . طبعا المفترض خطوه (4) تبقي اخر حاجه علشان ما نعملهاش من جديد . 5 - طبعا اذا كان عند سيرفر طبعا هتضع عليه data1 وطبق خطوه (4) اما لوكان علي جهازك الشخصي فتتبع الاتي (أ) ننشأ فولدر جديد ونضع في قاعدة البيانات data1 ونعمل شير للفولدر بحيث جميع الاجهزه تراه ونطبق بعد ذالك خطوه رقم (4) ولو حد عنده اي استفثارات او اي تعديل يفيدنا بيها في موضوع جديد ملفات مرفقة شرح الربط باالصوره New folder.rar
    1 point
  29. جزيت خيرا في المتابعة ان شاء الله امي بالتسلم عليك و تقلك مليني و حدة و حدة فكرة الواجب روعة يا معلم
    1 point
  30. الهامش هو المنطقة الخارجية المحيطة بالورقة والتي تكون خالية من الكتابة وغني عن القول أن المساحة الموجودة في يمين الورقة حيث يتم تجميع الكتاب بدبوس أو خياطة لابد أن تكون كبيرة كفاية كي لا تختفي الكتابة تحت الخياطة، ولذلك عن طباعة كتاب - على جانبي الورقة - نحتاج أحيانا لهامش أيمن كبير عندما تكون الورقة على البسار وهامش أيسر كبير عندما تكون الورقة على اليمين وهنا تكون الهوامش معكوسة بالضرورة.
    1 point
  31. الهوامش هي مساحة فارغة نتركها على الورقة من الجهات الاربع يمين يسار اعلى اسفل تقدر بالسنتيمتر تُحسب من حافة الصفحة. اما طية كتاب تاخذ نمط صفحات الكتاب ليست فيها الهامش اليمين والهامش اليسار بل مكان هذين الهامشين هامش الداخل والهامش الخارج. اما صفحتان في كل ورقة تعني صفحتان على الوورد يقابلها ورقة واحدة مطبوعة عليها هاتين الصفحتين. والسلام عليكم
    1 point
  32. السلام عليكم استاذنا سليم اكواد و معادلات مميزة الف مبروك , زادك الله علما و نفع بك و اعلى نزلك في جنات النعيم . تقبل تحياتي
    1 point
  33. لا تنشرها جزاك الله خير ... ادخل وحمل وستعرف !! جمعة مباركة اخواني الكرام اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين جمعة مباركة.rar
    1 point
  34. السلام عليكم أخي العزيز وضعت لك بيانات إفتراضية لأكثر من ألف عميل مع دفعات ومشتروات لأكثر من 5000 بيان ، كل ذلك في ورقة بيانات ثم عملت لك جدول محوري في الصفحة الأخيرة العملاء ومنه بالضغط علي السهم الموجود بالخلية B2 تختار ماتشاء من العملاء حتي لو أنك تريد مثلا بيان لثلاث أو أربع عملاء مع بعض (أو أكثر) تفضل المرفق صفحة العميل.rar
    1 point
  35. السلام عليكم أنا أتعامل مع أوفيس 2007 وأوفيس 2010 وقليلا مع أوفيس 2003 فوجدت ان أوفيس 2007 و 2010 تقريبا نفس المضمون ولا تختلف عن بعضهما إلا إختلافات بسيطة جدا إلى درجة أنك ربما لا تلاحظ الفروقات إلا بالتعمق في العمل ولكن 2010 فيه خاصية البحث أفضل بكثير من 2007 وأيضا خاصيات كثيرة مثل تفعيل الماكرو فإنه إذا فعلت الماكرو لملف فإنك لا تحتاج لتفعيله مرة أخرى طالما أنه لا زال بنفس الاسم وعند فتح الملف فإنه يعمل مباشرة وأيضا على الآوت لوك 2010 مريج جدا وسلس أكثر من 2007 والكثير أيضا .... أما 2003 فأنا صراحة أحس أنه " للمبتدئين في الاوفيس "ولم أتعامل معه في البرمجة أبدا ولا أعلم مدى إمكانياته في البرمجة شكرا
    1 point
  36. 1 point
  37. السلام عليكم ورحمة الله وبركاته اخي هشام على خطاكم نسير الموضوع رقم(34) مجمع بيانات الإكسل محمد طاهر الموضوع رقم(35) مشروع توزيع الطلبة على الفصول خبور خير الموضوع رقم(36) دوال مستحدثة جديدة ( دوال البحث VLOOKUP متنوعة) عماد الحسامي الموضوع رقم(37) دالة مستحدثة جديدة (دالة TOPTEN) لايجاد العشرة الأوائل عماد الحسامي الموضوع رقم(38) مواضيع خاصة بادراج الصور بالخلايا وما شابه هشام شلبي الموضوع رقم(39) موضوع تجميعي لدوال حساب السن جمال الفار الموضوع رقم(40) دليل الدوال المستحدثة لرواد منتدى أوفسينا عماد الحسامي الموضوع رقم(41) موضوع لتجميع الأعمال والمواضيع المتعلقة بالتحقق من الصحة عبدالله المجرب
    1 point
  38. إخوتي الأعزاء نظرا لأهمية تثبيت بعض المواضيع المتميزة لتعميم الفائدة وسهولة الرجوع اليها سيتم جمع روابط هذه المواضيع ضمن هذا الموضوع ، تعزيزا لأهميتها ، ومن باب اتاحة المجال لتثبيت مواضيع أخرى ضمن المواضيع المثبتة ، ولفترات محددة وبالتناوب . وسيتم إدراج رابط أي موضوع متميز ضمن هذه القائمة لسهولة الوصول اليه. مؤكدين أن هذا الموضوع ليس لطرح المشاركات وانما موضوع تجميعي للمواضيع المرجعية المتميزة ، لمساعدة الإخوة على التعرف على هذه المواضيع وتسهيل الوصول اليها و التعامل معها. آملا من جميع الاخوة التعاون سعيا لتنظيم الأمر تحقيق للمصلحة العامة لرواد منتدانا ودمتم
    1 point
  39. الاخ الكريم هذه اكواد للاستاذ الكبير "جعفر" الملف يحذف نفسه بعد 3 مرات استعمال.rar الملف يحذف نفسه بعد 30يوم استعمال.rar الملف يحذف نفسه بعد دقيقة استعمال.rar الملف يحذف نفسه تلقائيا بعد 3 استعمالات و يشعر المستخدم بعد الحذف.rar
    1 point
  40. السلام عليكم رد يحياوي صحيح عند تحديد الخلايا يجب تحديد نطاق واحد فقط استبدل الكود في موديل 2 بهذا Option Explicit Sub Kh_Save_Picture() Dim MyCount As Integer Dim P As String If TypeName(Selection) = "Range" Then If Selection.Areas.Count > 1 Then _ MsgBox "يجب تحديد نطاق واحد فقط", vbMsgBoxRtlReading + vbExclamation _ : Exit Sub End If Do MyCount = MyCount + 1 P = ActiveWorkbook.Path & "\" & MyCount & ".bmp" Loop While Not Dir(P, vbDirectory) = vbNullString Selection.CopyPicture xlScreen, xlBitmap Call DoTheWork(P) On Error GoTo 1 MsgBox "تم حفظ الصورة في الرابط ادناه" & vbCr & vbCr & P ActiveWorkbook.FollowHyperlink P, , True 1 End Sub واشعرنا بالناتج
    1 point
×
×
  • اضف...

Important Information