اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)

الإخوة في اللـــــــــــــــــــــه

السلام عليكم ورحمة الله وبركاته :fff:

أريد ترتيب هذه الأسماء هجائيا بشرط ترتيب البنات أولا ثم ترتيب الأولاد ثانيا

-- بعدها نريد تقسيم أسماء البنات المرتبه هجائيا على كشوف كل كشف 28 مع ملحوظة أن عدد 28 اسم ( متغير ) وكذلك العدد الكلي للبنات والاولاد

-- في التقسيم تكون كشوف البنات منفصلة عن كشوف الأولاد

-- نريد أمر طباعة للكشوف كلها وكذلك امر طباعة لكشف نختاره

-- أن تتم الطباعة بعرض الصفحة - ( أفقيا ) - كاملة يعني نسبة الهوامش صغيرة

-- أن تكون الكتابة كلها بخط ثقيل

وكلي ثقة في الله ثم فيكم لكي تبسطوا لنا هذا الأمر

_____.rar

تم تعديل بواسطه saffaa
  • الردود 58
  • Created
  • اخر رد

Top Posters In This Topic

قام بنشر

ياأختنا في الله

ثقتك في محلها إن شاء الله

ففي هذا المنتدى رجال عاهدوا الله على العطاء خالصا لوجهه الكريم

قام بنشر
ياأختنا في الله

ثقتك في محلها إن شاء الله

ففي هذا المنتدى رجال عاهدوا الله على العطاء خالصا لوجهه الكريم

بسم الله الرحمن الرحيم

لم يتفاعل اخد

أرفقت ملف به مساعده صغيره

لقد قمت بالجزء الصعب و هو فصل أول مجموعه فى الكشف و ترحيل البنات الى كشف و الاولاد الى كشف اخر و الترتيب بناء على رقم المسلسل مع الكتابه بخط غليظ 0

كدت ان اكتب لك طريقه الفصل فقط و لكن العمل فى الملف كان سهل

باقى الطلبات اتمنى ان يساعدك فيها احد

السلام عليكم

1911200601_Print.rar

قام بنشر (معدل)

هكذا الرجال أخي هادي سالم

علم وتواضع

في زمن ندر فيه الرجال

بارك الله لك آمين

وأكون لك شاكرا لو شرحت لي كيفية الفصل بين البنين والبنات في الكشف

تم تعديل بواسطه inas aly
قام بنشر

بسم الله الرحمن الرحيم

الملف به ثلاثة أوراق عمل

الأولى "Main "و هى الورقة التى تحتوى على البيانات الاساسية

الثانية "Boy" و هى الورقة التى سوف يتم نقل بيانات الأولاد اليها 0

الثالثة "Gairl" و هى الورقه التى سوف يتم نقل بيانات البنات اليها 0

طبعا الأكسيل لا يستطيع التفريق بين أسماء الأولاد و أسماء البنات من نفسه , لذلك فى خانه الملاحظات أضفت كلمه ولد و كلمه بنت حتى يتم الفصل بين البيانات 0

أليكم مثال بسيط ليتم الفهم جيدا

Item_01.png

نريد أن نبحث فى العمود C من "C2:C10" عن كلمه و لد وأعطاء رسالة كلمه "ولد" 0

بداية يجب معرفه أننا من الممكن أن نشير الى الخلية فى ورقة العمل بعدة طرق منها

Cells(Row No , Column No)
(1,2) خليه فى الصف الأول و العمود الثانى (2,2) خليه فى الصف الثانى و العمود الثانى وهكذا الخطوة الأولى : ليس أمامنا سوف أستخدام جمله For…….Next التكرارية ليكون بداية الكود
 For i = 2 To 10
سنبدأ العد من 2 حتى ننتهي عند 10 وذلك لتحديد المجال و يمكن زيادة المجال بتغيير الرقم 10 الخطوة الثانية : سنقوم بالبحث عن أسم "ولد" فى الصفوف من صف 2 الى صف 10 بالعمود الثالث
If Worksheets("Main").Cells(i, 3) = "ولد" Then
لاحظ أن القيمة i سوف تتغير من الصف 2 الى صف 10 و العمود رقم 3 ثابت الخطوة الثالثة (النتيجة) أظهار رسالة تفيد بأن الخلية بها كلمة "ولد" و نلاحظ أن عدد مرات ظهور الرسالة هو نفس عدد كلمات كلمة "ولد" فى العمود
MsgBox "ولد"
ثم نقوم بأنهاء جملة If
End If
و أتمام جملة For
Next
وهذا هو الكود النهائى
Sub test()
    For i = 2 To 10
        If Worksheets("Main").Cells(i, 3) = "ولد" Then
        MsgBox "ولد"
        End If
    Next
End Sub

