سليم حاصبيا

اخي في هذا الموضوع لا حاجة الكود اعتقد ان الامر يمكن تطبيقه بمعادلة بسيطة انظر الى المرفق احصاء الاعداد فقط قبل اول نصsalim.rar

بعد اذن الاخ ياسر الغربي هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then Exit Sub Start = 4: t = 0 Do Until Not IsNumeric(Range("B" & Start).Offset(1, 0)) t = t + 1 Start = Start + 1 Loop [k1] = t + 1 End Sub

اذهب الى هذا الغنوان

جرب هذه المعادلة في الخلية D3 ولسحب نزولاً =IFERROR(C3*VLOOKUP(B3,{"مناقصة",0.02;"أمر توريد",0.0015},2,0),"")

جرب هذا الماكرو Dim Sh1 As Worksheet Dim Sh2 As Worksheet Dim My_num, Lr, m As Integer m = 5 Set Sh1 = Sheets("البيانات"): Set Sh2 = Sheets("الناجحون") Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Sh2.Range("A5:J500").ClearContents Sh1.Activate Lr = Application.Max(Sh1.Range("a2", Range("a" & Rows.Count).End(3))) My_num = Lr \ 2 + Lr Mod (2) Sh1.Range("a5").Resize(My_num, 6).Copy Sh2.Range("a" & m).PasteSpecial (xlValues) Application.CutCopyMode = False Sh1.Range("a5").Offset(My_num).Resize(Lr - My_num, 6).Copy Sh2.Range("f" & m).PasteSpecial (xlValues) Sh2.Select Sh2.Range("a5").Select Sh1.Select Sh1.Range("a5").Select Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

واخيراً تم البرنامج بكشل متميز ارجو ان ينال الاعجاب Perfet fact final form.rar

ربما كان المطلوب اذا كان كذلك اضغط (اعجاب) المدرسة salim.rar

=$H28*($G28-0.5)*(1-$L$27) استعمل المعادلة في العامود الاصفر Test1 SALIM.rar

جرب هذا الملف يالنسبة للسؤال الثاني Sptl_function.rar

استبدل علامة الناقص (-) بعلامة الزائد في اول معادلة واسحب نزولاً

هذا يحدث لانه هناك بعض البيانات الناقصة في الفاتورة المرحلة تم تفادي ذلك بكود جديد لا يسمح لك بالترحيل اذا وجد هذا الشيء امسح كل شيء من الارشيف و حاول من جديد Perfet fact.rar

اذهب الى هذا العنوان http://www.officena.net/ib/topic/70964-مساعدة-في-الاكسل/

اليك هذا الملف الذي يقوم ادراج عدد معين من الصفوف (حسب الطلب) ثم يقوم بنسخ المعادلات اليها يمكن تعديله حسب ما تريد insert rows with his formula1.rar

الموضوع هنا فقط بتحدث عن حدود الخلايا باقي التنسيقات يمكن القيام بها يدوياً (مرة واحدة) على اي عدد تريد من الصفوف والاعمدة اقرأ الكود حيداً فطريقة فهمه ليست معقدة

بالنسبة للسؤال الاول و على اعتبار ان الرقم في الخلية A1 اكتب هذه المعادلة =SUBSTITUTE(A1,".","")*1 بالنسبة للسؤال الثاني لا يمكن الحل الا عن طريق الكود (او استعمال الدالة Jointext) المتوفرة في اكسل 2016

بعد اذن اخب ابو عبد الباري نفس الحل لكن بواسطة الكود (Private Sub Worksheet_Change(ByVal Target As Range) Weekly_Programm salim.rar

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

جرب هذا النموذج cond_dif.rar

تم معالحة الخطأ و كل شيء تمام التمام و ذلك باضافة سطرين الى الكود( انظر الى الكود من جديد) If r1 = 65536 Then r1 = r If r1 - r = 2 Then r1 = r + 1 لو اردت استعمال الكود على 2010 استبدل الرقم 65536 بالرقم 1048576 Fatoura-Final-1 2003.rar

ربما يكون الحل teachers.rar

جرب هذا الملف القائمة المنسدلة مطاطة (تستجيب لاي تغيير في البيانات ولا تذطر المطرر الا مرة واحدة) احصاء زبائن الفروع salim.rar

لا اعلم اذا كنت تضغط على الازرار بشكل صحيح او لا 1- مستعملاً اصبعين من اليد اليسار اضغط بشكل مستمر على مفتاحي Ctrl و Shift 2-باليد اليمين اضغط على المفتاح Enter نقرة واحدة ثم حرر مفتاحي Ctrl و Shift للاسف لا توجد معادلة عادية (غير الصفيف) والله أعلم

انسخ هذه المعادلة الى الخلية AE8 (لنتفيذها اضغط Ctrl+Shift+Enter ولبس Enter وحدها) و اسحب يساراً ثم يميناً (المعادلة لا تعطي نتيجة الا اذا كان كل الصف بحنوي على بيانات) =IF(COUNTA($B8:$AD8)=29,INDEX($AN$9:$AN$25,SMALL(IF(ISNA(MATCH($AN$9:$AN$25,$C8:$AD8,0)),ROW($AN$9:$AN$25)-ROW($AN$9)+1,""),COLUMNS($A$1:A1))),"") تفضل الملف جاهز وتحت الطلب فرز المعلمين الشواغر salim.rar

انسخ هذه المعادلة الى الخلية AE8 (لنتفيذها اضغط Ctrl+Shift+Enter ولبس Enter وحدها) و اسحب يساراً ثم يميناً (المعادلة لا تعطي نتيجة الا اذا كان كل الصف بحنوي على بيانات) =IF(COUNTA($B8:$AD8)=29,INDEX($AN$9:$AN$25,SMALL(IF(ISNA(MATCH($AN$9:$AN$25,$C8:$AD8,0)),ROW($AN$9:$AN$25)-ROW($AN$9)+1,""),COLUMNS($A$1:A1))),"")

جرب هذا الشيء تم التعديل على بعض الخلايا (الغاء دمج بعض الخلايا و تغيير اسماء الصفحات )لسهولة عمل الكود 2 مندوب salim 2003.rar