onlymanly قام بنشر مارس 9, 2010 مشاركة قام بنشر مارس 9, 2010 السلام عليكم و رحمة الله .. انقطعت عن المنتدى لفترة و السبب اني ظللت اقلب المواقع الأجنبية ...المعنية بالإكسل فأتيت باالكثير الطيب و لكن لم يتنسى لي بعد تجهيزها و سأطرح ما وجدت هنا في مووضوع مستقل ليستفيد منه الإخوة الفضلا ... قبل هذا عندي استفسار وهو: عندي ورقة حساب عبارة عن فاتورة , طبعاو فيها تنسيق صف واحد كوضع معادلات و تنسيق العملة و تنسيق الخلايا مثل الحدود و الخط و ما شابه . و هناك خلايا أو اعمدة مخفية فلو جئت أنسخ الخلايا المخفيتة لحد افتراضي كبير بحيث يشمل حاجتي من الأصناف بيكون العبء ع حجم الملف.. هل من كود معين ينسخ كل تنسيق الصف من أول خلية إلى اخر خلية بمجرد الانتهاء من ادخال بيانات الصف الأول؟. دونكم مرفق.. و الله يرعاكم رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مارس 9, 2010 مشاركة قام بنشر مارس 9, 2010 السلام عليكم استخدم الكود التالي: Sub KH_FillDown() Dim Last As Long Last = Range("A" & Rows.Count).End(xlUp).Row + 1 On Error Resume Next With Rows(Last) .FillDown .SpecialCells(xlConstants).ClearContents End With On Error GoTo 0 End Sub وهو يعتمد على اخر خلية في العمود A يضيف صف مع المعادلات فقط ويمسح القيم INVOICE.xls 2 رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر مارس 9, 2010 مشاركة قام بنشر مارس 9, 2010 السلام عليكم أستاذنا الفاضل : خبور الخير يضيف صف مع المعادلات فقط ويمسح القيم ماذا لو أردنا أن يضيف الكود عدد من الصفوف محدد بقيمة في خلية ما في صفحة أخرى غير التي نعمل عليها؟؟؟؟ أدامك الله نهرا للمعرفة و العلم دمت بخير رابط هذا التعليق شارك More sharing options...
onlymanly قام بنشر مارس 9, 2010 الكاتب مشاركة قام بنشر مارس 9, 2010 مشكور جدا يا وجه الخير ,, أفادني جدا بارك الله فيك .. لكن أتسائل هل يمكن ان يكون تلقائيا من غير تشغيل مايكرو.؟ بمعنى إذا اكتملت بيانات الصف المحدد ينفتح صف اخر بنفس التنسيقات للصف اللي فوقه و هكذا سواء كان صفوف مخفية ام لا. رابط هذا التعليق شارك More sharing options...
onlymanly قام بنشر مارس 9, 2010 الكاتب مشاركة قام بنشر مارس 9, 2010 أستاذي خبور خير معليش من باب نافلة الفائدة : عندي خليتان : المفترض أن لا تتم ا لكتابة إلا على واحدة منهمافقط ... هل من حل استاذي ؟. و بارك الله فيك رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مارس 9, 2010 مشاركة قام بنشر مارس 9, 2010 السلام عليكم ماذا لو أردنا أن يضيف الكود عدد من الصفوف محدد بقيمة في خلية ما في صفحة أخرى غير التي نعمل عليها؟؟؟؟ استخدم مثلا الكود التالي: Sub KH_Copy() On Error Resume Next Dim Last As Long Dim Count As Integer Count = 1 Count = Sheets("KHBOOR").Range("F9").Value With ActiveSheet Last = .Range("A" & .Rows.Count).End(xlUp).Row .Rows(Last).Copy .Rows(Last + 1).Resize(Count) .Rows(Last + 1).Resize(Count).SpecialCells(xlConstants).ClearContents End With On Error GoTo 0 End Sub شاهد المرفق KH_COPY.rar أفادني جدا بارك الله فيك .. لكن أتسائل هل يمكن ان يكون تلقائيا من غير تشغيل مايكرو.؟ بطريقتين: 1- يدويا حدد اول صف فاضي آخر البيانات واضغط CTRL+D كذا حتضيف صف مثل الصف اللي فوقه مباشرة بالقيم والمعادلات وعليك تغيير القيم الجديدة 2- بالكود عن طريق زر او بحدث معين من احداث الورقة عندي خليتان : المفترض أن لا تتم ا لكتابة إلا على واحدة منهمافقط ... ممكن بقاعدة التحقق من الصحة او بالكود. رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مارس 10, 2010 مشاركة قام بنشر مارس 10, 2010 الاستاذ و الاخ الغالى / خبور خير و الله ما وجدت لك موضوع او مشاركة الا و كان بها خير فعلا بارك الله فيك و جعلك دوما عونا للمسلمين و جزاك عنا خير الجزاء رابط هذا التعليق شارك More sharing options...
onlymanly قام بنشر مارس 10, 2010 الكاتب مشاركة قام بنشر مارس 10, 2010 لله درك خبور الخير.. لك الأجر إن شاء الله و الشكر موصول لك رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر مارس 10, 2010 مشاركة قام بنشر مارس 10, 2010 السلام عليكم رائعة من روائعك التي لا تنتهى أستاذ خبور بارك الله فيك وزادك علما وفضلا وعملا رابط هذا التعليق شارك More sharing options...
serag777 قام بنشر مارس 13, 2010 مشاركة قام بنشر مارس 13, 2010 شكرا لك أخي الكريم ... بارك الله فيك ... تحياتي . رابط هذا التعليق شارك More sharing options...
محمد بولاقي قام بنشر مارس 13, 2010 مشاركة قام بنشر مارس 13, 2010 جزاك الله كل خير اخي رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر مارس 14, 2010 مشاركة قام بنشر مارس 14, 2010 أخي العزيز إضافة لحل أخي الحبيب خبور المتميز وتحقيقاً لرغبتك في أن تكون عملية إضافة الصف تلقائياً بدون زر بمجرد الانتهاء من إدخال آخر معلومة عن الصنف وهي السعر بالعمود D فهذا حل آخر يعتمد هذه الفكرة فعند وضعك للسعر يتم إضافة صف جديد أسفل الصف النشط بنفس التنسيق والمعادلات وبدون بيانات ويقف بخلية كود الصنف بالصف الجديد وهذا إثراء للموضوع الذي يهم شريحة كبيرة من مستخدمي هذا النوع من تطبيقات الإكسيل أرجو أن تكون مفيدة والشكر موصول لأستاذي خبور . تحياتي أبو عبدالله INVOICE-1.rar رابط هذا التعليق شارك More sharing options...
أبو عبد الرحمن سعيد قام بنشر نوفمبر 10, 2013 مشاركة قام بنشر نوفمبر 10, 2013 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
عمرو.محمد قام بنشر أبريل 11, 2014 مشاركة قام بنشر أبريل 11, 2014 ممكن اعرف منك يا استاذ خبور كيفيه عمل هذه الفكرة لكن كما فى برنامجك الاصدار الثالث فى صفحة القيود رابط هذا التعليق شارك More sharing options...
سموالشوق قام بنشر أبريل 11, 2014 مشاركة قام بنشر أبريل 11, 2014 بارك الله فيك وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.