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

عبدالفتاح في بي اكسيل

الخبراء
  • Content Count

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

  • تاريخ اخر زياره

  • Days Won

    1

عبدالفتاح في بي اكسيل last won the day on فبراير 21

عبدالفتاح في بي اكسيل had the most liked content!

السمعه بالموقع

136 Excellent

عن العضو عبدالفتاح في بي اكسيل

  • الإسم الفعلي
    الإســم
  • تاريخ الميلاد 17 أغس, 1981

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    اكسيل
  • البلد
    فلسطين
  • الإهتمامات
    برمجة الاكسيل

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. اخي الكريم طلبك غريب بخصوص العمود a عبارة عن ترقيمات ليس بيانات مهمة يمكنك ترقيم ذلك اوتوماتيكيا اما من خلال المعادلة اوالكود وهذه متوفرة بكثرة في المنتدى
  2. ايضا هذا كود اخر جميل وتعدد الخيارات بمجرد تشغيل تستطيع تحدد العمود الذي تريد من تحدف منه البيان وكذلك الكلمة او القيمة التي تريدها Sub DeleteRows() 'Updateby20140314 Dim rng As Range Dim InputRng As Range Dim DeleteRng As Range Dim DeleteStr As String xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8) DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2) For Each rng In InputRng If rng.Value = DeleteStr Then If DeleteRng Is Nothing Then Set DeleteRng = rng Else Set DeleteRng = Application.Union(DeleteRng, rng) End If End If Next DeleteRng.EntireRow.Delete End Sub
  3. جرب هذا الكود لعله يفي بالغرض Sub Test() Application.ScreenUpdating = False Dim i As Long Dim Lastrow As Long Lastrow = Cells(Rows.Count, "f").End(xlUp).Row For i = Lastrow To 1 Step -1 If Cells(i, "f").Value = "1/3" Or Cells(i, "f").Value = "2/3" Then Rows(i).Delete Next Application.ScreenUpdating = True End Sub
  4. الان الصورة واضحة لكن صدقا ليس لدي اجابة بخصوص ذلك ننتظر من الخبراء لعلهم يفيدوننا اذا حصلت اي شيء من الانترنت ساقوم بتزويد ك به اخت فاطمة الذي تريدينه يعطي نفس النتيجة وهذا ما ظهر عند في التاريخ الجديد
  5. هل انت متاكدة اختي الكريمة من طريقة الحساب لان هذه الدوال لا تحسب بهذه الطريقة حيث تقوم بحساب الايام كلها خلال الفترة المحددة وبالتاي ستظهر 440 يوم و 14 شهر و سنة وعند ادخال التاريخ القديم مثلا: 01/01/2010 كيف نصبح في 16/03/2021 انت لم تدخلي الا سنة وشهرين و15 يوم المفروض في 2011 بصراحة لم افهم طريقة حسابك وهذه الدوال من المستحيل القيام بذلك
  6. اعدريني لقد اغفلت الاشهر والسنوات ولم اقم الا بالايام المفترض ان يعمل جربي هذا التعديل Private Sub CommandButton2_Click() n7 = DateAdd("d", n5.Text, n6) n7 = DateAdd("M", n4.Text, n6) n7 = DateAdd("YYYY", n3.Text, n6) End Sub
  7. هذه محاولة ولكن يجب ان تتاكدي من عملية اضافة التاريخ الجديد لست متاكد اذا كانت تعمل بشكل جيد date of birth.xlsm
  8. على حسب ما فهمت اعتقد ان هذا المطلوب تفضلي اختي الكريمة search.xlsm
  9. تفضل اخي اسم الورقة غير صحيح لذلك يظهر الخطا تم معالجة الامر Nouveau Feuille de calcul Microsoft Excel - Copie.xlsm
×
×
  • اضف...