skyblue قام بنشر يونيو 23, 2006 مشاركة قام بنشر يونيو 23, 2006 الاساتذة الافاضل : ارجزا التكرم بالاطلاع على الملف المرفق والتعديل عليه لانني فعلا عاجز عن الحل . ولكم خالص تحياتي رابط هذا التعليق شارك More sharing options...
حمدى قام بنشر يونيو 23, 2006 مشاركة قام بنشر يونيو 23, 2006 السلام عليكم الاخ العزيز skyblue استخدم دالة mid =(mid(b3,1,2 ثم استخدم if ارجو انني قد افدتك والسلام عليكم ورحمة الله رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر يونيو 24, 2006 مشاركة قام بنشر يونيو 24, 2006 شاهد المرفق، __________________________.rar رابط هذا التعليق شارك More sharing options...
خالد نور قام بنشر يونيو 24, 2006 مشاركة قام بنشر يونيو 24, 2006 اولا تحية كبيرة جدا لأستاذى على السحيب بارك الله فيه وبمشاركته المتعددة القوية جدا وحلولة التى تجىء بالضربة القاضية على المشكلات ولا أدرى لماذ هو مقل فى الفترة الاخيرة فى المشاركات اللهم بارك فى جميع القائمين على هذا المنتدى وجميع المشرفين والاعضاء والضيوف رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر نوفمبر 4, 2006 الكاتب مشاركة قام بنشر نوفمبر 4, 2006 اخوي علي يعطيك العافية هل بالامكان التكرم بعمل البرنامج عن طريق الكود . تحياتي لك ... رابط هذا التعليق شارك More sharing options...
أفضل إجابة علي السحيب قام بنشر نوفمبر 4, 2006 أفضل إجابة مشاركة قام بنشر نوفمبر 4, 2006 الكود التالي ينفذ ما تريد: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Target.Row > 2 And Target.Row < 8 Then For R = 3 To 7 If Left(Cells(R, 2), 2) = 65 Then Cells(R, 7) = 20 Else: Cells(R, 7) = 14 End If Next End If End Sub شاهد المرفق، __________________________.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها