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 رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر نوفمبر 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 رابط هذا التعليق شارك More sharing options...
abada mahdy قام بنشر نوفمبر 2, 2006 الكاتب مشاركة قام بنشر نوفمبر 2, 2006 (معدل) استاذى الفاضل على حسين السلام عليكم ورحمته وبركاته شكرا لك وزادك الله علما وبارك فيك اريد ان يتكرر الكود على الخلايا A1 : F24 وياريت تشرح لى الاربع اسطر الاولى من الكود شاهد المرفق IF_Function_3.rar تم تعديل نوفمبر 3, 2006 بواسطه علي السحيب رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر نوفمبر 3, 2006 مشاركة قام بنشر نوفمبر 3, 2006 المرفق يحتوي على طريقتين بدل طريقة واحدة لتنفيذ ما أشرت إليه، الكود في الصفحة الأولى يحتوي على شرح ما طلبته، شاهد المرفق، IF_Function_2.rar رابط هذا التعليق شارك More sharing options...
abada mahdy قام بنشر نوفمبر 3, 2006 الكاتب مشاركة قام بنشر نوفمبر 3, 2006 استاذى الفاضل/ على حسين شكرا على عطائك الجياش واسأل الله أن لا يحرمنا من علمك وعطاءك وبارك الله فيك وفى اهلك ومالك وولدك وزادك الله علما الى علمك واسأل الله أن يجعل عطائك فى ميزان حسناتك أنت وأمثالك فى هذا المنتدى الأكثر من رائع واتوجه بالشكر الى القائمين على هذا المنتدى العظيم تحية اعزاز وتقدير للجميع عباده مهدى رابط هذا التعليق شارك More sharing options...
abada mahdy قام بنشر نوفمبر 3, 2006 الكاتب مشاركة قام بنشر نوفمبر 3, 2006 استاذى الفاضل : على حسين انت كده قفلت على الخلايا وانا بدى اتوسع فى التطبيق 50 عمود مثلا 4000 صف وياريت عمل زر لبدء عمل الكود وشكرا استاذى الفاضل رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر نوفمبر 3, 2006 مشاركة قام بنشر نوفمبر 3, 2006 شاهد المرفق، شاهد المرفق، IF_Function_in_VBA__2_.rar رابط هذا التعليق شارك More sharing options...
abada mahdy قام بنشر نوفمبر 4, 2006 الكاتب مشاركة قام بنشر نوفمبر 4, 2006 استاذى الفاضل/ علي حسين السحيب أنت رجل والرجال قليل ( من المؤمنين رجال صدقوا ما عاهدوا الله عليه ) أسأل الله الكريم رب العرش العظيم أن يجعلك منهم ( إن لله عباداً اختصهم بقضاء حوائج الناس،حببهم إلىالخير،وحبب الخير إليهم،هم الآمنون من عذاب الله يوم القيامة ) أسأل الله أن يجعلك من الآمنون من عذاب الله يوم القيامة واسمح لى أن أجدك كلما احتجت اليك شكرا استاذى الفاضل/ علي حسين السحيب عباده مهدى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها