Anwar قام بنشر مايو 20, 2004 مشاركة قام بنشر مايو 20, 2004 الاخوة الاعزاء السلام عليكم من المعروف لدينا ان التنسيق الشريطي يقوم بتنسيق النقش والحدود والخط ولكن لا يستطيع اضافة او كتابة نصوص عند تنيسق معين او مشروط طلبي هو كود يقوم بكتابة كلمة " هذة نهاية بيان الاسماء لهذا اليوم " وذلك عند اول خلية ينتهي عند بيان الاسماء ولتوضيح الطلب اكثر لدي جدول بة اكتب فية اسماء بعض العملاء واريد عند نهاية هذة الاسماء اضافة الجملة حاولت عمل الطريقة بواسطة الدالة IF ولكن طول السجلات قد يمر فوق الدالة IF الموجودة فوق الخلايا الشرط الاساسي في الكود هو ان تكون الخلايا العلوية فية ارقام اكبر من الصفر والخلية المراد الكتابة فية فارغة ارجو المساعدة وتقبلوا تحياتي وكل الشكر لكم رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر مايو 22, 2004 مشاركة قام بنشر مايو 22, 2004 بافتراض أن التطبيق سيتم علي العمود B Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = "2" Then Currcell = "B" & Trim(Str(Target.Row)) nextcell = "B" & Trim(Str(Target.Row + 1)) If Range(nextcell).Value = "" And Range(Currcell).Value <> "Last cell" Then Range(nextcell).Value = "Last cell" End If End If End Sub و الكود معد علي أساس أن الاسماء متصلة فى هذا العمود ، أي لا تترك خلايا خالية LastCell.rar رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر مايو 23, 2004 مشاركة قام بنشر مايو 23, 2004 - أكثر من رائع أستاذنا محمد طاهر ... رابط هذا التعليق شارك More sharing options...
Anwar قام بنشر مايو 23, 2004 الكاتب مشاركة قام بنشر مايو 23, 2004 كود مع مثال الف الف شكر استاذ محمد طاهر كل الكلمات مارايح ترد لكل حق بصراحة اكثر اكثر من رائع ربنا يخليك للمنتدي ولنا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها