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

أخي الكريم جرب الكود التالي 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 # فى الاسبوع القادم بمشيئة الله سوف اقوم بتنزيل البرنامج على المنتدى و عندما تنتهى فترة تجربة البرنامج ليكون كاملا و الكمال لله وحده سبحانه وتعالى ...... لن اطيل عليكم فلنبدأ على بركة الله بالشرح وهو عباره عن صور تشرح كافة تفاصيل البرنامج

خالد ------------------ الرشيدي شكرا لك --------------على الإهتمام

جرب السطر التالي 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

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

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

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

اخى الكريم استخدم المعادلة التالية لاحتساب اجمالى الكمية =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] الى اسم النموذج الجديد الذى ستضع فيه الاداة

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

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

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

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

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

‏الثلاثاء‏، 1‏/9‏/2015م الموافق ‏18‏/11‏/1436هـ السلام عليكم و رحمة الله وبركاته تحياتي وتقديري الى جميع اخواني و اساتذتي بالمنتدى و اعتذر عن طوول الغياب اخي الكريم في هذه الحاله اضفنا عمود يقوم بوضع ارقام متسلسله للخلايا التي تحقق شرط البحث باستخدام الداله SAERCH ثم من هذا العمود نقوم لارجاع قيمة الأرقام الى رقم الصف مع MATCH كما في المرفق تحديدصف الصفة.rar

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

حياك الله اخي الكريم ..... اطلع على المرفق .. في استعلام 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

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

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

بعد أذن أخي الحبيب / محمود حل مجرب و نجح يا أخي / وائل و إن شاء الله ينجح معك أيضا و لكن رجاء إتباع التالي للأهمية 1- حمل الملف المرفق 2- استخرج محتويات الملف المضغوط في مجلد اسمه IE-associations (نفس الاسم بالضبط) (لازم تفك ضغط الملفات والا لن يعمل الباتش) 3- اذا تستخدم ويندوز 7 او فستا اضغط باليمين على ملف الباتش واختر Run as Administrator اما اذا تستخدم XP مجرد نقر مزدوج يكفي IE-associations.zip

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اشكر الجميع واتمنى من الله ان تكون مشاركتي فعالة تخدم كل من له علاقة بالمجال بالطبع عزيزي ابوعبدالله اوافقك تماما على هذه الفكرة فلو علمت ان تكلفة مثل هذا البرنامج قد تصل الى مئات الالوف لما ترددت في اكماله. وارجو ان يوافقني الجميع على البدء في تنفيذه لنبدا على بركة الله خطوة بخطوة اولا : كتصور مبدئي لشكل البرنامج فكبداية يجب عمل ال Chart سواء اكان للاصناف او للحسابات المالية وبنفس فكرة برنامج القدير ابو عبدالله مشروع 2 سيتم تسجيل الشجرة ثانيا يجب ان تكون هناك نافذة لادخال ارصدة افتتاحية اصناف وحسابات مالية كمرة واحدة لاتتكرر ولكن يمكن التعديل فيها بكلمة مرور من المستوى المتقدم ثالثا يجب التعرف على الدورة المستندية(المستندات التي سيتم تسجيل بياناتها التي سيتم بناء البرنامج على اساسها رابعا يجب تحديد صلاحيات لكل مستخدم سوف اطرحها في وقتها خامسا معرفة مخرجات عملية تسجيل البيانات وساقوم برفع شكل التقارير المطلوبة بشكل يومي او بشكل شهري او سنوي ولتكن البداية مع المخزون والذي سبق وان اوضحت اركانه الرئيسية والمستندات الرئيسية المستخدمة ستكون (بدون توسيع نطاق المستندات) هي فواتير الشراء (سواء اكانت نقدية او آجلة )وفواتير الارجاع للمورد واذون استلام البضاعة و( سندات صرف البضاعةو سندات تحويل داخلي ) Debits To Cost و(شيكات البيع في كل Area او Outlet (وشيكات الاوفيسر وشيكات الضيافة ومستند اتلاف او اهلاك بضاعة) Credits to Cost الاخ الجليل ابو عبدالله الموضوع اعلم انه ليس بالسهل ولكن عندي الثقة الكاملة في قدرتك ان شاء الله على اكماله على احسن صورة بفضل خبرتك الواسعة في مجال البرمجة. وفيما يخص Recipe الاصناف ففكرته تقوم على تحديد مبدئي ولكن محسوب جيداً لمكونات صنف سيتم بيعه من خلال تصنيعه بمكونات مأخوذة من Chart الاصناف ثم اضافة نسبة تجهيز تتراوح بين 4 و 5 % من اجمالي تكلفة المكونات .وهذه النسبة متروكة لرؤية محاسب التكاليف فمثلا الصنف س يستمر على النار لمدة 10 دقائق وغيره قد تستمر لمدة 30 دقيقة وهكذا ..... وبناء عليه يمكن تحديد سعر بيع المنتج وتحديد نسبة التكلفة له ومفهوم التكلفة هنا يعني بالبلدي (احنا بندي الطباخ بضاعة 40 جنيه يبيعها ب 100 جنيه يبقى تكلفة المنتج 40 % ندخل في تفاصيل هامة : دورة المستندات ستكون بالشكل التالي فاتورة شراء يتم تسجيل بياناتها لتكون عندي تكلفة الاصناف المشتراة وباذن الاستلام سيكون لدي رصيد البضائع داخل المخازن ( 4) التي تم تحديدها وعند عمل سند صرف من المخازن يجب معرفة المكان الذي سيتم الصرف اليه وكذلك تكلفة الاذن بالكامل وهنا يجب الاشارة على ان غالبية الفنادق تعمل بنظام متوسط حركي للمخزون صنف مثل الطماطم دخل المخازن يوم 3 في الشهر 50 كيلو بسعر 4 جنيه للكيلو وفي يوم 6 دخل كمان 50 كيلو ولكن بسعر 5 جنيه للكيلو فلو تم صرف بضاعة يوم 5 فالسعر هيبقى 4 جنيه للكيلو اما اذا تم الصرف يوم سبعة فسيكون السعر 4.5 جنيه. وحتى لااطيل عليكم فساقوم برفع ملف قديم عندي كنت قد صممته من فترة بعيدة وهو يؤدي الغرض ولكن بعد ان نرى الردود والمساهمات وسامحوني جميعا فالوقت ليس معي بحكم وظيفتي التي تستهلك مني اكثر من 14 ساعة عمل ولكن ارجو ان تتقبلوا عذري ولتكن هناك مساهمات من الاخوة المهتمين بالموضوع هاني بدر