saffaa قام بنشر نوفمبر 17, 2006 مشاركة قام بنشر نوفمبر 17, 2006 (معدل) الإخوة في اللـــــــــــــــــــــه السلام عليكم ورحمة الله وبركاته أريد ترتيب هذه الأسماء هجائيا بشرط ترتيب البنات أولا ثم ترتيب الأولاد ثانيا -- بعدها نريد تقسيم أسماء البنات المرتبه هجائيا على كشوف كل كشف 28 مع ملحوظة أن عدد 28 اسم ( متغير ) وكذلك العدد الكلي للبنات والاولاد -- في التقسيم تكون كشوف البنات منفصلة عن كشوف الأولاد -- نريد أمر طباعة للكشوف كلها وكذلك امر طباعة لكشف نختاره -- أن تتم الطباعة بعرض الصفحة - ( أفقيا ) - كاملة يعني نسبة الهوامش صغيرة -- أن تكون الكتابة كلها بخط ثقيل وكلي ثقة في الله ثم فيكم لكي تبسطوا لنا هذا الأمر _____.rar تم تعديل نوفمبر 17, 2006 بواسطه saffaa رابط هذا التعليق شارك More sharing options...
inas aly قام بنشر نوفمبر 18, 2006 مشاركة قام بنشر نوفمبر 18, 2006 ياأختنا في الله ثقتك في محلها إن شاء الله ففي هذا المنتدى رجال عاهدوا الله على العطاء خالصا لوجهه الكريم رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر نوفمبر 18, 2006 مشاركة قام بنشر نوفمبر 18, 2006 ياأختنا في الله ثقتك في محلها إن شاء الله ففي هذا المنتدى رجال عاهدوا الله على العطاء خالصا لوجهه الكريم بسم الله الرحمن الرحيملم يتفاعل اخد أرفقت ملف به مساعده صغيره لقد قمت بالجزء الصعب و هو فصل أول مجموعه فى الكشف و ترحيل البنات الى كشف و الاولاد الى كشف اخر و الترتيب بناء على رقم المسلسل مع الكتابه بخط غليظ 0 كدت ان اكتب لك طريقه الفصل فقط و لكن العمل فى الملف كان سهل باقى الطلبات اتمنى ان يساعدك فيها احد السلام عليكم 1911200601_Print.rar رابط هذا التعليق شارك More sharing options...
inas aly قام بنشر نوفمبر 19, 2006 مشاركة قام بنشر نوفمبر 19, 2006 (معدل) هكذا الرجال أخي هادي سالم علم وتواضع في زمن ندر فيه الرجال بارك الله لك آمين وأكون لك شاكرا لو شرحت لي كيفية الفصل بين البنين والبنات في الكشف تم تعديل نوفمبر 19, 2006 بواسطه inas aly رابط هذا التعليق شارك More sharing options...
mhrrd قام بنشر نوفمبر 19, 2006 مشاركة قام بنشر نوفمبر 19, 2006 (معدل) ونعم الرجال ياأستاذ هادي سالم تم تعديل نوفمبر 19, 2006 بواسطه mhrrd رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر نوفمبر 19, 2006 مشاركة قام بنشر نوفمبر 19, 2006 بسم الله الرحمن الرحيم الملف به ثلاثة أوراق عمل الأولى "Main "و هى الورقة التى تحتوى على البيانات الاساسية الثانية "Boy" و هى الورقة التى سوف يتم نقل بيانات الأولاد اليها 0 الثالثة "Gairl" و هى الورقه التى سوف يتم نقل بيانات البنات اليها 0 طبعا الأكسيل لا يستطيع التفريق بين أسماء الأولاد و أسماء البنات من نفسه , لذلك فى خانه الملاحظات أضفت كلمه ولد و كلمه بنت حتى يتم الفصل بين البيانات 0 أليكم مثال بسيط ليتم الفهم جيدا نريد أن نبحث فى العمود 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 و الى لقاء للتكمله السلام عليكم رابط هذا التعليق شارك More sharing options...
inas aly قام بنشر نوفمبر 20, 2006 مشاركة قام بنشر نوفمبر 20, 2006 (معدل) تشريفك أخي / هادي سالم للموضوع وكتابتك فيه أثرى الموضوع وجعله كنز أخي هادى أحببت المنتدى وأهله لأنك تعطى بسخاء مما علمك به ربنا أمدك الله بالصحة التى لابعدها سأم وأمدك بالغنى الذى ليس بعده فقر آمين .. يارب العالمين تم تعديل نوفمبر 20, 2006 بواسطه inas aly رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر نوفمبر 20, 2006 مشاركة قام بنشر نوفمبر 20, 2006 ماشاء الله ماشاء الله على هذا العطاء بارك الله لك أخي هادي وبارك الله في المنتدى وأهله رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر نوفمبر 20, 2006 مشاركة قام بنشر نوفمبر 20, 2006 بسم الله الرحمن الرحيم الأخت الفاضله 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 جربوا الكود و ستجدوا الرساله تتغير على حسب الاسم المكتوب فى الخليه السلام عليكم رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر نوفمبر 20, 2006 مشاركة قام بنشر نوفمبر 20, 2006 بسم الله الرحمن الرحيم قد أغيب يومين فلكم منى موضوع مفيد سنحاول فى هذه المرحلة فرض سيطرتنا على الاكسيل و اجباره على تنفيذ مانريده مثلا اذا أردنا البحث فى عمود 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 السلام عليكم رابط هذا التعليق شارك More sharing options...
mhrrd قام بنشر نوفمبر 23, 2006 مشاركة قام بنشر نوفمبر 23, 2006 بارك الله لك اخي هاديِِ رابط هذا التعليق شارك More sharing options...
saffaa قام بنشر نوفمبر 24, 2006 الكاتب مشاركة قام بنشر نوفمبر 24, 2006 (معدل) الأخ / هادي سالم . بعد التحية حقا لقد جعلت للموضوع معنى جميلا وعلما نافعا بارك الله لك وسهل امورك .. يارب العالمين ندعو الله أن نجد من يعلمنا كيفية تقسيم الكشف الكبير إلى كشوف كل واحد 28 مثلا تم تعديل نوفمبر 24, 2006 بواسطه saffaa رابط هذا التعليق شارك More sharing options...
asdhamdey قام بنشر نوفمبر 26, 2006 مشاركة قام بنشر نوفمبر 26, 2006 أستاذ / هادي بارك الله لك حقا إنك أستاذ شرح مميز وتسلسل أكثر من رائع رابط هذا التعليق شارك More sharing options...
inas aly قام بنشر نوفمبر 27, 2006 مشاركة قام بنشر نوفمبر 27, 2006 (معدل) الأستاذ العزيز / هادي سالم بعد التحية ادعو الله ان تكون في احسن حال إنه سميع مجيب الدعاء .. وبعد أرجو أن تشرح لنا بطريقتك الجميلة طريقة وضعك للصوره السابقة وطريقة الكتابه عليها والكتابة فوقها وتحتها لأنني اريد ان اكون اكثر إيجابية إن شاء الله في هذا المنتدى العظيم وارجو ان تسامحني لبساطة السؤال وانت عبقري إذا أردت أن تكون في موضوع جديد ولها رابط من هنا وشكرا تم تعديل نوفمبر 27, 2006 بواسطه inas aly رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر نوفمبر 27, 2006 مشاركة قام بنشر نوفمبر 27, 2006 بسم الله الرحمن الرحيمهناك سؤال مشابههنـــاالسلام عليكم رابط هذا التعليق شارك More sharing options...
islam11 قام بنشر نوفمبر 28, 2006 مشاركة قام بنشر نوفمبر 28, 2006 الأستاذ /هادي السلام عليكم ورحمة الله وبركاته عندنا عدة صور للشرح .. كيف أدرجها بالمنتدى طبعا الصورة فوقها وتحتها كتابه ؟ وشكرا رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر نوفمبر 28, 2006 مشاركة قام بنشر نوفمبر 28, 2006 بسم الله الرحمن الرحيمالاخ اسلاملقد قمت بشرح لرفع الصور و مواقع و برامج لرفع الصور الى المنتدى مشاركه رقم 9 و ما بعدهاهنـــــــاالسلام عليكم رابط هذا التعليق شارك More sharing options...
saffaa قام بنشر نوفمبر 29, 2006 الكاتب مشاركة قام بنشر نوفمبر 29, 2006 لقد قمت بالجزء الصعب و هو فصل أول مجموعه فى الكشف و ترحيل البنات الى كشف و الاولاد الى كشف اخر(إقتباس ) الجزء السهل سهلها الله لك استاذي / هادي سالم ارجو ان تشرحها لنا مع ملف وهي عندنا ملف به الاسماء كلها ونريد ان نقسمها في كشوف بشرط كل كشف نختار عدده نحن رابط هذا التعليق شارك More sharing options...
عادل جلال قام بنشر نوفمبر 29, 2006 مشاركة قام بنشر نوفمبر 29, 2006 مشكوووووووووووووووووووووووووووووووووووور رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر نوفمبر 30, 2006 مشاركة قام بنشر نوفمبر 30, 2006 لقد قمت بالجزء الصعب و هو فصل أول مجموعه فى الكشف و ترحيل البنات الى كشف و الاولاد الى كشف اخر(إقتباس )الجزء السهل سهلها الله لك استاذي / هادي سالم ارجو ان تشرحها لنا مع ملف وهي عندنا ملف به الاسماء كلها ونريد ان نقسمها في كشوف بشرط كل كشف نختار عدده نحن بسم الله الرحمن الرحيم لك حق , للمره الثالثه موضوع التقسيم أرفقت لك ملف أدخلى أى عدد للأسماء و سوف يتم التقسيم بناء على هذا العدد السلام عليكم Move_Rows_02.rar رابط هذا التعليق شارك More sharing options...
saffaa قام بنشر نوفمبر 30, 2006 الكاتب مشاركة قام بنشر نوفمبر 30, 2006 جزاك الله كل خير أستاذي / هادي سالم تم التحميل وجاري التجربة رابط هذا التعليق شارك More sharing options...
saffaa قام بنشر نوفمبر 30, 2006 الكاتب مشاركة قام بنشر نوفمبر 30, 2006 (معدل) عمل رائع استاذي /هادي سالم أمدك الله بما تحبه وترضاه من الخير في الدنيا والآخرة وبعد : أرجو أن تسامحني لأنني عندما قلت ( ان تشرحها مع ملف ) كنت أقصد الشرح نفسه مع ملف هذا مرفق طبيعي نرجو أن يتم عليه التقسيم - القائمة الرئيسية تحتوي على بنبن وبنات والديانة ورقم الجلوس ورقم اللجنة نريد ياأستاذي أن يتم ترتيب الكشف هجائيا (البنين لوحدها والبنات لوحدها ) طبعا المدى اكبر عدد ممكن من الأسماء ان يتم التقسيم على كشوف المناداة ... عدد كشف المناداة ندخله نحن ........ ولوفرضنا أن عدد البنات تم توزيعه على كشوف المناداة وتبقى عدد بسيط في آخر كشف .. أكمل عليه من عدد البنين وشكرا جزيلا ____________.rar تم تعديل نوفمبر 30, 2006 بواسطه saffaa رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر نوفمبر 30, 2006 مشاركة قام بنشر نوفمبر 30, 2006 عمل رائع استاذي /هادي سالم أمدك الله بما تحبه وترضاه من الخير في الدنيا والآخرة وبعد : أرجو أن تسامحني لأنني عندما قلت ( ان تشرحها مع ملف ) كنت أقصد الشرح نفسه مع ملف هذا مرفق طبيعي نرجو أن يتم عليه التقسيم - القائمة الرئيسية تحتوي على بنبن وبنات والديانة ورقم الجلوس ورقم اللجنة نريد ياأستاذي أن يتم ترتيب الكشف هجائيا (البنين لوحدها والبنات لوحدها ) طبعا المدى اكبر عدد ممكن من الأسماء ان يتم التقسيم على كشوف المناداة ... عدد كشف المناداة ندخله نحن ........ ولوفرضنا أن عدد البنات تم توزيعه على كشوف المناداة وتبقى عدد بسيط في آخر كشف .. أكمل عليه من عدد البنين وشكرا جزيلا بسم الله الرحمن الرحيم الاخت العزيزه saffaa ما فائده الشرح الذى سبق شرحه ؟ الغرض من المجهود المبذول فى الشرح ان تقومى انت بالتعديل السلام عليكم رابط هذا التعليق شارك More sharing options...
saffaa قام بنشر نوفمبر 30, 2006 الكاتب مشاركة قام بنشر نوفمبر 30, 2006 لايعرف الذهب إلا الجواهرجي وانت اعطيتنا الذهب بشرحك الذي أفاد و سيفيد أناس كثيرة لاشك في ذلك ولكنني على الدرب اسير يعني في اول الطريق أستاذي الكريم شكرك وسيشكرك كثيرون ممن يهويهم العمل الجميل وابداعاته قي شرحك وسوف يستفيدون منه في اعمالهم فلك الفضل ولهم التحية اما انا وامثالي (الذين هم على أول الطريق ) فسنشكرك على اتمامك هذا العمل وانا اثق فى انك معطاء للخير جعلك الله عونا مرة أخرى تقبل عذري وشكري رابط هذا التعليق شارك More sharing options...
saffaa قام بنشر ديسمبر 1, 2006 الكاتب مشاركة قام بنشر ديسمبر 1, 2006 أستاذي /هادي سالم بعد التحية رجاء .. أن تقبل عذري وشكري رابط هذا التعليق شارك 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.