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

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء وفي الدرس القادم سنتعرف علي بعض الاكواد المعاونة لشاشة الادخال او بمعني ادق اكواد نحتاجها مع شاشة الادخال مثل (تنسيق التكست بوكس ، الترقيم التلقائي في تكست معين ، تنسيق التاريخ في التكست بوكس .... ) واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 3 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال 1.rar فيديو 1 .. طريقة عمل شاشة ادخال 1.rar الملف الفيديو الثاني والثالث في المشاركة التالية حيث لم يمكنني اضافتهم هنا

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، تم التعديل على الكود حسب المطلوب وزيادة الشرط الذي طلبته مني في رسالتك الخاصة وهو أن يتم حفظ كل الشيتات التي تكون فيها الخلية AQ4 مساوية الصفر... أرجو أن يعجبك هذا التعديل ويفي بالغرض المطلوب... أخوك بن علية الملف المرفق : المقاولين1.rar

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

السلام عليكم اقدم لكم في هذا الموضوع قناة على اليوتيوب خاصة بالاكسيل تحتوى القناة على اكثر من 160000 (مائة وستون الف) درس فيديو مدعمة بملفات للشرح حتى لحظة كتابة الموضوع وبعض الدروس اكثر من ساعة للدرس انا استفدت من هذه القناة كثيرا جدا ارجو ان تستفيدوا منها https://www.youtube.com/user/ExcelIsFun/videos

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

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

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

السلام عليكم ورحمة الله شكرا جزيلا وجزاك الله خير هذه احدي الطرق الجميله جدا هذه الطريقة العشوائية (Rand) او (Random) بين رقم ورقم في استخراج الرقم العشوائي من الخلية [xfd1] وجعل النتيجة في الخلية [xfd2] واما الخلية [xfd3] هي ناتج المعادلة { Left(xfd2;3) + Right(xfd2;2) = } ووضعت في عنوان مربع الحوار والرقم اللي يظهر في عنوان مربع الحوار خذ منة اول 3 ارقام من اليسار واجمع عليه اول رقمين من يمين الرقم وسيتطابق مع الخلية [xfd3] .هذا هو مسار الكود . تقريبا نفس النهج حسب مايخطر ببالي ولكنها عن طريق الوقت او الوقت والتاريخ. بارك الله فيك وفي ماتملك من مال وولد وجلعلكم إليه اقرب واقرب .

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

تسلم أخي الحبيب محمد أبو عباس الأكواد منقولة منقولة ..ما كلنا بننقل أو معظمنا .. نشوف المفيد اللي نقدر نفيد بيه غيرنا ونضعه بالمكتبة ..يبقا مرجع للجميع إن شاء الله بعد ما يكتمل العمل قليلاً ستحس بالفرق تقبل تحياتي (وياريت تبقا تزورنا كل يوم بكود ..لو صعب يبقا كودين كل يوم ..لو شايف إن دا هيكون أمر مستحيل يبقا تجيب معاك 3 أكواد كل يوم)

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) Static OldCell As Range If Not OldCell Is Nothing Then OldCell.Interior.ColorIndex = xlColorIndexNone End If Target.Interior.ColorIndex = 6 Set OldCell = Target End Sub السلام عليكم اخي الحبيب ابو البراء زادكم الله من فضله علما وشرفا هذه مشاركة بسيطة عشان ماتبقاش جنب الجهاز بخاف على نظرك انت عزيز علينا وهو كود تلوين الخلية النشطة تقبلوافائق احترامي وتقديري

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

http://www.mrexcel.com/forum/excel-questions/705595-another-timesheet-spreadsheet-odd-union-rules.html

او هذا بعد ظبط ناحية الطباعة و اخراج الايقونات من الطباعة المقاولين1.rar

تقصد طباعة كل الاوراق ثم حفظها بصيغة pdf دون الرجوع الى كتابة اسمها في الكود كل مرة هذا ا فهمته جرب هذا المقاولين1.rar

