نجوم المشاركات

أخي الكريم جرب الكود التالي Sub SUMSpecificSheets() Dim I As Long, Counter1 As Double, Counter2 As Double Dim lStart As Long, lEnd As Long If Not IsNumeric(Range("F2")) Or Not IsNumeric(Range("H2")) Or IsEmpty(Range("F2")) Or IsEmpty(Range("H2")) Then MsgBox "Invalid Input", 64: Exit Sub Application.ScreenUpdating = False With Sheets("total") .Range("A2:B2").ClearContents lStart = Application.Min(.Range("F2"), .Range("H2")) lEnd = Application.Max(.Range("F2"), .Range("H2")) For I = lStart To lEnd If Evaluate("=ISREF('" & I & "'!A1)") Then Counter1 = Application.Sum(Counter1, Sheets(I).Range("A2")) Counter2 = Application.Sum(Counter2, Sheets(I).Range("B2")) .Range("A2") = Counter1: .Range("B2") = Counter2 Else MsgBox "The Sheet " & I & " Is Not Existed", 64 End If Next I End With Application.ScreenUpdating = True End Sub

السلام عليكم استاذى احمد زمان جزاك الله خيراً اسمح لى بالمشاركة اثراءً للموضوع اخى الكريم بدون عمود مساعد ضع هذه المعادلة فى الخلية I6 ثم قم بالسحب الافقى كما تريد ملحوظه هامة جداً هذه معادلة صفيف بعد كتابتها يتم الضغط على CTRL+SHIFT+ENTER =IFERROR(SMALL(IF($A$6:$A$100=$H$6;ROW($A$6:$A$100));COLUMN(A1));"") تحديد موقع الصفة.rar

جرب هذا الملف مجموغ صفحات.zip

وعليكم السلام و رحمة الله وبركاته اخي خالد الرشيدي ابداع و حل رائع جزاك الله خيرا

السلام عليكم اخي عمار شاهد المرفق اذا اعجبتك الفكره يمكن تكمله باقي العمل اقبل تحياتي واحترامي مخزن.rar

