عادل جلال قام بنشر سبتمبر 21, 2007 قام بنشر سبتمبر 21, 2007 الأخوة الأفاضل/ مراقبون - مشرفون - متميزون - اعضاء السلام عليكم ورحمة الله وبركاته كل عام وأنتم بخير لدى ملف به صفين متتاليين (الصف 11 ، الصف 12 ) يحتوى كل منهما على تنسيقات شرطية مختلفة وأود نسخ هذه التنسيقات إلى الصفوف التالية ( حتى الصف 88 ) بطريقة آلية ( ماكرو ) بارك الله فيكم Book.rar
ناصر سعيد قام بنشر سبتمبر 21, 2007 قام بنشر سبتمبر 21, 2007 (معدل) هذا الملف حقك جزء من كنترول شيت فهل يمكن ان ترفقه كاملا ؟ هذا طلب مثل طلبك للآخرين بمد يد العون لك فيعطيك الله على قدر نيتك الاخ ناصر سعيد تم تعديل سبتمبر 21, 2007 بواسطه nasersaeed
عادل جلال قام بنشر سبتمبر 21, 2007 الكاتب قام بنشر سبتمبر 21, 2007 السلام عليكم ورحمة الله وبركاته الأخ / ناصر سعيد ( إسلام على ) مشكور على مرورك هذا العمل لم يكتمل بعد بدليل طلب المساعدة وطلبى أن تدعوا الله لى أن أجد حل لطلبى السابق وغيره حتى يكون بين أيديكم فهو منكم وإليكم .......... رمضان كريم والله ولى التوفيق
ناصر سعيد قام بنشر سبتمبر 21, 2007 قام بنشر سبتمبر 21, 2007 لنرى مشاركاتك ومواضيعك وهي خير دليل على وجود شيت كنترول جمعت عناصره من برامج الاخوة وعندما طلبت منك هذا العمل الذي جمعته من افكار الاخوة وأخذت عناصره منهم قلت ان هذا العمل في المديرية ولايصح ان يخرج لاحد فكيف تقول لي انه بالمديرية وهنا تقول انه لم يكتمل سامحك الله اسلام على هذا هو ايميل ابني بارك الله له وللأخيار
عادل جلال قام بنشر سبتمبر 21, 2007 الكاتب قام بنشر سبتمبر 21, 2007 السلام عليكم العضو / ناصر سعيد ( إسلام على ) مرفق مستند يدل على صدق كلامى بان البرنامج منذ شهر 3/ 2007 مسلم للمديرية ولن أقعد مكتوف اليدين حتى الأن فلدى أفكار كل يوم فى تطويره خاصةَ وأننى أعمل بالكنترول منذ 17 عاماّ وأعتقد أن رسم فكرة العمل لاتقل عن تنفيذ العمل ولا أملك إلا أن أطلب من الله عز وجل أن يسامحك على إتهامك لى وأخيراّ حسبنا الله ونعم الوكيل Pict0001.rar
هادى محمد المامون سالم قام بنشر سبتمبر 21, 2007 قام بنشر سبتمبر 21, 2007 بسم الله الرحمن الرحيم أخى عادل جلال اخى nasersaeed اتمنى ان يكون فى الامر سوء فهم رمضان كريم يمكن استخدام الكود التالى لعدد الصفوف الذى تريده Sub MYPast() Dim MyRows, MyRows01 As Range Set MyRows = Union(Rows(11), Rows(12)) Application.ScreenUpdating = False For i = 13 To 88 Step 2 Application.DisplayAlerts = False Set MyRows01 = Union(Rows(i), Rows(i + 1)) MyRows.Copy MyRows01.Select MyRows01.PasteSpecial Paste:=xlPasteFormulas Application.DisplayAlerts = True Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub ملفك مرتبط ببيانات خارجيه فارفق لك ملف كمثال السلام عليكم
عادل جلال قام بنشر سبتمبر 22, 2007 الكاتب قام بنشر سبتمبر 22, 2007 السلام عليكم ورحمة الله وبركاته الأخ / هادى سالم بارك الله فيك عمل رائع وكنت أقصد نسخ التنسيقات الشرطية فقط من الصف الثالث إلى الصف الخامس ثم السابع وهكذا0000 و نسخ التنسيقات الشرطية من الصف الرابع إلى الصف السادس ثم الثامن وهكذا0000 وكنت أقوم بهذا التنسيق بشكل يدوى عن طريق تحديد الصفين الثالث والرابع ثم الضغط على الأيقونة الموجودة فى الشريط القياسى بشكل فرشاة والمسماة (format Painter ) ثم بالضغط مع السحب لكل الصفوف التالية المطلوبة وأود عمل ذلك عن طريق الماكرو أتمنى ألا أكون متعب لك رمضان كريم مرفق ملف يوضح ما أريد 2.rar
عبدالله باقشير قام بنشر سبتمبر 22, 2007 قام بنشر سبتمبر 22, 2007 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته هذا الكود ممكن استخدامه لنسخ التنسيقات للجميع ما عليكم التغيير في المتغيرات المعرفه في الكود المتغيرت معرفة داخل الكود الذي في الملف المرفق Sub KHBOOR() W = 88 M = 2 X = 10 N = (W - (X + M)) / M Application.ScreenUpdating = False Range("A11:CH12").Select Selection.Copy For E = 1 To N ActiveCell.Offset(2, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Next E Application.CutCopyMode = False Application.ScreenUpdating = True Application.GoTo [A11] End Sub
عادل جلال قام بنشر سبتمبر 22, 2007 الكاتب قام بنشر سبتمبر 22, 2007 السلام عليكم ورحمة الله وبركاته الأخ/ خبور بارك الله فيك وجعله فى ميزان حسناتك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.