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

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

  1. محمد الشابورى

    محمد الشابورى

    03 عضو مميز


    • نقاط

      3

    • Posts

      131


  2. أم عبد الله

    أم عبد الله

    الخبراء


    • نقاط

      2

    • Posts

      2,166


  3. حمادة عمر

    حمادة عمر

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


    • نقاط

      2

    • Posts

      6,205


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

    سليم حاصبيا

    أوفيسنا


    • نقاط

      2

    • Posts

      8,723


Popular Content

Showing content with the highest reputation on 16 مار, 2014 in all areas

  1. اليك يا صديقي ما طلبت اكتب المعادلة في الخلية الأولى ثم اسحبها على العامود more ifs.rar
    2 points
  2. الأستاذ / alshammari5235 السلام عليك ورحمة الله وبركاته إليك الملف كما طلبت بطريقتين مختلفتين. A6.rar A7.rar
    2 points
  3. السلام عليكم ورحمة الله وبركاته استاذ سليم بارك الله فيك رائع...اسهل الطرق للوصول الى المطلوب
    1 point
  4. جاري التحميل ... المثال ثقيل جدا جدا سيستغرق التحميل 30 دقيقة
    1 point
  5. تم بحمد الله التوصل الى النتيجة المطلوبة فى كود التعديل عن طريق كود ايضا للرائع الاستاذ : ابو حنين والفكرة هى حذف البيانات القديمة عند التعديل واعادة ترحيل البيانات مرة اخرى Sub sSave() Application.ScreenUpdating = False Dim i As Long, Last As Long, Sh As Worksheet, Shh As Worksheet Set Sh = Sheets("main"): Set Shh = Sheets("database") If Sh.Range("A6") = "" Then MsgBox "لا توجد أي بيانات للترحيل", vbExclamation + vbMsgBoxRight, "خطأ" Exit Sub: End If LR = Sheets("database").[B1000000].End(xlUp).Row For i = LR To 4 Step -1 If Sheets("database").Cells(i, 1) = Sheets("main").Range("C2") Then Sheets("database").Rows(i).Delete Shift:=xlUp End If Next 'كود الترحيل أ:ابو حنين If MsgBox("هل تريد ترحيل البيانات الحالية الى قاعدة البيانات", vbInformation + vbMsgBoxRight + vbYesNo, "ترحيل") = vbNo Then Exit Sub x = Shh.Cells(Rows.Count, "B").End(xlUp).Row + 1 Last = Sh.Cells(Rows.Count, "A").End(xlUp).Row For i = 6 To Last Sh.Range("A" & i).Resize(, 8).Copy With Shh .Range("B" & x).PasteSpecial xlPasteValues: .Range("A" & x) = Sh.Range("C2").Value .Range("A" & x & ":" & "I" & x).Borders.Value = 1: .Range("J" & x) = x - 4 x = x + 1 End With: Next Sh.Range("A6:I" & Sh.Cells(Rows.Count, "A").End(xlUp).Row + 1).ClearContents: Sh.Range("C2") = "" Application.ScreenUpdating = True MsgBox "تم ترحيل البيانات بنجاح", vbInformation + vbMsgBoxRight, "ترحيل" End Sub
    1 point
  6. بارك الله فيك اخى العزيز تمام ان شاء الله الله ينور عليك استاذى العزيز ان شاء الله موفق
    1 point
  7. السلام عليكم ورحمة الله وبركاته ماشاءالله تبارك الله ماشاءالله تبارك الله ماشاءالله تبارك الله هذا هو المطلوب .... الله يزيدك من علمه إن شاءالله , وجزاك الله خيرا عنا , شكرا استاذه ام عبدالله , وفقك الله ورعاك , وشكرا جزيلا ايضا للاستاذ : سلطان العبد الله , وفقك الله ورعاك ,, اعجز عن شكركم بصراحه وتقبلوا اطيب تحياتي ...,,
    1 point
  8. الاساتذة الاجلاء / اعضاء منتدي اوفيسنا اطلب مساعدتكم في الاتي لدي شيت اكسل يحتول على 64 صفحة عبارة عن بايفت تابل كل صفحة عبارة عن بيانات مندوب طبعا كل الاختيارت عبارة عن فلاتر اريد ان اغير فلتر السنة في صفحة واحدة فيتم تغييرة تلقائيا في الـ 64 صفحة كذلك فلتر الشهر هل هناك امكانية ف Pivot table تقوم بهذا العمل طبعا الشيت دة خاص بالشركة التي اعمل بها ومن خلالة نقوم بسحب البيانات من على السيستم الخاص بالشركة شكرا لوقتكم
    1 point
  9. السلام عليكم الاستاذ والعلامه الخبير القدير / عبد الله باقشير بارك الله فيك دمت لنا قائدا ومعلما وعلامة فارقه في تاريخ عالم الاكسيل كافه اكتب مشاركتي هذه من ع الموبايل لوجود بعض الاعطال لدي في النت وأحس أنني فاتني الكثير بعدم القدره علي الاطلاع علي الملف لعلمي الشديد والأكيد بان فيه الكثير من المعلومات والافكار التي نحاول التعلم منها علي قدرنا وحسب المستطاع لنتعلم منكم كل ما هو جديد زادك الله من فضله ومن علمه وبارك الله لك في أهلك وولدك ومالك تقبل خالص تحياتي
    1 point
  10. السلام عليكم ... أرجو مساعدتي في عمل زر طباعة يقوم بطباعة الشيت المخصصة بصيغة PDF
    1 point
  11. السلام عليكم . الأخوة الأعضاء بارك الله فيكم وجعل هذه الدروس في ميزان حسناتكم . سؤالي هو حول ماذا تدور هذه الخاصية Pivot table وهل هي تصلح لأشياء كثيرة . مثلاً هل هي للأحصاء أم للحسابات . اريد أن افهم اكثر واعذروني
    1 point
  12. تحدثت عن طلبات سابقا وأخرى جديدة اتصور من طرحك انه لن يتم ربط المستخدمين على قاعدة واحدة وانما سيعملان على قاعدتين مستقلتين سيتم لاحقا دمج القاعدتين من السرد وصلتني فكرة انه لا علاقة لقدم الطلب او كونه جديدا بالرقم المتسلسل ورغم انني لم اتصور كامل العمل ما رأيك ان تعدل كود الترقيم للمستخدم الذي سيعمل على الطلبات الجديدة ليكون بداية التسلسل 10000 مثلا بدلا من 1 ... !
    1 point
  13. السلام عليكم اخوانى بالمنتدي الاكثر من رائع . تعلمت منكم الكثير والكثير وما زلت اتعلم منكم . كنت اعمل على userform ووجدت ان معظم المبرمجين يعملون على جعل زر [ X ] بالفورم يظهر رسالة لمطالبة المستخدم بالضغط على زر خروج الموجود بالفورم لاغلاق الفورم . لما يحتويه هذا الزر على كود يجب تشغيله عند اغلاق الفورم . فاحببت ان اشارك معكم تلك المعلومة لا اعرف ان كانت قديمة او حديثة معروفة ام لا .. كل ما اعرفه اننى اّاّمل ان يكون هذا ولو جزء بسيط فى رد جميلكم على . جزاكم الله خيرا وبوركتم وبورك علمكم وعملكم جميعا ً تقبلوا وافر احترامي وكامل تحياتى . الكود بالمرفق . callclose.rar
    1 point
  14. اخي الاستاذ/ حماده باشا لك الشكر الجزيل علي التوضيح لاستخدام دالة VLOOKUP
    1 point
  15. السلام عليكم الاستاذ احمد مرفق ملف به طلب البحث عن الصنف هذا الفوارم من اعمال الاستاذ الفاضل محمد مصطفى ابو حمزة جزاه الله خيرا وقمت بالتعديل علية ليتناسب مع طلبك تقبل تحياتى تسجيل مبيعات الاصناف مهما كان عددها بسهوله.rar
    1 point
  16. السلام عليكم ورحمة الله أخي الكريم أبو طارق، عذرا لهذا الخطأ لأني لم أنتبه لذلك وحصل خير... وأعتقد أن أختي الفاضلة أم عبد الله قد انتبهت لذلك وأعطت حلا جميلا باستعمال الدالة SUMIFS بارك الله فيها وفي علمها... وفي الملف المرفق تجد تصحيح معادلة التلاميذ الجدد حسب السنة والجنس بإضافة الشرط على "سنوات التكرار".... ومعذرة مرة أخرى... أخوك بن علية المرفق : السنة فقط001.rar
    1 point
  17. بسم الله الرحمن الرحيم طريقة عمل أو استخراج كشف حساب بالاكواد بطريقة بسيطة !! خطوة خطوة (((( الدرس الاول )))) والملف كاملا ( ملف الاكسيل ) الموجود به الاكواد والشرح كاملا وكما تعودنا شرح بطريقة مفصله سطر سطر او كلمة كلمة لسهوله توصيل المعلومة في المشاركة التاليه ( الدرس الثاني ) اليكم اولا رابط تحميل مباشر للملف الفيديو ( رابط خارجي ) والتالي شرح بفيديو مباشر من خلال هذا الصرح العملاق ( ويمكنكم ايضا تحميله من هنا ) جزاكم الله خيرا
    1 point
×
×
  • اضف...

Important Information