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

الله ينور دائما سباق حبيبي ابو البراء

أخي الكريم أبو حمادة حاول تستخدم خاصية البحث في المنتدى ، وإن شاء الله تجد أجوبة لكثير من الأسئلة إليك الكود التالي يوضع في حدث الفورم Private Sub UserForm_Initialize() With Application .WindowState = xlMaximized Zoom = Int(.Width / Me.Width * 80) Width = .Width: Height = .Height Left = 0: Top = 0 End With End Sub ودا ملف مطبق فيه الكود تقبل تحياتي Fit Screen Resolution YasserKhalil.rar

شكرا اخي الغالي ياسر على مرورك الكريم باذن الله نضع الشرح قريبا ولكن اولا راجع اخر درس في السلسلة واعطنى مثال حتى تتمكن من معرفته ما هو قادم حبيبي ابو البراء الغالي طبعا حماية الملف بالطريقة دي كويسة ولكن مع الاكسيل نفسه يبقي انت كدا هتتعامل مع ملف عادي لا يوجد به اي اكواد ماكرو وبالتالي فقدنا جزء البرمجة ولكن مع الفيجوال مفيش مستحيل انا تعمدت اني اربط مثال Xlsx حتى تصل فكرة انو بنتعامل مع اي ملف ولو حتى لا يدعم الماكرو يبقي احنا كدا عملنا حماية لملف الاكسيل ممتازة وطبعا حماية الملف التنفيذي جيدة ايضا وربطناهم ببعض وتفضلو كلمة المرور اهي aseel&mohamed&yasser ودي كلمة سر البرنامج التنفيذي وبتبقي محفوظه داخل الاكسيل ونقدر نغيرها بس اللي محدش يقدر يغيرها كلمة سر ملف الاكسيل لانها من ضمن اكواد البرمجة وبنينا عليها خلاص والدرس القادم باذن الله عن كيفية عمل الحماية دي لكم مني كل الشكر والتقدير ياسر العربي

اخى الكريم زكى جرب المرفق هل هو ما تريد الحل هو مجرد تحايل على الاكسيل لان التعامل مع التاريخ الهجرى بالاكسيل شبه مستحيل يوجد حلول اخرى بالاكواد ولكن انا ارى ان هذا الحل بالمعادلات يفى بالغرض ملحوظه مهمه جدا يجب عند كتابتك للتاريخ ان يكون تنسيقه كالتالى 1437/05/01 يعنى اليوم والشهر يكون رقمين وليس رقم فلو كتبت التاريخ هكذا 1437/5/1 سيكون النتائج خطأ ويرجى تغيير اسمك الى العربيه طبقا لقواعد المنتدى تقبل تحياتى المطلوب دالة في كل شيت.zip

اخى الكريم اهلا بيك فى جامعه اوفيسنا يرجى من حضرتك ارفاق ملف فيما بعد وياريت تراجع التوجيهات بالمنتدى بخصوص طلبك بفرض ان الرقم 1254.21 فى الخليه A1 ضع هذه المعادله فى الخليه مثلا B1 =INT(A1) ستجد النتيجة 1254 وضع هذه المعادله فى الخليه مثلا C1 =MOD(A1;1) ستجد النتيجة 21. تقبل تحياتى

تفضل اخى الكريم شاهد المرفق تم اخد التاريخ بالاعتبار تقبل تحياتى New Microsoft Excel Worksheet.zip

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