من الممكن نسخ الكود السابق بعد فهمه و تجربته و تغيير المجال أو البحث عن بنت بدلا من ولد

ولكن يجب تسميه ورقة البيانات "Main" حتى يعمل الكود

يبقى لكم شرح كيفيه نقل البيانات الى اوراق العمل الاخرى , ولكن للاسف لن استطيع التكمله الان حتى تستطيعوا التجربه و لا يكون الامر معقدا عند استبدال الرساله بأمر النقل و الأكثر من ذلك ان الموضوع استغرق وقت طويل و مجهود 0

و الى لقاء للتكمله

السلام عليكم

قام بنشر (معدل)

تشريفك أخي / هادي سالم للموضوع وكتابتك فيه

أثرى الموضوع وجعله كنز

أخي هادى :clapping:

أحببت المنتدى وأهله

لأنك تعطى بسخاء مما علمك به ربنا

أمدك الله بالصحة التى لابعدها سأم وأمدك بالغنى الذى ليس بعده فقر

آمين .. يارب العالمين

تم تعديل بواسطه inas aly
قام بنشر

بسم الله الرحمن الرحيم

الأخت الفاضله inas aly

أخى nasersaeed (مرحبا بعودتك )

مشكور على التشجيع

سنضيف أضافه بسيطه و هى البحث على كلمه "ولد" ثم كلمه "بنت"

ببساطه سوف نضيف جمله If مره اخرى مع أستبدال كلمه "ولد" بكلمه "بنت"

و سيكون الكود كالتالى :

Sub test_1()
    For i = 2 To 10
        If Worksheets("Main").Cells(i, 3) = "ولد" Then
            MsgBox "ولد"
        End If
        If Worksheets("Main").Cells(i, 3) = "بنت" Then
            MsgBox "بنت"
        End If

    Next

End Sub

جربوا الكود و ستجدوا الرساله تتغير على حسب الاسم المكتوب فى الخليه

السلام عليكم

قام بنشر

بسم الله الرحمن الرحيم

قد أغيب يومين فلكم منى موضوع مفيد

سنحاول فى هذه المرحلة فرض سيطرتنا على الاكسيل و اجباره على تنفيذ مانريده

مثلا اذا أردنا البحث فى عمود C عن النوع دون تحديد مجال كما فعلناا سابقا سنقوم بخدعه بسيطة وهى

القيام بعد جميع الخلايا الموجود فيها بيانات فى عمود C و وضعها فى مكان أمين فى الذاكرة ثم أنهاء جمله Loop بالقيمة المحفوظة لدينا و هى أخر خليه تم عدها و فى نفس الوقت اخر خليه فى عمود C

سنقوم فى الكود التالي بأنشاء هذا المكان الأمين و أسمه cr يقوم بعد جميع الخلايا التى يوجد فيها بيانات فى العمود c و حفظ النتيجة داخلة 0

cr = Application.WorksheetFunction.CountA(Range("c:c"))
ثم تعديل جمله For كالتالى :
For i = 2 To cr
و أذا أردنا أظهار رقم الخلية أو I بجوار كلمه ولد أو بنت نستخدم رمز & و نضع I بين قوسين كما بالكود التالى
 MsgBox "ولد" & (i)
و يكون الكود فى النهايه
Sub test_2()
   cr = Application.WorksheetFunction.CountA(Range("c:c"))
    For i = 2 To cr
        If Worksheets("Main").Cells(i, 3) = "ولد" Then
            MsgBox "ولد" & (i)
        End If
        If Worksheets("Main").Cells(i, 3) = "بنت" Then
        MsgBox "بنت" & (i)
        End If
    Next
End Sub

و الان أذا اضفنا اى سطر جديد سيتم تعديل الرساله تلقاءيا مع ملاحظه

يجب عدم ترك أى بيان فارغ فى خانه النوع لان العدد سوف يتوقف عند اول خليه فارغة و منطقى لا يوجد طالب بدون نوع فسوف دائما تظل هذه الخلية بها بيانات0

السلام عليكم

قام بنشر (معدل)

الأخ / هادي سالم :fff: . :fff:

بعد التحية

حقا لقد جعلت للموضوع معنى جميلا وعلما نافعا

بارك الله لك وسهل امورك .. يارب العالمين

ندعو الله أن نجد من يعلمنا كيفية تقسيم الكشف الكبير إلى كشوف كل واحد 28 مثلا

تم تعديل بواسطه saffaa
قام بنشر (معدل)

الأستاذ العزيز / هادي سالم

بعد التحية

ادعو الله ان تكون في احسن حال إنه سميع مجيب الدعاء .. وبعد

أرجو أن تشرح لنا بطريقتك الجميلة

طريقة وضعك للصوره السابقة

وطريقة الكتابه عليها والكتابة فوقها وتحتها

لأنني اريد ان اكون اكثر إيجابية إن شاء الله في هذا المنتدى العظيم