السلام عليكم ورحمة الله وبركاته انا بستخدم الكود التالي مع الوظيفة المعرفة انسخ الكود التالي مع تغيير اسماء الاوارق حسب ما هو موجود عندك sub SavePdf() On Error Resume Next Dim FileName As String Dim rng As Range On Error Resume Next Set rng = Range(Sheets("AliElbasry").PageSetup.PrintArea) If Not rng Is Nothing Then Debug.Print rng.Address(external:=True) rng.Select FileName = RDB_Create_PDF(Sheets("AliElbasry"), "", True, True) If FileName = "" Then Else Sheets("Data").Select Range("D3:L3").Select Exit Sub End If End If Sheets("Data").Select Range("D3:L3").Select End Sub   مع الوظيفة التالية انسخ وضوعها في موديول جديد Function RDB_Create_PDF(Myvar As Object, FixedFilePathName As String, _ OverwriteIfFileExist As Boolean, OpenPDFAfterPublish As Boolean) As String Dim FileFormatstr As String Dim Fname As Variant If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _ & Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then If FixedFilePathName = "" Then FileFormatstr = "PDF Files (*.pdf), *.pdf" Fname = Application.GetSaveAsFilename("", filefilter:=FileFormatstr, _ Title:="Create PDF") If Fname = False Then Exit Function Else Fname = FixedFilePathName End If If OverwriteIfFileExist = False Then If Dir(Fname) <> "" Then Exit Function End If On Error Resume Next Myvar.ExportAsFixedFormat _ Type:=xlTypePDF, _ FileName:=Fname, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=OpenPDFAfterPublish On Error GoTo 0 If Dir(Fname) <> "" Then RDB_Create_PDF = Fname End If End Function

اكتب في عنصر تحكم الحقل =Dmax("txt1";"table1") أو =Dlast("txt1";"table1") اختر المناسب لبياناتك

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

هل هذا هو قصدك ؟؟ Reply.zip

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

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

أنظر أخى المرفق معادلة حساب السن.rar

جزاك الله خير أخي دغيدي فعلا الشكل الثاني هو الصحيح ، بس إيش نعمل هذا هو النظام عندنا في التربية في اليمن ولابد أن نمشي عليه ولكن هل تقصد أستادنا دالة TOPTEN في المشاركة على الرابط التالي http://www.officena.net/ib/index.php?showtopic=38931 إذاكانت هي نفسها فإنها خاصة بالترتيب في جدول آخر من الأول حتى العاشر أو أكثر لكن دالة أستادنا خبور خير تقوم بالترتيب في نفس الجدول فربما يكون أول تلميذ في القائمة يكون الترتيب المقابل في الجدول العاشر بينما تلميذ آخر في ذيل القائمة يكون الترتيب المقابل له الأول بمعنى آخر لآ أريد أن يتم فرز التلاميذ في جدول آخر وعمل ترتيب لهم فيه وإنما في نفس الجدول كل تلميذ الترتيب المناسب له مقابلاً له الرجاء تحميل الدالتين وملاحظة الفرق بينهما وإذا كان هنك دالة للإستاذ الحسامي تقوم بنفس دالة الأخ خبور ممكن ترفع لنا الرابط أو ممكن إن الدالة نفسها للاستاذ الحسامي تقوم بنفس الشيء فضلا وضحوا لنا ذلك لإننا مبتدئين والعفو منكم على الإطالة ربنا يبارك فيكم ويحفظكم

أخي العزيز تفضل في خيارات النموذج عدل ما يلي: أنشئ ماكرو جديد > في action ثبت Maximize في خيارات النموذج وفي حدث On Load تثبت استخدام الماكرو كما يلي: في خيارات النموذج وفي Shortcut Menu عدل كما يلي لإيقاف استخدام الزر الايمن للماوس والدخول لوضع التصميم للنموذج (مثلا) ، ما لم يؤثر ذلك على استخدامل لقوائم أخرى: وتفضل التطبيق NA_Full.rar

بسم الله الرحمن الرحيم كل عام وأنتم بخير بمناسبة حلول الشهر الكريم أعاده الله عليكم بالخير واليمن والبركات وتقبل الله صيامكم وقيامكم كود معادلة لحساب الفرق بين تاريخين ميلادي او هجري Function kh_count_day(Mydate_Max As Date, Mydate_Min As Date) If IsDate(Mydate_Max) And CDate(Mydate_Min) Then kh_count_day = Mydate_Max - Mydate_Min End If End Function تفضل المرفق حساب الفرق بين تاريخين.rar