mojahedxp قام بنشر يناير 12, 2007 مشاركة قام بنشر يناير 12, 2007 الاخوة الزملاء عندى استفسار بسيط فى ظاهرة اتعبنى كثيرا فى باطنة داخل محرر اوامر الفيجوال بيسك عندما اقوم بتحديد نطاق معين اكتب على سبيل المثال rang(a1:a10).copy فيقوم بنسخ هذا المدى فى الحافظة ولكن ما العمل اذا كانت الخليتان a1،a10 قيم متغيرة وليست ارقام خلايا واضحة بمعنى اننى ادرج هذا الامر مثلا ضمن معادلة for+next واريد ان يكون النطاق متغيرا فى كل مرة بتغير امر for+next اى ان a1،a10 تتغير قيمتها باستمرار فكيف تكون الصيغة تحديدا ارجو المساعدة رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يناير 12, 2007 مشاركة قام بنشر يناير 12, 2007 (معدل) الاخ mojahedxp تحياتى لك اذا كان المدى يتم تغير من خلال الجداول وليس الكود يتم تسمية النطاق وااستخدام اسمة مع الكود بدلا من عنوان المدى واذا لم يكن هذا المطلوب ارفق مثال لعمل الازم تم تعديل يناير 12, 2007 بواسطه tameromar رابط هذا التعليق شارك More sharing options...
mojahedxp قام بنشر يناير 13, 2007 الكاتب مشاركة قام بنشر يناير 13, 2007 الاخ الفاضل تامر عمر/ السلام عليكم ورحمة الله وبركاته يتم تسمية النطاق وااستخدام اسمة مع الكود بدلا من عنوان المدى اعتقد اننى لم استوعب الاقتراح جيدا فهل تكرمت بنموذج او مثال لما اقترحته حيث يساورنى يقين كبير بانه باذن الله هو ما ابحث عنه وجزاك الله خيرا والسلام عليكم ورحمة الله وبركاته رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يناير 13, 2007 مشاركة قام بنشر يناير 13, 2007 السلام عليكم ورحمة الله وبركاتة الاخ mojahedxp شاهد المرفق اخى اذا لم يكن هو المطلوب ارفق مثال لما تريد والتوفيق من الله عز وجل تحياتى لك Move_Range.rar رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يناير 14, 2007 مشاركة قام بنشر يناير 14, 2007 الاخ mojahedxp تحياتى لك لقد طرأت لى فكرة قد تكون هى ما تبحث عنه شاهد الورقة الثانية من المرفق Move_Copy_Range.rar رابط هذا التعليق شارك More sharing options...
mojahedxp قام بنشر يناير 23, 2007 الكاتب مشاركة قام بنشر يناير 23, 2007 الاخ الفاضل والاستاذ الكريم تامر عمر اتقدم لك بخالص الاعتذار عن تاخرى فى متابعة الموضع معك لما تعرف من ظروفى الخاصة واشكرك واشكر كل اخواننا فى المنتدى على مشاعر الود والاخلاص والمحبة التى ابدوها تجاهى جعلها الله فى ميزان حسناتكم جميعا يوم لا ينفع مال ولا بنون ثم اما بعد فمرفق ملف به المطلوب تحديدا واشكرك كثيرا على مجهودك فى المرفقين السابقين وجزاك الله خيرا وجعله فى ميزان حسناتك باذن الله تعالى simple1.rar رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يناير 24, 2007 مشاركة قام بنشر يناير 24, 2007 الاخ mojahedxp السلام عليكم ورحمة الله وبركاتة اخى لا تعتزر الهمك الله الصبر و الايمان والمسلمين اجمعين فهما سفينة النجاة اخى شاهد المرفق واذا وجدت به شئ لا يناسب طلبك اخبرنى لعمل اللازم حباك الله بالخير والبركات . اخيك فى الله عمر الحسينى (ابو تامر) تحياتى لك _______________________.rar رابط هذا التعليق شارك More sharing options...
mojahedxp قام بنشر يناير 25, 2007 الكاتب مشاركة قام بنشر يناير 25, 2007 الاخ والاستاذ الفاضل /عمر الحسينى (ابو تامر) السلام عليكم ورحمة الله وبركاته جزاك الله خير الجزاء فبعد رؤيه اوليه للمرفق تبين انه وباذن الله عز وجل يحقق المطلوب بنسبه 100% وامتياز مع مرتبه الشرف الاولى بلا منازع لذا اشكرك شكرا جزيلا على مجهودك وتعبك معى واعتقد ان تغيير عنوان الموضع هو انسب عنوان اخترته انت فشكرا مرة ثانية وبالطبع بعد اذنك سيكون لى بعد دراسة الاكواد والمعادلات بعض الاسئلة فارجوا الاتمانع وان تسمح ظروفك ووقتك بالاجابة عليها وشكرا مرة ثانية والسلام عليكم ورحمة الله وبركاته رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يناير 25, 2007 مشاركة قام بنشر يناير 25, 2007 الاخ mojahedxp عليكم السلام ورحمة الله ويركاتة اخى طبعا اخى العزيز لك ما شئت وما شاء الا الله من اى اسئلة وجميع طلباتك مجابة بإذن الله تحياتى لك رابط هذا التعليق شارك More sharing options...
mojahedxp قام بنشر يناير 25, 2007 الكاتب مشاركة قام بنشر يناير 25, 2007 الاخ والاستاذ الفاضل /عمر الحسينى (ابو تامر) السلام عليكم ورحمة الله وبركاته لم اشاهد اجمل ولا اروع من هذا العمل بالفعل انا اعتبر ان هذه هى احدى ابداعاتك الفنية التى تستحق ان توضع فى معرض عام ليتعلم منها القاصى والدانى الاستاذ الفاضل اسمح لى فى المديول الثانى Sub ClearAll() Application.ScreenUpdating = False With Sheets("memo2") r = 5 For x = 1 To 60 Range(.Cells(r, 1), .Cells(r + 34, 5)).ClearContents Range(.Cells(r, 8), .Cells(r + 34, 12)).ClearContents r = r + 42 هنا هنا هنا هنا هنا هنا هنا هنا هنا هنا هنا Next x End With Application.Goto [A1] End Su قمت انا بحذف سطرين منه فى موضع كلمة هنا ولم تتغير النتيجة والمسح يعمل جيدا فهل لمبتدئ مثلى ان يتعلم هل اخطأ بحذف هذين السطرين ام ان هناك مالا تراه نظرتى المتواضعة اما بالنسبة للموديول الاول فهل اطمع فى ملف ((((( وورد WORD )))))) يشرحه لى بالتفصيل حيث وبصراحة شديدة لا افهم منه حرفا واحدا وانا لا سمح الله لا اقول انه لا يعمل انه ممتاز ولكن احب ان اتعلم كيف تم وما هو المقصود بكل حرف فيه ولماذا هذا الحرف بالذات دون غيره من الحروف اعلم اننى اثقل عليك بطلبى هذا وانه سيتغرق منك اضعاف اضعاف الوقت الذى استغرقه عمل الملف نفسه ولكنى اتعشم فيك خيرا ان تعلمنا قليلا مما علمك الله عز وجل واتمنى ان يجازيك الله من عنده خير الجزاء على ذلك ملاحظة مارايك ان سمح وقتك بالمشاركة فى هذه المشاركة http://www.officena.net/ib/index.php?showtopic=15360 ام اننى هكذا تجاوزت حدودى على العموم فى جميع الاحوال جزاك الله خير جزاء وبارك فيك رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يناير 26, 2007 مشاركة قام بنشر يناير 26, 2007 (معدل) الاخ mojahedxp تحياتى لك السطرين المعنيين هما نفس السطرين السابقين للعداد فعلا وهو تكرار لا دعى له يمكن الغائهم . ودائما ما اقع فى هذا السهو لأتباعى طريقة او اسلوب عند كتابة كود يستلزم الانتباة جيدا حتى لا افقد ما وصلت اليه من تقدم فى الكود . وهذه الطريقة ذات شقين : الشق الاول : عند بداية العمل اقوم بتسمية الملف بأسم رقمى وهو (1) وابدء العمل وكلما تقدم العمل بعض الشئ احفظ الملف ثم اذا وصلت الى نقطة حرجة تحتاج تجربة المتغيرات لأرى تأثيرها احفظ الملف ثم اعيد حفظة بأسم الرقم التالى اى بأسم (2) لبدء مرحلة تجربة جزء معين من الكود حتى لا افقد ما وصلت اليه من نتيجة مرضية فى الملف ذو الاسم (1) وهكذا . ودائما ما اجد ان رقم الحفظ يتعدى العشرات . الشق الثانى : وهو خوفا من فقد ما وصلت الية من نتيجة اثناء العمل اقوم بنسخ السطور التى اعيد صياغتها اسفل هذه السطور حتى لا اعدل على اصل هذه السطور بل يكون التعديل على السطور المنسوخة اسفلهم . وفى كثيرا من الاحيان اقوم بنسخ الروتين فى موديل اخر مع اضافة حرف (x) فى بادية الروتين ليكون نسخة احتياطية قبل تعديل كل هذا خوف من فقد الكود . وفى النهاية قد تجد بعض السطور الزائدة او روتين مكرر ولكن بأسم اخر او موديل ايضا مكرر بما فيه من روتين . وكثير من مشاركاتى تجد هذا الخطأ بها وهذا الحرص جاء من كثرة المواقف التى كنت افقد كود قد اكون اعمل عليه لمدة ايام . اطلت عليك اخى اما شرح الموديل الاول سأقوم بأذن الله بتجهيز وهو يعتمد اساسا على استخدام المصفوفة التى تسهل وتختصر الكثير من المجهود وتسرع العمليات فهذا الكود يجرى العملية فى ثانية واحدة و واحد جزء من مائة جزء من الثانية . ولكتك اخى اكشتف السطور التى لم اقم بألغائها سهوا و هى غير مؤثرة لانها سطور مكررة فقط فى روتين تفريغ كشوف اللجان . ولم تكتسف الخطأ الموجود فعلا فى منطق كود الموديل الاول الا وهو : توجد ثلاث حلقات دوارة (For - Next) الحلقة الداخلية (For Paper) يوجد بها السطر التالى : If ACont > UBound(MyArray) Then Exit Sub يجب تعديل امر (Exit Sub) الى (Exit For) ليصبح هذا السطر كالاتى : If ACont > UBound(MyArray) Then Exit For ليكون انهاء الروتين من (End Sub) وليس من وسط الحلقة الدوارة لتحرير الذاكرة والاوضاع . الموضوع الخاص بالشرح نتحدث عنه غدا بإذن الله تحياتى تم تعديل يناير 26, 2007 بواسطه tameromar رابط هذا التعليق شارك More sharing options...
mojahedxp قام بنشر يناير 26, 2007 الكاتب مشاركة قام بنشر يناير 26, 2007 الاخ والاستاذ الفاضل /عمر الحسينى (ابو تامر) السلام عليكم ورحمة الله وبركاته بارك الله فيك وجزاك خير الجزاء على تعاونك الصادق معنا فان موضوع الشق الاول وهو الخاص بتسمية الملف باسم 1 ثم عند ادخال تعديلات جوهرية تسميه باسم 2 وهكذا فيشرفنى ان ابلغك اننى استخدم نفس الطريقة تماما فهى طريقة ناجحة للغاية فى حفظ كل مرحلة من العمل حتى لا تتداخل الافكار ويسير العمل بطريقة سلسة وبذلك انت لم تطل على بل على العكس لقد اسعدتنى عندما اعطيتنى خطاب صلاحية مطلقة لتلك الطريقة التى كنت اعمل بها وبالفعل كان يوجد عندى للملف الواحد اكثر من عشرة او عشرون نسخة كل منها يحتوى على تعديلات معينة وكنت اعتقد فى نفسى اننى بهذه الطريقة بدائى للغاية ومستوى طفولى مبتدئ اما الان فانا افتخر ان احد عملاقة هذا المنتدى يستخدمونها فلا اطالة فى اعطاء شهادة صلاحية الجودة يا استاذى الفاضل اما بالنسبة للجزء الخاص بوجود خطا فى الموديول الاول فكما ابلغتك مسبقا فانا لم افهمه اصلا حتى افهم ان هناك خطأ ما به فانا لم اتعلم بعد كيف ارى الصواب او افهمه كى استطيع تمييز الخطا منه وفى النهاية فى انتظار موضوع الشرح اليس انا الان من قام بالاطالة عليك جزاك الله خير الجزاء والسلام عليكم ورحمة الله وبركاته رابط هذا التعليق شارك More sharing options...
mojahedxp قام بنشر يناير 30, 2007 الكاتب مشاركة قام بنشر يناير 30, 2007 up رابط هذا التعليق شارك More sharing options...
عادل جلال قام بنشر أبريل 3, 2007 مشاركة قام بنشر أبريل 3, 2007 السلام عليكم ورحمة الله وبركاته الأخ / أبو تامر لاتعلم مدى سعادتى عندما رأيت أسمك منور اليوم فى المنتدى بعد غياب وبعد من الطبيعى إدخال بيانات الطلاب أولاَ فى الورقة aa إذا لم نقم بإدخال البيانات أولاَ أتمنى ظهور رسالة مضمونها أدخل الطلاب أولاَ مع تحياتى رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر أبريل 4, 2007 مشاركة قام بنشر أبريل 4, 2007 شاهد المرفق اخى _______________________2.rar رابط هذا التعليق شارك More sharing options...
عادل جلال قام بنشر أبريل 4, 2007 مشاركة قام بنشر أبريل 4, 2007 السلام عليكم ورحمة الله وبركاته الأخ / أبو تامر فعلاَ أنت عبقرى جزاك الله خيراَ تحياتى رابط هذا التعليق شارك More sharing options...
عادل جلال قام بنشر أبريل 20, 2007 مشاركة قام بنشر أبريل 20, 2007 السلام عليكم ورحمة الله وبركاته الأخ / أبو تامر طال غيابك عن منتدانا لعله يكون خير إن شاء الله و نطلب منكم المساعدة لقد أضفت ورقتين جديدتين وأتمنى تنفيذ المطلوب الموضح بهما و جزاكم الله خيراَ تحياتى 3.rar رابط هذا التعليق شارك More sharing options...
عادل جلال قام بنشر أبريل 21, 2007 مشاركة قام بنشر أبريل 21, 2007 للرفع رابط هذا التعليق شارك More sharing options...
عادل جلال قام بنشر أبريل 23, 2007 مشاركة قام بنشر أبريل 23, 2007 للرفع رابط هذا التعليق شارك More sharing options...
عادل جلال قام بنشر أبريل 24, 2007 مشاركة قام بنشر أبريل 24, 2007 السلام عليكم ورحمة الله وبركاته الأخوة / المراقبون - المشرفون - الأعضاء الرجا الدخول مع تحياتى رابط هذا التعليق شارك More sharing options...
عادل جلال قام بنشر أبريل 25, 2007 مشاركة قام بنشر أبريل 25, 2007 للرفع رابط هذا التعليق شارك More sharing options...
عادل جلال قام بنشر أبريل 28, 2007 مشاركة قام بنشر أبريل 28, 2007 للرفع رابط هذا التعليق شارك More sharing options...
islam11 قام بنشر مايو 6, 2007 مشاركة قام بنشر مايو 6, 2007 بارك الله لكم وبكم أين أنت ياأعز الناس رابط هذا التعليق شارك More sharing options...
asdhamdey قام بنشر ديسمبر 12, 2007 مشاركة قام بنشر ديسمبر 12, 2007 (معدل) الأستاذ ابو تامر حياك الله ملفك رائع ... ولكن المدرسة بها اسماء اولاد وبنات (مشتركة يعني) ونريد ان تتم كشوف اللجان الاولاد مرتبين هجائيا اولا ثم البنات وراء بعض يعني لو كشف الاولاد خلص في نصف الكشف نكمل اللجنة بنات نريد ان نقسم على عدد اللجان يعني نكتب عدد اللجان بدل عدد الطلاب مع العلم ان يكون في الحسبان عدد اللجنة من الطلاب ممكن ان يتراوح الى 50 طالب لان عند كتابة عدد اللجنة تأتي اللجنة الأخيرة غير منطقية ممكن 5 طلاب اوغير ذلك ولذلك نقسم على عدد اللجان والله التعليم الابتدائي فيه هذه الاعداد وخليها هدية العيد وكل عام وانتم بخير تم تعديل ديسمبر 12, 2007 بواسطه asdhamdey رابط هذا التعليق شارك More sharing options...
asdhamdey قام بنشر ديسمبر 13, 2007 مشاركة قام بنشر ديسمبر 13, 2007 للرفع رفع الله مقداركم رابط هذا التعليق شارك 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.