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

الـعيدروس

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

    3,277
  • تاريخ الانضمام

  • Days Won

    20

كل منشورات العضو الـعيدروس

  1. السلام عليكم لطالما بحثنا عن مثل هكذا طريقة طول الله عمرك استاذانا الحبيب يحياوي عيدكم مبارك وتقبل الله منا ومنكم صالح الاعمال الى الامام
  2. السلام عليكم الاخ الاستاذ الحبيب سعد عابد دائماً سباقون لعمل الخير جزاك الله كل خير وتقبل الله منا ومنكم صالح الأعمال الاخ الفاضل avogadrow اعذرني اخي على التأخير في الرد كنا في الحج جرب المرفق وابلغني والسلام عليكم New_SOP_CODES_alidroos2.rar
  3. للعلم جرب ضيف كم سطر ورحل وعمل معاينة واكتشف ماذا يحدث
  4. جرب هكذا ربما يفي بالغرض تفضل اضافة الصفوف 1والغاءها.rar
  5. اخي الفاضل jazea طلبكم غير واضح ملفك مرتب ومزبوط واظن الفورم لاداعي له حسب مافهمت من طلبك ولاكن ان كان فيها ادخال بيانات او استعراض ربما يفي الفورم بهذا الغرض وارجو التوضيح كي يقدرو يفيدوك الاساتذه الافاضل تحياتي
  6. الاخ محمود مشكور على مروك العطر وكلماتك الطيبه وفقك الله
  7. ماقصدك بالطباعة هل هو تحديد وطباعة اما ماذا واعذرني على صلافة فهمي تحياتي
  8. جزاك الله خير استاذ محمد صالح على التوضيح وبنظري ان الاكسل قاعدة بياناته ضعيفة جدا مجرد ملئ 5000 صف و20 عمود مثلا وفيهم معادلات يأخذ وقت عند الفتح وعند العمل عليه هذا مااشكوه من الاكسل واما الاكسس قاعدة بيانات تصممها مثل ماتريد والله اعلم
  9. السلام عليكم اساتذة كبار يكفي دروس التواضع وفقكم الله
  10. السلام عليكم الاستاذ الحبيب ابو عبدالله تسلم على هذه الدرر ماشاء الله عليك الى الامام موفق
  11. السسلام عليكم رأيي إن كان اصناف عملك كثيرة وتريد تقارير دقيقة قعليك وعلى الاكسس وبنظري الاكسل بداية التعلم بعد احترافة تخش الاكسس والله اعلم
  12. السلام عليكم الاستاذ الحبيب كيماس مستر الشروحات في اليوتيوب جزاك الله كل خير فيما تقدمة من شروحات تدخل للذهن بسهولة بعد اذنك استاذنا هذه طريقة استخدمها انا في حالات مثل ماتفضلت لنسخ الفورمات الملف حجة 1.95 لم يقبل ولاكن الطريقة نسخ الجدول وبعدها لصق خاص واختيار التنسيقات بدون الحاجة لتضليل خلايا بقدر الجدول
  13. تفضل على عجلة واي ملاحظات انا موجود New_SOP_CODES_alidroos1.rar
  14. اذا اخي الحبيب لايوجد تقرير لتاريخ اليوم السابق لاحظ في الداتا انه في بيانات لتاريخ امس ارجو منك التأكد لان طلبك تقرير لبيانات اليوم السابق من اليوم الحالي فقط
  15. الاستاذ القدير عبدالله المجرب جزاك الله خير على تشجيعك الاخ الفاضل حسن علي تسلم وفقك الله
  16. السلام عليكم تم اضافة تحديد اما نسخ جميع مشابة المعيار ام المعيار الاول فقط تفضل FORM1_alidroos.rar
  17. السلام عليكم حبيبي سعد عابد مورك اسعدني وثنائك كثير عليا لسى احنا بنتهجي الاكواد وفقك الله
  18. ألسلام عليكم الاخ القاضل new4a منور الموضوع طلبك رخيص تفضل ولاكن دلعنا الشغلة شويات عن طريق فورم وماتكتشفه ومايعجبك خليها فكاهه تفضل FORM_alidroos.rar
  19. اخي الفاضل hazara اضغط ملف الاكسل بأحد برامج الضغط Winzeb او winrar وارفقة من استخدام المحرر الكامل
  20. ابداعات اليحياوي استمر ولك منا كل الدعوات بظهر الغيب الله يوفقك ويهب لك ماتتمنى تحياتي
  21. جزيت خيرا استاذ عبدالله المجرب حلول رائعة الى الامام يامبدع
  22. السلام عليكم استاذنا الحبيب عماد الحسامي الف تلريون مبروك ترقية مستحقة ومتأخرة برضه الى الامام وكودك مختصر وجميل فعلا ادام الله نشاطك وعلمك تقبل مروري
  23. لاااعتقد انه بيظهر فاضي اسحب شريط التمرير حق العرض الى فوق وسوف تشوف البيانات في اعلى المعاينة انا ظهر عندي كذا سحبت السكرول الى اعلى في حالى البيانات قليلة بيعمل كذا ارجو التأكد تحياتي
  24. اخي ادلي بدلوي كود عمل مسلسل حسب مااطلعت على المرفق يعمل المسلسل من خلية F13 هذا الكود Sub MSLSL_alidroos() On Error Resume Next Application.ScreenUpdating = False Dim SEN_ALI As Integer Dim DYKOUN As Integer SEN_ALI = InputBox("ادخل بداية المسلسل المراد علمأ ان الملسل يبداء من خلية F13", "أوفسينا أروع صرح تعليمي") If SEN_ALI = False Then Exit Sub Else: DYKOUN = InputBox("ادخل اخر مسلسل تريدة", "أوفسينا أروع صرح تعليمي") If DYKOUN = False Then Exit Sub COUNT_ALI = DYKOUN - 1 [f13].Select Range("f13").FormulaR1C1 = SEN_ALI For Num = 1 To COUNT_ALI ActiveCell.Offset(1, 0).Select ActiveCell.FormulaR1C1 = SEN_ALI + 1 SEN_ALI = SEN_ALI + 1 Next Num End If Application.ScreenUpdating = True End Sub تحط الرقم الاول والرقم الاخير وهذا مرفق عمل مسلسل.rar
  25. السلام عليكم اخي الفاضل avogadrow جمل الله حالك عطيتنى المراد نسألك الدعاء وفقك الله وبالنسبة للطباعة اذا تريد يكون استعراض دون الطباعة Sheets("Sheet1").Range(RN).PrintOut Copies:=1, Preview:=False, Collate:=True استبدل من هذا السطر كلمة Preview:=False, الى هكذا Preview:=True, ليصير هكذا Sheets("Sheet1").Range(RN).PrintOut Copies:=1, Preview:=True, Collate:=True واي ملاحظات او اضافات انا موجود موفق
×
×
  • اضف...

Important Information