بسم الله الرحمن الرحيم الحمد لله و الشكر له اذي أنعم علينا بنعم لاتعد و لاتحصى ومن هذه النعم وجود هذا المنتدى القيم وانعم علينا بوجود هذه الزمرة المتميزة في المنتدى التي تعمل وتقدم الخير ولاتنتظر إلا الجزاء من الله عز وجل كافأهم الله بكل خير وأنعم علينا أيضا بوجود ساحر الاكسيل ومهندسه العالم العلامة والبحر الفهامة بمشيئة الله عبد الله باقشير وهو من أحب الناس إلى قلب اخيه الأستاذ / محمدي عبد السميع عبد الغني حفظه الله ورعاه وحفظ الجميع من كل سوء ......... آمين يارب العالمين وبعد : أقدم هذا العمل الفذ وهو عبارة عن تجميع لأكواد معينة والشرح لكي نحصل في النهاية على عمل ولا أروع منه في مجال أعمال الكنترول الخاص برجال التربية والتعليم وسنطلق على هذا العمل " درة أعمال الكنترول " بسم الله نبدأ أولا : عند تصميم أي برنامج لأعمال الكنترول نحتاج الى صفحة بيانات أساسية وفي هذه الصفحة نحتاج الى *** حساب العمر عند يوم واحد أكوبر من العام الدراسي القادم وتوجد معادلات كثيرة لكن أفضلها وأسهلها على الإطلاق هذه المعادلات =IF($E7<>"";DATEDIF($E7;$J$5;"Y");"") لحساب عدد السنوات =IF($E7<>"";DATEDIF($E7;$J$5;"Ym");"") لحساب عدد الشهور =IF($E7<>"";DATEDIF($E7;$J$5;"MD");"") لحساب عدد الأيام أما إذا كنت من هواة الأكواد فهذا الكود للبطل الهمام بضم الهاء وفتح الميم الأولى عبد الله ياقشير '============================================" ' دالة حساب العمر بالتقويم الميلادي تاريخ الميلاد Mydate_Birth التاريخ الذي تريد حساب العمر عنده Mydate اذا كان فارغا سيتم احتساب اليوم '============================================" Function kh_count_y_m_d(Mydate_Birth As Date, Optional Mydate_Now, Optional Y_M_D As String = "Y_M_D") Dim MyDate As Date Dim D_1 As Integer, D_2 As Integer, M_1 As Integer, M_2 As Integer, Y_1 As Integer _ , Y_2 As Integer, d As Integer, M As Integer, Y As Integer If IsDate(Mydate_Now) Then MyDate = Mydate_Now Else MyDate = Date If IsDate(Mydate_Birth) And CDate(Mydate_Birth) <= CDate(MyDate) Then D_1 = Day(MyDate): D_2 = Day(Mydate_Birth) M_1 = Month(MyDate): M_2 = Month(Mydate_Birth) Y_1 = Year(MyDate): Y_2 = Year(Mydate_Birth) If D_1 >= D_2 Then d = D_1 - D_2: M = 0 Else d = D_1 + 30 - D_2: M = -1 If M_1 + M >= M_2 Then M = M_1 + M - M_2: Y = 0 Else M = M_1 + M + 12 - M_2: Y = -1 Y = Y_1 + Y - Y_2 If Y_M_D = "Y_M_D" Then kh_count_y_m_d = d & "d-" & M & "m-" & Y & "y" If Y_M_D = "Y" Then kh_count_y_m_d = Y If Y_M_D = "M" Then kh_count_y_m_d = M If Y_M_D = "D" Then kh_count_y_m_d = d End If End Function *** ونحتاج أيضا الخلية النشطة : وهي آخر حلية مكتوب فيها في آخر صف و تسهل لنا الوصول الى الصف الأخير الفارغ لإضافة بيانات أخرى إذا أردنا Sub nasheta() Dim U As Integer U = ActiveCell.Row Dim LastRow As Integer LastRow = Cells(Rows.Count, "B").End(xlUp).Row + 1 If U = LastRow Then Range("B7").Select Else Range("B" & LastRow).Select End If ActiveWindow.View = xlNormalView End Sub ماعليك إلا أن تربط زر بهذا الكود وهذه هي Sub kh_Hidden() With Range("A2:A5") If .EntireRow.Hidden Then .EntireRow.Hidden = False Else .EntireRow.Hidden = True End If End With End Sub *** سنجتاج أيضا إلى Private Sub Worksheet_Activate() Set WW = Application.WorksheetFunction SS = WW.CountA(Range("B7:B1000")) + 6 EE = WW.CountA(Range("C7:C1000")) + 6 Application.ScreenUpdating = False Range("B7:Z1000").Sort [c7], xlAscending Range("B7:Z1000").Sort [D7], xlDescending For U = 7 To EE Cells(U, 4).NumberFormat = "yyyy/mm/dd" Next Range("B7:B1000").ClearContents [B7] = 1 [B8] = 2 Range("B7:B8").Select On Error Resume Next Selection.AutoFill Destination:=Range("B7:B" & EE) Application.GoTo [B7] 'Application.ScreenUpdating = True End Sub حساب العمر.rar حساب السن بالكود.rar كود اخفاء الصفوف.rar الخلية النشطة.rar طريقة ربط زر بكود اختر أي زر يعجبك منظره ثم اضغط عليه بيمين الماوس واختر نسخ ( copy) ثم حدد المكان الذي تريد اللصق فيه أو إنشاء الزر فيه واضغط بيمين الماوس واختر لصق ( past ) حرك الماوس في اتجاه الإطار الموجود حول الزر الذي لصقته ستظهر علامة الزائد و في كل اتجاه من علامة الزائد يوجد ايضا علامة زائد أخرى ثم اضغط بيمين الماوس واختر تعيين ماكر و ستطهر اسماء الماكروهات اختر الماكرو المطلوب ثم أوكي طريقة تحريك زر ملحوظه عند وجود علامة الزائد و في كل اتجاه منها يوجد ايضا علامة الزائد يمكنك الضغط بيسار الماوس وأنت مستمر بالضغط حركها إلى أي مكان جرب عمل ذلك واحمد الله *** سنجتاج أيضا الى كود يخفي عدد من الأسطر حتى نجصل عل أكبر مساحة ممكنه من الصفحة للرؤية و الكتابه بها وهذا هو الكود الخاص بذلك " كود الاخفاء" كود لعمل المسلسل أوتوماتيكي وهذ الكود سنضعه في حدث الورقة لكي يتم التسلسل بعد انتقالك الى ورقة أخرى والعودة لصفحة بيانات أساسية بدون الضفط على أية أزرار وسنضيف عليه كود لترتيب الطلاب حسب النوع أولا ثم ترتيب الطلاب تصاعديا بدون زر في نفس اللحظة وهذا الكود سنضعه في حدث الورقة لكي يتم الترتيب بعد انتقالك الى ورقة أخرى والعودة لصفحة بيانات أساسية وهذا هو الكود الخاص بذلك " كود التسلسل الاوتوماتيكي والترتيب الهجائي"

بسم الله الرحمن الرحيم وبه نستعين إخوانى الاعزاء السلام عليكم ورحمته الله وبركاته بناءا على طلب أحد الزملاء الافاضل بهذا الصرح المبارك عبرالخاص وحتى تعم الفائده للجميع أقدم لسيادته وللساده الاعضاء هذا البرنامج وهو يصلح للسادة العاملين بمصانع القطاع الخاص حيث تم ربط الاجر بالحضور والانصراف ويتم التسجيل هنا بصفة يومية وعلى مدار شهرالاستحقاق لكل عامل وهو مقسم على ثلاثة مراحل حسب وضع كل عامل بهذا المصنع المرحلة الاولى مرتبطة بالاجر الاساسى الشهرى المتفق عليه وهو محدد بعدد الساعات الاصلية للعمل المرحلة الثانية مرتبطة بالاجرالاضافى وهناك إحتمالية لحدوث ذلك حسب ظروف كل عامل المرحلة الثالثة مرتبطة بالاجرالاضافى للسهرات الليلية وهناك إحتمالية لحدوث ذلك حسب ظروف كل عامل يشمل البرنامج أيضا الجزاءات التى تقع على العامل ويمكن تعديلة حسب نظام كل شركة يشمل البرنامج أيضا اأيام الغياب لكل عامل بالشركة ففى حالة سماح أيا من رصيد العامل لآجازنه الاعتيادية أو أجازنه العارضة فلايتم خصم أية مبالغ من هذا العامل إلا فى حالة نفاذ تلك الارصدة فتقع عليه أيام الغياب بالخصم يشمل أيضا السلف الذى يتقاضاها العامل على مدارالشهرعلى أن يتم خصمها من اجمالى راتبه اليومى وهناك المزيد نسألكم الدعاء.... تقبوا وافر احترامى .... وجزاكم الله خيرا

عزيزي الرائع ابوعبدالله اعتذر بشدة على تاخيري في الرد على كلامك الاكثر من رائع بخصوص محاسبة المطاعم وذلك لظروف مرضي ولكن ان شاء الله يمكننا سويا وضع نواة حسنة لمشروع محاسبة الفنادق والذي كما سبق واوضحت انه يشمل المطاعم بداخله واامل ان نبدا سويا من الالف الى الياء حتى يخرج مشروع فريد لمحاسبة الفنادق والتي اعتقد انها شاملة لاهم ومعظم مجالات المحاسبة. ولكن دائما سيبقى الوقت هو العدو الاوحد لي وساضع امامك اطار عام لمجال المحاسبة داخل المنشآت السياحية ولكن بكل بساطة او بمعنى ادق بالمفهوم العامي وقبل البدء ارجو ان يتسع صدرك لكلام محاسبة وبس اى بدون برمجة حتى تصلك الفكرة الاساسية والتي من خلالها يمكنك معرفة كافة مدخلات الاطار المحاسبي ( البيانات التي سيتم معالجتها او تبويبها )داخل الفندق وكذلك العمليات التي تتم فيه ثم المخرجات والتي ستكون في شكل تقارير اساسية واخرى مكملة - هناك اقسام داخل قسم المحاسبة والتي تقوم بتجميع البيانات كل حسب تخصصه. وهي كالتالي : قسم مراقبة التكاليف :Cost Control ويتراسه Cost controller وهو القسم المسئول عن مراقبة المخزون ومخرجه الاساسي هو ( تكلفة البضاعة المباعة )Cost Of Salesوبالطبع كي نصل الى رقم تكلفة البضاعة المباعة فنحن بحاجة لمعرفة رصيد اول الفترة المحاسبية وصافي المشتروات واخيرا رصيد بضاعة آخر الفترة (كل هذه البنود بسعر التكلفة وليس البيع) والمخزون في غالبية الفنادق يصنف على 4 محاور رئيسية 1- مخزون اغذية Food Store 2- مخزون مشروبات Beverage Store 3-مخزون عام General store 4-مخزون الصيانة Maintenance Store وساقوم برفع ملف به هذه التصنيفات بمحتوياتها من اصناف لان كل من هذه المخازن بداخلها تصنيف فرعي آخر وهنا يجب الاشارة الى معيار هام في التفرقة بين ماهو Food وما هو Beverage وهو اذا لم تتم اضافة اى تكاليف للصنف بعد شراؤه فهو Beverage وللتوضيح الشاى نضيف اليه سكر اذا فهو Food وليس مشروب Beverageاما الكولا فهي مشروب عزيزي ابو عبدالله اعلم اني اطيل عليك ولكن انت قلت ان الفكرة اعجبتك واذا اردت مني اكمال الموضوع فانا معك حتى تصل الفكرة للاذهان واذا قلت توقف وارسل ملفات فانا ايضا معك واتمنى ان لا تمل مني وفي المرة القادمة ساقوم بشرح باقي الاقسام والتعريف بمهامها الاساسية ومدخلاتها ومخرجاتها وهي على النحو التالي قسم مراقبة الايرادات Income و يتراسه Income Auditor ويليه Night Auditor ويليه Restaurant Auditor ويليه General Cashier ثم F&B Cashier وكل له تخصصه وله مدخلات بيانات ومخرجات مكملة لبعضها البعض قسم المدفوعات Payable قسم المقبوضات Receivable وكل هذه الاقسام تصب بياناتها في جعبة رئيس الحسابات والذي بدوره يصب بياناته بعد المعالجات والتسويات المطلوبة للمدير المالي تحياتي للجميع وتحياتي الخاصة جدا لك عزيزي المبدع على الدوام ابوعبدالله هاني بدر

المشروع الكبير: شرح برنامج المخزون و الفواتيرالشامل الاصدار الثالث هذا البرنامج هو النسخة الثالثة من برنامج المخزون و الفواتير الشامل وهو من الممكن اعتباره اكثر من برنامج فى برنامج واحد يصلح لكافة اغراض المبيعات و المشتريات وذمم عملاء وموردين مع ميزانية عامه توضح الربح و الخساره يمتاز البرنامج بكثرة التقارير وسهولة الحصول عليها فى اى وقت البرنامج به الكثير من الاضافات عن الاصدارات السابفة البرنامج مليئ بافكار جديده فى طريقة ادخال الاصناف داخل الفواتير و استدعائها و التعديل عليها ربما لم تشاهدها من قبل البرنامج بواجهة تطبيقية كاملة مما يسهل من استخدامه ويسرع من ادائة ويحافظ على ثباته البرنامج يعمل على نسختي اوفيس 2007 و 2010 وان كنت انا افضل النسخة الأخيرة من حيث السرعة ** اليوم وانا على وشك انتهاء مرحلة تجربة هذاالاصدار احببت ان اقدم لكم الشرح الوافى لهذا البرنامج البرنامج يحتوى على الكثير و الكثير من الاختصارات التي تساعدك في انجاز مهامك بسرعه عالية وهى افكار جديده على الاكسيل ** تم تصميم البرنامج بمواصفات خاصه وهو فى الاصل برنامج تجارى ولكنى اقدمه هنا للمنتدى وللأخوة الاعضاء بصورة مجانية بغرض التعلم او استخدامهم الشخصىعلى شرط ان لن يقوم اى شخص بتقديم هذا البرنامج الى اى جهه او شركة بغرض الربح. فحقوق ملكيتة محفوظة لى و الله الشاهد على ذلك البرنامج سوف يتم نزوله مفتوح المصدر فليس غرضى هو الاحتكار ولكنى اريد هذا العمل خالصا لوجه الله تعالى لكى يستفيد ويتعلم الجميع Ø يمكن التعديل في البرنامج على حسب ظروفي ومدى انشغالي اذا كانت تغييرات غير جوهريه Ø اليوم اقدم لكم شرح وافى للبرنامج لطلب كثير من الاعضاء و ايضا لضرورة التعرف على بعض النقاط الهامه داخل البرنامج كما يمكنك الحصول على ملف تنفيذى به شرح كامل للبرنامج حجم الملف 7 ميجابايت يمكنك مراسلتى على الايميل لطلب الشرح amroomo@gmail.com # فى الاسبوع القادم بمشيئة الله سوف اقوم بتنزيل البرنامج على المنتدى و عندما تنتهى فترة تجربة البرنامج ليكون كاملا و الكمال لله وحده سبحانه وتعالى ...... لن اطيل عليكم فلنبدأ على بركة الله بالشرح وهو عباره عن صور تشرح كافة تفاصيل البرنامج

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

