الشيباني1 قام بنشر مارس 13, 2011 مشاركة قام بنشر مارس 13, 2011 اخواني الاعزاء تحية طيبه في المرفق خلايا مؤشره باللون الاصفر تتضمن معادلات اتساءل عن امكانية الاستعاضة عنها باكواد لغاية المدى (10000) ابتعادا عن امكانية تغييرها ورغبة بتطوير البرنامج الذي اعمل عليه وهربا" من الفضوليين مع تقديري وشكري سلفا" معادلات الى اكواد.zip رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر مارس 15, 2011 الكاتب مشاركة قام بنشر مارس 15, 2011 اخواني الاعزاء تحية طيبه لا اعرف ان كان هناك خلل او خطأ في الموضوع او المرفق لتتم معالجته من قبلي او تعديله فأنا ارى الكثير من الطلبات المشابهه وتم ايجاد الحلول الرائعه لها مع تقديري رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 15, 2011 مشاركة قام بنشر مارس 15, 2011 السلام عليكم أخي العزيز معظم الإخوة ، وأنا منهم، ليس لديهم الوقت الكثير لذلك يستحب تقليل الجهد المطلوب قدر الإمكان ليعطي السائل فرصة لهم للمساهمة ويعطي نفسه فرصة لتمام عمله بيده أخي الحبيب في الكود التالي حل لأحد الخلايا الصفراء A5 - A1000 وتعمدت كتابته بطريقة بسيطة ومطولة بعض الشيء ليمكنك من عمل البقي علي نفس المنوال حاول وأخبرنا النتيجة وسيحاول معك الكثير من الإخوة تفضل الكود Sub chg2code() 'Cell A5 In EXCEL : = IF(E5="","",IF(D5<>"",A4+1,A4)) For i = 5 To 10000 ' أرقام الأسطر التي تريد المعادلات فيها If Range("E" & i).Value = "" Then Range("A" & i).Value = "" Else If Range("D" & i).Value <> "" Then Range("A" & i).Value = Range("A" & i - 1).Value + 1 Else Range("A" & i).Value = Range("A" & i - 1).Value End If End If Next i End Sub رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر مارس 15, 2011 الكاتب مشاركة قام بنشر مارس 15, 2011 استاذنا الكريم اشكركم على اهتمامكم وانا مقدر كل جهد خير في هذا المنتدى الرائع الذي لولاه لما عرفنا ما يخبئه الاكسل من اسرار ولكنا في خبر كان عما يحصل من تقدم وما طلبت اعلم انه يأخذ من وقتكم اكثر مما ينبغي واتمنى ان يسع وقتكم لواحدة من المعادلات يوميا" او تعريفي بكيفية اجراء تعديل على كودكم الرائع بشكل اكثر وضوحا" جزاكم الرحمن كل خير وابقاكم لنا مرجعا رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 15, 2011 مشاركة قام بنشر مارس 15, 2011 السلام عليكم أخي الكريم للتأكيد علي الفكرة ، مرفق شرح للكود سطر بسطر قد يكون الأسرع ان أعمل لك ماتريد ولكني أصر علي أن تحاول بنفسك وستفاجا بالنتيجة وسيتدخل الكثير من الإخوة لأن الأسئلة ستكون صغيرة وفي نقاط محددة أنظر المرفق شرح الكود.rar رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر مارس 15, 2011 الكاتب مشاركة قام بنشر مارس 15, 2011 استاذي العزيز اشكرك جدا على هذا الايضاح وارجو المساعده في تحويل المعادلتين في (K5 و I5 ) فقط ليتم الاعتماد عليهما في اكمال المتبقي مع الامتنان رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 17, 2011 مشاركة قام بنشر مارس 17, 2011 السلام عليكم تفضل أخي الكود المطلوب مع ملاحظة بالطبع أنه يجب ان يكون بالملف نطاق إسمه NO. وايضا نطاق إسمه prices حتي تعمل دوال VLOOKUP بلا مشاكل Sub chg2code() For i = 5 To 10000 ' أرقام الأسطر التي تريد المعادلات فيها '(1) Cell A5 In EXCEL : = IF(E5="","",IF(D5<>"",A4+1,A4)) If Range("E" & i).Value = "" Then Range("A" & i).Value = "" Else If Range("D" & i).Value <> "" Then Range("A" & i).Value = Range("A" & i - 1).Value + 1 Else Range("A" & i).Value = Range("A" & i - 1).Value End If End If '(2) Cell I5 In EXCEL:= IF(AND(COUNTIF($A$5:A5,A5)=1,A5<>""),SUMIF($A$5:$A$10000,A5,$H$5:$H$10000),"") If WorksheetFunction.CountA(Range("A5:A" & i)) = 1 And Range("A" & i) <> "" Then Range("I" & i).Value = WorksheetFunction.SumIf(Range("A5:A1000"), Range("A" & i), Range("H5:H1000")) Else Range("I" & i).Value = "" End If '(3) Cell K5 In EXCEL:= =IF(J5<>"",VLOOKUP(J5,NO.,2,),"") If Range("J" & i) <> "" Then Range("K" & i).FormulaR1C1 = "=VLOOKUP(RC[-1],NO.,2,0)" Range("K" & i).Copy Range("K" & i).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Else Range("K" & i).Value = "" End If Next i End Sub رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مارس 17, 2011 مشاركة قام بنشر مارس 17, 2011 السلام عليكم الشكر واصل للاخ الحبيب طارق ولاثراء الموضوع لو نعمل المعادلات التي نريدها في صف معين ثم نخفي هذا الصف اما الكود ليس له علاقة بتغيير هذه المعادلات انما يقوم بنقلها الى الصفوف التي نريدها ثم يظهر قيم المعادلات فقط . نعمل الاعدادات بداية الكود: ======================================== ' النطاق المخفي الذي يحوي المعادلات Const MyRng As String = "A2:R2" ' اول صف للبيانات Const iRow As Integer = 5 ' آخر صف للبيانات Const LastRow As Long = 10004 ======================================== ممكن استخدام هذا الكود لنفس الغرض بشكل عام مع تغيير الاعدادات بداية الكود ======================================== المرفق اكسل 2003 معادلات الى اكواد.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.