سليم حاصبيا

جرب هذا الملف Salim_Names.xlsm

لا يجوز ان ترفع ملفاً من 3500 صف للنظر فيه جرب رفع ملفاً موجزاً 20 الى 25 صف لمتابعة عمل الكود الذي ستتم اضافته

هل خطر على بالك ان تنشأ قائمة منسدلة متناقصة و مطاطة في نفس الوقت متناقصة: بمعنى انه اذا اخترت منها اي اسم يخرج هذا الاسم من محتوياتها وتتم كتابته في العامود المجاور في أول صف فارغ مطاطة: بمعنى انها تستجيب لاي تعديل في البيانات مع تجاهل الفراغات والتكرار الملف مرفق special_drop_down.xlsm

يمكن ذلك (المشاركة بعد سؤالك مباشرة)

رداً على سؤال حارثة ابو زيد يلزم وقتها هذا الكود Option Explicit '============================== Sub colorize_ALL() Dim x%, k%, i%, m% Dim MY_St1$, MY_St2$, find_txt$ Dim My_Txt Dim Last_Row%: Last_Row = Cells(Rows.Count, 1).End(3).Row If Last_Row < 2 Then Last_Row = 2 MY_St2 = UCase(Range("c2")) Application.ScreenUpdating = False For i = 2 To Last_Row MY_St1$ = UCase(Range("a" & i).Value) With Range("a" & i).Font .ColorIndex = 0: .Underline = False: .Italic = False: .Bold = False End With '================================== For m = 1 To Len(MY_St1) - Len(MY_St2) + 1 find_txt$ = Mid(MY_St1, m, Len(MY_St2)) If find_txt$ = MY_St2 Then With Range("a" & i).Characters(m, Len(MY_St2)).Font .ColorIndex = 3: .Underline = True: .Italic = True: .Bold = True k = k + 1 End With End If Next m i = i + Range("a" & i).MergeArea.Rows.Count - 1 Next i Select Case k Case 0: Range("b2") = "Nothing similar" Case Else: Range("b2") = "There are: " & Chr(10) & k & " Expressions" End Select If k = 1 Then Range("b2") = Mid(Range("b2"), 1, Len(Range("b2")) - 1) Exite_Me: Application.ScreenUpdating = True End Sub الملف مرفق (مغ بعض الشرح في الورقة Sheet1) Full_Saerch_expressions.xlsm

كيف تختار مجموعة من الارقام العشوائية مشروطة بعدد معين و اصغر من رقم محدد مثلاً نريد 15 رقم عشوائي أصغر من( أو يساوي) 50 فقط بالمعادلات كل هذا في هذا الملف Conditional_Rand.xlsm

جرب هذا الشيء salim_price.xlsx

بعد اذن اخي علي هذا الملف الكود Option Explicit Function Replace_A_Z(st$) As String Dim k%: k = Len(st) Dim i% Dim New_str$ For i = 1 To k If Mid(st, i, 1) Like "[A-Z]" Then New_str = New_str & Asc(Mid(st, i, 1)) - 64 End If Next Replace_A_Z = IIf(New_str = vbNullString, "N/A", New_str) End Function Letter_to Number.xlsm

جرب هذا الملف الجدبد لا ضرورة لكنابة التاريخ (اكسل يفعلها) فقط حدد الشهر والسنة Get_by_day.xlsm

لم الحظ اي خطأ على كل حال جرب هذا الماكرو الجديد Sub Salim_code() Dim ws As Worksheet Dim sh As Worksheet Dim lr2% Application.ScreenUpdating = False On Error GoTo 2: Set sh = Sheets("اجمالي") sh.Range("a2").CurrentRegion.Offset(1, 0).Clear lr2 = 2 For Each ws In ThisWorkbook.Sheets If ws.Name <> "اجمالي" Then With ws sh.Cells(lr2, 1).Value = .Range("a1").Value sh.Cells(lr2, 2).Resize(, 3).Value = .Range("c21").Resize(, 3).Value lr2 = lr2 + 1 End With End If Next ws With sh.Cells(lr2, 1) .Value = "الإجمالي" .Offset(, 1).Resize(1, 3) = Evaluate("=SUM(B2:B" & lr2 - 1 & ")") With .Resize(1, 4) .Interior.ColorIndex = 3 .Font.ColorIndex = 2 End With End With 2: Application.ScreenUpdating = True End Sub

