الصـقر

الاخت الكريمه رشا جربى هذا الكود افتحى ملف جديد وادخلى محرر الاكواد اعملى ادراج مودويل جديد والصقى هذا الكود فيه ثم اضغطى على زر رن الاخضر لعمل الكود ثم اعملى حفظ للملف واغلقيه Sub ResetAll() Dim myCommandBar As CommandBar For Each myCommandBar In Application.CommandBars If myCommandBar.Type = msoBarTypePopup Then myCommandBar.Reset myCommandBar.Enabled = True End If Next myCommandBar End Sub للعلم هذا الكود من مكتبة الموقع اللى كان قائم على العمل والاشراف بهاالاخ الحبيب ياسر خليل واليك حل اخر اتبعى التعليمات اللى بالصوره تقبلى تحياتى --------------------------------------------------------------------------------------

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

اخى الكريم جرب هذا المرفق تقبل تحياتى -------------------------------------------------------------- معرفة الصف.zip

اخى الكريم الكود يعمل تمام والنتيجة مظبوطه 100 % عندى حتى وان كان فى خلايا بها حرف غ ما هى نسخة الاوفيس لديك ؟ تفضل شرح الكود بالتفصيل Sub alsaqer() ' اخى الكريم اليك شرح الكود ' السطر التالى لايقاف اهتزاز الشاشه عند تنفيذ الكود Application.ScreenUpdating = False ' تعريف متغير اخر سطر من النوع لونج Dim lr As Long ' A عمل سطر لمعرفه اخر سطر به بيانات فى العمود lr = ورقة1.Cells(Rows.Count, "a").End(xlUp).Row ' RANK تحديد النطاق للصق معادلات الداله With ورقة1.Range("c2:c" & lr) ' c2 على سبيل المثال فى الخليه RC[-1] شرح هذا الجزء كما طلبت 'b2 انا عايزه يبص على الرقم اللى بالخليه المجاوره وهى 'c2 فهى على نفس السطر للــ b2 فعلشان اشير الى الخليه ' ولكن ليست نفس العمود فهى فى العمود اللى قبله R لذالك كتبت ' C[-1] لذالك كتبت .Formula = "=IFERROR(RANK(RC[-1],R2C2:R1000C2),0)" ' بعد لصق المعادلات فى النطاق المذكور يتم تحويل النتيجة من المعادله الى قيمه .Value = .Value End With ' مسح المحتوى لاستقبال بيانات جديده Range("i2:k50").ClearContents ' وقلت ان قيمته فى البدايه 2 b عمل متغير وسميته 'i2 الماذا 2 لان انا عايزه يلصق النتائج فى الخليه b = 2 'A عمل حلقه تكرارية بدأ من الصف الثانى الى اخر صف به بيانات بالعمود For i = 2 To lr 'هل هى اكبر من 0 واقل من 11 c لعمل اختبار للخليه اللى موجوده بالعمود if هنا استخدمت If Cells(i, 3) > 0 And Cells(i, 3) < 11 Then 'i & j & k فى حال تحقق الشرط ينسخ الخلايا فى العمود Cells(b, 9).Value = Cells(i, 1) Cells(b, 10).Value = Cells(i, 2) Cells(b, 11).Value = Cells(i, 3) 'بمقدار 1 كل لفه للحلقه b زياده المتغير b = b + 1 ' End If بــ if اغلاق End If ' عمل التالى للحلقه الى ان تنتهى من النطاق المحدد لها Next 'K2 بدأ من الخلية K وتحديد معيار الترتيب هو العمود i2:k50 عمل ترتيب تصاعدى للنطاق من ورقة1.Range("i2:k50").Sort Key1:=ورقة1.Range("k2"), Order1:=xlAscending ' لعدم الاحتياج له K مسح محتوى النطاق العمود Range("k2:k50").ClearContents ' لعدم الاحتياج له c مسح محتوى النطاق العمود Range("c2:c" & lr).ClearContents Application.ScreenUpdating = True End Sub شاهد المرفق تقبل تحياتى ---------------------------------------------------------- معرفة الصف.zip

اخى واستاذى الفاضل انا اسعد بمشاركة حضرتك فى اعمالك جرب المرفق ان شاء الله يعجبك تقبل تحياتى ---------------------------------------------------- معرفة الصف.zip

اخى الكريم الاستاذ / فضل حسين جرب هذا الكود فى الملف المرفق هل هو طلبك تقبل تحياتى ---------------------------------------- معرفة الصف.zip

