الصـقر

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

اخى الكريم يمكنك الاستعانه بالبرنامج التالى http://www.officena.net/ib/index.php?showtopic=57962&hl= واى استفسار او تعديل او اى ملاحظة انا موجود تقبل تحياتى

اخى الكريم ملف 90 ميجا كبير جدا جدا جدا وانصحك بتغييره فى اقرب وقت ثانيا يفضل ارفاق ملف تقبل تحياتى

الاستاذه الفاضله جربى المرفق فى شيت الاستماره هل هو طلبك لو هو المطلوب نكمل على زر البحث والتعديل والحذف استفسار بسيط زر البحث هيكون المعيار له ايه هل (اسم المريض أم السنة ام الجنسية أم ؟؟؟؟ ) تقبلى تحياتى استمارة128.zip

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

اخى الكريم راجع الرابط التالى ربما يفيدك http://www.officena.net/ib/index.php?showtopic=57036&hl= تقبل تحياتى

اخى الكريم راجع الرابط التالى نسخه مستحدثه افضل من هذه النسخه http://www.officena.net/ib/index.php?showtopic=57962&hl= تقبل تحياتى

تفضل اخى الكريم تقبل تحياتى معادله بالكود.zip

تفضل اخى الحبيب هل المرفق هو طلبك هو من اعمال الرائع ابن مصر المهندس احمد الغالى Public Const backupfolder As String = "c:\حسام\" هذا السطر هو اول سطر بالكود قم بتغيير من c الى D او اى فولدر تحب وايضا غير اسم الملف من حسام الى الى اسم ملف عندك لى استفسار بعد اذن حضرتك انت شغال على الملف اكثر من مستخدم كما ذكرت /ممكن اعرف ازاى / هل بيكون الملف مفتوح من قبل اكثر من مستخدم على اكثر من جهاز بنفس الوقت وجميعهم يستطيعون الاضافه والتعديل ؟؟؟ تقبل تحياتى 7ن المجمع نجع حمادي.zip

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

تفضل هذا حل افضل بعد عمل زيادات اخرى تقبل تحياتى معادلات الى اكواد 2015.zip

اخى الحبيب جرب الملف المرفق هل هو المطلوب عايزك تجرب لوحدك وتغلط ومن الغلط هتتعلم فى تغريده قرئتها للعلامه خالد السعدنى المغربى "متعة البرمجة في ارتكاب الأخطاء وإصلاحها، ومواجهة الصعوبات وتجاوزها، والمبرمج الذي لا يتعب ذهنه، ليس سوى كاتب عمومي." تقبل تحياتى معادلات الى اكواد 2015.zip

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

اخى الحبيب تفضل الشرح ارجوا ان اكون وفقت بتوصيل المعلومه تقبل تحياتى Sub كشف_حساب() اول شئ يقوم الكود باختبار الخلية D4 , D5 هل بها ارقام حسابات ام لا لو وجد اى منهم فارغه يعطى رساله ويخرج من الكود وميكملش ينهى الكود If [d4] = "" Or [d5] = "" Then MsgBox "الرجاء اختيار اسم الحساب الرئيسيى والفرعى": Exit Sub فى حاله وجود حسابات بالخلية D4, D5 ينتقل الكود الى السطر الثانى وهو اختبار الخلية F4, f5 وهما الخاصيين بالتاريخ الممطلوب لو وجد الكود احدى هاتين الخليتين فارغه هيخرج من الكود ومييكملش If [f4] = "" Or [f5] = "" Then MsgBox "الرجاء اختيار الفترة المطلوبه": Exit Sub فى حال نجاح الاختبارين ينتقل الكود ليكمل الباقى وهو هنا تعريف 3 متغيرات من نوع string وتم تسميتها Mo , Mn , MM يمكن الاستعانه باى احرف انت تح'هنا بس اهم شئ انك تستخدمها بالكود فيما بعد طبقا لما قمت بتسميتة Dim mo As String Dim mn As String Dim mm As String هنا تعريف 2 متغير من نوع Long وتم تسميتهم lr , i Dim Lr As Long, i As Long هنا تعريف متغير من نوع Integer وتم تسميته r Dim r As Integer هنا تعريف 2 متغير من نوع Double وتم تسميتهم d1, d2 Dim d1 As Double, d2 As Double بعد ما قمنا بتعريف المتغيرات نذكر للكود بماذا تشير هذه المتغيرات هنا عرفنا ان المتغير Mo بانه القيمة او النص بالخلية D4 وهو الحساب الرئيسى mo = Range("d4").Value هنا عرفنا ان المتغير Mn بانه القيمة او النص بالخلية D5 وهو الحساب الفرعى mn = Range("d5").Value هنا عرفنا ان المتغير Mm بانه القيمة او النص بالخلية g5 وهو مركز التكلفة mm = Range("g5").Value هنا عرفنا ان المتغير d1 بانه القيمة او النص بالخلية f4 وهوتاريخ البدايه d1 = Range("f4").Value2 'هنا عرفنا ان المتغير d2 بانه القيمة او النص بالخلية f5 وهوتاريخ النهاية d2 = Range("f5").Value2 ' فى هذا السطر قمنا بمسح محتوى الخلايا الذى يتم استدعاء البيانات بها وتجهيزها لاستقبال بيانات جديده Range("a9:l100000").ClearContents 'هنا تم وضع معادله فى الخلية g9 وهى عبارة عن الخلية e9-f9 [g9] = "=RC[-2]-RC[-1]" هنا وضع تثبيت الشاشة وعدم اهتزازهاعند عمل الكود Application.ScreenUpdating = False هنا بقول للكود انظر الى شيت 1 وهو قاعدة البيانات With Sheet1 هنا تعريف اخر خلية بها بيانات فى عمود I بشيت قاعدة البيانات Lr = .Cells(.Rows.Count, "i").End(xlUp).Row هنا عمل حلقة تكرارية تبدأ من الصف 1008 الى اخر صف به بيانات من العمود I For i = 1008 To Lr نقوم باختبار mo التى تشير الى الحساب الرئيسى هل هى موجود بالعمود I + mn التى تشير الى الحساب الفرعى هل هى موجود بالعمود j mm التى تشير الى مركز التكلفة هل هى موجود بالعمود k ونلاحظ اننا استخدمنا AND اى لابد من تحقق الثلاث شروط If mo = CStr(.Cells(i, "i")) And mn = CStr(.Cells(i, "j")) And mm = CStr(.Cells(i, "k")) Then هنا تحديد الصفوف من خلال Select Case الصفوف التى تم العثور عليها بالشرط الاول Select Case .Cells(i, "b").Value2 هنا وضع معيار Case وهو من تاريخ الى تاريخ Case d1 To d2 هنا يقوم الكود بجلب البيانات المطابقه للشروط ووضعها بالتقرير بدأ من الصف 9 r = r + 1 الخاصية Resize تعنى جلب صف واحد وعدد 5 اعمده بدأ من عمود a = عدد واحد صف و5 اعمده من شيت قاعدة البيانات بدأ من العمود b // وكذالك السطر التالى ولكن باختلاف عدد الاعمده 3 وموضع البداية Cells(r + 8, "a").Resize(1, 5).Value = .Cells(i, "b").Resize(1, 5).Value Cells(r + 8, "j").Resize(1, 3).Value = .Cells(i, "k").Resize(1, 3).Value Cells(r + 9, "g").Value = "=R[-1]C+RC[-2]-RC[-1]" 'اغلاق Select End Select 'اغلاق If End If 'اغلاق for ب Next Next 'اغلاق With End With 'ارجاع خاصية تثبيت الشاشة بعد الانتهاء من الكود Application.ScreenUpdating = True 'نهاية الكود End Sub

