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

سليم حاصبيا

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

  • Posts

    8723

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

  • Days Won

    262

 نوع المحتوي 

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

  1. سليم حاصبيا
    جرب هذا الشيء حاول ان تملأ الخانين معاً و انظر ماذا يجري حاول ان تكتب شيئاً غير موجود في الجدول Code or ID.rar
  2. سليم حاصبيا
    جرب هذا الملف الذي يمكنك البناء عليه every_minute.rar
  3. سليم حاصبيا
    كيف تغرف ارقام الاعمدة من A الى ما تريد(حسب تحديد العدد) انظر الى المرفق column_number.rar
  4. سليم حاصبيا
    بعد اذن الاخ الغالي عبد السلام حل اخر على الصفحة الثانية ورقة عمل Microsoft Excel salim.rar
  5. سليم حاصبيا
    جرب هذا الكود كلمة السر Salim Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 6 Then unprot Else prot End If End Sub Sub prot() With ActiveSheet .Unprotect Password:="Salim" .Range("f1:f" & .Cells(Rows.Count, "f").End(3).Row).SpecialCells(2, 1).Locked = True .Protect Password:="Salim" End With End Sub Sub unprot() ActiveSheet.Unprotect Password:="Salim" End Sub
  6. سليم حاصبيا
    يمكن استعمال الزر Win (بين زري Ctrl و ِAlt) مع حرف D للتكبير أو للتصغير
  7. سليم حاصبيا
    اضف هذا الكود الى حدث التفيير في الصفحة مغ الاختفاظ بالكود السابق salim Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Count = 1 And Target.Row > 7 Then Select Case Target.Column Case 3, 5, 7 salim End Select End If Application.EnableEvents = True End Sub
  8. سليم حاصبيا
    ربما كان المطلوب salim رقم الهوية.rar
  9. سليم حاصبيا
    تذهب الى هذا العنوان
  10. سليم حاصبيا
    اذهب الى هذا العنوان
  11. سليم حاصبيا
    جرب هذا الشيء سعر البنزين salim.rar
  12. سليم حاصبيا
    كما قال لك الاخ علي منصور جرب استبدال الفاصلة بفاصلة منقوطة في المعادلة لتظهر هكذا =IF($A2<>"";SUBSTITUTE(trim($A2);" ";"");"")
  13. سليم حاصبيا
    جرب هذا الملف جرى بعض التغيرات على الخلايا المدمجة لحسن عمل الكود Employee salim.rar
  14. سليم حاصبيا
    انسخ هذه المعادلة الى الخلية B2 واسحب نزولاً =IF($A2<>"",SUBSTITUTE($A2," ",""),"")
  15. سليم حاصبيا
    جرب هذا الملف تنقل البيانات الى الورقة الثانية بعد الضغط على الزر نقل اسماء الزبائن والكود 1.rar
  16. سليم حاصبيا
    اضافة الى الملف السابق طريقة جديدة للعمل بواسطة المعادلات (عسى ان تنال الاعجاب) غلى صفحة 2 الصفحة مقفلة بكلمة سر salim تستطيع الكتابة(بدون كلمة السر) في اي عامود ما غدا عامود المعادلات tekrar one_time 2.rar
  17. سليم حاصبيا
    لا اعرف اذا كان هذا المطلوب بالضبط tekrar one_time 1.rar
  18. سليم حاصبيا
    جرب هذه المغادلة في الخلية A2 و اسحب نزولاً (تعمل على 2007) =IF(B2<>"",SUBTOTAL(103,$B$2:B2),"")
  19. سليم حاصبيا
    جرب هذا الملف tekrar one_time.rar
  20. سليم حاصبيا
    تفضل الملف جاهز Book ma3boul.rar
  21. سليم حاصبيا
    =SUMPRODUCT(--($B$3:$B$11=$K5),--($C$3:$C$11=L$4)) انسخ هذه المعادلة الى L5 واسحب يساراً و نزولاً
  22. سليم حاصبيا
    جرب هذا الكود Sub salim() Dim rg As Range Dim m, i As Integer Range("j8:j500").ClearContents m = 8 For i = 3 To 7 Step 2 Set rg = Range(Cells(8, i), Cells(500, i)).SpecialCells(xlCellTypeConstants, 23) rg.Copy Cells(m, "j") m = m + rg.Count + 1 Next End Sub
  23. سليم حاصبيا
    ارفع الملف وليس صورة عنه
  24. سليم حاصبيا
    بعد اذن الاخوة الافاضل \هذا الكود من سطر واجد Sub salim() Range("c1:c" & Cells(Rows.Count, 3).End(3).Row).SpecialCells(4).EntireRow.Delete End Sub
  25. سليم حاصبيا
    معادلتين اخرتين =RIGHT(A1,LEN(A1)-FIND("\",A1)) =MID(A1,FIND("\",A1)+1,LEN(A1))
×
×
  • اضف...

Important Information

  I accept