عبدالله باقشير قام بنشر يناير 21, 2011 مشاركة قام بنشر يناير 21, 2011 السلام عليكم تعديلات جديدة على كود ترتيب العشرة الاوائل(بعدة اختيارات) الميزه الاولى يعمل تلقائيا من الاختيارات من القوائم نقل الكود الى ملفك: اضغط بيمين الماوس على تبويب الورقة اختار نقل ونسخ اختار المصنف الذي تريد نقل النسخة اليه وحفز انشاء نسخة سينتقل الكود بمعية الورقة لان موقع الكود في نفس الورقة راس وتذييل فارغ مكون من 8 صفوف اكتب ماتريده بدون تقييد المعطيات الضرورية والتي تناسب عملك مكانها بداية الكود وهو في موديل الورقة نفسها '============================================================ '============================================================ ' نطاق البيانات اما ان يكون اسم لنطاق ' او عنوان النطاق مع اسم الورقة Private Const My_Date As String = "الشيت!$A$11:$EA$1000" 'ارقام الاعمدة توضع بالنسبة لنطاق البيانات المسمى وليس للورقة ' عمود رقم الجلوس Private Const cSeat_Number As Integer = 2 ' عمود الاسم Private Const cStudents As Integer = 3 ' عمود الفصل Private Const cClass As Integer = 13 '============================================================ ' قيمة اصغر مجموع(الدرجة) يتم اظهاره Private Const MinDegree As Double = 50 '============================================================ '============================================================ الميزة الاكثر جمالا هي فرز تلقائي بالكود بدون استخدام الفرز الخاص ببيانات الاكسل سريع جدا في اظهار النتائج جمعه مباركة لكم ولنا ودمتم في حفظ الله ترتيب العشرة الاوائل5.rar 2 رابط هذا التعليق شارك More sharing options...
جلال محمد قام بنشر يناير 21, 2011 مشاركة قام بنشر يناير 21, 2011 اخى الكريم خبور الحمد الله علي ان اكون اول من يشاهد الموضوع جزاك الله كل خير مهما قلنا من كلمات شكر فلن نعطيك جزء ولو بسيط من حقق ومجهوداتك العظيمه فجزاك الله عنا وعن جميع المسلمين كل خير وجعله الله اعمالك في موازين حسناتك 1 رابط هذا التعليق شارك More sharing options...
zine pef قام بنشر يناير 21, 2011 مشاركة قام بنشر يناير 21, 2011 شكرا و جزاك الله خير رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر يناير 21, 2011 مشاركة قام بنشر يناير 21, 2011 استاذى القدير خبور مبدع فى كل اعمالك جزاك الله خيراً لى رجاء هل ممكن تجميع كل تعدلات الجدول فى عمل واحد للاستفادة منه للجميع و لك كل الشكر و جعلها الله فى ميزان حسناتك 1 رابط هذا التعليق شارك More sharing options...
هشام كوكب قام بنشر يناير 21, 2011 مشاركة قام بنشر يناير 21, 2011 شكرا و جزاك الله خير رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر يناير 21, 2011 مشاركة قام بنشر يناير 21, 2011 بارك الله فيك انت حقا مثالا نادرا على العطاء رجاء لا تحرمنا من استكمال جمع اعمالك فى كنترول واحد لكى يكون مرجع موحد لنا جمعة مباركة رابط هذا التعليق شارك More sharing options...
بوحماد قام بنشر يناير 21, 2011 مشاركة قام بنشر يناير 21, 2011 مشكور وبارك الله فيك رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يناير 21, 2011 مشاركة قام بنشر يناير 21, 2011 شكرا أستاذنا الفاضل على هذه الدرة الغالية نفع الله بك المسلمين وجزاك خيرا رابط هذا التعليق شارك More sharing options...
احمد محمد على قام بنشر يناير 21, 2011 مشاركة قام بنشر يناير 21, 2011 اخى وعالمنا خبور خير شكرا لك على كل ابداعاتك جزاك الله خيرا وعلى فكره الاعمال الخاصة بالمدرسين كترت جامد ممكن شوية للمحاسبين( بضحك معاك احنا خدنا حقنا ببرامج خبور للمحاسبة) رابط هذا التعليق شارك More sharing options...
ابو القبطان قام بنشر يناير 21, 2011 مشاركة قام بنشر يناير 21, 2011 ماشاء الله استاذنا : خبور اعمالك .. اعجازات ولكن .. أضم صوتي لصوت اخوناmido21 رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يناير 21, 2011 الكاتب مشاركة قام بنشر يناير 21, 2011 السلام عليكم الافاضل / جلال - زين - خنانا - ابو آلاء - هشام كوكب - باست - ميدو - باست كيماس - حسن علي ---------------------------حفظكم الله اكرمكم الله وعافاكم من كل مكروه لكم مني جزيل الشكر والتقدير رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 22, 2011 مشاركة قام بنشر يناير 22, 2011 ماشاء الله عليك استاذنا الفاضل الكريم خبور زادك الله من علمه ونفع الله بك المتعطشين الى العلم ومليار مليون شكر على هذه الدره الجميله رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر يناير 22, 2011 مشاركة قام بنشر يناير 22, 2011 ماشاء الله تبارك الله أحسن الخالقين عمل ولا أروع حفظك ربنا ورعاك رابط هذا التعليق شارك More sharing options...
الجزيرة قام بنشر يناير 22, 2011 مشاركة قام بنشر يناير 22, 2011 ما شاء الله عليك بالفعل هي درر من أخ كريم ومبدع وخلوق بارك الله فيك وفي علمك : ) رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يناير 22, 2011 مشاركة قام بنشر يناير 22, 2011 السلام عليكم اخي الحبيب خبور بارك الله فيك و في اعمالك تحياتي رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يناير 22, 2011 الكاتب مشاركة قام بنشر يناير 22, 2011 لسلام عليكم الاخ الفاضل/ ولد المجرب ________حفظك الله توقيعك مس شي في قلبي ودمعت عيني لما قرأته اكرمك الله حبيبي محمدي / طمني عليك اخي برسالة اخي الجزيره كلمات ننبع من اصلك الكريم اخي عادل بارك الله فيك نحب تواجدك معنا دائما تقبلوا مني جزيل الشكر والتقدير ودمتم في حفظ الله رابط هذا التعليق شارك More sharing options...
naderwatfa قام بنشر يناير 23, 2011 مشاركة قام بنشر يناير 23, 2011 الله الله الله إبداع متميز و كود جميل جداً شكراً أخي الحبيب خبور خير على هذه الهدية الرائعة 1 رابط هذا التعليق شارك More sharing options...
أم عبد الله قام بنشر يناير 25, 2011 مشاركة قام بنشر يناير 25, 2011 [b]أخونا في الله الأستاذ / خبور السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على مجهودك الرائع وابتكاراتك المفيدة لنا جميعاً وكم تعلمنا من حضرتك كثيراً وكثيراً ومن جميع الأخوة الكرام في هذا المنتدى الجميل الذي به نخبة متميزة في العلم والعطاء بدون مقابل ولا أحد يبخل علينا بأي معلومة نحتاجهاجزاكم عنا خيراً وجمعنا بكم في الفردوس الأعلى من الجنةآميييييييييييييييييييييييييين0 رابط هذا التعليق شارك More sharing options...
أم عبد الله قام بنشر يناير 25, 2011 مشاركة قام بنشر يناير 25, 2011 [b]أخونا في الله الأستاذ / خبور السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على مجهودك الرائع وابتكاراتك المفيدة لنا جميعاً وكم تعلمنا من حضرتك كثيراً وكثيراً ومن جميع الأخوة الكرام في هذا المنتدى الجميل الذي به نخبة متميزة في العلم والعطاء بدون مقابل ولا أحد يبخل علينا بأي معلومة نحتاجهاجزاكم عنا خيراً وجمعنا بكم في الفردوس الأعلى من الجنةآميييييييييييييييييييييييييين0 رابط هذا التعليق شارك More sharing options...
cat101 قام بنشر فبراير 4, 2011 مشاركة قام بنشر فبراير 4, 2011 ما شاء الله عليك بالفعل هي درر من أخ كريم ومبدع وخلوق بارك الله فيك وفي علمك : ) ما شاء الله عليك بالفعل هي درر من أخ كريم ومبدع وخلوق بارك الله فيك وفي علمك : ) رابط هذا التعليق شارك More sharing options...
قصي قام بنشر فبراير 20, 2011 مشاركة قام بنشر فبراير 20, 2011 رابط استخراج الشهادات http://www.officena.net/ib/index.php?showtopic=33778 رابط هذا التعليق شارك More sharing options...
قصي قام بنشر فبراير 20, 2011 مشاركة قام بنشر فبراير 20, 2011 http://www.officena.net/ib/index.php?app=core&module=attach§ion=attach&attach_id=38007 الشهادات بالصور جديد رابط هذا التعليق شارك More sharing options...
قصي قام بنشر فبراير 20, 2011 مشاركة قام بنشر فبراير 20, 2011 السلام عليكم استخدم هذا الكود للحذف Sub kh_Delete_AllShape() Dim shp As Shape Dim U As Integer For Each shp In Sheet3.Shapes If shp.Type = 8 Or shp.Type = 4 Or shp.Name = "Group 6394" Then GoTo 1 shp.Delete 1: Next shp End Sub هذا سيقوم بحذف الصور والاطارات ما عدى الاطار الخاص بالشهادة الاولى ويبقي الازرار والتعليقات رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر فبراير 22, 2011 مشاركة قام بنشر فبراير 22, 2011 جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر فبراير 24, 2011 مشاركة قام بنشر فبراير 24, 2011 من باب تجميع الاعمال المرتبطة بالعالم الكبير خبور خير لاستخراج الشهادات نضع هذه المشاركه == السلام عليكم لى سؤال اخر فى الكود وهو ما فائدة الرقم 8 والرقم 4 فى الكود وقد اخبرتك التالي هذا سيقوم بحذف الصور والاطارات ما عدى الاطار الخاص بالشهادة الاولى ويبقي الازرار والتعليقات الاطار الخاص بالشهادة الاولى استدلينه علية بالاسم وهو "Group 6394" الازار والتعليقات استدلينه عليها بنوعية الكائن نوع الكائن الزر هو msoFormControl او الرقم 8 نوع الكائن التعليقات هو msoComment او الرقم 4 =============================================== وساعطيك كود مختصر انت بعد استخدام زر المسح والخفظ سيبقى معاك فقط الاطارات التي قمت باضافتها وسيكون ارتفاع هذه الاطارات بعد حذف الصفوف العدد صفر اذن استخدم هذا الكود : Sub kh_Delete_Group() Dim shp As Shape Dim U As Integer For Each shp In Sheet3.Shapes If shp.Height = 0 Then shp.Delete: U = U + 1 Next shp MsgBox U End Sub جرب واخبرنا بالنتيجة رابط هذا التعليق شارك 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.