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

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

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

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

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


    • نقاط

      12

    • Posts

      13165


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

    سليم حاصبيا

    أوفيسنا


    • نقاط

      3

    • Posts

      8723


  3. خالد الرشيدى

    خالد الرشيدى

    الخبراء


    • نقاط

      2

    • Posts

      889


  4. محمد الريفى

    محمد الريفى

    الخبراء


    • نقاط

      1

    • Posts

      1492


Popular Content

Showing content with the highest reputation on 07/11/15 in all areas

  1. السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله كل عام وأنتم بخير والأمة الإسلامية بخير ************** أقدم لكم موضوع خفيف .. الموضوع ببساطة كالتالي نفترض أن لديك بيانات في الصف الأول وتريد تقسيم البيانات بشكلٍ ما إلى عدة أعمدة ، وفي كل عمود عدد معين من البيانات بالمثال يتضح المقال في الصف الأول ضع أرقام من 1 إلى 40 في الأعمدة من A إلى AN (ركز في الصف الأول وليس في العمود الأول) في الخلية A3 سنقوم بوضع معادلة تؤدي مهمة التقسيم .. المعادلة بهذا الشكل =INDEX($1:$1,,1+MOD(ROWS($A$3:A3)-1,8)+8*(COLUMNS($A$3:A$3)-1)) كيفية استخدام المعادلة : المعادلة وضعت في الخلية A3 ومن ثم عندما تريد التعديل في المعادلة بما يتناسب مع ملفك قم بالتغيير في المعادلة في الأجزاء التالية ROWS($A$3:A3) COLUMNS($A$3:A$3) أي أن خلية البداية سيتم الإشارة إليها في المعادلة أما الجزء الأول خاص برقم الصف الذي يحوي البيانات المراد تقسيمها $1:$1 آخر جزئية في المعادلة هو الرقم 8 (لما الرقم 8 مكتوب مرتين في المعادلة) ... بما أننا نريد تقسيم الـ 40 بيان إلى أعمدة وفي كل عمود 8 بيانات على سبيل المثال إذاً سيتم التعامل مع ( 40 / 8 = 5 ) أي 5 أعمدة بعد وضع المعادلة في الخلية A3 يتم سحب المعادلة بمقدار 8 صفوف إلى أسفل و 5 أعمدة باتجاه السحب إليكم الملف المرفق فيه تطبيق للفكرة علها تفيدكم وتنال إعجابكم بالنسبة لشرح المعادلة أتركها للأخ الحبيب المتمكن خالد الرشيدي (بما لديه من ملكة - بفتح اللام يا أخ علاء رسلان وليس بكسرها - وموهبة فذة في شرح المعادلات) حمل الملف من هنا تقبل الله منا ومنكم صالح الأعمال
    3 points
  2. أخي الكريم زوهير إليك الكود التالي عله يفي بالغرض Private Sub CommandButton2_Click() Dim iRow As Long Dim WS As Worksheet Dim Col As Long, Y As Long Set WS = Worksheets("Feuil1") Col = 1 iRow = WS.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row If iRow > 5 Then iRow = WS.Cells(Rows.Count, "K").End(xlUp).Offset(1, 0).Row: Col = 11 WS.Cells(iRow, Col).Value = Me.TextBox1.Value WS.Cells(iRow, Col + 1).Value = Me.TextBox2.Value WS.Cells(iRow, Col + 2).Value = Me.TextBox3.Value WS.Cells(iRow, Col + 3).Value = Me.TextBox4.Value WS.Cells(iRow, Col + 4).Value = Me.TextBox5.Value WS.Cells(iRow, Col + 5).Value = Me.TextBox6.Value WS.Cells(iRow, Col + 6).Value = Me.TextBox7.Value WS.Cells(iRow, Col + 7).Value = Me.TextBox8.Value WS.Cells(iRow, Col + 8).Value = Me.TextBox9.Value WS.Cells(iRow, Col + 9).Value = Me.TextBox10.Value For Y = 1 To 10 Controls("TextBox" & Y) = "" Next Y Application.ScreenUpdating = True End Sub Private Sub CommandButton4_Click() Unload Me End Sub كل ما ستقوم بتغييره هو السطر التالي If iRow > 5 غير الرقم 5 إلى آخر صف تريد التعامل معه .. سحب طلبك الرقم يجب أن يكون 1000000 أرجو أن يكون هذا هو المطلوب
    2 points
  3. الأخ الكريم يرجى تغيير اسم الظهور للغة العربية كما يرجى الإطلاع على رابط التوجيهات في الموضوعات المثبتة في المنتدى الطلب بهذا الشكل .. غير مجدي .. قم بوضع تصورك للمطلوب وابدأ في الطلب جزئية جزئية .. أو قم بإرفاق البرنامج الذي ذكرته ويساعدك الأخوة الأعضاء في ترجمة الملف أو البرنامج طالما أنه نال إعجابك اختر أيهما شئت تقبل تحياتي
    2 points
  4. ملف لاظهار قدرات اكسل حروف.rar
    1 point
  5. اهنئ اهل المنتدى بالاستاذ الذي لايذكى على الله الاستاذ اسلام رجب سيكون ان شاء الله اضافه كبيره للمنتدى جزاك الله كل خيراستاذ اسلام وبارك لك
    1 point
  6. السلام عليكم أخي أبو البراء..أنتظر حتى صباح الغد إن شاء الله تعالى للقيام بحل وظيفتي لأنني مساء وبعد العودة إلى خيمتي المتواضعة أستخدم الجوال لمتابعة أعمالكم الفذة لأنني شغوف ومتابع لأعمالكم التي أصبحت بالنسبة لي كالدم الذي يجري في عروقي..ولن أسمح لهذا الدماغ الذي بلغ من الكبر عتيا أن يتقاعد عن العمل. فيصيبه الزهايمر كما هو حال عمر الشريف. تقبل تحياتي..السلام عليكم.
    1 point
  7. حل آخر بالاكواد .. يمكن تطبيق التنسيق الشرطي على ورقة العمل Sheet1 ثم تنفيذ الكود التالي الذي يؤدي نفس الغرض ويقوم بنسخ التنسيقات لجميع أوراق العمل الأخرى .. Sub CopyConditionalFormatting() Dim SH As Worksheet Sheets("Sheet1").Range("A1:B5").Copy For Each SH In Worksheets If SH.Name <> "Sheet1" Then SH.Range("A1:B5").PasteSpecial xlPasteFormats End If Next Application.CutCopyMode = False End Sub تقبل الله منا ومنكم
    1 point
  8. نعم أخي الحبيب أبو يوسف يمكن عمل ذلك وبدون أكواد ------------------------------------------------- نفترض أن لدينا 5 أوراق عمل Sheet1 إلى Sheet5 قم بتطبيق التنسيق الشرطي في ورقة عمل واحدة فقط وليكن مثلاً ورقة العمل Sheet1 في النطاق A1:B5 ** نحدد النطاق A1:B5 في ورقة العمل Sheet1 ** قم بالدخول على التبويب Home ثم Condiitonal Formatting ثم New Rule ثم Use a formula to determine which cells to format وطبق التنسيق الشرطي التالي =A1<25 ثم انقر الزر Format والتبويب Fill واختر أي لون ثم اضغط OK مرتين سيتم تلوين الأرقام أقل من 25 .. ** قم بتحديد النطاق A1:B5 في ورقة العمل Sheet1 ثم كليك يمين الأمر نسخ Copy ركز في الخطوة القادمة ** روح لورقة العمل Sheet2 ثم اضغط Ctrl من لوحة المفاتيح ثم حدد باقي أوراق العمل كلها ما عدا ورقة العمل Sheet1 لأنها الأساس الذي يتم النسخ منه بهذا تكون قد حددت كل أوراق العمل .. ** قم بالنقر داخل الخلية A1 ثم كليك يمين ثم لصق خاص Paste Special ثم اختر Formats أي نسخ التنسيقات فقط إليك الملف التالي لتتدرب على الخطوات المذكورة أي أن الملف المرفق ستقوم بتطبيق الخطوات عليه تقبلوا تحياتي Test Apply Conditional Formatting On Entire Workbook.rar
    1 point
  9. أخي الكريم زوهير تعرف توجيهات المنتدى .. لو طلب آخر يرجى إفراد موضوع لكل طلب الحمد لله أن تم الطلب الأول على خير يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي .. بالنسبة لطرح موضوع جديد لن يكون بالأمر العسير أو المرهق تقبل تحياتي
    1 point
  10. السلام عليك اخي ياسر صيام مقبول ان شاءالله ماشاءالله عليك اللهم زده علما وانفعنا به يارب هو المطلوب في الترحيل ------------------------------------- بقي التعديل والبحث ------------------------------------
    1 point
  11. الاخ الحبيب محمد الريفى رائع رائع رائع وما اروع اعمالك
    1 point
  12. أخي الحبيب أبو يوسف قم بإدراج اسم جديد في العمود الثاني أو قم بالنقر المزدوج في أي خلية داخل العمود الثاني ليتم تفعيل الكود
    1 point
  13. الاخ الكريم خالد الرشيدى مبدع أخي الفاضل بارك الله فيك وجعل أعمالك في ميزان حسناتك مع وافر تقديري واحترامي
    1 point
  14. أخي الحبيب علاء رسلان بارك الله فيك وجزاك الله خيراً وأنت أهل لتصحيح أخطاء اللغة العربية .. وإذا لم تكن محترفاً فإني أراك كذلك أخي الغالي أبو يوسف جزيت خيراً على مرورك العطر بالموضوع ، وعلى دعائك الطيب المبارك الذي يزينه السجع الجميل تقبل الله منا ومنكم صالح الأعمال وجمعنا الله في مستقر رحمته يوم القيامة :fff:
    1 point
  15. اخي ياسر تم معالجة المشكلة بحمد الله comboadd.rar
    1 point
  16. أ / سعد عابد مرورك شرفنى واسعدنى جزاك الله خيراً جارى العمل على الملف وسأنتهى منه قريباً إن شاء الله تقبل تحياتى
    1 point
  17. ابداع مابعده ابداع أخي الفاضل خالد الرشيدي بارك الله لك وجعل أعمالك في ميزان حسناتك تقبل الله منا ومنكم صالح الأعمال وافر تقديري واحترامي
    1 point
  18. و عليكم السلام و رحمة الله و بركاته مداعبة مقبولة منك أخى الكريم ياسر خليل و تضعنى فى موضع مصححى لغة عربية و لكننى أبعد ما يكون عن هذا فما انا الا عبد من عباد الله يجتهد و يحاول استخدام لغته الأم العربية و يبتعد عن العامية قدر الأمكان انها محاولات لم تصل بعد للاحترافية .. شكرا جزيلا لذكرك لشخصى المتواضع و تقبل الله منا و منكم صالح الأعمال دمت بخير و أعزك الله
    1 point
  19. 1 point
  20. السلام عليكم . بعد اذن استاذى الحبيب ياسر خليل لجعل الارقام السالبه بين قوسين افتح تنسيق الخليه رقم ثم مخصص ثم انسخ هذا التنسيق وضعه فى النوع #,##0_);[أحمر](#,##0) وبالنسبة لموضوع التفقيط فراجع هذا الرابط وطبق مافيه http://www.officena.net/ib/index.php?showtopic=40562 تحياتى
    1 point
  21. اخى خالد مجهود وشرح مميز جزاك الله خيرا ننتظر الملف ورد او اكسيل او بدى اف حتى يكون كمرجع للداله سميه "اقوال خالد الرشيدى في فلوك اب العنيد
    1 point
  22. اخى الكريم ارفق مثالا ليتسنى للاخوة التعديل عليه ويمكنك الاستعلام عن ذلك من خلال دالة Dcount
    1 point
  23. استازى / ابو سليمان مرورك دائماً وابداً يسعدنى ويشرفنى بارك الله فيك وجزاك خيرا اما بخصوص ننتظر ان يكون الشرح على ورقة وورد مع الاكسل او يكون في كتاب الكتروني حالياً بعمل عليهم وان شاء الله سأنتهى منهم قريباً تقبل تحياتى
    1 point
×
×
  • اضف...

Important Information