طارق محمود

السلام عليكم أخي الفاضل العزيز / نارت مشرف قسم الأكسس شرف كبير مروركم الكريم ومساهمتكم في الموضوع أعتقد أنني معك فيما ذهبت إليه وننتظر من الأخ الغالي / الظرنبيط أن يرشدنا متي نسمح بتكرار اسم المريض بضابط واضح وليكن مثلا مبلغ الدعم بالإضافة لآخر تاريخ تلقي الاعانة ومرور السنة أو الستة أشهر

السلام عليكم أخي الكريم مرفق محاولة سريعة يمكنك تطويرها أنت او أي من الإخوة الأكارم بالتنسيق الشرطي فقط وبعض المعادلات يتم التنبيه ان هذا المريض لا يستحق الدعم بعد عن طريق جملة "لم يمر سنة كاملة" أو جملة "ممكن الدعم " يمكنك ايضا دراسة معادلات الأعمدة F،G لتفم طريقة العمل تفضل المرفق قاعدة بيانات المرضي.rar

السلام عليكم أخي الكريم تم عمل المطلب بالاعتماد على ناتج الخلية نفسها في أعمدة الدرجات (إذا نقصت عن 50) فيظهر الخط القطرى الاحمر في نفس الخليه تفضل المرفق - الورقة الثانية خط احمرTAREQ.rar

السلام عليكم مرفق حل سريع بالتنسيق الشرطي تفضل اسماء ودرجات الدور الثانى_Tareq.rar

السلام عليكم أخي الكريم كان الأفضل ان ترفق ملف كما ذكر اخونا الفاضل جمال علي كل حال ، مرفق ملف وبه 1. تم تحويل الارقام بين0-100الى كتابة 2. بالنسبة للخط الأحمر طريقتين بالورقة الأولي طريقة سريعة بالتنسيق الشرطي لكن ليس خط بل تلوين وبالورقة التالية طريقة أخري "خط قطري مائل" لكن باستخدام الأكواد تفضل المرفق تحويل الرقم الى حروف مع خط أحمر للرسوب.rar

السلام عليكم أخي الكريم تم مناقشة هذا الموضوع أكثر من مرة سابقا إبحث ، ستجد مثلا المشاركة #6 في الرابط http://www.officena.net/ib/index.php?showtopic=36254&st=0&p=192756&hl="%CD%CC%E3%20%C7%E1%E3%E1%DD"&fromsearch=1&#entry192756 وأيضا المشاركة #6 في الرابط http://www.officena.net/ib/index.php?showtopic=33678&st=0&p=175504&hl="%CD%CC%E3%20%C7%E1%E3%E1%DD"&fromsearch=1&#entry175504 وبالبحث ستجد الكثير

السلام عليكم أخي الكريم أنظر المرفق مع الملفات 004 ، 005 كمثال وباستخدام معادلة Indirect وتثبيت صف للخلايا المراد نقلها لاحظ المعادلات في الصف 20،21 ولكن يعيب الطريقة أنه لابد ان يكون جميع الملفات التي تريد النقل منها مفتوحة في نفس الوقت نقل من ملفات مسلسلة.rar

السلام عليكم فعلا أخي الكود من الأول كان يلزمه إستكمال طفيف الكود المضبوط Option Explicit Private Sub Workbook_Open() Dim lInitialDate As Long, x As Date On Error Resume Next lInitialDate = Evaluate("InitialDate") If Err.Number = 13 Then Me.Names.Add "InitialDate", Date, False Me.Save End If x = #9/1/2011# If Date > x Then Kill_Myself End Sub Private Sub Kill_Myself() With ActiveWorkbook .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End Sub والملف المرفق به التاريخ 1/9/2011 والكود المضبوط تفضل الملف يحذف نفسه بعد 30يوم استعمال.rar

السلام عليكم أخي العزيز يمكنك إضافة هي السطور للكود الأول قبل نهايته If Sheets(2).[D2] = "م" Then LstR.Offset(0, 3) = LstR.Offset(0, 2) LstR.Offset(0, 2).ClearContents End If ليصبح Sub compare_Sh1_2() Dim Acc(999) As Variant, LstR As Range Sheets(1).Activate lastRw1 = [B10000].End(xlUp).Row ' Save Existing Accounts in sheet1 For x = 3 To lastRw1 i = i + 1 Acc(i) = Range("B" & x).Value Next x ' Compare Existing Accounts with sheet2 lastRw2 = Sheets(2).[B10000].End(xlUp).Row For j = 3 To lastRw2 For x = 1 To i If Acc(x) = Sheets(2).Range("B" & j) Then GoTo 10 Next x Set LstR = Sheets(1).[B10000].End(xlUp).Offset(1, 0) Sheets(2).Range("B" & j & ":E" & j).Copy LstR.PasteSpecial Paste:=xlPasteValues LstR.Offset(0, -1) = LstR.Offset(-1, -1) + 1 If Sheets(2).[D2] = "م" Then LstR.Offset(0, 3) = LstR.Offset(0, 2) LstR.Offset(0, 2).ClearContents End If 10 Next j End Sub

