محمد حسن المحمد

السلام عليكم 
أخي الكريم يرجى استبدال الكود في التيكست بوكس بالكود التالي:
Private Sub TextBox1_Change() Application.ScreenUpdating = False ActiveSheet.ListObjects("Data").Range.AutoFilter Field:=3, Criteria1:=[e2], Operator:=xlAnd If TextBox1.Value = "" Then ActiveSheet.ListObjects("Data").Range.AutoFilter Field:=3 End If Application.ScreenUpdating = True End Sub تقبل تحياتي
TEST.xlsm

السلام عليكم ورحمة الله وبركاته
يمكنك استخدام المعادلة التالية واسحب نزولاً
=SUM((B2*30);A2) تقبل تحياتي العطرة

السلام عليكم ورحمة الله وبركاته
يمكنك استخدام المعادلة التالية واسحب نزولاً
=SUM((B2*30);A2) تقبل تحياتي العطرة

السلام عليكم ورحمة الله وبركاته
بعد إذن أستاذنا الكريم @نزار سليمان عيد هذا حل آخر

ارقام جلوس.xlsm

وعليكم السلام ...أعاده الله علينا بالخير واليمن والبركات
استخدم المعادلة بدءاً من الخلية A2

=COUNTIF($B$2:B2;B2) تقبل تحياتي
الترقيم حسب التاريخ.xlsx

السلام عليكم ورحمة الله وبركاته
تفضل
=MAX(C3:F3)-B3 واسحب نزولاً خصومات جيدة.xlsx

السلام عليكم
أخي الكريم
يمكنك فعل ذلك بشكل آلي كلما غيرت في الشيت إلا أنه سيكون مرهقاً لك وخصوصاً حجم البيانات كبير وفق الكود ذاته تضعه في حدث ورقة البيانات ( ملف وتحريري نصف العام صف رابع) كما يلي:
Private Sub Worksheet_Change(ByVal Target As Range) 'متغيرات Dim arr As Variant Dim i As Variant Dim cr As Variant Dim j As Long 'اسم شيت المصدر واسم الخليه الاولى منه arr = Sheets("ملف وتحريري نصف العام صف رابع").Range("b14").CurrentRegion.Value 'الأعمدة المطلوب الترحيل إليها cr = Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 36, 45, 56, 65, 76, 85, 96, 105, 116, 125, 136, 145, 156, 165, 192, 193, 198, 199, 204, 205, 210, 211, 216, 217, 19, 20, 21, 28, 29, 30, 39, 40, 41, 48, 49, 50, 59, 60, 61, 68, 69, 70, 79, 80, 81, 88, 89, 90, 99, 100, 101, 108, 109, 110, 119, 120, 121, 128, 129, 130, 139, 140, 141, 148, 149, 150, 159, 160, 161, 168, 169, 170) 'أرقام الأعمدة المطلوب ترحيلها For Each i In Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 19, 20, 22, 23, 25, 26, 28, 29, 31, 32, 34, 35, 37, 38, 40, 109, 41, 110, 42, 111, 43, 112, 44, 113, 45, 46, 47, 77, 78, 79, 49, 50, 51, 81, 82, 83, 53, 54, 55, 85, 86, 87, 57, 58, 59, 89, 90, 91, 61, 62, 63, 93, 94, 95, 65, 66, 67, 97, 98, 99, 69, 70, 71, 101, 102, 103, 73, 74, 75, 105, 106, 107) 'اسم شيت الهدف ورقم صف صفحة الهدف Sheets("سجل").Cells(14, cr(j)).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i) j = j + 1 Next i End Sub ولذلك الأفضل التعديل على الموديول لديك كما يلي:
Sub Test1() 'متغيرات Dim arr As Variant Dim i As Variant Dim cr As Variant Dim j As Long 'اسم شيت المصدر واسم الخليه الاولى منه arr = Sheets("ملف وتحريري نصف العام صف رابع").Range("b14").CurrentRegion.Value 'الأعمدة المطلوب الترحيل إليها cr = Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 36, 45, 56, 65, 76, 85, 96, 105, 116, 125, 136, 145, 156, 165, 192, 193, 198, 199, 204, 205, 210, 211, 216, 217, 19, 20, 21, 28, 29, 30, 39, 40, 41, 48, 49, 50, 59, 60, 61, 68, 69, 70, 79, 80, 81, 88, 89, 90, 99, 100, 101, 108, 109, 110, 119, 120, 121, 128, 129, 130, 139, 140, 141, 148, 149, 150, 159, 160, 161, 168, 169, 170) 'أرقام الأعمدة المطلوب ترحيلها For Each i In Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 19, 20, 22, 23, 25, 26, 28, 29, 31, 32, 34, 35, 37, 38, 40, 109, 41, 110, 42, 111, 43, 112, 44, 113, 45, 46, 47, 77, 78, 79, 49, 50, 51, 81, 82, 83, 53, 54, 55, 85, 86, 87, 57, 58, 59, 89, 90, 91, 61, 62, 63, 93, 94, 95, 65, 66, 67, 97, 98, 99, 69, 70, 71, 101, 102, 103, 73, 74, 75, 105, 106, 107) 'اسم شيت الهدف ورقم صف صفحة الهدف Sheets("سجل").Cells(14, cr(j)).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i) j = j + 1 Next i End Sub والله أعلم
والسلام عليكم