أخي الكريم مهند الزيدي إليك الكود التالي عله يفي بالغرض Private Sub Workbook_Open() 'يوضع الكود في حدث المصنف ويقوم بإجبار المستخدم على تمكين الماكرو 'يعتمد الكود على ورقة عمل مخفية تقوم بوضع رسالة بها وتظهر في حالة 'عدم تمكين وحدات الماكرو وتختفي الورقة في حالة التمكين وتظهر أوراق المصنف 'وضع بها مربع نص عليه رسالة تنبيه للمستخدم [Prompt] قم بإنشاء ورقة باسم '------------------------------------------------------------------------ With Application .EnableCancelKey = xlDisabled .ScreenUpdating = False Call UnhideSheets .ScreenUpdating = True .EnableCancelKey = xlInterrupt End With End Sub Private Sub HideSheets() Dim Sheet As Object With Sheets("Prompt") If ThisWorkbook.Saved = True Then .[A100] = "Saved" .Visible = xlSheetVisible For Each Sheet In Sheets If Not Sheet.Name = "Prompt" Then Sheet.Visible = xlSheetVeryHidden End If Next If .[A100] = "Saved" Then .[A100].ClearContents ThisWorkbook.Save End If Set Sheet = Nothing End With End Sub Private Sub UnhideSheets() Dim Sheet As Object For Each Sheet In Sheets If Not Sheet.Name = "Prompt" Then Sheet.Visible = xlSheetVisible End If Next Sheets("Prompt").Visible = xlSheetVeryHidden Application.Goto Worksheets(1).[A1], True Set Sheet = Nothing ActiveWorkbook.Saved = True End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) With Application .EnableCancelKey = xlDisabled .ScreenUpdating = False Call HideSheets .ScreenUpdating = True .EnableCancelKey = xlInterrupt End With End Sub

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

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

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

من اكواد الاستاذ الفاضل عبدالله باقشير والذي لم نعد نرى مشاركته نسأل الله ان يمن عليه وعلى اهله وبلده الامن والرخاء وان يسعده الله في الدارين اخي الفاضل الخليتان Z1 , D1 بهما معادلتان مرتبطنان بالكود لا تحدفها جرب اخي وان اردت شيئا احر لا تتحرج من السؤال فكل من فضل الله N2.rar

الكنترول الابتدائي 4-5 يوفر للمستخدم العديد من الامكانيات والمطبوعات خاصة بنصف الفصل الأول والثاني والفصل الأول ونهاية العام مع امكانية تعديل بيانات الطلاب بكل سهولة وحذف أي طالب بكل سهولة دون الاخلال بالبرنامج .

جزيت خيراً أيها المهند على دعائك الطيب .. وفقنا الله وإياكم لما فيه الخير والمنفعة والصلاح

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

بعد اذن ابوالبراء اخى الحبيب جرب هذا الكود Private Sub UserForm_Initialize() Dim Zo% Dim ZH#, ZW#, AL#, AT#, AH#, AW# Dim FH!, FW! AH = Application.Height: AW = Application.Width AL = Application.Left: AT = Application.Top FH = Height: FW = Width ZH = AH - FH: ZW = AW - FW: Zo = Zoom If ZH < ZW Then Zo = Zo * (AH / FH) Else If ZW < ZH Then Zo = Zo * (AW / FW) Move AL, AT, AW, AH If Zo <> 100 Then Zoom = Zo End Sub تقبل تحياتى

استاذى الفاضل / ابوالحسن والحسين شاهد المرفق هل هو طلبك تقبل تحياتى آخر سعر بالكود.zip

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

استاذى الحبيب ابويوسف جزاكم الله خيرا تقبل تحياتى

السلام عليكم ورحمة الله وبركاته الشكر الجزيل لأستاذنا الرائع الصقر على هذا الدرس الجميل البسيط والرائع تقبل تحياتي العطرة

وعليكم السلام تفضل . والنتيجة . جعفر 321.New Microsoft Access قاعدة بيانات (6).accdb.zip

جزااااك الله خيرا ياأخي الصقر ساقوم بتجربتها والرد عليك تمام اخي صقر وساراجع التوجيهات جزاك الله خير كثيرا

الحمد لله الذي بنعمته تتم الصالحات وتصبح على خير يا أخ وائل تقبل وافر تقديري واحترامي

تسلم ايدك يابركات يابو الحركات لا ياباشا تمام التمام وتصبح علي خير وسعاده وهنا

أخي وائل كدا أنا هتوه منك مرة تقولي حسب الشهر .. ودلوقتي تقولي فيه أوراق تانية باسم q1 و q2 .. وفي النهاية غيرت مسارك وقلت خلينا نتعامل مع الورقة النشطة يا ريت تكون دي آخر محاولة مني Sub TransferTables_YasserKhalil() Dim CN, D As Integer, R As Integer, L As Integer, N As Integer Const C = 30 CN = [{1,3,7,28,29,30}] D = Sheets("Data").Cells(Rows.Count, 2).End(3).Row + 1 R = 5 Application.ScreenUpdating = False With ActiveSheet L = .Cells(.Rows.Count, 3).End(xlUp).Row Do With .Cells(R, 4) If .Value > "" Then N = .CurrentRegion.Columns(2).Find("*", , xlValues, , , xlPrevious).Row - R - 3 Sheets("Data").Cells(D, 2).Resize(N + 1, 3).Value = Array(.Cells(1, 10).Value, .Cells(2).Value, .Value) Sheets("Data").Cells(D, 5).Resize(N, 6).Value = Application.Index(.Cells(5, 0).Resize(N, C).Value, Evaluate("ROW(1:" & N & ")"), CN) Sheets("Data").Cells(D + N, 5).Resize(, 6).Value = Application.Index(.Cells(17, 0).Resize(2, C).Value, 1, CN) D = D + N + 1 End If End With R = R + 21 Loop While R < L End With Application.ScreenUpdating = True End Sub ويا رب تظبط معاك عشان أنا بدأت أهيس وشوية ورايح أنااااااااااااااااااااااااااااااااااااااااام تقبل تحياتي

اضافة للموضوع مرفق ملف من اعداد الاستاذ / عماد الحسامى - رحمه الله وادخله فسيح جناته vlookuptwo.rar

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

جرب معادلة الصفيف التالية =INDEX(Table1[السعر],MATCH(MAX((Table1[الصنف]=K12)*(Table1[الحركه]="مشتريات")*(Table1[التاريخ])),Table1[التاريخ],FALSE),1) لا تنسى أن تضغط على Ctrl + Shift + Enter تقبل تحياتي

1_ يرجي من السادة الكرام عندما تقوم بانشاء قاعدة بيانات ان نكون الحقول باللغة الفرنسية او اللغة الانجليرية حتى تسهل في كتابة كود (صحيح) وفي النموذج غير فيه كما تشاء الى اللغة العريبية بشرط ان لا تمس الاسماء الحقول حتى لا يطلب منك ادخال اللغة العربية في البرمجة وكتابة الكود صحيح وهذا ما افعله اقوم بنسخ و لصق و اغير في الكود فقط وشكرا

السلام عليكم ورحمة الله ماشاء الله تبارك الله اخي عمر يسًر الله لك الخير. الاخ زيزو والاخ حسام (الصقر) والاخ سليم وختامها مسك استاذنا ياسر خليل بارك الله فيهم وجزاهم الله خير الجزاء للتوضيـــــــــــــــــــــــــــــــــــــــــــــــح للأخذ بعين الإعتبار : الموضوع واضح جدا كمثال : التاريخ الصنف الكمية 01/12/2015 صنف1 100حبة 05/12/2015 صنف1 200حبة 10/12/2015 صنف1 300حبة 15/12/2015 صنف1 400حبة 20/12/2015 صنف1 500حبة 30/12/2015 صنف1 600حبة طبعا مما لاشك فيك آخر شراء هو آخر تاريخ تم الشراء فية وهو 30/12/2015 هنا ستم الربط بين التاريخ واسم الصنف وسعر الصنف انتهينا من هذه النقطة لكـــــــــــــــــــــــــــــــــــن المشكله هي ماذا لو ان هناك اكثر من شراء لنفس الصنف في تاريخ معين مثلا تاريخ 30/12/2015 هنا ستحتاج لربط الوقت .ولو افترضنا شراء صنف في تاريخ واحد لاكثـــــــــــــــــــــــــــــــــــــــر من مرة مثلا ثلاث مرات اربع مرات ..... الخ فله حالتين الاولي ان السعر واحد لم يتغير والحالة الثانية بأسعار مختلفة . وعلي هذا الاساس يتم جدولة الكود او المعادلة وياليت ان تتمموه بالكود لتعم الفائدة جزاكم الله خير الدنيا والآخره .

تم رفع الملف مع المعادلة المطلوبة book1 salim.rar

احذف «Next Record» في أسفل الصفحة.

إليك معادلة الاخ الحبيب سليم مع تعديل رقم 5 إلى 4 لتظهر النتائج بشكل صحيح (وهي الأفضل في وجهة نظري حيث أنه لا داعي لأعمدة مساعدة) SALIM.rar

وعليكم السلام ورحمة الله أخي الفاضل في استعلام الإيجارات المستحقة قم بوضع عبارة (لا) في ميعار الحقل (سدد) لكي يظهر الحقول التي لم يتم سددها عذرا أخي وأستاذي جعفر لم أرى تعليقك أثناء إدراجي تعليقي بارك الله فيك

وعليكم السلام استعملت: ---------------------------------------------- 3. اعمل وحدة نمطية ، مثلا function make_shortcut() الكود يأتي هنا end function ثم اعمل ماكرو ، واطلب من الماكرو ان: شغل الكود make_shortcut شغل النموذج الفلاني ---------------------------------------------- فك المرفق في مجلد واحد ، وافتح البرنامج بطريقة عادية ، واغلق البرنامج ، سترى الاختصار على سطح المكتب ، ومن الان فصاعدا استخدمه للدخول لبرنامجك وكلما حذفت الاختصار ، سيتكون من جديد جعفر Export to Excel And Make Dektop shortcut.zip

لا عليك أخي بل من الأصح أن تراجع المرفق وتجربه جيدا ووافني بأي خطأ للعلم.. حولت عمل التقرير بالاستعلام.. انظر الحقلي A - B 2تقارير-------edit.rar

تفضل جعفر 294.تقارير.mdb.zip

أخي الحبيب إبراهيم وجب تصحيح نقط معينة وهو أنه لا يجوز الإعلان عن متغير وتعيين قيمة له في نفس السطر Dim H As Integer=10 يجوز ذلك في لغة الفيجوال بيزيك دوت نت أما في VBA سيعطيك خطأ نقطة أخرى بالنسبة للسطر Dim H,m As Integer هنا لم يتم الإعلان عن المتغيرين من النوع عدد ..فقط المتغير m هو المتغير العددي أما المتغير H في هذه الحالة يعتبر من النوع Variant للتأكد من صحة مقولي قم بنسخ الكود التالي في موديول Sub Test() Dim H, m As Integer End Sub قم بوضع مؤشر الماوس في سطر End Sub اضغط F9 لوضع نقطة وقوف BreakPoint سيكون لونها باللون الأحمر الغامق روح لقايمة View وأظهر نافذة Locals ثم قم بتنفيذ الكود ستجد في النافذة تفاصيل كل متغير أرجو أن أكون قد وفقت في توصيل المعلومة

أخي الكريم اضغط على هذا الرابط وتابع شرح فيدو ستجد ما تطلبه

ويمكن ايضا الجمع بين الكودين لاخفاء مجموعة من الصفوف ابتداءا من صف معين واخفاء مجموعة من الاعمدة ابتداءا من عمود معين في ورقة معينة ليكون الكود كما يلي Private Sub Worksheet_Activate() Application.ScreenUpdating = False Rows("301:301").Select Range(Selection, Selection.End(xlDown)).Select Selection.Delete Shift:=xlUp Selection.EntireRow.Hidden = True Columns("J:J").Select Range(Selection, Selection.End(xlToRight)).Select Selection.EntireColumn.Hidden = True Application.ScreenUpdating = True End Sub

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

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

العفو منك اخي الفاضل لم اقم الا بالواجب ابواحمد

وهذا بحث بإظهار صندوق البحث ______.rar

السلام عليكم أخي الكريم تفضل المرفق ______2.rar

بارك الله فيك aysam مرفق الملف وشكرا لك ______.rar

السلام عليكم أخي الكريم ارفق ملف به مثال لما تريد يساعدك الجميع أن شاء الله

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

اخي العزيز هناك موقع فيه الكثير مثل هذه البرامج قد تفيدك لكن حقيقة لم اعرف استخدامها جيدا فاذا عرفت ارجو ان توضحها للكل من اجل المنفعة للجميع http://accesstools.narod.ru/.