بعد اذن اخى الفاضل خالد الشاعر اخى الكريم توكل ضع رقم الصنف المطلوب فى الخليه K1 وليكن 6050 ثم ضع فى الخليه j1 رقم الفرع وليكن 201 ثم ضع فى الخليه i1 رقم الفرع وليكن 203 ثم ضع فى الخليه h1 رقم الفرع وليكن 205 وضع هذه المعادله فى الخليه f1 =SUMIFS(C:C;A:A;K1;B:B;J1)+SUMIFS(C:C;A:A;K1;B:B;I1)+SUMIFS(C:C;A:A;K1;B:B;H1) وشاهد النتيجة ملحوظه يمكن فى الخلايا j1 & i1 & h1 وضع الفرع لو عايز فرع واحد اكتب رقم الفرع فى اى خليه منهم لو عايز فرعين اكتب رقم الفرعين اى اى خليتين منهم لو عايز 3 فروع اكتب ارقام الفروع فى الخلايا الثلاثه تقبل تحياتى ------------------------------------------------------------------------------------------------------------------------------

اخى الحبيب اهلا بيك فى جامعه اوفيسنا بما انك مهتم بالسودكو زى بهديك ملف عندى من احد المواقع الاجنبيه جرب الملف ربما يعجبك بس اهم شئ تكون حريف تقبل تحياتى -------------------------------------------------------------------- SuDoku.zip

استاذى الحبيب بن عليه جزاكم الله خيرا ما اروع حلولك دائما ما ارتوى من علمك تقبل تحياتى ---------------------------------------------------------------------------------------------------------------------------------------------------------

اخى الكريم حماده طلبك تم عمله من اسبوع على الرابط التالى http://www.officena.net/ib/topic/65903-تعديل-كود-للدوائر-الحمراء/?do=findComment&comment=429313 تقبل تحياتى -----------------------------------------------------------------------------------------------------------------------------------

استاذى الفاضل المهندس طارق محمود ما شاء الله عليك روعه أسال الله ان يزيدك من علمه وحلمه وفضله والله ليك وحشه فأنا احبك فى الله تقبل تحياتى

استاذى الفاضل المهندس / محمد طاهر اختياركم للاستاذ/ ياسر خليل والاستاذ / ابوخليل اختيار حق وتقديركم لهم مشكور جزاكم الله خيرا وجعل اعمالكم فى ميزان حسناتكم تقبل تحياتى واحترامى

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

جزاكم الله خيرا يا ابو يوسف تقبل تحياتى

اخى الحبيب انا تحت امرك فى كل شئ دام انه قدر استطاعتى بخصوص طلبك الثانى على حسب فهمى لطلبك جرب المرفق وبخصوص الشرح ان شاء الله ان تيسر لى الوقت سوف اقدم لك الشرح تقبل تحياتى حضور الموظفين.zip

السلام عليكم ورحمة الله وبركاته سؤال واجب على استاذى الفاضل / عادل حنفى يرجى من الاخوه الاعضاء من يعرف عن اخباره شئ فيطمئنى عليه او من يعرف رقم جواله يرسله لى برساله خاصه ولكم جزيل الشكر تقبلو تحياتى

بعد اذن استاذى زيزو العجوز استاذى الحبيب ابومهند جرب هذه الداله فى الخليه C2 واسحبها نزولا وسيتم قرائتها وقت وليس رقم =IF(ISNONTEXT(A2);"";IF(ISBLANK(B2);"بدون بصمة";IF(TIME(HOUR(B2);MINUTE(B2);SECOND(B2))<TIME(7;31;0);"";IF(TIME(HOUR(B2);MINUTE(B2);SECOND(B2))<TIME(8;1;0);1;IF(TIME(HOUR(B2);MINUTE(B2);SECOND(B2))<TIME(8;31;0);2;IF(TIME(HOUR(B2);MINUTE(B2);SECOND(B2))>=TIME(8;31;0);"إجازة تراكم زمنيات")))))) جرب وعلمنى بالنتيجة تقبل تحياتى

