سليم حاصبيا

كي يكونالدوران مع عقارب الساعه ضع قي الخلية قيمة سالبة (مثلاً 45-) اكسل لا يسمح يالدوران اكثر من 90 (من 90 - الى 90+)

ضع شيت "الرئيسية" في أول المصنف و "طباعة" قي اخره من حبث الترتيب استبدل For x = 1 To k بـــــ 1-For x = 2 To k

اكتب هذه المعادلة في الخلية D10 =DATE(YEAR(D6),MONTH(D6)+D8,1)-1

تم التعديل على الكود في المرفق Orientation1.rar

لم افهم ماذا تعني بجمع الخلايا(المحتوى ليس ارقاماً جتى تجمعها) b,c الا اذا كنت تريد عدد الخلايا التي تحتوي على

الملف الذي رفعته لك يعمل حسب التحديد اذا حددت خلية واحدة يعمل عليها و اذا حددت اكثر يعمل على كل النحدبد

جرب هذا الملف تفقيط مخصص.rar

الدالات لا تقوم بالتنسيق فقط عبر VBA

جرب هذا الكود Option Explicit Sub calcalate_last_minus_One() Dim k%, Final_Row%, x%, i%, m#, s# With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With k = Sheets.Count For x = 1 To k m = 0: s = 0 Final_Row = Sheets(x).Cells(Rows.Count, "J").End(3).Row For i = 4 To Final_Row If IsNumeric(Sheets(x).Range("j" & i)) And Sheets(x).Range("j" & i) <> 0 Then m = Range("j" & i).Value: s = s + m End If Next Sheets(x).Range("L2") = s - m Next With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub

و ما الفرق اذا كنت تجمع ارقم 0

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

استبدل الفاصلة "," بفاصلة منقوطة ";" في المعادلة أو العكس(حسب اعدادات الجهاز عندك ) لتصبح هكذا =IF(I10="";"";IF(OR(I11="ح";I11="غ");I11;VLOOKUP(I11/J$10;{0,"ض جـ";0.3488,"ض";0.4788,"ل";0.6488,"ج";0.7488,"جـ ج";0.8488,"م";1,0};2)))

اولاً :في الخلية J11 استعمل هذه المعادلة بدلاً من معادلتك الطويلة جداً =IF(I10="","",IF(OR(I11="ح",I11="غ"),I11,VLOOKUP(I11/J$10,{0,"ض جـ";0.3488,"ض";0.4788,"ل";0.6488,"ج";0.7488,"جـ ج";0.8488,"م";1,0},2))) ثانياً:في الخليةI12 هذه المعادلة: =IF(I11>=64,64,I11) ثالثاً في الخلية J12 : =IF(I12>=64,"ل",J11)

اخي ياسر خطرت على بالي معادلة Offset لكني لا أحبذها لانها كما تعرف Volatile

صعها اينما تريد

ربما هذه المعادلة تقوم يهذا الشيء(دون كود) =SUMPRODUCT($J$4:INDEX($J$4:$J$200,COUNTIF($J$4:$J$200,"<>0")-1))

و ما هو معيار الرسوب في المادة و هل ان حرف "غ" او "ح" له تأثير على النتيجة

اليك هذه الطريقة 1-حدد الخلية او مجموعة الخلايا المراد نسخ النتسيق منها 2=مع الاستمرار يالضفط غلى مفتاح Alt اضفط بالتوالي على الحروف H F P ابتداء من الحرف H 3-يظهر لك شكل فرشاة 4-اضغط مستعماُ هذه الفرشاة في المكان المراد نقل التنسيق اليه

جرب هذا الملف في النطاق A1:C8 talween.rar

اكنب هذه المعادلة و اسحبها يساراً 4 اعمدة =INDEX($A$4:$D$6,MATCH($H$4,$B$4:$B$6,0),COLUMNS($A$1:A1))

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

لك ما تريد اخي الحبيب ياسر Scroll_Area.rar

جرب هذا الماكرو Private Sub Worksheet_SelectionChange(ByVal Target As Range) Me.ScrollArea = Range("a1:a50").Address End Sub

ممكن هذا الكود يقوم بهذا العمل تقوم بتعبئة التكست و عند الخروج منه يتم التنسيق Private Sub TextBox1_LostFocus() Application.ScreenUpdating = False TextBox1 = Format(TextBox1, Application.Rept(0, 10)) Application.ScreenUpdating = True End Sub

جرب هذا الماكرو Sub salim() Dim Sh1, Sh2 As Worksheet Dim lr1%, ro%, i% Set Sh1 = Sheets("Sheet1"): Set Sh2 = Sheets("Sheet2") lr1 = Sh1.Cells(Rows.Count, "a").End(3).Row ro = 3 Sh2.Range("C" & ro & ":i" & 500).ClearContents For i = 2 To lr1 With Sh2.Cells(ro, 3) .Value = Sh1.Cells(i, 2) .Offset(0, 2) = Sh1.Cells(i, 2).Offset(0, 4) .Offset(0, 6) = Sh1.Cells(i, 2).Offset(0, 8) End With ro = ro + 2 Next End Sub