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

سليم حاصبيا

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    8,723

  • تاريخ الانضمام

  • Days Won

    262

 نوع المحتوي 

كل منشورات العضو سليم حاصبيا

  1. سليم حاصبيا
    تم حل الموضوع دون الحاجة الى كود special copy value salim.rar
  2. سليم حاصبيا
    جرب ان تأخذ شيئاً من هذا الملف merge in cell.rar
  3. سليم حاصبيا
    اذهي الى هذا العنوان و سوف تجد ما تريد http://www.officena.net/ib/index.php?showtopic=59918
  4. سليم حاصبيا
    تم معالجة الأمر تنسيق نص 1.rar
  5. سليم حاصبيا
    لعمل العكس عند نهاية المعادلة اضف ما يلي (بعد وضع كل المعادلة بين قوسين دون علامة =) ""&
  6. سليم حاصبيا
    تم التعديل على الملف حاضر ياسيدي بلاش القوائم المنسدلة دي مجاميع 1 SALIM.rar
  7. سليم حاصبيا
    اخي احمد هناك طريقة و لست متأكداً ان كانت ستعمل او لا (حيث اني لم اطلع على المالف )على كل حال حاول ان تجربها حدد الخلية الاولى في العامود و اضربها كلها في رقم 1 و ذلك بعد ان تضع كل المعادلة بين قوسين دون اشارة = اذا لم تكن هناك حروف في نتيجة المعادلة سوف تعمل ان شاء الله
  8. سليم حاصبيا
    اليك هذا النموذج الذي يمكنك البناء عليه اختر القيم من الخلايا C2 and d2 البحث بشروط.rar
  9. سليم حاصبيا
    اليك هذا الماف ربما يكون الحل القوائم المنسدلة مطاطة (اي اسم تضيفه غير مكرر سوف يظهر بها) مجاميع.rar
  10. سليم حاصبيا
    لعله المطلوب help salim.rar
  11. سليم حاصبيا
    السلام عليكم و رحمة الله اليك هذا الملف لعله المطلوب (من حواضر مكتبيتي) رزنامة الماضي و المستقبل.rar
  12. سليم حاصبيا
    استاذ مختار /الدّالة التي اعطيتها يمكن ان تكرر المعطيات اليكم هذا الكود لهذا الغرض Sub rand_without_rep() Dim myrng As Range, cel As Range, x As Double Set myrng = Range("A1:A100") 'ممكن التغيير myrng.Value = "" If myrng.Count > 100 Then Exit Sub Randomize For Each cel In myrng 1 x = WorksheetFunction.RandBetween(1, 100) If Application.CountIf(myrng, x) Then GoTo 1 Else cel = x Next End Sub
  13. سليم حاصبيا
    بعد إذن الاستاذ طارق حل آخر بواسطة العادلات salim اسم المجموعة.rar
  14. سليم حاصبيا
    ما تزعلش اخي ياسر هذا كود اخر (او بالاحرى كودين) واحد يجمع الصفوف الظاهرة و الثاني يجمع الاعمدة الظاهرة الكود الثاني موقف حاليا (يمكن تشعيله بازالة الفواصل منه) SUBTOTAL row.rar
  15. سليم حاصبيا
    جرب هذا الملف sumInLastrow.rar
  16. سليم حاصبيا
    اخي ياسر هل تبحث عن هذا الموضوع (لقد وضعته في صيغة 2003 ليستفيد منه اكبر عدد ممكن من الاخوان) روائع شرط التنسيق 1.rar
  17. سليم حاصبيا
    انسخ هذا الكود ليقوم بما تريد Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone For Each x In UsedRange If x.HasFormula = True Then Application.EnableEvents = False x.Interior.ColorIndex = 6 End If Next Application.EnableEvents = True End Sub
  18. سليم حاصبيا
    اليك هذا الملف ممكن ان يساعدك انه يعمل بواسطةا المعادلا و بواسطة الكود اختر ما تريد فقط اضف الاسماء و النتيجة و سوف يذهب كل شيء الى مكانه ناجح راسب salim 1 2003.rar
  19. سليم حاصبيا
    هذا الماكرو يعمل مع حدث الصفحة اذا كنت تريد ذلك khazimi 1.rar
  20. سليم حاصبيا
    كيف نقوم بتقسيم عدد ما الى ساعات و دقائق و ثواني انظر الى المرفق عفواً طرأ عطل على الكهرباء) transforme time.rar
  21. سليم حاصبيا
    زيادة في اثراء المزضوع TEST - Copy salim.rar
  22. سليم حاصبيا
    لتنفبذ الكود يجب ان تكتب شيئاَ في الخلية و تضغط انتر
  23. سليم حاصبيا
    جرب الكود التالي: Private Sub Worksheet_Change(ByVal Target As Range) Dim myrange As Range If Target.Count > 1 Then Exit Sub Set myrange = Sheet1.Range("D10:D13") If Not Intersect(Target, myrange) Is Nothing Then r = Target.Row If r <> 13 Then Target.Offset(1, 0).Select Else Target.Offset(-3, 0).Select End If End If End Sub
  24. سليم حاصبيا
    بعد اذن اخي بن علية اليك هذه المعادلة و تستطيع ان تكتبها في اي مكان (ليس بالضرورة A2) =INDIRECT("A"&ROWS($A$1:A1))+INDIRECT("C"&ROWS($A$1:A2))-INDIRECT("B"&ROWS($A$1:A2))
  25. سليم حاصبيا
    اكتب هذه المعادلة(على فرض ان العدد المطلوب تدويره في الخلية A1: =ROUND(A1,0.5)
×
×
  • اضف...

Important Information

  I accept