اخى الحبيب انا ميردنيش انك تضيع وضيع الناس انتى برضوا حبيبى لاحظ ان التاريخ 2016/1/1 لم يأتى بعد لذالك تاريخ اليوم طبيعى مش هيفتح اما بخصوص ازاى انت تدخل وتعدل قم بايقاف الماكرو ومن ثم تدخل الفيجوال بيسك وتعدل التاريخ وتدخل عادى المهم هذا كود اخر Private Sub Workbook_Open() If Date > DateValue(" 1/1/2017") Or Date < DateValue(" 1/1/2016") Then Application.Visible = False Dim q As String q = InputBox("لفتح الملف يتطلب كلمة مرور ") If IsNull(q) Or q = "" Or q <> "123" Then MsgBox "كلمة المرور غير صحيحه سيتم غلق الملف ", vbCritical, " عفوا" Application.DisplayAlerts = False ThisWorkbook.Close Else Application.Visible = True End If End If End Sub كلمة المرور لفتح الملف فى حال كان خارج الفتره المذكوره هو 123 طبعا يمكن انت تغيره الى اى رقم سرى اخر تقبل تحياتى التحكم فى فترة صلاحية الملف.zip

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

تفضل اخى الحبيب ضع هذا الكود فى حدث فتح الملف Private Sub Workbook_Open() If Date > DateValue(" 1/1/2017") Or Date < DateValue(" 1/1/2016") Then ThisWorkbook.Close End If End Sub يمكنك تغيير التواريخ المذكوره الى اى شئ تحب تقبل تحياتى

اخى واستاذى / زيزو العجوز ما شاء الله عليك شعله نشاط بالمنتدى فى الفتره الاخيره اسال الله تعالى ان يزيدك من علمه وفضله عن علي بن أبي طالب رضي الله عنه قال: قال رسول الله صلى الله عليه وسلم :" من مشى في عون أخيه ومنفعته فله ثواب المجاهدين في سبيل الله" عن أنس رضي الله عنه قال : قال رسول الله صلى الله عليه وسلم "من مشى في حاجة أخيه المسلم كتب الله له بكل خطوة سبعين حسنة، وكفر عنه سبعين خطيئة ; فإن قضيت حاجته على يديه خرج من ذنوبه كيوم ولدته أمه، وإن مات في خلال ذلك دخل الجنة بغير حساب. قال رسول الله صلى الله عليه وسلم: "من قاد أعمى أربعين خطوة وجبت له الجنة" عن النبي صلى الله عليه وسلم: قال: من مشى إلى غريمه بحقه صلت عليه دواب الأرض ونون الماء ونبتت له بكل خطوة شجرة تغرس له في الجنة وذنبه يغفر" هذا الحديثُ رواه أبو محمد فيروز العَسقَلانِيُّ، ورَوينا في المعجم الكبير والأوسط والصغير يعني للطَّبراني عن ابن عمر رضي الله عنهما أن رجلاً جاء إلى النبيِّ صلى اللهُ عليهِ وسلَّمَ فقال: يا رَسولَ اللهِ" أيُّ النَّاسِ أحبُّ إليكَ ؟ فقال رسولُ اللهِ صَلَّى اللهُ عليهِ وسلَّمَ، أحبُّ النَّاسِ إلى اللهِ أنفعُهُم للنَّاسِ، وأحبُّ الأعمالِ إلى اللهِ سرورٌ تُدخِلُهُ على مسلمٍ أو تكشِف عنه كُربةً، أو تقضي عنهُ أو تطرُدَ عنهُ جُوعاً، ولَأَن أَمْشِيَ مع أخٍ لي في حاجةٍ أحبُّ إليَّ مِن أن اعتكِف في هذا المسجدِ شهرًا في مسجِد المَدينة، ومن كفَّ غَضبه سَتَرَ اللهُ عورتَهُ، ومن كظم غَيظه ولو شاء أن يُمضِيَهُ أن يُمضِيَهُ أمضاهُ مَلَأَ اللهُ قَلْبَهُ رَجاءً يوْم القِيامة، ومن مشى مع أخيه في حاجَةٍ حتى يُثَبِّتَها ثَبَّتَ اللهُ قَدَمَيْهِ يَوْمَ تَزِلُّ الأقدامُ". اسال الله تعالى ان يقضى حاجتك وحاجة جميع المسلمين فى الدنيا والاخره تقبل تحياتى العطره

اخى الكريم جرب المرفق انت طلبت اظهار 3 اعمده الاسم وهو معروف بالعمود C والكمية والعدد وانا مش عارف هما هيكون بأى اعمده لكن بفرض انهم فى العمود D & E جرب المرفق تم عمل كود من عندى انا بطريقتى دون النظر بالكود اللى موجود بالملف المرفق اعلاه تقبل تحياتى Book1.zip

وفيك بارك يا ملك الــ VBA هذا ما تعلمنه منكم تقبل تحياتى

تفضل اخى الكريم جرب المرفق هل هو طلبك تقبل تحياتى قائمة منسدلة.zip