وارجو ان تسامحني لبساطة السؤال وانت عبقري

إذا أردت أن تكون في موضوع جديد ولها رابط من هنا

وشكرا

تم تعديل بواسطه inas aly
قام بنشر

الأستاذ /هادي

السلام عليكم ورحمة الله وبركاته

عندنا عدة صور للشرح .. كيف أدرجها بالمنتدى طبعا الصورة فوقها وتحتها كتابه ؟

وشكرا

قام بنشر

لقد قمت بالجزء الصعب و هو فصل أول مجموعه فى الكشف و ترحيل البنات الى كشف و الاولاد الى كشف اخر(إقتباس )

الجزء السهل سهلها الله لك استاذي / هادي سالم :fff::fff:

ارجو ان تشرحها لنا مع ملف

وهي

عندنا ملف به الاسماء كلها

ونريد ان نقسمها في كشوف بشرط كل كشف نختار عدده نحن

قام بنشر
لقد قمت بالجزء الصعب و هو فصل أول مجموعه فى الكشف و ترحيل البنات الى كشف و الاولاد الى كشف اخر(إقتباس )

الجزء السهل سهلها الله لك استاذي / هادي سالم :fff::fff:

ارجو ان تشرحها لنا مع ملف

وهي

عندنا ملف به الاسماء كلها

ونريد ان نقسمها في كشوف بشرط كل كشف نختار عدده نحن

بسم الله الرحمن الرحيم

لك حق , للمره الثالثه موضوع التقسيم

أرفقت لك ملف

أدخلى أى عدد للأسماء و سوف يتم التقسيم بناء على هذا العدد

السلام عليكم

Move_Rows_02.rar

قام بنشر (معدل)

عمل رائع استاذي /هادي سالم :fff::fff::fff:

أمدك الله بما تحبه وترضاه من الخير في الدنيا والآخرة

وبعد :

أرجو أن تسامحني لأنني عندما قلت ( ان تشرحها مع ملف )

كنت أقصد الشرح نفسه مع ملف

هذا مرفق طبيعي نرجو أن يتم عليه التقسيم

- القائمة الرئيسية تحتوي على بنبن وبنات والديانة ورقم الجلوس ورقم اللجنة

نريد ياأستاذي أن يتم ترتيب الكشف هجائيا (البنين لوحدها والبنات لوحدها ) طبعا المدى اكبر عدد ممكن من الأسماء

ان يتم التقسيم على كشوف المناداة ... عدد كشف المناداة ندخله نحن ........

ولوفرضنا أن عدد البنات تم توزيعه على كشوف المناداة وتبقى عدد بسيط في آخر كشف .. أكمل عليه من عدد البنين

وشكرا جزيلا

____________.rar

تم تعديل بواسطه saffaa
قام بنشر
عمل رائع استاذي /هادي سالم :fff::fff::fff:

أمدك الله بما تحبه وترضاه من الخير في الدنيا والآخرة

وبعد :

أرجو أن تسامحني لأنني عندما قلت ( ان تشرحها مع ملف )

كنت أقصد الشرح نفسه مع ملف

هذا مرفق طبيعي نرجو أن يتم عليه التقسيم

- القائمة الرئيسية تحتوي على بنبن وبنات والديانة ورقم الجلوس ورقم اللجنة

نريد ياأستاذي أن يتم ترتيب الكشف هجائيا (البنين لوحدها والبنات لوحدها ) طبعا المدى اكبر عدد ممكن من الأسماء

ان يتم التقسيم على كشوف المناداة ... عدد كشف المناداة ندخله نحن ........

ولوفرضنا أن عدد البنات تم توزيعه على كشوف المناداة وتبقى عدد بسيط في آخر كشف .. أكمل عليه من عدد البنين

وشكرا جزيلا

بسم الله الرحمن الرحيم

الاخت العزيزه saffaa

ما فائده الشرح الذى سبق شرحه ؟

الغرض من المجهود المبذول فى الشرح ان تقومى انت بالتعديل

السلام عليكم

قام بنشر

لايعرف الذهب إلا الجواهرجي

وانت اعطيتنا الذهب بشرحك الذي أفاد و سيفيد أناس كثيرة

لاشك في ذلك

ولكنني على الدرب اسير يعني في اول الطريق

أستاذي الكريم

شكرك وسيشكرك كثيرون ممن يهويهم العمل الجميل وابداعاته قي شرحك

وسوف يستفيدون منه في اعمالهم فلك الفضل ولهم التحية

اما انا وامثالي (الذين هم على أول الطريق ) فسنشكرك على اتمامك هذا العمل

وانا اثق فى انك معطاء للخير

جعلك الله عونا

مرة أخرى تقبل عذري وشكري

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه



×
×
  • اضف...

Important Information