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

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

  1. ابوحبيبه

    ابوحبيبه

    03 عضو مميز


    • نقاط

      5

    • Posts

      122


  2. محمد هشام.

    محمد هشام.

    الخبراء


    • نقاط

      3

    • Posts

      1,542


  3. lionheart

    lionheart

    الخبراء


    • نقاط

      1

    • Posts

      664


  4. محمد سلامة

    محمد سلامة

    الخبراء


    • نقاط

      1

    • Posts

      1,224


Popular Content

Showing content with the highest reputation on 27 يون, 2023 in all areas

  1. السلام عليكم ... الاعضاء الكرام كل عام وانتم بخير مقدمه هامه الدرس الاول : التعرف على محرر الاكواد الدرس الثانى : منهجية كتابة الأكواد الدرس الثالث : التطبيق الأول - ترجمة النصوص الدرس الرابع : المتغيرات الدرس الرابع : التطبيق الثانى
    3 points
  2. السلام عليكم الدرس الخامس: دالة IF _ الدالة الشرطية الدرس الخامس: التطبيق العملي على دالة IF _ الدالة الشرطية
    2 points
  3. السلام عليكم ورحمه الله وبركاته هدية لأعضاء المنتدى الكرام برنامج أرشفة الخطابات و الوثائق .. الأرشفة الالكترونية مفتوح للعمل عليه غير محدد المدة ومش تجريبي مغلق المصدر (الاكواد) وتعديل النماذج تحياتي user 1234 1118021174_Archivesopen18-1-2021.rar
    1 point
  4. أعتذر السبب هو الفرق في تنسيق التاريخ وتقويم اللغة على الجهاز قم بتغييرها فقط إلى =IF($F$10<>"";"30/"&TEXT($F$10;"mm/aaaa");"") طلبك يتمثل في كتابة اي تاريخ بالنسبة لاقتراح الاخ @أبوأحـمـد ممكن يفيدك لاكن مشكلته عند تغيير التاريخ الى شهر 2 لن يشتغل معك بالشكل الصحيح .عكس المعادلة الأولى DATE 30-2.xlsm
    1 point
  5. إليك حل اخر لفلترة البيانات بعدة معايير Option Explicit Public Sub Filter_data() Dim lo As ListObject, rng As Range Dim rw As Long, i As Long Dim arrayCriteria() Set lo = Range("Clé").ListObject rw = lo.ListRows.Count ReDim arrayCriteria(rw) For i = 1 To rw arrayCriteria(i) = CStr(lo.DataBodyRange.Cells(i, 1)) Next i Set rng = Range("Tbl") With rng.ListObject If .ShowAutoFilter Then .AutoFilter.ShowAllData .Range.AutoFilter field:=2, Criteria1:=arrayCriteria, Operator:=xlFilterValues End With End Sub '''''''''''''''''''''''''''''''''''''''''' Public Sub Reset_filter() Dim rng As Range Set rng = Range("Tbl") With rng.ListObject If .ShowAutoFilter Then .AutoFilter.ShowAllData End With End Sub TEST V2.xlsm
    1 point
  6. تفضل اخي ربما هدا ما تقصده Sub ChangeColor() Dim lrow& Dim WS1 As Worksheet: Set WS1 = Sheets("Raw Data") Dim WS2 As Worksheet: Set WS2 = Sheets("Do Not Include") lrow = WS1.Range("B" & Rows.Count).End(xlUp).Row Rng = WorksheetFunction.CountA(WS1.Range("A4", WS1.Range("A4").End(xlDown))) + 3 Application.ScreenUpdating = False WS1.Activate WS1.Range(Cells(5, 2), Cells(Rng, 2)).Interior.ColorIndex = 0 If (ActiveSheet.AutoFilterMode And ActiveSheet.FilterMode) Or ActiveSheet.FilterMode Then ActiveSheet.ShowAllData End If Set r = WS1.Range("B5:B" & lrow) For Each cell In r If cell.Value = WS2.Range("A1") Then cell.Interior.Color = RGB(34, 153, 166) cell.Select End If Next Application.ScreenUpdating = True End Sub test 7.xlsm
    1 point
  7. Another solution Format the numbers on the worksheet with the following custom format [$-,201]0 then modify this line Controls("TextBox" & j).Text = Cells(ListBox1.List(i, 1), j).Text
    1 point
×
×
  • اضف...

Important Information