جرب السطر التالي Sub Test() Sheet2.Range("G2") = Application.Match(Sheet2.Range("A1"), Sheet1.Range("A1:A" & Sheet1.Cells(Rows.Count, "A").End(xlUp).Row), 0) End Sub

حقاً لا اجد من الكلامات ما تعبر عن امتنانى وشكر اخي خالد الرشيدى جزاك الله خير ونفع بك الاسلام والمسلمين ورحمة الله والديك وغفر الله لهم

أخي العزيز / طائع إليك المطلوب إن شاء الله قفل خلايا بشروط 22.rar

الحمد لله أن تم المطلوب على خير أخي الغالي ياسر ويرجى عند وجود طلب جديد يختلف عن الأول أن تقوم بطرح موضوع جديد ، فلن يكون الأمر مرهق على الإطلاق هذا أيسر وأفضل على الدوام في وجهة نظري

اخى الكريم وبعد اذن اساتذتى جزاهم الله خيراً اليك المطلوب ضع صفحة البداية بالخلية F2 وصفحة النهاية ب H2 (يمكن تغيير تلك الخلايا طبعاً ) ولاحظ النتائج لجمع الكمية =SUMPRODUCT(SUM(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!A2"))) لجمع المبيعات =SUMPRODUCT(SUM(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!B2"))) sum el rashedy_2.zip تقبلوا خالص تحياتى

اعتفد انى قمت بحل هذه المشكلة فى احد المرفقات السابقة ويوجد فى برنامجك امثلة على هذا فمثلا مع ان حقل الدورة فى جدول التسجيلات رقمى يظهر اسم الدورة وذلك عن طريق جعله كومبوبوكس ثم نجعل خاصية column count=2 وخاصية column width=0 وهذا ما طبقته تماما ونقوم بعمل ذلك بدلا من اضهار الاسماء مباشرة للحفاظ على نوع الحقل رقمى وبالتالى الحفاظ على العلاقة a8.rar

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

لايمكنني فتح المرفق لاني حاليا اعمل على اصدار اقدم اليك مثالا يوضح المسألة وفيه : التاريخ والوقت يثبت افتراضيا وبدون تدخل من المستخدم وغير قابل للتعديل او العبث z2.rar

الحمد لله على سلامتك اخي محمد عصام وعودا حميدا .. وجزاك الله خير اخي ابو خليل ...

تقصد باستخدام التنسيق اما الارقام فهي موجودة في لسان التبويب تنسيق القيمة اسمها : اشكال رقمية وفيها قائمة : النظام ، الدولي ، اللغة العربية وعندما نختار اللغة العربية تظهر الارقام التي نسميها انجليزية ( والانجليز يسمونها العربية ) لان الارقام ارقامنا واختطفوها الانجليز مننا وعندما نختار دولي تظهر الارقام الهندية التي نستخدمها نحن العرب انظر الصورة

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

