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

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

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

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

السلام عليكم ورحمة الله وبركاته بداية نشكر الأستاذ عبدالله باقشير الذى قدم لنا الدالة الشهيرة Kh_Father_Name لاستخراج اسم الاب كاملا من اسم الشخص العربى و ذلك بمساعدة الدالة Kh_Father_Replace ثانيا أقدم لكم الدالة المستحدثة MokhtarFamily تشبه دالة الاستاذ عبدالله فى العمل والخواص إلا إنها أشمل نوعا ما حيث تستطيع الدالة أن تقوم باستخراج الآتى 1- اسم الابن 2- اسم الاب 3- اسم الاب كاملا 4- اسم الجد 5- اسم الجد كاملا 6- اسم العائلة الصورة العامة للدالة ( MokhtarFamily (StrgName,NameNum,AcceptSingle تلاحظ أن الدالة تتكون من 3 بارامتر StrgName NameNum AcceptSingle البارامتر الاول نص اجبارى يحمل اسم الشخص الذى تتعامل معه البارامتر الثانى عدد اجبارى من 1 الى 4 1 لاستخراج اسم الابن 2 لاستخراج اسم الاب 3 لاستخراج اسم الجد 4 لاستخراج اسم العائلة أو اللقب البارامتر الثالث اختيارى بين قيمتين هما False و True فى كل الأحوال ناتج الدالة يكون اسما منفردا باستثناء True فى استخراج اسم الأب أو الجد فقط حيث تأتى باسم الأب أو الجد كاملا كود الدالة مع التعليقات Option Explicit Public Function MokhtarFamily(ByVal StrgName As String, ByVal NameNum As Integer, Optional AcceptNext As Boolean) As String ' Author : Mokhtar Hussein ' Release : 5 - 11 - 2016 Assuit Eygypt ' The MokhtarFamily is a new User Defined Function returns son's name or Father's name ' or Grandfather's name or Family's name of Arab person's name bases on a specific number. ' The MokhtarFamily udf takes into consideration the Arab complex names ' The Syntax : ' MokhtarFamily(StrgName,NameNum,AcceptNext) ' The MokhtarFamily function syntax has these named arguments: ' 1 - StrgName : Required String ' - The person's name which you are useing. ' 2 - NameNum : Required Integer ' - 1 to return the son's name. ' - 2 to return the Father's name ' - 3 to return the Grandfather's name ' - 4 to return the Family's Name . ' 3 - AcceptNext : Optional False or True ' - False to return all names in a Single form ' - True to return Father's name and Grandfather's name of fourfold Arab person's name ln a full form '-------------------------------------------------------------------------------------------------------------------------------------- ' الاعلان عن المتغيرات Dim TempName As String, SonName As String, Fname As String, GfName As String, FamilyName As String, Ipos As Integer Dim Sn As String, OtherNames As String, xName As String, xxName As String, xxxName As String, xxxxName As String, Arr, itm ' أضف هنا المقطع الأول ملحقا بفراغ أوالثانى مسبوقا بفراغ والتى تتكون منها الأسماء المركبة مثل عبد الرحمن أو المعتصم بالله Arr = Array("أبو ", "ابو ", "عبد ", "آل ", " الله", " الدين", " الإسلام", " الاسلام", " الهدى", " الحق", " النصر", " العهد", " النور", " بالله", " الزهراء", " كلثوم") ' ErrorHandlerفى حالة حدوث خطأ اذهب الى السطر الذى يبدأ بـ On Error GoTo ErrorHandler ' جعل الدالة حساسة لأى تغير فى الخلية التى تعمل عليها ' بمعنى أى تغير فى الخلية يتبعه تغير ناتج الدالة مباشرة Application.Volatile True ' التعامل مع الاسماء المركبة ' Arr حلقة تكرارية على كل اسم مركب فى المصفوفة For Each itm In Arr ' استبدال الفراغ بين المقطعين بشرطة واعتبارهما اسم واحد TempName = Replace(itm, " ", "_") ' وضع الشرطة فى كل اسم مركب يوجد باسم الشخص ' باستبدال أى اسم مركب به فراغ ' باسم مركب به شرطة بين مقطعيه StrgName = Replace(StrgName, itm, TempName) ' الانتقال الى الاسم التالى Next itm ' بالخطوة السابقة صار الاسم المركب اسما واحدا ' الخطوة التالية فحص المتغير الذى يحمل اسم الشخص ' هل المتغير فارغ أم أن هذا المتغير به اسم شخص ' اذا كان المتغير الذى يحمل اسم الشخص فارغا If IsEmpty(StrgName) Then 'فاذهب الى السطر GoTo ErrorHandler Else ' وان لم يكن المتغير فارغا يتم ' تخزين اسم الشخص فى متغير جديد ' مع حذف الفراغات فقط يمين و يسار اسم الشخص ' مع بقاء الفراغات الداخلية بين كل اسم واسم ' Trim وذلك يتم باستخدام الدالة Sn = Trim(StrgName) End If ' بالخطوة السابقة صار اسم الشخص جاهزا ' لاستخــراج الأسماء منه على التوالى منه 'وجود فراغ أو فراغات فى اسم الشخص معناه 'أن اسم الشخص مكون من اسمين فرعيين أوأكثر ' وعدم وجود الفراغ دليل على أنه اسم واحد ' ===== استخراج الاسم الأول أى اسم الابن ===== ' البحث عن موضع الفراغ الأول فى اسم الشخص ' InStr وهذا يتم باستخدام الدالة Ipos = InStr(Sn, " ") ' اذا كان الموضع = صفر If Ipos = 0 Then ' فإن اسم الشخص بدون فراغ وهذا يعنى ' أنّ اسم الشخص مكون فقط من اسم واحد ' وبالتالى المتغير الذى يحمل الاسم الاول ' تكون قيمته = اســــــــم الشخص xName = Sn ' أيضا المتغير الذى يحمل باقى الأسماء ' كاسم الأب و الجد و العائلة = لا شىء OtherNames = vbNullString ' اسم الابن قد يكون مركبا وبداخله شرطة ' للتخلص من الشرطة نضع بدلا منها فراغ SonName = Replace(Trim(xName), "_", " ") Else ' وان لم يكن الموضع = صفر فإن ' هذا معناه أن اسم الشخص به فراغ ' ومعناه أنه مكون من اسمين أو أكثر ' اسم الابن = الحروف التى تقع يسار اسم الشخص ' انتهاء بالحرف الذى يسبق الفراغ مباشرة xName = Left(Sn, Ipos - 1) ' أيضا المتغير الذى يحمل باقى الأسماء ' يساوى كل الحروف التى تقع يمين الفراغ مباشرة 'هذا المتغير نستخرج منه باقى الأسماء على التوالى OtherNames = Trim(Right(Sn, Len(Sn) - Ipos)) ' استبدال الشرطة فى اسم الابن المركب بفراغ SonName = Replace(Trim(xName), "_", " ") End If ' ===== استخراج الاسم الثانى أى اسم الأب ===== ' استخراج الاسم الثانى أو اسم الأب بنفس الكيفية السابقة ' لكن من المتغير الذى يحمل الأسماء التى تقع بعد اسم الابن Ipos = InStr(OtherNames, " ") If Ipos = 0 Then xxName = OtherNames OtherNames = vbNullString Fname = Replace(Trim(xxName), "_", " ") Else xxName = Left(OtherNames, Ipos - 1) OtherNames = Trim(Right(OtherNames, Len(OtherNames) - Ipos)) Fname = Replace(Trim(xxName), "_", " ") End If ' ===== استخراج الاسم الثالث أى اسم الجد ===== ' استخراج الاسم الثالث أو اسم الجد بنفس الكيفية السابقة ' لكن من المتغير الذى يحمل الأسماء التى تقع بعد اسم الأب Ipos = InStr(OtherNames, " ") If Ipos = 0 Then xxxName = OtherNames OtherNames = vbNullString GfName = Replace(Trim(xxxName), "_", " ") Else xxxName = Left(OtherNames, Ipos - 1) OtherNames = Trim(Right(OtherNames, Len(OtherNames) - Ipos)) GfName = Replace(Trim(xxxName), "_", " ") End If ' ===== استخراج الاسم الرابع أى اسم العائلة ===== ' استخراج الاسم الرابع أو اسم العائلة بنفس الكيفية السابقة ' لكن من المتغير الذى يحمل الأسماء التى تقع بعد اسم الجد Ipos = InStr(OtherNames, " ") If Ipos = 0 Then xxxxName = OtherNames OtherNames = vbNullString FamilyName = Replace(Trim(xxxxName), "_", " ") Else xxxxName = Left(OtherNames, Ipos - 1) OtherNames = Trim(Right(OtherNames, Len(OtherNames) - Ipos)) FamilyName = Replace(Trim(xxxxName), "_", " ") End If ' ===== النتائج المختلفة للدالة ===== ' اذا كان المتغير رقما ويساوى 1 If IsNumeric(NameNum) And NameNum = 1 Then ' ناتج الدالة = اسم الابن :الخروج من الدالة MokhtarFamily = SonName: Exit Function ' اسم الابن ' أيضا اذا كان المتغير رقما ويساوى 4 ElseIf IsNumeric(NameNum) And NameNum = 4 Then ' اسم العائلة أو اللقب ' ناتج الدالة = اسم العائلة :الخروج من الدالة MokhtarFamily = FamilyName: Exit Function End If ' اذا كان المتغير لا يساوى True If AcceptNext <> True Then ' و كان المتغير رقما ويساوى 2 If IsNumeric(NameNum) And NameNum = 2 Then 'ناتج الدالة = اسم الاب فقط :الخروج من الدالة MokhtarFamily = Fname: Exit Function ' واذا كان المتغير رقما ويساوى 3 ElseIf IsNumeric(NameNum) And NameNum = 3 Then ' ناتج الدالة = اسم الجد فقط :الخروج من الدالة MokhtarFamily = GfName: Exit Function End If: End If ' اذا كان المتغير لا يساوى False If AcceptNext <> False Then ' و كان المتغير رقما ويساوى 2 If IsNumeric(NameNum) And NameNum = 2 Then 'ناتج الدالة = اسم الاب كاملا باضافةالجد والعائلة ويفصل بينهم فراغ :الخروج من الدالة MokhtarFamily = Fname & Space(1) & GfName & Space(1) & FamilyName: Exit Function ' واذا كان المتغير رقما ويساوى 3 ElseIf IsNumeric(NameNum) And NameNum = 3 Then ' ناتج الدالة = اسم الجد كاملا باضافةالعائلة ويفصل بينهما فراغ MokhtarFamily = GfName & Space(1) & FamilyName: Exit Function End If: End If ' اعتبارا ناتج الدالة لا شىء فى حالة حدوث أخطاء ErrorHandler: MokhtarFamily = vbNullString End Function المرفق يوضح كيفية استخدام الدالة مباشرة على الخلايا و كيفية استدعاء الدالة بالكود أتمنى أن تكون الدالة مفيدة وتنال اعجابكم مع خالص تحياتى

..... شاهدوا المرفق أخوكم عماد الحسامي

السلام عليكم ورحمة الله وبركاته رمضان كريم وأن شاء الله يعاد علينا بالبهجة والفرح على الأمة الاسلامية من فترة شهر تقريباً اتصل بي أحد الأصدقاء يعمل محاسب في احدى الشركات البسيطة والصغيرة في مجال الصرافة المالية الخاصة يريد برنامج بسيط على اكسيل في مجال الصرافة فقمت بتصميم وبرمجة برنامج مخصص له يوجد فيه الآتي: 1- فواتير شراء 2- فواتير مبيع 3- أيصالات قبض 4- ايصالات دفع 5- دفتر اليومية 6- كشف حساب 7- الميزانية والأرباح والخسائر البرانامج يعتمد السهولة والبساطة في نفس الوقت في العمل والبرنامج أساسا في قيد التجريب والتطوير وناقص فيه أشياء كثيرة من الأشياء الناقصة تعديل فاتورة لكن فكرته تعتمد على المحاسبة النظرية والعلمية وليس المحاسبة العملية فأحببت أن أفيدكم فيه لأنه صراحة بحثت كثيراً في المواقع ولم أجد برنامج خاص للصرافة المالية في إكسل وفي نفس الوقت مجاني فأرجو أن شاء الله أن ينال إعجابكم ويكون طريقاً في الخير وإذا كان الموضوع يستحق التثبيت يرجى تثبيته لتحقيق أكبر فائدة ممكنة للمستخدمين والسلام عليكم أخوكم في الله أنس دروبي الرقم السري لألغاء الحماية anas ‫‫منظومة الصرافة.rar

عزيزي الرائع ابوعبدالله اعتذر بشدة على تاخيري في الرد على كلامك الاكثر من رائع بخصوص محاسبة المطاعم وذلك لظروف مرضي ولكن ان شاء الله يمكننا سويا وضع نواة حسنة لمشروع محاسبة الفنادق والذي كما سبق واوضحت انه يشمل المطاعم بداخله واامل ان نبدا سويا من الالف الى الياء حتى يخرج مشروع فريد لمحاسبة الفنادق والتي اعتقد انها شاملة لاهم ومعظم مجالات المحاسبة. ولكن دائما سيبقى الوقت هو العدو الاوحد لي وساضع امامك اطار عام لمجال المحاسبة داخل المنشآت السياحية ولكن بكل بساطة او بمعنى ادق بالمفهوم العامي وقبل البدء ارجو ان يتسع صدرك لكلام محاسبة وبس اى بدون برمجة حتى تصلك الفكرة الاساسية والتي من خلالها يمكنك معرفة كافة مدخلات الاطار المحاسبي ( البيانات التي سيتم معالجتها او تبويبها )داخل الفندق وكذلك العمليات التي تتم فيه ثم المخرجات والتي ستكون في شكل تقارير اساسية واخرى مكملة - هناك اقسام داخل قسم المحاسبة والتي تقوم بتجميع البيانات كل حسب تخصصه. وهي كالتالي : قسم مراقبة التكاليف :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 وكل هذه الاقسام تصب بياناتها في جعبة رئيس الحسابات والذي بدوره يصب بياناته بعد المعالجات والتسويات المطلوبة للمدير المالي تحياتي للجميع وتحياتي الخاصة جدا لك عزيزي المبدع على الدوام ابوعبدالله هاني بدر

تحياتى و ايام مباركه مرفق برنامج مخازن شرح البرنامج فى صفحة التكويد قم بتكويد الحسابات حسب رؤوس الاعمده_و كابس على زر تحديث البيانات صفحة sheet2_و هى صفحة يومية المخزن ( صفحة ادخال البيانات الرئيسيه ) يتم ادخال اسماء الصنف _ الموردين _ العملاء _ عن طريق كابس دبل كليك فى يومية المخزن بنموذج بحث و اضافة لاستاذنا_ عبدالله باقشير و لا انسى لمسة استاذنا / أبو حنــــين بتعديل كود البحث لعدد من الاعمدة صفحة sheet1_و هى صفحة البحث و اظهار الحركة و نفس برنامج البحث لاستاذنا_ أ / ياسر العربى بحث متقدم - سرعة عالية ومرونة باستخدام المصفوفات صفحة للسداد للمورد صفحة للمستلم من العميل صفحات الارصدة_صنف_مورد_عميل ملحوظه لا تغير اسماء الصفحات و لا تنسونا من صالح الدعاء تحياتى برنامج مخازن_2030gadham_دبل كليك.rar

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

استاذ محمد عصام يسعدنى مشاركتك دائما فانت استاذ كريم وتعلمنا منك الكثير

تفضل اخى العزيز ,, اتمنى ان يكون هذا المطلوب . مع تمنياتى بالتوفيق .. db.rar

اهلا اهلا اهلا اخى الحبيب الغالى على قلبلى صالح حمادي

ما شاء الله عليك أستاذ أبا جودي

نورتنا اخي محمد سلامة ولكني بانتظار رد اخي محمد ابراهيم

ممنون لكم كثيرا ،، بارك الله فيكم، ورفع الله قدركم ، اللهم آمين.

يجب عليك تنشيط المعادلات بأن تحدد المعادلات تضغط على المفتاح F2 ثم تضغط Ctrl+Enter

Sub UpdateData() '[Ctrl + Alt + F9] يقوم الكود بعملية تحديث للمعادلات والتي تعتبر بمثابة الضغط على Application.CalculateFull End Sub جرب الكود التالي Private Sub Workbook_SheetActivate(ByVal SH As Object) Dim I As Long, WS As Worksheet With Sheet1 For Each WS In ThisWorkbook.Worksheets I = I + 1 .Range("A" & I).Value = WS.Name Next End With End Sub

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

شكرا جزيلا لك اخي ابا جودي

بسم الله والصلاة والسلام على أشرف المرسلين اخوي أبا جودي اسال الله ان يزيدك علما وتم التوصل للمطلوب والمعذره كلفت عليك واشغلتك

لترحيل القيم فقط Sub tarhil() If Cells(9, 1).Value = "" Then Exit Sub With Application .ScreenUpdating = False Range(Cells(9, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 5)).Copy Sheet2.Range("F" & Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial xlPasteValues R1 = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1 R2 = Sheet2.Cells(Rows.Count, 6).End(xlUp).Row Range("A5:E5").Copy Sheet2.Range("A" & R1 & ":E" & R2).PasteSpecial xlPasteValues .CutCopyMode = False: .ScreenUpdating = True End With End Sub حيث استعملنا PasteSpecial xlPasteValues

ربما يعجبك هذا الملف (كلما اضفت صفحة يجب عليك تنشيط المعادلات و ذلك بالسحب نزولاً) enmerate_sheets .rar

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

جرب هذا الملف sheet_list.rar

اخى الزبارى متابعينك للنهايه ان شاء الله تقبل تحياتى

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

السلام عليكم ورحمة الله استبدل الكود السابق بهذا الكود Sub Trans_Cod() m = 3 Dim Arr As Variant, C As Range LS = Sheet2.Range("A" & Rows.Count).End(xlUp).Row Sheet2.Range("A4:B" & LS).ClearContents Arr = Array("D", "F", "H", "J", "L", "N") For i = LBound(Arr) To UBound(Arr) Set C = Sheet1.Columns(Arr(i)) LR = Sheet1.Cells(Rows.Count, C.Column).End(xlUp).Row For R = 5 To LR If Not IsEmpty(Sheet1.Cells(R, C.Column)) Then m = m + 1 With Sheet2 .Range("B" & m) = Sheet1.Cells(R, C.Column) .Range("A" & m) = Sheet1.Cells(R, C.Column).Offset(0, 1) End With End If Next Next End Sub

تفضل test4.rar

تفضل test2.rar

مرحبا هذا كود حاص بالترحيل Sub tarhil() If Cells(9, 1).Value = "" Then Exit Sub With Application .ScreenUpdating = False Range(Cells(9, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 5)).Copy _ Sheet2.Range("F" & Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1) R1 = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1 R2 = Sheet2.Cells(Rows.Count, 6).End(xlUp).Row Range("A5:E5").Copy Sheet2.Range("A" & R1 & ":E" & R2) .CutCopyMode = False: .ScreenUpdating = True End With End Sub

السبب اخي الكريم ان مربع الصورة غير منضم انظر الى المرفق ملاحظة تم تعديل المرفق الى ( مثال 2 ) مثال2.rar

اتفضل , مع تمنياتى بالتوفيق مثال.rar

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

أخي الكريم : سليم حاصبيا سامحني على تطفّلي عليك ولكن فيه مشكلة قابلتني انا في صفحة Prices كنت حاطط عدد أصناف قليل وأسعارهم أمامهم عشان التوضيح...........ولكن انا عندي اصناف كتيرة جدا تقريبا 6000 صنف انا ضفت مجموعة اصناف واسعارها معاها .......... ولكن لما جيت ادخل على صفحة المبيعات اللي حضرتك مسميها Salim الاسعار مبتجيش وبيجيبلي رسالة خطأ REF# فضلا منك وليس أمرا...............راجعهالي وشوف لو حضرتك ضفت اصناف تاني واسعارها هتيجي عند حضرتك مظبوطة ولّا لأ............ورجاء خلي المعادلة تاخد عدد اصناف كتبرة تقريبا زي ما اوضحت لحضرتك 6000 صنف او اكتر بارك الله فيك وأعانك علينا............... أخوك : أبو محمد ---------------------------------------------------------------------------------------------------------------------------------- يا أخي الكريم أكرمك الله....... بفضل من الله توصلت الى التعديل على معادلة حضرتك وضبطت المدى اللي انا عايزه واتحلت المشكلة وااله يا أخي اخذت وقتا طويلا احاول ان اجد حلا ....... وفي النهاية عندما ضاقت.........كتبت لك وكما ترى بعد أن كتبت الرسالة أعلاه........رزقني الله الحل حفظك الله وحفظ منتدانا الكريم "والله في عون العبد ما كان العبد في عون أخيه" أدامكم الله عونا لنا أخوكم: أبو محمد

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

السلام عليكم سبق وان عملت مثل هذا العمل لتجميع الـتأخر خلال فترة محددة ( اسبوع او شهر ) قمت بتحويل التأخر (اليومي) الى دقائق والتعامل معها كرقم عند الجمع ثم ارجاعها وقت الحاجة ( كل هذا داخل الاستعلام )

تفضل اخي الكريم احمد هل هذا ما تقصده؟! 111.rar

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

السلام عليكم ورحمة الله تفضل 2.rar

كيف تختار المعلمين دون تضارب في الحصص انظر الى الملف (نموذج) المرفق teachers_choose.rar

السلام عليكم اخي الفاضل عليك مراعاة النقاط التالية: 1- كي تحافظ على جميع العناصر في البرنامج عند تغيير ابعاد الشاشة عليك الانتباه الى ان تقوم بتصميم برنامجك باقل دقة شاشة ممكن ان يتم فتح البرنامج عليها مثل اذا كان احد المستخدمين يستخدم شاشة بابعاد (1024x768) وكان جهازك بدقة اعلى مثلا (1600x900) فان المستخدم سيواجه صعوبة في رؤية جميع مكونات البرنامج وعليك ان تستخدم نفس الابعاد الخاصة بالمستخدم عند تصميم البرنامج ولكن عند فتح البرنامج في جهازك فلن تواجه اي مشكلة. 2- عليك استخدام anchoring الموجودة تحت قائمة Arrange لتحديد مكان كل عنصر من عناصر البرنامج كما في الصورة ادناه مع تمنياتي بالتوفيق

الملف لمن اراده بالمرفقات عملية قرعة لـ16 فريق_4.rar

السلام عليكم ورحمة الله أخي الكريم ريان، تم حل المشكلة بإضافة كود جديد لمسح بيانات الجداول (إلا جدول قائمة الأسماء في النطاق B7:B22)، والكود نقوم بتنفيذه عندما نريد التعديل على قائمة أسماء الفرق (أو عندما نريد إعادة القرعة قبل اكتمال قرعة سابقة).... أرجو أن يعجبك هذا التعديل... أخوك بن علية المرفق : عملية قرعة لـ16 فريق_3.rar

السلام عليكم ورحمة الله أخي الكريم، أعتقد أنه تم عمل المطلوب بالتعديل على الأكواد، تعديل على تنسيقات الورقة، إضافة نطاقات بالتسمية (Cellule ، Equipes)، إضافة كود خاص لعمل جدول المباريات حسب نتائج القرعة وجدول مساعد (مخطط المباريات)... أرجو أن تروقك هذه التعديلات... عملية القرعة هذه المرة تتم بصورة فردية لكل فريق... أخوك بن علية الملف المرفق : عملية قرعة لـ16 فريق_2.rar

في نفس السياف ، سالني صديق نفس السؤال تقريبا علي إميلي الخاص وأرسل لي أيضا ملف تيكست به أكثر من 90,000 رقم تليفون كلها بالسعودية مثل 966503011273 966505584504 966503932916 966500477498 وكان طلبه: 1. ترتيب الارقام في جهات اتصال vCard ، بحيث ترتب الارقام تصاعديا من الاصغر إلى الاكبر 2. ثم تأخذ كل جهة اتصال اسما تسلسليا يبدأ من J00001 الحقيقة أن كثرة الأسماء ، جعلتني أفكر في وسيلة أخري والحمد لله باستخدام كود صغير يمكن إنشاء عدد كبييير من ملفات الـ vcf التي يمكن قرائتها من الأوتلوك أو من المحمول وبعد إذن صديقي ، سأستعير بعض أرقام التليفونات في الملف المرفق وبه الشرح فقط تضع في ملف الإكسل الإسم بالعمود الأول ثم الرقم بالعمود الثاني وتشغل الكود فينشيء لك عدد الكروت الـ vcf المطلوب في المجلد xxx علي القرص D الكود هو Sub write_VCF() LR = [A999999].End(xlUp).Row For i = 1 To LR a = Cells(i, 1): b = "TEL;CELL" & Cells(i, 2) Filename = "D:\xxx\" & a & ".vcf" Open Filename For Output As 1 Print #1, "BEGIN: VCARD" Print #1, "FN: " & a Print #1, b Print #1, "End: VCARD" Close #1 Next i End Sub والآن أترككم مع المرفق تحويل الأسماء.rar

السلام عليكم ورحمة الله و بركاته هذه النقطة تم معالجتها كماذكرت عن طريق صندوق اٌٌٌلادخال نكتب فيه رقم الغرفة المراد استبعادها من الفاتورة فيتم استبعادها هذا موضوع كبير جدا يبغاله وقفات من التأمل فندق1.rar

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

الجزء االثاني - محتوبات الموضوع : إنشاء إستعلام إختيار باستخدام المعالج تمثيل العلاقات المختلفة بجمل الاس كيو ال استعلام الجداول المحورية إٍستعلام إيجاد القيم المتكررة إستعلام إيحاد القيم الغير متماثلة المجموعات فى الأكسس الموضوع من هنا و المثال التطبيقي مرفق Q2.zip