اولا - انت وضعت اسم طالب ليس له غياب (انظر الى كامل الصف حيث محمد لا ترى اي رقم صفر) لذلك لا يتم ادراجه مع الغياب ثانياً -انت وضعت بيانات (خاضر غائب) بدون اسماء لذلك يدرج لك الاكسل عدد الغيابات ( بردو دون اسماء) اما وجود الاصفار (كهذا الرقم 24:00:00) يحب تنسبق الخلابا في العامود A الى Number تم التعديل على الملف ليتجاوز الخلايا الغارغة بالغامود الاول_(حيث لا اسماء) _Salim_Abscent .xlsm

الكثير يتساءل عن كيفية حساب فاتورة الكهرباء مع شطورها مثلاُ دون 70 كيلو واط السعر 5 جنيه من 71 كيلو واط الى 80 السعر 8 جنيه من 81 كيلو واط الى 200 السعر 15 جنيه من 201 و ما فوق 17 جنيه كيف نحسب الفاتورة اذا كان الاستهلاك 550 كيلو واط مثلاً هذا الملف يجيب عن هذا السؤال الكود Function My_Facture(Myfact As Long, n1 As Integer, n2 As Integer, n3 As Integer, n4 As Integer) As Long '''''''''''''''''''''''''''''''''''''''''' Select Case Myfact Case Is <= 70 How_Many = Myfact * n1 Case Is <= 80 How_Many = (70 * n1) + (Myfact - 70) * n2 Case Is <= 200 How_Many = (70 * n1) + (10 * n2) + (Myfact - 80) * n3 Case Is > 200 How_Many = (70 * n1) + (10 * n2) + (120 * n3) + (Myfact - 200) * n4 End Select My_Facture = How_Many '''''''''''''''''''''''''''''''''''''''' End Function الملف مرفق Facture_Electrique.xlsm

اكتب هذه المعادلة في الخلية C2 فقط ( قم بتنفيذها بالضغط على Enter) ثم اسحبها يساراً 3 أعمدة و نزولاً قدر ما تريد (حتى 100 صف) =IFERROR(VLOOKUP($B2,ورقة2!$A$1:$D$100,COLUMNS($A$1:B$1),0),"")

تم معالجة الامر (عندما تفتح اي صفحة من صفحات الغياب يعمل الكود تلقائياً) تم تفيير اسماء الصفحات الى الاجنبية لحسن عمل الكود الملف مرفق _salim_غياب .xlsm

جرب هذا الملف تم تفيير اسماء الصفحات الى الاجنبية لحسن عمل الكود officina_salim.xlsm

فقط اكتب للاكسل ما تريد ان تبحث عنه واضغط الزر Run حرب هذا الملف Saerch_expressions.xlsm

هذا الفيديو يوضح ذلك

تم معالجة الامر Salim_Sum WITH PROTECTION_new.xlsx

يمكن استعمال هذا الملف (بدون عامود مساعد) Special_Series.xlsx

هذه المعادلة في الخلية R16 =IF(ROWS($R$16:R16)>MAX($A$16:$A$39),"",INDEX($D$16:$D$39,MATCH(ROWS($R$16:R16),$A$16:$A$39,0)))

المعادلة التي كنبتها لك تعتمد على العامود والخلية مكان ادراجها(العامود C الخلية 16) انت كتبتها في العامود U لذلك يجب تعديلها الى هذه مكان ادراجها(العامود U الخلية 16) =IF(Q16="","",MAX($U$15:U15)+1)

جرب هذه المعادلة في الخلبة C16 و اسحب نزولاُ =IF(Q16="","",MAX($C$15:C15)+1)

جرب هذا الملف Sader_Wared.xlsm

تفضل يا أخي الملف مع المعادلة Split_Names.xlsx

يوضع حسب ما تكون الاسماء مدرجة اذا كانت في العامودِ A ابتداء من الخلية من الصف 2 يمكن وضعه اينما تربد لكن في الصف 2 ما عدا العامود A