abada mahdy قام بنشر نوفمبر 1, 2006 قام بنشر نوفمبر 1, 2006 اساتذتى الكرام السلام عليكم ورحمة الله وبركاته ارجو تصحيح هذا الكود ()Sub Button9_Click For Each c In Worksheets("Sheet1").Range("A1:F50000").Cells If [A1] = 40 And [C1] = 45 And [E1] = 75 Then B1].Value = 40] D1].Value = 50] F1].Value = 64] ElseIf [A1] = 49 And [C1] = 48 And [E1] = 40 Then B1].Value = 50] D1].Value = 50] F1].Value = 40] Else B1].Value = A1] D1].Value = B1] F1].Value = E1] End If Next End Sub
علي السحيب قام بنشر نوفمبر 1, 2006 قام بنشر نوفمبر 1, 2006 يتم وضع الكود التالي في الموديول الخاص بالصفحة التي يتم إدخال البيانات بها. Private Sub Worksheet_Change(ByVal Target As Range) TA = Target.Address If TA = "$A$1" Or TA = "$C$1" Or TA = "$E$1" Then Application.SendKeys ("{Tab}") If [A1] = 40 And [C1] = 45 And [E1] = 75 Then [B1] = 40 [D1] = 50 [F1] = 64 ElseIf [A1] = 49 And [C1] = 48 And [E1] = 40 Then [B1] = 50 [D1] = 50 [F1] = 40 Else [B1] = [A1] [D1] = [C1] [F1] = [E1] End If End If End Sub شاهد المرفق، IF_Function_2.rar
abada mahdy قام بنشر نوفمبر 2, 2006 الكاتب قام بنشر نوفمبر 2, 2006 (معدل) استاذى الفاضل على حسين السلام عليكم ورحمته وبركاته شكرا لك وزادك الله علما وبارك فيك اريد ان يتكرر الكود على الخلايا A1 : F24 وياريت تشرح لى الاربع اسطر الاولى من الكود شاهد المرفق IF_Function_3.rar تم تعديل نوفمبر 3, 2006 بواسطه علي السحيب
علي السحيب قام بنشر نوفمبر 3, 2006 قام بنشر نوفمبر 3, 2006 المرفق يحتوي على طريقتين بدل طريقة واحدة لتنفيذ ما أشرت إليه، الكود في الصفحة الأولى يحتوي على شرح ما طلبته، شاهد المرفق، IF_Function_2.rar
abada mahdy قام بنشر نوفمبر 3, 2006 الكاتب قام بنشر نوفمبر 3, 2006 استاذى الفاضل/ على حسين شكرا على عطائك الجياش واسأل الله أن لا يحرمنا من علمك وعطاءك وبارك الله فيك وفى اهلك ومالك وولدك وزادك الله علما الى علمك واسأل الله أن يجعل عطائك فى ميزان حسناتك أنت وأمثالك فى هذا المنتدى الأكثر من رائع واتوجه بالشكر الى القائمين على هذا المنتدى العظيم تحية اعزاز وتقدير للجميع عباده مهدى
abada mahdy قام بنشر نوفمبر 3, 2006 الكاتب قام بنشر نوفمبر 3, 2006 استاذى الفاضل : على حسين انت كده قفلت على الخلايا وانا بدى اتوسع فى التطبيق 50 عمود مثلا 4000 صف وياريت عمل زر لبدء عمل الكود وشكرا استاذى الفاضل
علي السحيب قام بنشر نوفمبر 3, 2006 قام بنشر نوفمبر 3, 2006 شاهد المرفق، شاهد المرفق، IF_Function_in_VBA__2_.rar
abada mahdy قام بنشر نوفمبر 4, 2006 الكاتب قام بنشر نوفمبر 4, 2006 استاذى الفاضل/ علي حسين السحيب أنت رجل والرجال قليل ( من المؤمنين رجال صدقوا ما عاهدوا الله عليه ) أسأل الله الكريم رب العرش العظيم أن يجعلك منهم ( إن لله عباداً اختصهم بقضاء حوائج الناس،حببهم إلىالخير،وحبب الخير إليهم،هم الآمنون من عذاب الله يوم القيامة ) أسأل الله أن يجعلك من الآمنون من عذاب الله يوم القيامة واسمح لى أن أجدك كلما احتجت اليك شكرا استاذى الفاضل/ علي حسين السحيب عباده مهدى
الردود الموصى بها