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

سليم حاصبيا

أوفيسنا
  • Posts

    8,723
  • تاريخ الانضمام

  • Days Won

    262

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

  1. 1- حول لغة الكيبورد الى الاجنبية 2- اضغط باستمرار على مفتاح Alt 3-اضغط توالي الاحرف التالية M ثم X ثم A 4- اترك الزر Alt هذا كل شيء اذا كان عندك اوفيس 2010
  2. جرب الآن المشكلة ليست عندي ربما في النت البطيء show_names_1_2_by letters.zip
  3. زيادة في اثراء الموضوع هذا الملف كيلو جرام salim.zip show_names_1_2_by letters.zip يمكن ايضاً بكل بساطة استعمال هاتين المعادلتين =MOD(A3,1000) والثانية =QUOTIENT(A3,1000)
  4. لا مستحيل عند الدكتور اكسل جرب هذا الملف show_names_1_2_by letters.zip
  5. انسخ هذه المعادلة للى الخلية K4 و اسحب نزولاً لا تنس تنسيق الخلايا ( h]:mm] ) بهذا الشكل انظر الى المرفق =SUMPRODUCT(--($C4:$J4="صباحي")*MOD(($B$37-$A$37),1))+SUMPRODUCT(--($C4:$J4="ليلي")*MOD(($B$38-$A$38),1)) جدول دوام salim.zip
  6. جرب هذا الملف ss salim.zip
  7. زيادة في اثراء الموضوع هذا الكود البسيط ملاحظة كود على السريع حيث ان البيانات يجب ان تبدأ من العامود A (يمكن التعديل) Sub mylastecel() Dim lr, lc As Integer lr = UsedRange.Rows.Count lc = UsedRange.Columns.Count For i = 1 To lc If Cells(lr, i) <> "" Then Cells(lr, i).Select Selection.Offset(0, 1).Select If Selection = "" Then Selection.Offset(0, -1).Select End If Next End Sub
  8. جرب هذا الملف التقييم النهائي salim.zip
  9. انا قبلت التحدي و اليك المعادلة اللازمة لهذا الشيء انسخها الى الخلية F2 واسحب نزولاً =SUBSTITUTE(TRIM(SUBSTITUTE(D2,CHAR(32),"")),"٫",".")*1+(SUBSTITUTE(TRIM(SUBSTITUTE(D2,CHAR(32),"")),"٫",".")*E2)
  10. أخي ابو عمر جرب الملف التالي Search_by any_letters.zip
  11. الملف يجب ان يحقظ في هذه الحالة بصيغة xls. واليس xlsx لم تجبني على السؤال: كيف ارفع لكم صورة عن صفحة اكسل دون ان ارفع الملف بكامله؟
  12. احي ياسر الملف يعمل عندي بطريقة ممتازة انظر الى الصورة على فكرة كيف ارفع لكم صورة عن صفحة اكسل دون ان ارفع الملف بكامله؟؟؟ picture.zip
  13. الملف جاهز و تحت الطلب وضعنه في صيغة 97-2003 كي يتمكن اكبر قدر من الاعضاء استخدامه has_formula.zip
  14. اخي خالد لتلافي عذه المشكلة قم بما يلي: 1- افتح الملف 2 هضغط F12 3- يطهر لك صندوق حوار 4 من الخانة Save As اختر اسماً جديديا للملف 5- من الخانة Save as Type اختر Excel workbook او Excel 2003 6- اضغط على SAve بهذا يكون عندك ملف جديد لا يحتوي غلى ماكرو تحت الاسم الجديد الذي اخترته
  15. اخي عبد لعزيز التنسيق الشرطي بعمل فقط عند وجود رقم في خلية ما العمل اذا كانت الخلية تحتوي على نص نتيجة معادلة ما
  16. ملاحظة الى ااخ الكريم ياسر فتحي البنا المعادلة التي وضعتها تملأ العامود كله في حال تكرر احد الاسماء الرجاء محاولة تلافي هذا الشيء
  17. اخي ابو سليمان جرب هذا الملف large3 advanced.zip
  18. يمكن تجاهل المكرر عبر هذا الملف Find Salim without rep.zip
  19. انظر الى هذا الملف و اعطني رأيك تلوين المعادلات.zip
  20. جرب هذا الشيء large3.zip
  21. رائع اخي ياسر زيادة في اثراء الموضوع معادلة اخرى (بدون IFERROR) . و تستطيع وضعها في اي مكان من الصفحة و لبس من الضروري الصف الثاني Find Salim + Yasser.zip
  22. تم التعديل على الملف ليناسب المطلوب (دون اي كود) تلوين خلايا Salim2.zip استاذ مختار يمكن اختصار الكود الذي وضعته بسطر واحد هو: Range("B2", Range("B" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 38
  23. جرب هذا الملف التنسيق يطبق فقط على العامود B كما تريد انت و يمكن التوسع في ذلك حاول ان تمسح اي معادلة (أو تضيف اي معادلة) في العامود المذكور و شاهد النتيجة تلوين خلايا Salim1.zip
  24. اانسخ هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) lr = Cells(Rows.Count, 2).End(3).Row Set myrange = Range("b2:b" & lr) If Not Intersect(Target, myrange) Is Nothing And Target.Count = 1 And Target.HasFormula Then Target.Interior.ColorIndex = 4 End If End Sub
  25. انسخ هذه المعادلة الى الخلية O2 واسحب نزولاً =CHOOSE((B2+D2-I2-50<0)+1,B2+D2-I2-50,0)
×
×
  • اضف...

Important Information