السلام عليكم مازلت غير متأكد ولكن مارأيك في طريقة بسيطة كالتالي ضع أول صف يدوي وليكن بالترتيب من 1 إلي 10 تخيل انه لف لليسار أو اليمين خطوة واحدة فتكون خلية العمود الثاني في الصف الثاني هي نفسها خلية العمود الأول في الصف الأول وهكذا فتكون المعادلات في خلايا المصفوفة (كلها فيما عدا الصف الأول والعمود الأول) فتكون معادلة كل خلية تساوي دائما قيمة الخلية التي تسبقها 1صف ، 1 عمود إلا الصف الأول يدوي كما اتفقنا والعمود الأول قيمة خلاياه تساوي قيمة خلايا العمود الخير بفارق صف أنظر المرفق - ورقة 2 ارقام عشوائية بشرطينTareq.rar

السلام عليكم أخي الكريم المؤكد أن الكثير من الأعضاء يريد المساعدة ولكن (وأنا منهم) لايعلم كثيرا عن خطابات الضمان أنظر الملف المرفق ضع عليه أمثلة وطلبات كما تريد مع الشرح قليلا لكي تزيد من عدد المشاركين خطابات الضمان.rar

السلام عليكم أخي الكريم / فضل مازلت لم أفهم الفكرة الأساسية حتي الآن أنظر للحل اليدوي الذي أرسلته أنت ستجد أن العاشر والثاني مكررين في أول صفين وكذلك الثامن والعاشر في الصفوف 13-14 كما بالصورة لعلك تريد التبدايل وليست التوافيق أي أنه إذا كان تكرار الأرقام في بعض الأعمدة لايضر والمهم هو عدم تكرار الترتيبة ككل أو الأسهل تشرح لي بالضبط فيما تستخدم هذا وسيكون ايسر علي كل من يريد المشاركة

السلام عليكم أخي الكريم أضف هذه الإضافة للكود x = #10/1/2011# If Date > x Then Kill_Myself ليصبح Private Sub Kill_Myself() .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End Sub Option Explicit Private Sub Workbook_Open() Dim lInitialDate As Long On Error Resume Next lInitialDate = Evaluate("InitialDate") If Err.Number = 13 Then Me.Names.Add "InitialDate", Date, False Me.Save End If x = #10/1/2011# If Date > x Then Kill_Myself End Sub Private Sub Kill_Myself() .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End Sub

السلام عليكم جرب الصيغة x = #10/1/2012#

السلام عليكم أخي الشهابي الأفضل إرسال الملف

السلام عليكم أخي الكريم لون الصف 3 بلون والصف 9 بلون آخر وهذا الكود يجعل إرتفاع الصف 9 مرتبط دائما بإرتفع الصف 3 Private Sub Worksheet_SelectionChange(ByVal Target As Range) [AV1] = Rows("3:3").RowHeight Rows("9:9").RowHeight = [AV1] End Sub وطبعا تضعه في حدث الورقة

ولكني لم أنتبه لموضوع الـ ص / م اعتقد انك تستطيع إستكماله

السلام عليكم أخي العزيز أعلم ذلك فرياضيا لايمكن ان تستكمل العملية بعد العمود الثامن فأنت لاتريد التوافيق combination بين 20 رقم بل 10 ارقام مكررة من الأصل راجع العدد الأقصي للتوافيق الممكنة بدون تكراروالموجودة بالمعادلة التي بالخلية G24 إلي G32

السلام عليكم أخي الكريم جرب هذا الكود Sub compare_Sh1_2() Dim Acc(999) As Variant, LstR As Range Sheets(1).Activate lastRw1 = [B10000].End(xlUp).Row ' Save Existing Accounts in sheet1 For x = 3 To lastRw1 i = i + 1 Acc(i) = Range("B" & x).Value Next x ' Compare Existing Accounts with sheet2 lastRw2 = Sheets(2).[B10000].End(xlUp).Row For j = 3 To lastRw2 For x = 1 To i If Acc(x) = Sheets(2).Range("B" & j) Then GoTo 10 Next x Set LstR = Sheets(1).[B10000].End(xlUp).Offset(1, 0) Sheets(2).Range("B" & j & ":E" & j).Copy LstR.PasteSpecial Paste:=xlPasteValues LstR.Offset(0, -1) = LstR.Offset(-1, -1) + 1 10 Next j End Sub

السلام عليكم إذا كان الكود ليس ضروري أنظر الحل في المرفق بالمعادلات مع العلم أن عدد التوافيق الممكنة للرقم 10 مع 1 = 10 عدد التوافيق الممكنة للرقم 10 مع 2 = 45 عدد التوافيق الممكنة للرقم 10 مع 3 = 120 عدد التوافيق الممكنة للرقم 10 مع 4 = 210 عدد التوافيق الممكنة للرقم 10 مع 5 = 252 عدد التوافيق الممكنة للرقم 10 مع 6 = 210 عدد التوافيق الممكنة للرقم 10 مع 7 = 120 عدد التوافيق الممكنة للرقم 10 مع 8 = 45 عدد التوافيق الممكنة للرقم 10 مع 9 = 10 تفضل المرفق TAREQارقام عشوائية.rar