اخى الكريم استخدم المعادلة التالية لاحتساب اجمالى الكمية =SUMPRODUCT(SUM(INDIRECT("'"&$F$2:$H$2&"'!A2"))) ولاجمالى المبيعات =SUMPRODUCT(SUM(INDIRECT("'"&$F$2:$H$2&"'!B2"))) sum el rashedy.zip

شكرا لكم

اخى السبب انه لا يعمل ان المعيار فى الايتعلام ياخذ الدورات من القائمة والمعينة فى الفورم firstfrm اذهب الى التقرير فى عرض التصميم واختر من قائمة الخصائص report ومن تبويب data اختر control source واضغط على المربع الذى يحتوى على ... وفى حقل dwId فى الاستعلام تجد هذا المعيار [forms]![firstfrm]![combo6] غير [firstfrm] الى اسم النموذج الجديد الذى ستضع فيه الاداة

تفضل قمت بعمل المطاوب فى الفورم الرئيسى اختر رقم الدورة واضغط زر التقرير اولا انا قمت بعمل علاقات بين جميع الجداول فى البرنامج حيث انى لاحظت انه لا يوجد اى علاقات فى الجداول رغم اهميتها الكبيرة وفائدتها حينما تقوم بعمل استعلام كهذا المطلوب a7.rar

السلام عليكم ورحمة الله جزاك الله خير

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

اخي على اي اساس يتم الترحيل عدم وجود اساس للترحيل يتم ترحيل كافة البيانات

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

السلام عليكم ورحمة الله وبركاته أخي خالد المحترم: شكراً جزيلاً على أسلوب الشرح الرائع والمتسلسل .. جزاكم الله خيراً.

طيب

مشاركة مع اعزائي واثراء للموضوع ضع التعبيرين التالين للعنصر كل على حده لتصبح خاصية مصدر عنصر التحكم هكذا: =-DSum("[مجاز]";"tab1") =-DSum("[غير مجاز]";"tab1") بالتوفيق

حياك الله اخي الكريم ..... اطلع على المرفق .. في استعلام student_in_dwra تم وضع هذا السطر تحت حقل dw_id forms!form1!dw_id قم بفتح نموذج form1 وستتضح لك بقية التفاصيل ... بالتوفيق ... a7.rar

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

السلام عليكم اخي راجع الرابط التالي وحمل المرفق في اخر مشاركة لي وستجد ان شاء الله ما تريد وزيادة تحياتي لك الرابط

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد: السلام عليكم ورحمة الله وبركاته.. دراسة متأنية لفورم الأخ العزيز عبد الله باقشير(خبور خير)وفقه الله.سند صرف وإيصال قبض يرجى مشاركة المهتمين بالفورم لتصل الفائدة إلى الجميع على شتى اهتماماتهم. حيث سيقوم الإخوة خبراء إكسيل الكرام - حيث شجعني أخي الحبيب في الله ياسر خليل أبو البراء على طرح هذا الموضوع الرائع نستقطب به الجهود ...نحلل بياناته ...نسبر أغواره ...ليبقى أثراً طيباً يفتخر كل منا بمساهمته بهذا الصرح العملاق... راجياً أن ينال حظاً طيباً وافراً من اهتمامكم ولكم جزيل الشكر والله من وراء القصد ..والسلام عليكم ورحمة الله وبركاته للأسف لم أستطع رفع الملفات

حياك الله اخي الكريم .. تفضل الشرح والمثال للأستاذ علي العتيبي ... والمنتدى ملئ بالأمثلة المشابهه . بالتوفيق .... Search_On_Change.rar

استخدم الكود التالى وابدى ملاحظاتك Sub Button2_Click() Dim lr As Long, cl As Range, n As Integer lr = ورقة2.Cells(Rows.Count, "B").End(xlUp).Row For Each cl In ورقة2.Range("B2:B" & lr) For n = 1 To ورقة1.Cells(Rows.Count, "B").End(xlUp).Row If cl.Value = ورقة1.Cells(n, 2) Then With cl.Offset(0, 2) .FormulaR1C1 = "=VLOOKUP(RC[-2],ورقة1!R2C2:R1762C3,2,0)" .Value = .Value End With End If Next Next End Sub

