toukhy قام بنشر أكتوبر 30, 2012 قام بنشر أكتوبر 30, 2012 الاخوة الكرام مرفق ملف به معادلات ارغب فى تحويلها بكود وتعمل بزر واحد وارجو التكرم علينا من الاساتذة الكرام Book1.rar
toukhy قام بنشر نوفمبر 6, 2012 الكاتب قام بنشر نوفمبر 6, 2012 (معدل) الاساتذة الكرام جبور وعمالقة الاكواد فى اعز منتدى الى قلوبنا اليس هناك من مجيب على موضوعى هذا انا فعلا زعلان زعلان زعلان :mad: :mad: تم تعديل نوفمبر 6, 2012 بواسطه toukhy
أبو حنــــين قام بنشر نوفمبر 6, 2012 قام بنشر نوفمبر 6, 2012 جرب هذا الكود Private Sub CommandButton1_Click() For s = 4 To 4500 If Range("H1").Value = Cells(s, 5).Value Then Cells(s, 8).Value = Cells(s, 7).Value Else Cells(s, 8).Value = "" End If If Range("H1").Value = Cells(s, 6).Value Then Cells(s, 9).Value = Cells(s, 7).Value Else Cells(s, 9).Value = "" End If If Range("j1").Value = Cells(s, 5).Value Then Cells(s, 10).Value = Cells(s, 7).Value Else Cells(s, 10).Value = "" End If If Range("j1").Value = Cells(s, 6).Value Then Cells(s, 11).Value = Cells(s, 7).Value Else Cells(s, 11).Value = "" End If Next End Sub
الـعيدروس قام بنشر نوفمبر 6, 2012 قام بنشر نوفمبر 6, 2012 السلام عليكم او هكذا في حدث الورقة Private Const A_1 As String = "$H$1" Private Const A_2 As String = "$j$1" Private Sub Worksheet_Change(ByVal Target As Excel.Range) On Error Resume Next Dim R1 As Range Set R1 = Range("E4:E4500,F4:F4500,G4:G4500") '****************************************** If Not Intersect(Target, R1) Is Nothing Then R = Target.Row If Val(Range(A_1)) = Val(Cells(R, 5)) Then Cells(R, 8) = Cells(R, 7) Else Cells(R, "H") = "" End If If Val(Range(A_1)) = Val(Cells(R, 6)) Then Cells(R, 9) = Cells(R, 7) Else Cells(R, "I") = "" End If If Val(Range(A_2)) = Val(Cells(R, 5)) Then Cells(R, 10) = Cells(R, 7) Else Cells(R, "J") = "" End If If Val(Range(A_2)) = Val(Cells(R, 6)) Then Cells(R, 11) = Cells(R, 7) Else Cells(R, "K") = "" End If End If End Sub
toukhy قام بنشر نوفمبر 7, 2012 الكاتب قام بنشر نوفمبر 7, 2012 انا فعلا شاكر لكل من تجاوب مع الموضوع الخاص بى وعارف ان اغلى منتدى عندى به ابطال لن يخذلونى واتمنى من الله العلى القدير التوفيق لكم جميعا وانا بجرب الاكواد وانا فعلا رايت فيها من الجودة اعلى مما توقعت ولكن جارى التجريب . الاخوة عندى طلب اخر وسوف ارفق ملف به طلب تحويل دالة sumifالى كود ووضع الدالة عايزة ايضا على عامودين متجاورين كما فى المرفق ولكم جزيل الشكر Book1.rar
مرعى السيد قام بنشر نوفمبر 7, 2012 قام بنشر نوفمبر 7, 2012 تفضل يا أخى بنفس الطريقة السابقة Book1.rar
toukhy قام بنشر نوفمبر 7, 2012 الكاتب قام بنشر نوفمبر 7, 2012 الاستاذ مرعى السيد وجميع اساتذة المنتدى لكم جزيل الشكر على ماتفعلوه وما فعلتموه وانا فعلا سعيد جدا بالاستاذ مرعى السيد على سرعة الرد وجزاه الله خيرا والمطلوب هو مافعله بالضبط وشكرا واسأل الاستاذ مرعى هل كل الدوال يتم التعامل معها بنفس الطريقة ولو فيه اى كتب او مذكرات بخصوص الاكواد رجاء مساعدتى بها وشكرا لسعادتكم
مرعى السيد قام بنشر نوفمبر 7, 2012 قام بنشر نوفمبر 7, 2012 Sub marey() Dim rng As Range Set rng = Sheets("Sheet1").Range("h3:h4500") With rng .Formula = "copy" .Value = .Value End Sub هذا الكود يتم وضعة فى موديول ثم يتم نسخ المعادلة من الخلية بما فيها علامة = ووضعها بدلا من كلمة copy الموجودة بين علامتين تنصيص مع مرعاة تبديل ; بـ , و " بـ "" ثم يتم تحديد اسم الورقة الموجود بها المعادلات ويتم تحديد المجال لهذة المعادلة وتتم هذة الطريقة على جميع المعادلات أما بالنسبة للكتب والمحاضرات ابحث فى المنتدى جيدا سوف تجد أن شاء الله ما تريدة من دوارات وفيديو متعلق بالأكواد وشكرا لك على ذوقك الرفيع
toukhy قام بنشر نوفمبر 7, 2012 الكاتب قام بنشر نوفمبر 7, 2012 استاذ مرعى السيد انا فعلا مش قادر اوصفلك سعادتى بالتعرف على الشخصيات المصرية العملاقة مثلك وسرعة استجابتك تدل على نبل اخلاقكم وفعلا محتاج اتعلم من حضرتك الكثير ودلنى على الطريق الصحيح فى الاكواد وشكرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.