سليم حاصبيا

ربما كان المطلوب Sum_Of 6.rar

تختار ما تريد من القائمة المنسدلة في الخلية A1 ثم تكتب في B1 ما تريد البحث عنه

جرب هذا الملف ربط الرقم salim.rar

انت طلبت ذلك من خلال المشاركة: (حيث ان التقدير لا يظهر فى حالة حصول الطالب على صفر)

عليك بازالة الحماية عن الماكرو شاهد هذا القيديو https://www.youtube.com/watch?v=ZLQ_X_Vxyx0 او هذا https://www.youtube.com/watch?v=27qQp5-1mhw

تم التعديل على الماكرو ليتناسب مع الوضع(يجب تسمية الورقة بالضيط كما هو اسم صاحبها (يعني تاخذ الاسم Copy , وتسمي الورقة Paste) كشف رواتب salim1.rar

الملف يعمل عندي بصورة طبيعية لا اعلم ما السبب عندك في الجهاز تم التعديل قليلا على الملف ليظهر الاحتياط Mon_Equipe 1.rar

ريما كان الحل هنا Mon_Equipe.rar

جرب استبدال الفاصلة بقاصلة منقوطة لتصبح المعادلة هكذا =IF(D5="غ";"غائب";IF(D5=0;"";VLOOKUP(D5/D$4;{0,"دون المستوى";0.5,"مقبول";0.65,"جيد";0.75,"جيد جداً";0.85,"ممتاز"};2))) الملف مرفق معادلة salim.rar

جرب هذا الملف Random_choise.rar

عسى ان يكون هذا المطلوب net salim.rar

جرب هذا الماكرو Option Explicit Sub transfer_data() Dim main_Sh As Worksheet Dim m As Integer Set main_Sh = Sheets("Sheet1") With main_Sh .Select .Range("a2:H" & Sheets.Count).ClearContents End With For m = 2 To Sheets.Count With main_Sh Sheets("sheet" & m).Range("f39:f44").Copy .Range("A" & m).PasteSpecial Paste:=xlValues, Transpose:=True .Range("g" & m) = Evaluate("=SUM(B" & m & ",F" & m & ")-SUM(C" & m & ":E" & m & ")") End With Next main_Sh.Range("a1").Select End Sub مرفق مثال كشف رواتب salim.rar

فبل هذه العبارة في سطر مستقل For i = 2 To Lr1

ارفع الملف لاكتشاف الخطأ

في البداية نقسم ال خلية A1 على 5^10 التي تساوي 100.000(اي الرقم 10 مرفوع بالاس 5) هنا يأتي دور دالة (MOD(A2/10^5,1 التي تأخذ ما بعد الفاصلة من ناتج القسمة نضرب هذا الناتج بــ 100.000 التي هي 5^10

تفضل النتيجة في الورقة 2 test1 salim2.rar

نستطيع بالكود الاول ان تفعل نفس الشيء وذلك بإفراغ محتويات الورقة 2 ابتداء من الصف الثاني قبل عملية الترحيل Ws2.range("A2:F1000").ClearContents

ربما هذا الكود اسرع قليلاُ (للبيانات الكثيرة ) حيث يقوم يتحديد الصفوف المطلوبة ثم ينقلها دفعة واحدة الى المكان المقصود Sub Tarhil_Complete_Data1() Dim Ws1, Ws2 As Worksheet Dim Lr1, S, i As Integer Dim RG1, Temp_Range As Range Set Ws1 = Sheets("sheet1"): Set Ws2 = Sheets("sheet2") Lr1 = Application.Max(Ws1.Range("a:a")) + 1 Set RG1 = Ws1.Range("A1:F" & Lr1) For i = 2 To Lr1 S = Application.CountA(RG1.Cells(i, 1).Resize(1, 6)) If S = 6 Then If Temp_Range Is Nothing Then Set Temp_Range = RG1.Cells(i, 1).Resize(1, 6) Else Set Temp_Range = Union(Temp_Range, _ RG1.Cells(i, 1).Resize(1, 6)) End If End If Next If Temp_Range Is Nothing Then Exit Sub Temp_Range.Copy Ws2.Range("a2") Set Temp_Range = Nothing End Sub

جرب هذا الماكرو Sub Tarhil_Complete_Data() Dim Ws1, Ws2 As Worksheet Dim Lr1, Lr2, S, i As Integer Dim RG1 As Range Set Ws1 = Sheets("sheet1"): Set Ws2 = Sheets("sheet2") Lr1 = Application.Max(Ws1.Range("a:a")) + 1 Set RG1 = Ws1.Range("a1:f" & Lr1) For i = 2 To Lr1 Lr2 = Ws2.Cells(Rows.Count, 1).End(3).Row S = Application.CountA(RG1.Cells(i, 1).Resize(1, 6)) If S = 6 Then _ Ws2.Cells(Lr2 + 1, 1).Resize(1, 6).Value = RG1.Cells(i, 1).Resize(1, 6).Value Next End Sub

ريما يكون الحل هنا test1 salim.rar

ارفع الملف نفسه وليس الصورة لا يمكن التعامل مع الصور

السلام عليكم و رحمة الله بعد اذن الاخ بن علية هذه المعادلة ايضاً =MOD(A2/10^5,1)*10^5 الملف مرفق اقتطاع ارقام Salim.rar

جرب هذا الملف test salim.rar

تم عمل المطلوب على الصفحة الاولى فقط يمكنك تكملة الصفحات الباقية بنفس المعادلة ارقام جلوس test 1 Salim.rar

ارفع الملف نفسه و ليس صورة عنه