اخى الكريم اذا كان المطلوب تحويل الارقام الموجوده بالعمود C الى حروف بالعمود D انظر المرفق المعادله موجوده بالعمود D ويمكنك تغيير العمله من جنية الى ريال او دينار او كما يجلو لك تقبل تحياتى if_how.zip

اخى الكريم جرب المرفق هل هو طلبك من اعمال الرائع ابن مصر أ/احمد قمت فقط بالتعديل ليتناسب مع طلبك تقبل تحياتى مثال - بيانات + بحث.zip

اخى الكريم قم بتعديل هذا السطر من الكود Cells(r + 8, "b").Resize(1, 5).Value = .Cells(i, "c").Resize(1, 5).Value الى Cells(r + 8, "a").Resize(1, 6).Value = .Cells(i, "b").Resize(1, 6).Value ان شاء الله بالقريب يتم الشرح تقبل تحياتى المرفق بعد التعديل يوميات فرنسية.zip

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

استاذى الحبيب سليم حاصبيا بارك الله فيك وزادك علما تقبل تحياتى

اخى الكريم مرحبا بك فى اوفيسنا اخ جديد لنا يرجى عند طلب اى شئ يكون مصحوب بمثال وملف مرفق بخصوص طلبك ضع هذا الكود فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 6 Then If Target.Value = Target.Offset(0, -5) Then Target.Value = "" MsgBox "نأسف غير مسموح بالتكرار" End If End If End Sub انظر الملف المرفق تقبل تحياتى عدم التكرار.zip

اخى الكريم انظر المرفق هل هو المطلوب علما بان هذا كان مطلبك الاول وتم تنفيذه وانت من طلب تعديله بعد ذالك حيرتنى معاك تقبل تحياتى اداره المخازن2222.zip

تفضل اخى الكريم المرفق بدون اكواد هل هو المطلوب ممكن نعمله بالكود لو تحب تقبل تحياتى 123.zip

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

اخى الكريم الموضوع سهل وبسيط حضرتك بتقدم سلعه وهى التكت والسلعه دى انت بتشتريها ولها تكلفه وتكلفه معروف قيمتها اعمل حساب وليكن اسمه مشتريات التذاكر *** وحساب اخر اسمه مبيعات التذاكر لما تشترى تذكرة راح يكون القيد من 1000 حـ / مشتريات تذاكر الى 1000 حـ / الصندوق (مثلا) لما تبيع التكت راح يكون القيد بهذا الشكل من 1100 حـ / الصندوق الى 1100 حـ/ مبيعات التذاكر وهكذا كل عملية شراء وكل عملية بيع لو حبيت تعمل قائمة دخل لمعرفة ارباحك او خسائر اجمالى مبيعات التذاكر 1100 اجمالى مشتريات التذاكر (1000) -------------------------------- صافى الارباح 100 الكلام فى هذا الموضوع كثير جدا ولكن حبيت اوضح بشكل بسيط ازاى ممكن تشتغل حسابات فى مكتب خدمى تقبل تحياتى

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