السلام عليكم
أخي الكريم
يمكنك فعل ذلك بشكل آلي كلما غيرت في الشيت إلا أنه سيكون مرهقاً لك وخصوصاً حجم البيانات كبير وفق الكود ذاته تضعه في حدث ورقة البيانات ( ملف وتحريري نصف العام صف رابع) كما يلي:
Private Sub Worksheet_Change(ByVal Target As Range) 'متغيرات Dim arr As Variant Dim i As Variant Dim cr As Variant Dim j As Long 'اسم شيت المصدر واسم الخليه الاولى منه arr = Sheets("ملف وتحريري نصف العام صف رابع").Range("b14").CurrentRegion.Value 'الأعمدة المطلوب الترحيل إليها cr = Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 36, 45, 56, 65, 76, 85, 96, 105, 116, 125, 136, 145, 156, 165, 192, 193, 198, 199, 204, 205, 210, 211, 216, 217, 19, 20, 21, 28, 29, 30, 39, 40, 41, 48, 49, 50, 59, 60, 61, 68, 69, 70, 79, 80, 81, 88, 89, 90, 99, 100, 101, 108, 109, 110, 119, 120, 121, 128, 129, 130, 139, 140, 141, 148, 149, 150, 159, 160, 161, 168, 169, 170) 'أرقام الأعمدة المطلوب ترحيلها For Each i In Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 19, 20, 22, 23, 25, 26, 28, 29, 31, 32, 34, 35, 37, 38, 40, 109, 41, 110, 42, 111, 43, 112, 44, 113, 45, 46, 47, 77, 78, 79, 49, 50, 51, 81, 82, 83, 53, 54, 55, 85, 86, 87, 57, 58, 59, 89, 90, 91, 61, 62, 63, 93, 94, 95, 65, 66, 67, 97, 98, 99, 69, 70, 71, 101, 102, 103, 73, 74, 75, 105, 106, 107) 'اسم شيت الهدف ورقم صف صفحة الهدف Sheets("سجل").Cells(14, cr(j)).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i) j = j + 1 Next i End Sub ولذلك الأفضل التعديل على الموديول لديك كما يلي:
Sub Test1() 'متغيرات Dim arr As Variant Dim i As Variant Dim cr As Variant Dim j As Long 'اسم شيت المصدر واسم الخليه الاولى منه arr = Sheets("ملف وتحريري نصف العام صف رابع").Range("b14").CurrentRegion.Value 'الأعمدة المطلوب الترحيل إليها cr = Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 36, 45, 56, 65, 76, 85, 96, 105, 116, 125, 136, 145, 156, 165, 192, 193, 198, 199, 204, 205, 210, 211, 216, 217, 19, 20, 21, 28, 29, 30, 39, 40, 41, 48, 49, 50, 59, 60, 61, 68, 69, 70, 79, 80, 81, 88, 89, 90, 99, 100, 101, 108, 109, 110, 119, 120, 121, 128, 129, 130, 139, 140, 141, 148, 149, 150, 159, 160, 161, 168, 169, 170) 'أرقام الأعمدة المطلوب ترحيلها For Each i In Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 19, 20, 22, 23, 25, 26, 28, 29, 31, 32, 34, 35, 37, 38, 40, 109, 41, 110, 42, 111, 43, 112, 44, 113, 45, 46, 47, 77, 78, 79, 49, 50, 51, 81, 82, 83, 53, 54, 55, 85, 86, 87, 57, 58, 59, 89, 90, 91, 61, 62, 63, 93, 94, 95, 65, 66, 67, 97, 98, 99, 69, 70, 71, 101, 102, 103, 73, 74, 75, 105, 106, 107) 'اسم شيت الهدف ورقم صف صفحة الهدف Sheets("سجل").Cells(14, cr(j)).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i) j = j + 1 Next i End Sub والله أعلم
والسلام عليكم

تفضل أخي الكريم 
new.xlsm

السلام عليكم ورحمة الله وبركاته
أختي الكريمة حسب علمي الضحل
الجواب ضمن الملف المرفق
=ROUND(AB433*21%;2) دالة تقريب الخلية المذكورة*٢١% إلى رقمين عشريين. =ROUND(IF(CB433>500;500;CB433);2) دالة تقريب إذا كانت الخلية أكبر من 500 أعطني 500 وإن لم تكن أعطني قيمة الخلية ذاتها مقربة إلى رقمين عشريين ياسمين محمد.xlsx

