ابومريم قام بنشر مايو 11, 2012 مشاركة قام بنشر مايو 11, 2012 السلام عليكم اخواني الاعزاء مشرفينا الافاضل لدي مجموعة من البيانات في شيت اود انقلها الى مكان اخر ولكن بالترتيب وعملية النقل موضحة بالشيت بالنسبة للنقاط الثمانية الاولى اما النقطة اتاسعة فتذهب الى الرقم 1 والعاشرة الى الرقم 2 وهكذا حسب الترتيب للمجموعة للنقاط الثمانية الاولى هذا بالنسبة للمنطقة الصفراء وكذلك بنفس الطريقة للمنطقة الزرقاء وافضل ان يكون بماكرو او كود وجزاكم الله خير MoveNumber.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مايو 11, 2012 مشاركة قام بنشر مايو 11, 2012 السلام عليكم جرب المرفق MoveNumber.rar رابط هذا التعليق شارك More sharing options...
ابومريم قام بنشر مايو 11, 2012 الكاتب مشاركة قام بنشر مايو 11, 2012 السلام عليكم شكرا اخي عبداللة على تعبك وجهدك المبذول في خدمة الاعضاء اخي عبد الله الارقام توزعت مرة وحدة وماريدة ان تتوزعالارقام رقم رقم وجزاك الله خير رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مايو 14, 2012 مشاركة قام بنشر مايو 14, 2012 ما المقصود برقم رقم هل تريد في كل ضغطة زر يتم توزيع رقم رابط هذا التعليق شارك More sharing options...
ابومريم قام بنشر مايو 14, 2012 الكاتب مشاركة قام بنشر مايو 14, 2012 السلام عليكم نعم استاذنا ومعلمنا الفاضل عند كل ضغطة ينتقل رقم يعني اضغط ضغطة ينتقل الرقم 1 الى المكان المخصص وبعد ذلك اضغط ضغطة ينتقل الرقم 2 الى المكان المخصص وهكذا الى الرقم 48 هذا يتم في المنطقة الصفراء. وبشكل منفصل تتم نفس العملية في المنطقة الزرقاء وبارك الله بيك اخي ابو احمد ومشكور رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مايو 15, 2012 مشاركة قام بنشر مايو 15, 2012 جرب هذا الكود Application.ScreenUpdating = False c = 3: r = 1: T = 15 If r > 48 Then Exit Sub Do Until Cells(T, c) = "" T = T + 2 If T > 21 Then T = 15 c = c + 1 End If r = r + 1 Loop Cells(T, c) = r r = r + 1 Exit Sub Application.ScreenUpdating = True End Sub شاهد المرفق MoveNumber (1).rar رابط هذا التعليق شارك More sharing options...
ابومريم قام بنشر مايو 15, 2012 الكاتب مشاركة قام بنشر مايو 15, 2012 السلام عليكم جزاك الله خير اخي ابو احمد والله يوفقك دنيا واخرة هذا المطلوب تسجيل النقاط بعد كل ضغطة ولكن اريد اخر تسجيل هو النقطة 48 يعني تسجيل اخر نقطتين وهي 50 و54 تحذف ولاحظ اخر نقطتين زادت 2 بعد 48 وهي 50 و الاخرى زادت 4 بعد 50 وهي54 والمفروض تزيد نقطة واحدة وهذا بس للملاحظة وانا اريد حذفهما. اخي ابو احمد عند الضغط على الزر يسجل 1 وبعد الضغط على الزر مرة اخرى يسجل 2 وهكذا اريد واحدة من الحالتان التي تقدر عليها. اما الاولى : عمل زر تراجع لتسجيل النقطة يعني عند تسجيل النقطة 1 اضغط على زر التراجع فتحذف النقطة 1 وهكذا لبقية النقاط يعني ممكن اي نقطة اسجلها واتراجع عنها او الثانية: ينتقل تحديد الخلية بعد كل تسجيل يعني احدد خلية تسجيل النقطة 1 واضغط على زر تسجيل فتسجل النقطة 1 وعند الضغط على زرالتسجيل تسجل النقطة 2 وينتقل معها تحديد الخلية الى الرقم 2 وهكذا لبقية الخلايا بالنسبة للكود فهمت c=3 هو العمود الثالث وكذلك T=15 وهو العمود 15 لكن r لم افهمها ماذا تعني وجربت اطبق الكود على المنطقة الزرقاء و المفروض c=19 وT=31 و r=1 وبعد التجربة وجدت c=18 و r=0 فلم افهم لماذا ؟؟ ممكن تشرح لي الكود داخل ورقة فيجوال بيسك الخاصة بالكود؟ وانا اعرف تعبتك معي ومشكور على بذل جهدك وصرف وقتك وفي ميزان حسناتك ان شاء الله ومن الله التوفيق MoveNumber -up.rar رابط هذا التعليق شارك More sharing options...
ابومريم قام بنشر مايو 17, 2012 الكاتب مشاركة قام بنشر مايو 17, 2012 سبحان الله وبحمدة ..سبحان ربي العظيم للرفع رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مايو 17, 2012 مشاركة قام بنشر مايو 17, 2012 اولاً هذه الاكودا قم باستبدالها بأكواد مسح الكل Sub clear1() Range("C15:N15,C17:P17,C19:N19,C21:N21").ClearContents End Sub Sub clear2() Range("S15:AD15,S17:AF17,S19:AD19,S21:AD21").ClearContents End Sub ثانياً اليس الحد العددي 48 رابط هذا التعليق شارك More sharing options...
ابومريم قام بنشر مايو 17, 2012 الكاتب مشاركة قام بنشر مايو 17, 2012 السلام عليكم شكرا لك اخي عبد الله على مواصلة الرد لاحظ اخي عند الضغط على SCORE ضغطة ضغطة تبدا بتسجيل النقاط 1ثم 2 ثم 3 ثم .........ثم 46 ثم 47 ثم 48 ثم 50 ثم 54 اريد اخر نقطتين وهما 50 و 54 تحذف لاتسجل وجزاك الله خير رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مايو 17, 2012 مشاركة قام بنشر مايو 17, 2012 السلام عليكم هذا شرح للكود وهنا المرفقات بها ما طلبت MoveNumber -up.rar رابط هذا التعليق شارك More sharing options...
ابومريم قام بنشر مايو 17, 2012 الكاتب مشاركة قام بنشر مايو 17, 2012 السلام عليكم حاولت ابحث عن اجمل كلمة شكر وعرفان وجميل لشخصم الكريم فوجدت افضل شىء دعوة بضهر الغيب الله يرزقك الفردوس الاعلى ومرافقة نبينا الكريم محمد صلى الله علية وسلم وشربة هنيئة من حوضه الكريم وبارك الله بيك وبامثالك وماننسى فضل المشرفين الاخرين والاعضاء الكرام وفييت وكفييت بابو احمد والفديو افضل طريقة للشرح والفهم الاسرع واختصار للوقت والجهد والله يبارك لك باولادك ويمد في عمرك ويكثر فعل الخير لديك اميين اميين اميين........ رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مايو 17, 2012 مشاركة قام بنشر مايو 17, 2012 ولك بمثل ما دعوت لي رابط هذا التعليق شارك 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.