السلام عليكم الآن يمكنني رفع الملفات تفضل الملف ترحيل وورقة جديدة.rar

السلام عليكم في المرفق غير الخلية B35 الصفراء - فونت أحمر وسيتغير بالمعادلات العمود B من B1:B31 جرب وأرجو أن يكون هذا ماتريد reqired_Tareq.rar

السلام عليكم ، لايوجد ملف أنظر هذه 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

السلام عليكم اخى الكريم غيرت لك المعادلة التي بالعمود G لتكون أكثر شمولا وتكون معتمدة علي البيانات في ورقة home فقط ولتجنب إعتمادها علي الورقات التالية وبفرض أن التاريخ طبعا مسجل بالترتيب من الأصغر للأكبر تم عمل كود الترحيل لورقة العميل وإنشاء ورقة جديدة إن لم يكن للعميل ورقة من قبل وذلك عن طريق عمل ورقة ثابتة بالملف إسمها Sample مخفية وفي حالة إن لم يكن للعميل ورقة من قبل ، نظهر تلك الورقة ونأخذ منها نسخة في آخر الملف ونضع في النسخة إسم العميل في الخلية B2 ثم نعيد إخفاء الورقة Sample فضلت الإحتفاظ بالبيانات بعد ترحيلها (عدم مسحها من ورقة home بعد ترحيلها) مع إضافة تنبيه أن هذا البيان سبق ترحيله (إن وجد هذا) هذا هو الكود Sub Shift() Dim CL_Name(999), Inv_Num(999), In_Date(999), In_Amnt(999) As Variant Worksheets("home").Select Reg_No = [C10000].End(xlUp).Row - 3 [C10000].End(xlUp).Select '============== READ DATA ============= For i = 1 To Reg_No CL_Name(i) = Range("C" & i + 3).Value Inv_Num(i) = Range("D" & i + 3).Value In_Date(i) = Range("E" & i + 3).Value In_Amnt(i) = Range("F" & i + 3).Value Next i '______________________________________________ For qq = 1 To Reg_No x = Worksheets.Count ' ============= Write Data =============== For i = 1 To x If Worksheets(i).Name = CL_Name(qq) Then GoTo 100 Next i add_n_sht (CL_Name(qq)) 'In case no sheets in this name 100 Worksheets(CL_Name(qq)).Select Last_R = [A10000].End(xlUp).Row + 2 For j = 6 To Last_R If Range("A" & j).Value = Inv_Num(qq) And Range("B" & j).Value = In_Date(qq) Then ' Check Previous Data MsgBox ("هذا اليان برقم الفاتورة " & Inv_Num(qq) & Chr(10) & "والتاريخ" & _ In_Date(qq) & Chr(10) & "، سبق تسجيله من قبل " & Chr(10) & " لايمكن إعادة التسجيل") GoTo 150 End If Next j [A10000].End(xlUp).Select ActiveCell.Offset(1, 0).Value = Inv_Num(qq) ActiveCell.Offset(1, 1).Value = In_Date(qq) If Inv_Num(qq) = "توريد نقدية" Then ActiveCell.Offset(1, 3).Value = In_Amnt(qq) Else ActiveCell.Offset(1, 2).Value = In_Amnt(qq) End If 150 Next qq Sheets("home").Select End Sub Function add_n_sht(n_acc) x = Worksheets.Count Sheets("Sample").Visible = True Sheets("sample").Select 'in case no sheets in this name Sheets("sample").Copy after:=Sheets(x) ActiveSheet.Name = n_acc [B2].Value = n_acc Sheets("Sample").Visible = False End Function بقي موضوع الرابط التشعبى لم أجد الوقت لضبطه تفضل المرفق أيضا وبه الكود يبدو ان الرفع به مشكلة بالمنتدي تجد المرفق علي الرابط http://www.4shared.com/file/rhOE3jNs/___online.html

السلام عليكم نعم تنفع بالتأكيد لأي منحني من الدرجة الثانية ، الثالثة ن .. إلي السادسة وتنفع أيضا للمنحنيات الأخري التي يقترب شكلها من أي من تلك المنحنيات في أي مرحلة منها أنا قلت تقريبية لأنك كما فهمت لاتعلمين أصل المنحني فإذا كنت تعلمين مثلا أن المعادلة المفروضة علي علاقة مثلا بالجذر التكعيبي للسينات أو بلوغاريتم كذا أو أي من الدوال الهندسية فلابد أن تعرفي اولا الدالة أو المعادلة التي ينتمي لها المنحني ثم يكون هناك حل رياضي ومن ثم نستخدم الإكسل كأداة مساعدة