وعليكم السلام
أرجو أن يكون الحل مناسباً
المعادلة كما يلي:
=LOOKUP(2;1/($C$4:$C$8=C9);$F$4:$F$8)
we.rar

السلام عليكم ورحمة الله وبركاته 💐
أرجو أن يكون الحل مناسباً
=IF(A2=4;B2*11.11;IF(A2=3;B2*10;IF(A2=2;B2*9.09;IF(A2=1;B2*8.33)))) وفاء 2021.xlsx

walaa1.xls

السلام عليكم أختي الكريمة
عملت هذا الملف المرفق حسبما طلبتِ

أرجو أن يكون مناسباً
والسلام عليكم
سعر الصرف.xlsx

Sample sheet.xlsx

السلام عليكم
تفضل أخي الكريم
TEST.xlsx

السلام عليكم
تفضل أخي الكريم

Private Sub CommandButton1_Click() For i = 1 To 3 Sum = Sum + Val(Me("Textbox" & i)) Next i Me.TextBox4.Value = Sum & ".00" ActiveCell = TextBox4.Value End Sub Private Sub CommandButton2_Click() For i = 1 To 3 Me("textbox" & i) = "" Next i End Sub Private Sub TextBox1_Change() For i = 1 To 3 Sum = Sum + Val(Me("Textbox" & i)) Next i Me.TextBox4.Value = Sum & ".00" End Sub Private Sub TextBox2_Change() For i = 1 To 3 Sum = Sum + Val(Me("Textbox" & i)) Next i Me.TextBox4.Value = Sum & ".00" End Sub Private Sub TextBox3_Change() For i = 1 To 3 Sum = Sum + Val(Me("Textbox" & i)) Next i Me.TextBox4.Value = Sum & ".00" End Sub active cell.xlsm

السلام عليكم ...إليك الحل أخي الكريم

=CONCATENATE(TEXT(A2;"yyy/mm/dd");" ";TEXT(B2;"hh:mm am/pm")) New XLS Worksheet.xls

تفضل أخي الكريم
توزيع11.xlsx

السلام عليكم أخي الكريم
أي تحديد (اختيار ) حالة حسب الكود المطلوب
مثال: تحديد حالة ( نعم أو لا أو إلغاء الأمر)
  تعريف متغير باسم nResult كنتيجة VbMsgBoxResult أي مربع رسالة بعرض النتيجة
    
مربع رسالة بعرض النتيجة = رسالة  ( نعم أو لا أو إلغاء الأمر)   
     نحدد حالة nResult كما يلي:
         في حالة nResult  النتيجة نعم
             أظهر  "نعم"
         في حالة nResult  النتيجة لا
             أظهر "لا"
         في حالة nResult  النتيجة إلغاء
             أظهر "إلغاء"
     ثم نهاية التحديد في الكود ثم إتمام الكود
 
Sub Select_Case_Yes_No_Cancel() Dim nResult As VbMsgBoxResult nResult = MsgBox("...", vbYesNoCancel) Select Case nResult Case vbYes MsgBox "Yes" Case vbNo MsgBox "No" Case vbCancel MsgBox "Cancel" End Select End Sub تقبل تحياتي العطرة
والسلام عليكم

السلام عليكم أخي الكريم
كنت أتمنى أن يكون هناك عملاً أفضل مما سأقدمه لك
لكن ريثما يكون ذلك إليك هذا الحل...
تنسيق شرطى.xlsm

تكرم أخي
 
Book1.xlsx

السلام عليكم ورحمة الله وبركاته
أرجو أن تنظر في هذا الحل 
توزيع التلاميذ على الفصول.xlsm

السلام عليكم أخي الكريم
نتائج التصفية في صفحة ثانية حسب زر كل تصفية على حده
تقبل تحياتي العطرة
والسلام عليكم
كود فلتر.xlsm

=IF(A2>29;34;IF(A2>28;32;IF(A2>27;30;IF(A2>26;28;A2)))) السلام عليكم ورحمة الله وبركاته
هذا فيما يخص الشق الأول من السؤال
قم بإضافته بالخلية A3 ثم اسحب نحو بقية الخلايا
أما فيما يخص الشق الثاني يرجى التعديل على الناتج مثلا
=IF(A2>29;32.5;IF(A2>28;30.5;IF(A2>27;29.5;IF(A2>26;27.5;A2)))) تقبل تحياتي العطرة
وإن كانت الإجابة كافية يرجى التفضل بتحديد أفضل إجابة لإتمام الموضوع
والسلام عليكم