اخى الكريم بخصوص الطلب الاول استبدل الكود السابق بهذا الكود Sub Button2_Click() Dim lr As Long lr = ورقة2.Cells(Rows.Count, "B").End(xlUp).Row With ورقة2.Range("D2:D" & lr) .FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-2],ورقة1!R2C2:R1762C3,2,0),"""")" .Value = .Value End With End Sub اما بخصوص الطلب الثانى :- فلم افهم المطلوب ارجوا مزيداً من التوضيح مع العلم ان طبيعة عمل الكود هو البحث عن القيمة (الورقة 2 ) فى الورقة 1 وارجاع قيمة السطر المجاور لها

وعليكم السلام :-) و سلامي لأخي ابوخليل :-) السبب هو: - في احد نماذجك ، عندك حدث On Timer ، - وهذا النموذج مفتوح ، وليس في وضع تصميم. الحل هو أن: - أما أن تجعل النموذج هذا في وضع تصميم ، أو أن تغلقه أثناء عملك في الكود :-) جعفر

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

لتطبيق دالة Int على النموذج يمكنك الدخول على تصميم النموذج وفي خاصية record source مصدر السجل عدّل الاستعلام ليصبح حقل x x: Int([dnr]/[s2r]) وإذا لم يكن الحقل المطلوب هو x يمكنك عمل نفس التعديل على أي حقل تريده ثم احفظ التغييرات في الاستعلام وفي تصميم النموذج

كلمة بدون كسور غير واضحة هل تعني بدون كسور مع التقريب مثلا 2.3 تصير 2 وكذلك 2.6 تصير 3 أو بدون كسور وبالتقريب لأسفل مثلا 2.3 أو 2.6 تصير 2 أو بدون كسور وبالتقريب لأعلى مثلا 2.3 أو 2.6 تصير 3 يفضل توضيح المطلوب تماما وتحديد الحقول التي سيتم التعامل معها في الملف

السلام عليكم تفضل اعتقد هذا ما تريد بالتوفيق arab.rar

السلام عليكم استفسر مني صديق عن اداة يمكنها نسخ هيكل المجلدات و المجلدات الفرعية دون الملفات من مكان الي اخر ووجدت اني احتاج ذلك ايضا فى بعض الاحيان و بالتالي قد تكون اداة مفيدة للجميع ، لم اجدها جاهزة من البحث السريع ، فاعددت الملف المرفع لعمل ذلك بطريقة مبسطة بناء على الكود المنشور هنا فى موقع أجنبي و صراحة أعجبتني طريقة كتابة الكود الاداة تمكنك من نسخ المجلدات و المجلدات الفرعية دون الملفات ، و بالمرة اضفت زر اخر للنسخ مع الملفات من الممكن تحسينها باضافات كثيرة و لكن اراها تؤدي الغرض المطلوب مرفق الملف CopyFolderStructure.zip

اشكرك على المجهود

السلام عليكم ورحمة الله وبركاته برجاء من سيادتكم المساعدة فى عمل قاعدة بيانات عن طريق الإكسيل حيث أنها ستكون عبارة عن مدخل بيانات لشركة حيث أنها ستكون كما فى الصورة التالية النموذج النهائي.rar

الف شكر ياباشا اشتغلت اظاهر الجهاز كان عاوز يتعمله ريستارت

أخي وائل للإستفادة من تجربتك التي قمت بها هل أتبعت الخطوات بدقة ( و أهمها إعادة تسمية الملف بعد فك الضغط بالأسم المذكور ) ؟ ما هو إصدار الويندوز الذي تعمل عليه ؟

في المرفات خطوط الباركود والآداة ومثال اكسس ومثال وورد لطباعة الملصقات خارج اكسس ومفكرة تعليمات زيادة على الملاحظات والتعليمات في ثنايا الامثلة الموضوع قد اشبع بحثا وطرحا في المنتديات المتخصصة لمن اراد الاستزادة Barcode.rar