أ / محمد صالح

إذا قمت بتسجيل ماكرو لعملية التصفية كنت ستحصل على هذا الكود ActiveSheet.Range("$A$4:$T$117").AutoFilter Field:=4, Criteria1:="العام" يتم كتابة التخصص المطلوب مكان كلمة العام ويوضع هذا السطر قبل else في جميع الإجراءات بالتوفيق

نفس الفكرة يمكنك التوصل لها بمفردك Private Sub TextBox1_AfterUpdate() Me.TextBox2.Value = Year(Date) - Val(Me.TextBox1.Value) End Sub بالتوفيق

على افتراض ان خلية المواليد B2 يمكنك استعمال هذه المعادلة =year(today())-b2 بالتوفيق

السؤال نظري وعليه الإجابة نظرية ولم يتم إرفاق ملف من حضرتك فكيف يتم التطبيق او المثال ؟

يمكنك استعمال select case وهي تساوي مجموعة من شروط If لتحديد رقم العمود الذي يتم الترحيل إليه بالتوفيق

جميعا بإذن الله ولك مثله وزيادة

ربما يكون هذا مقصودك Private Sub ComboBox1_Change() If Me.ComboBox1 = "مدفوع كبير" Then Me.TextBox1.Enabled = True Me.TextBox2.Enabled = True Me.TextBox3.Enabled = False Me.TextBox4.Enabled = False ElseIf Me.ComboBox1 = "مدفوع صغير" Then Me.TextBox1.Enabled = False Me.TextBox2.Enabled = False Me.TextBox3.Enabled = True Me.TextBox4.Enabled = True End If End Sub بالتوفيق

يمكنك استعمال هذا الكود بعد فك دمج الخلايا وتغيير الامتداد إلى xlsb حتى يقبل الأكواد Sub repchr() Range("b6,b9").ClearContents For n = 1 To Len([b3]) If UBound(Split([b3], Mid([b3], n, 1))) > 1 Then [b6] = [b6] & IIf(InStr([b6], Mid([b3], n, 1)) = 0 And Mid([b3], n, 1) <> " ", IIf([b6] = "", "", "-") & Mid([b3], n, 1), "") Else [b9] = [b9] & IIf([b9] = "", "", "-") & Mid([b3], n, 1) End If Next n MsgBox "Done by mr-mas.com" End Sub الكود يقوم بوضع الحروف المكررة في الخلية b6 والحروف غير المكررة في الخلية b9 اعتمادا على النص الموجود في الخلية b3 بالتوفيق

* لا لن تضاف تلقائيا ؛ لأنك حددت مصدر بيانات الجدول المحوري من A1:H6 وحتى تضاف تلقائيا يجب تنسيق المدى الموجود في ورقة1 كجدول format as table من تبويب الصفحة الرئيسية home ثم تعديل مصدر بيانات الجداول المحورية change data source إلى نفس المدى في ورقة1 ولكن هذه المرة سيظهر المدى باسم جدول1 أو table1 * لتعديل عناوين في الجداول المحورية مثل rows labels & columns labels & grand total يتم تحديد الخلية ثم كتابة التسمية المطلوبة ثم ضغط مفتاح الادخال Enter بالتوفيق

ربما يفيدك هذا الموضوع بالتوفيق

جميعا بإذن الله شكرا لكلماتك الطيبة أستاذ @Ali Mohamed Ali

يمكنك استعمال هذه المعادلة =SUMIFS(5:5,4:4,">="&A7,4:4,"<="&B7) بالتوفيق

جميعا أخي الفاضل

جميعا بفضل ربي

جميعا بإذن الله

الشكر لله الذي هدانا لهذا

جميعا بإذن الله تعالى 😍🤩

جميعا بإذن الله

يمكنك استعمال المعادلة التالية في الخلية I2 =IF(COUNTIF(G:G,G2*-1)>0,"موجود","غير موجود") مع سحب مقبض التعبئة لأسفل لنسخ المعادلة بالتوفيق

المطلوب الاول والثاني موجودان في شيت ورقة3 والمطلوب الثالث موجود في ورقة4

كنت أود أن تكون لك محاولة في تنفيذ ما تريد لا أن ترسل الملف فارغا من أي أكواد وبامتداد xlsx الذي لا يقبل الكود تفضل ملفك بعد تعديل الامتداد وتعديل معادلة الرصيد والاستغناء عن زر بحث وتنفيذ المطلوب بمجرد اختيار اسم العميل اخفاء الصفوف الفارغة تحديد مجال الطباعة تعديل تنسيقات الخلايا بالتوفيق كشف حساب عميل.xlsb

تفضل أخي الكريم https://www.google.com/search?q=شرح%2Boffset%2Bexcel

سلمكم الله من كل سوء

في هذه الحالة نستبدل كلمة mas بمرجع الخلية المطلوبة أمر التصدير .Export Filename:=ThisWorkbook.Path & "\mas.jpg", Filtername:="JPG" يتم تغييره إلى .Export Filename:=ThisWorkbook.Path & "\" & [b3] & ".jpg", Filtername:="JPG" بالتوفيق