عماراللهيبي قام بنشر فبراير 20, 2015 قام بنشر فبراير 20, 2015 السلام عليكم . اخواني عندي 700 صف في جدول اكسل وبها اسماء اريد ان اترك صف فارغ بين كل صفين
ياسر خليل أبو البراء قام بنشر فبراير 20, 2015 قام بنشر فبراير 20, 2015 أخي الفاضل رغم إني مش من أنصار اللي بيسألوا أو يطلبوا من غير ملف مرفق .. إليك هذا الملف عله يفي بالغرض Insert Blank Row After Each Two Rows.rar
عماراللهيبي قام بنشر فبراير 20, 2015 الكاتب قام بنشر فبراير 20, 2015 السلام عليكم .. اخي العزيز ياسر بارك الله فيك وفي علمك 1
سليم حاصبيا قام بنشر فبراير 20, 2015 قام بنشر فبراير 20, 2015 بعد اذن الاخ ياسر يمكنك استعمال هذا الكود: Sub InsertRows() i = 3 Do While Cells(i, 1) <> "" Rows(i).Insert i = i + 3 Loop End Sub 1
عماراللهيبي قام بنشر فبراير 21, 2015 الكاتب قام بنشر فبراير 21, 2015 أخي الفاضل رغم إني مش من أنصار اللي بيسألوا أو يطلبوا من غير ملف مرفق .. إليك هذا الملف عله يفي بالغرض السلام عليكم اخي العزيز بعد الشكر الجزيل الذي اريده هو .. عندي راتب 700 موظف .. واردت ان يكون شريط بمفردات الراتب لكل موظف ..يعني ورقة بتفاصيل الراتب يستلمها الموظف مع الراتب. فوجدت مشكلة اخرى وهي رؤوس الجدول ستكون لاول موظف فقط راجيا من جنابكم الكريم مساعدتي وارفق نموذج بسيط وليس الحقيقي راتب.rar
ياسر خليل أبو البراء قام بنشر فبراير 21, 2015 قام بنشر فبراير 21, 2015 أخي الفاضل عمار أفضل أن تطرح شكل النتائج المرجوة في ورقة عمل مستقلة ... مهم جدا شكل المخرجات؟؟!!! .. هل الموظفين سيتم طباعتهم كل موظف في ورقة مستقلة أم أن الورقة يمكن أن تطبع بها عدد محدد ؟؟ شكل المخرجات في ورقة مستقلة سيسهل الوصول لحل سريع ... ونعتذر عن الحلول المقدمة مسبقا والتي لا تناسبك .. ولكن ربما تفيد شخص آخر
KHMB قام بنشر فبراير 21, 2015 قام بنشر فبراير 21, 2015 (معدل) السلام عليكم ورحمة الله حسب ردك ان مشكلتك في رؤوس الجدول فقط أي العناوين اخي استخدم تجميد العنوان إن شاء الله يفي بالغرض الراتب تجميد العنوان.rar تم تعديل فبراير 21, 2015 بواسطه KHMB
عماراللهيبي قام بنشر فبراير 21, 2015 الكاتب قام بنشر فبراير 21, 2015 السلام عليكم ورحمة الله حسب ردك ان مشكلتك في رؤوس الجدول فقط أي العناوين اخي استخدم تجميد العنوان إن شاء الله يفي بالغرض السلام عليكم اخي الحبيب . اشكرك على مساعتدتي.. المشكلة التي عندي ساذكرها بالتفصيل وارجو ان يكون شرح واضح ... عندي اسماء 700 موظف موجودة في شيت واحد وعند طباعتاها يكون كل 30 موضف في صفحة واحدة .. ياتي الموظف يوقع امام اسمه ويمشي وبعد ساعه يجيني واحد يكول ليش ( ليه بالمصري ) راتبي بيه نقص وياتي اخر واخر وتكثر الاسئلة ... فالذي اريده هو اطبع مفردات كل عشرة موظفين بورقة واقصها واعطيها للموظف حتى يعرف تفاصيل راتبه .. وهذه كل الحكاية اريد كل موظف بجدول لوحدة ..
عماراللهيبي قام بنشر فبراير 21, 2015 الكاتب قام بنشر فبراير 21, 2015 السلام عليكم ورحمة الله حسب ردك ان مشكلتك في رؤوس الجدول فقط أي العناوين اخي استخدم تجميد العنوان إن شاء الله يفي بالغرض السلام عليكم اخي الحبيب . اشكرك على مساعتدتي.. المشكلة التي عندي ساذكرها بالتفصيل وارجو ان يكون شرح واضح ... عندي اسماء 700 موظف موجودة في شيت واحد وعند طباعتاها يكون كل 30 موضف في صفحة واحدة .. ياتي الموظف يوقع امام اسمه ويمشي وبعد ساعه يجيني واحد يكول ليش ( ليه بالمصري ) راتبي بيه نقص وياتي اخر واخر وتكثر الاسئلة ... فالذي اريده هو اطبع مفردات كل عشرة موظفين بورقة واقصها واعطيها للموظف حتى يعرف تفاصيل راتبه .. وهذه كل الحكاية اريد كل موظف بجدول لوحدة .. السلام عليكم اخي العزيز ..اني ادعو الله ليس لك ... بل لي .. ادعوه أن يمن علي باخلاق كأخلاقك اخي الفاضل .. الاسماء 700 واطبع مثلا كل 30 اسم في ورقة وفي كل ورقة اعلاها رأس الجدول ويوقع الموظف ويمشي ..الذي اريده ان يكون لكل موظف جدول خاص به .. يعني على شكل قصصات ياخذها مع الراتب ... يعني في هذه الحالة تكون الورقة تكفي مثلا 10 موظفين .. بعد الشكر لك ولغيرك من الاعضاء .. متكلمنيش باسلوب ( مخرجات ) لاني لست صاحب تخصص بل لااعرف من الاكسل الا عشرة دوال فقط ... ولله الحمد اريد الراتب يكون بهذا الشكل.rar
ياسر خليل أبو البراء قام بنشر فبراير 21, 2015 قام بنشر فبراير 21, 2015 الأخ الفاضل عمار ما قصدته بالمخرجات أي شكل النتائج المرجوة بعد تنفيذ الأكواد ..وقد تفضلت بطرح شكل النتائج في مشاركتك الأخيرة تفضل الملف التالي ..بعد الضغط على زر الأمر سيقوم الكود بنسخ الصف الذي به العناوين قبل كل اسم ..بعدها يمكنك تغيير ارتفاع الصفوف لتجعل الطباعة تطبع 10 موظفين في كل ورقة .. Salary Copy Title For Each Name.rar 1
عماراللهيبي قام بنشر فبراير 21, 2015 الكاتب قام بنشر فبراير 21, 2015 الأخ الفاضل عمار ما قصدته بالمخرجات أي شكل النتائج المرجوة بعد تنفيذ الأكواد ..وقد تفضلت بطرح شكل النتائج في مشاركتك الأخيرة تفضل الملف التالي ..بعد الضغط على زر الأمر سيقوم الكود بنسخ الصف الذي به العناوين قبل كل اسم ..بعدها يمكنك تغيير ارتفاع الصفوف لتجعل الطباعة تطبع 10 موظفين في كل ورقة . السلام عليكم ... جزيت خيرا وكفيت شرا .. واكمل ماتكرمت به واشرح لي الكود واكون شاكرا ممتنا ... واعانك الله على امثالي بالصبر ... ودعوا لك بحسن الخاتمة .. ولله الحمد 1
عماراللهيبي قام بنشر فبراير 21, 2015 الكاتب قام بنشر فبراير 21, 2015 بعد اذن الاخ ياسر يمكنك استعمال هذا الكود: Sub InsertRows() i = 3 Do While Cells(i, 1) <> "" Rows(i).Insert i = i + 3 Loop End Sub السلام عليكم الف الف شكر لك ولكل من يتكرم علينا بالمساعدة
ياسر خليل أبو البراء قام بنشر فبراير 21, 2015 قام بنشر فبراير 21, 2015 إليك الشرح ولا تنسانا بدعوة ... كفاية راحت مني كام دعوة الليلة !!! Sub CopyTitleBeforeEachName() 'تعريف المتغيرات داخل الكود Dim LR As Long, I As Long 'تحديد آخر صف به بيانات بالعمود الأول LR = Cells(Rows.Count, 1).End(xlUp).Row 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'حلقة تكرارية تبدأ من آخر صف به بيانات حتى الصف الرابع تمهيداً لإدراج صف العنوان For I = LR To 4 Step -1 'هذا السطر لإدراج صف قبل الصف في المتغير Rows(I).Insert Shift:=xlDown 'نسخ الصف الثاني ولصقه في الصف الجديد الذي تم إدراجه Rows(2).Copy Cells(I, 1) Next I 'إلغاء خاصية النسخ بعد عمليات النسخ Application.CutCopyMode = False 'تفيعل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub
عماراللهيبي قام بنشر فبراير 21, 2015 الكاتب قام بنشر فبراير 21, 2015 إليك الشرح ولا تنسانا بدعوة ... كفاية راحت مني كام دعوة الليلة !!! Sub CopyTitleBeforeEachName() 'تعريف المتغيرات داخل الكود Dim LR As Long, I As Long 'تحديد آخر صف به بيانات بالعمود الأول LR = Cells(Rows.Count, 1).End(xlUp).Row 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'حلقة تكرارية تبدأ من آخر صف به بيانات حتى الصف الرابع تمهيداً لإدراج صف العنوان For I = LR To 4 Step -1 'هذا السطر لإدراج صف قبل الصف في المتغير Rows(I).Insert Shift:=xlDown 'نسخ الصف الثاني ولصقه في الصف الجديد الذي تم إدراجه Rows(2).Copy Cells(I, 1) Next I 'إلغاء خاصية النسخ بعد عمليات النسخ Application.CutCopyMode = False 'تفيعل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub إليك الشرح ولا تنسانا بدعوة ... كفاية راحت مني كام دعوة الليلة !!! Sub CopyTitleBeforeEachName() 'تعريف المتغيرات داخل الكود Dim LR As Long, I As Long 'تحديد آخر صف به بيانات بالعمود الأول LR = Cells(Rows.Count, 1).End(xlUp).Row 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'حلقة تكرارية تبدأ من آخر صف به بيانات حتى الصف الرابع تمهيداً لإدراج صف العنوان For I = LR To 4 Step -1 'هذا السطر لإدراج صف قبل الصف في المتغير Rows(I).Insert Shift:=xlDown 'نسخ الصف الثاني ولصقه في الصف الجديد الذي تم إدراجه Rows(2).Copy Cells(I, 1) Next I 'إلغاء خاصية النسخ بعد عمليات النسخ Application.CutCopyMode = False 'تفيعل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub السلام عليكم ... اخي الفاضل ... اجمد الله الذي هداك لتكون معلمي واستاذي ... الله يجزيك الجنة .. اخي الحبيب اطلب منك ان تنورني بدروس كتابة الكودات للي مايعرفشي حاجه زيي ( بالمصري ). عمار العراقي
ياسر خليل أبو البراء قام بنشر فبراير 21, 2015 قام بنشر فبراير 21, 2015 مش عارف والله كل الناس بتسأل على النقطة دي ..إنهم عايزين يتعلموا والغريبة إن فيه باب مفتوح في المواضيع المثبتة (بس محدش معبر الباب) ... فكرني يا أخي الحبيب ابن مصر نبقا نغير لون الباب ونخليه لون جذاب عشان الأخوة الأعضاء ياخدوا بالهم http://www.officena.net/ib/index.php?showtopic=56941 دا رابط فيه البدايات اللي إن شاء الله تقدر تستفيد منها وتقدر من خلالها تنطلق لعالم الأكواد الممتع تقبل تحياتي 1
عماراللهيبي قام بنشر فبراير 21, 2015 الكاتب قام بنشر فبراير 21, 2015 مش عارف والله كل الناس بتسأل على النقطة دي ..إنهم عايزين يتعلموا والغريبة إن فيه باب مفتوح في المواضيع المثبتة (بس محدش معبر الباب) ... فكرني يا أخي الحبيب ابن مصر نبقا نغير لون الباب ونخليه لون جذاب عشان الأخوة الأعضاء ياخدوا بالهم http://www.officena.net/ib/index.php?showtopic=56941 دا رابط فيه البدايات اللي إن شاء الله تقدر تستفيد منها وتقدر من خلالها تنطلق لعالم الأكواد الممتع تقبل تحياتي مش عارف والله كل الناس بتسأل على النقطة دي ..إنهم عايزين يتعلموا والغريبة إن فيه باب مفتوح في المواضيع المثبتة (بس محدش معبر الباب) ... فكرني يا أخي الحبيب ابن مصر نبقا نغير لون الباب ونخليه لون جذاب عشان الأخوة الأعضاء ياخدوا بالهم http://www.officena.net/ib/index.php?showtopic=56941 دا رابط فيه البدايات اللي إن شاء الله تقدر تستفيد منها وتقدر من خلالها تنطلق لعالم الأكواد الممتع تقبل تحياتي السلام عليكم ... اخي لقد مررت عليه قبل ايام وضحكت كثيرا على اسلوبك الجميل .. وعلى فكرة كنت قد نسخته على الوورد لقراءته بعد تصويره على الورق لان الحمد لله الكهرباء عندنا زي الزفت .. والنت كذلك 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.