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

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

أخي الكريم أبو حمادة حاول تستخدم خاصية البحث في المنتدى ، وإن شاء الله تجد أجوبة لكثير من الأسئلة إليك الكود التالي يوضع في حدث الفورم 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 الملف الفيديو الثاني والثالث في المشاركة التالية حيث لم يمكنني اضافتهم هنا

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

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

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

بعد اذن ابوالبراء اخى الحبيب جرب هذا الكود 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

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

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

بسم الله الرحمن الرحيم اليوم سنقوم بشرح طريقة ربط الفيجوال بيسك بالإكسيل اولا نعمل مشروع جديد عبارة عن فورم وواحد كمبوبوكس وسته تكست وثمانية ليبل وخمس أزرار وملف اكسيل بامتدادxlsx واسمه aseel امتداده اظن لا يدعم وحدات الماكرو بس عادي مع الفيجوال شغال بنفس ترتيب الشكل الاتي: خلصنا الشكل السابق ندخل علي الشغل الجديد بقي كلنا أكيد سمعنا عن المتغيرات وكلنا تعاملنا معاها قبل ما نشوف المتغيرات الفيجوال عشان نربطه بالإكسيل لازم له مراجع ومتغيرات عامة على مستوى المشروع بأكمله إيه الكلام دا بيتعمل ازاي المرجع دا ولا بنجيبه منين شوفو معايا الصور بعد الخطوات دي ياترى بنعرف نضيف موديول زي ما بنضيف فورم جديد كدا اللي بيعرف يضيف اللي مش عارف ينزل للصورة معايا ويشوف ايه البيانات دي يامعلمين دي بقي المتغيرات العامة اللي بنقول عليها وبتكون علي مستوى المشروع بأكمله يعني لازم تتحط في موديول ولتبسيط الكلام اللي فوق دا بطريقة سهلة اول سطر Public YXL As New Excel.Application YXL دا متغير يشير الى برنامج الاكسيل نفسه بمعنى عندما نريد ان نكتب في الاكسيل Application. Visible = False نكتبه كدا YXL. Visible = False اكيد وصلت الفكرة ولو مش وصلت نكمل مثال كمان المتغير ونظيره في الإكسيل YWB= Workbook YSheet= Worksheet YRng= Range اكيد الامور اصبحت سهلة كدا أي كود في الإكسيل نستبدل المذكورين في أعلاه بنظره في الإكسيل وسيعمل الكود بإذن الله يعني مش هتخترع اكواد جديدة هي نفس القديمة بس تعديلات طفيفه المهم الكل يكون عمل الفورم والموديول والاداوت كما ذكرت سابقا بالترتيب الموجود عشان الاكواد متتبدلش مع الادوات نيجي بقي للاكواد Private Sub Combo1_Click() 'جدا الكمبوبوكس ومنه بيتم جلب البيانات بمعلومية الرقم والكود طبعا مفيهوش جديد نفس اكواد الاكسل With YSheet LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row For iRow = 6 To LastRow If .Cells(iRow, 2) = Combo1.Text Then Text1.Text = .Cells(iRow, 2) Text2.Text = .Cells(iRow, 3) Text3.Text = .Cells(iRow, 4) Text4.Text = .Cells(iRow, 5) Text5.Text = .Cells(iRow, 6) Text6.Text = .Cells(iRow, 7) End If Next End With End Sub Private Sub Command1_Click() Dim lstrow As Long 'ودا كود ترحيل البيانات ونفس الشئ مش جديد كل اللي اتغير اللي ذكرنااه If Text1.Text = "" Then MsgBox "íÌÈ ÇÏÎÇá ÌãíÚ ÇáÈíÇäÇÊ" Else lstrow = YSheet.Range("b20000").End(xlUp).Row + 1 YSheet.Cells(lstrow, "b").Value = Text1.Text YSheet.Cells(lstrow, "c").Value = Text2.Text YSheet.Cells(lstrow, "d").Value = Text3.Text YSheet.Cells(lstrow, "e").Value = Text4.Text YSheet.Cells(lstrow, "f").Value = Text5.Text YSheet.Cells(lstrow, "g").Value = Text6.Text Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" MsgBox ("ÊãÊ ÇáÚãáíÉ ÈäÌÇÍ") End If End Sub Private Sub Command2_Click() 'ودا كود اظهار برنامج الاكسيل بردو غيرنا اللي اشرنا ليه فقط YXL.Visible = True End Sub Private Sub Command3_Click() ' ودا لاخفاء برنامج الاكسل YXL.Visible = False End Sub Private Sub Command4_Click() 'لحفظ البرنامج المفروض المتغير يكون شغال بس مش عارف سبب المشكلة ايه حاليا فقلت اجرب الكود العادي اشتغل تمام مشي حالك 'åäÇ ãÔ ÚÇÑÝ ÇáãÊÛíÑ åäÇ ÞÝÔ ãÚÇíÇ æãÔ ÚÇíÒ íÍÝÙ ÞáÊ ÇÌÑÈ ÇáßæÏ ÇáÚÇÏí ÇÔÊÛá ÞáÊ Òí ÇáÝá 'YWB.save ActiveWorkbook.save End Sub Private Sub Command5_Click() 'وطبعاخروج YXL.Quit Set YXL = Nothing End End Sub Private Sub Form_Load() 'هنا بنستدعي ملف الاكسيل من نفس مسار البرنامج بتاعنا ونفتحه YXL.Workbooks.Open App.Path & "/aseel.xlsx" 'اخفاء البرنامج بعد فتحه طبعا YXL.Visible = False 'هنا بقي قولنا له ان يخلي Ysheet دي تبقى الشيت الاول والاكس شيت تبقي الشيت التاني Set YSheet = YXL.Worksheets(1) Set XSheet = YXL.Worksheets(2) عادي ليبل وبياخد بياناته من خليه معينه Label7.Caption = YSheet.Range("a1").Value Label8.Caption = YSheet.Range("a2").Value With Combo1 'ودا ا لكمبوبوكس بندرج فيه بيانات الصف b For Each Data In YSheet.Range("b6:b" & YSheet.Cells(Rows.Count, "b").End(xlUp).Row) .AddItem Data Next End With End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ودا بقي عشان لما تدوس علي علامة الاكس فوق ميخرجشي من البرنامج ويسيب ملف الاكسيل مفتوح ومخفى '' YXL.Quit Set YXL = Nothing End End Sub وبكدا نكون انتهينا من وضع الاكواد اظن الكل واخد باله انه مفيش جديد وهو دا بالتحديد مفيش جديد كل اللي عملناه واحد تايه وعرفنا السكه خلاص وبعدين محدش ينسى يعمل ملف اكسيل اه بعد دا كله يجي حد يقولي البرنامج مش شغال ليه اقوله فين ملف الاكسيل بعد الاطلاع علي البرنامج هيجي واحد يقولي ايه القلب الجميل اللي علي الفورم دا اللي مكان السهم اهو دا من ضمن اللمسات الجمالية وبيتعمل ازاي يامعلم الشرح بسيط ف الصورة معلش بدل ما اكتب الماوس كتبت الموس شغال بقى اعذروني انا بعمل الشرح في وقت قياسي وانا شغال مرفق البرنامج ومعاه القلب عشان تعملوه مكان السهم يارب اكون وصلت المعلومة صح واي خطأ منى فدا لجهلى اعذروني منتظر الردود علي فكرة الدرس دا تقريبا بنسبة كبيرة يعتبرحصرى لمنتدى اوفيسنا انا بحثت عن ربط الفيجوال بالاكسيل كثيرا وكثيرا وكود من هنا وكود من هنا حتى اكتملت الصورة امامي وتوصلت لهذا والحمد لله مع تحياتي ياسر العربي يتبع ربط الفيجوال بالاكسل.rar

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

الى اساتذتى و من لهم الفضل فى تعليمى الكثير ,,,,,, - بدون رغى كتير علشان مش باعرف أتكلم كتير - بصراحه انا كنت عاوز اهدى الملف دة لبعض الاساتذه بس بصراحه أتكسفت انسى حد علمنى حاجه واكون مكتبتش اسمه ف انا بهديه لكل أوفيسنا بصراحه ده مشروع واحد زميلى فى الشغل وانا مقدرتش امسك نفسى لما شفته عن انى اشارك بيه اصحابى و من من الممكن ان ينتفع به ---- نَحوى نحوى مفيش كلام ------ عباره عن اله حاسبه بصراحه غريبه الاطوار علشان ........... .......... .............................................................. ,,,,, " ما تيجوا نشوف " بصراحه بحاول اقلد أسلوب الاستاذ الكبير ياسر خليل ..... بس مش عارف .... Calculator Version 1.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 ثم قم بتنفيذ الكود ستجد في النافذة تفاصيل كل متغير أرجو أن أكون قد وفقت في توصيل المعلومة

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

اخى الكريم تحت امرك ويعجبنى جدا اللى عايز يتعلم شوف يا سيدى الخطوة الاولى : فى نقطه تقاطع بين الاعمده والصفوف كما هو بالصورة المرفقه المحاطه بدائرة سمرا روح للملف بتاعك واقف على النقطه دى هتلاقى كل الخلايا بالورقه تم تحديدها الخطوة الثانية : اعمل ريت كليك هتظهر قائمة اختار منها تنسيق الخلايا ولو النسخه انجلش اختار Format Cells هيظهر لك شاشة كما هو بالصورة اختار حماية ( Protection ) اخر وحده كما هو بالصورة خلى Locked جنبها علامه صح وايضا Hidden جنبها علامه صح ثم اوك كدا لو عملت حمايه للورقة مش هتقدر تعدل على كل الخلايا لانك عملت عليها كلها حماية ( اصبر اوعى تروح تعمل حماية اصبر على السمك لما يستوى ) بص يا سيدى انت بقى شوف الخلايا اللى انتى مش عايز عليها حمايه واقف عليها واضغط عليها ريت كليك واختار تنسيق خلايا ثم حماية ثم شيل علامات الصح من المربع نفس الخطوات السابقه بس هنشيل علامه الصح كدا لما تيجى تعمل حماية كل الخلايا مش هتعرف تعدل عليها الا الخلايا اللى انت شلت من جنبها علامه الصح اتمنى ان يكون الشرح واضح جرب وعلمنى بالنتيجة تقبل تحياتى

ويمكن ايضا الجمع بين الكودين لاخفاء مجموعة من الصفوف ابتداءا من صف معين واخفاء مجموعة من الاعمدة ابتداءا من عمود معين في ورقة معينة ليكون الكود كما يلي 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

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

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

ارجو ان تكون اجابتى كما ينبغى اخيكم فى الله على الخطيب aly elhedewy.zip

السلام عليكم اليوم سنقوم بعمل اختبار لتحديد مدى الاستفادة من الدورة السؤال الاول: قم بعمل ملف اكسل يحتوي على زر ماكرو به التنسيقات التالية لون الخط احمر غامق ولون الخلية اصفر السؤال الثاني : بعد عمل الماكرو في السوال الاول اجعل هذا الماكرو ينفذ هذه التنسيقات في اي خلية في ورقة العمل السؤال الثالث: قم بعمل كود لترحيل قيم الخلايا الموجودة في المدى (A2:D20) من الورقة 1 الى الورقة 2 والشرط هو لون الخلية وان يكون الترحيل مرتب ملاحظة هامة (لا يتم نقل او ترحيل المدى كامل وانما يتم شرط لون الخلية لترحيل بياناتها بمعنى لو ان المدى ليس به الا خليتين لونهما احمر مثلاً يتم ترحيل هاتين الخليتين فقط ومهما كان موقعهما في المدى) السؤال الرابع: قم بعمل دالة جمع لثلاثة بارومترات ======================== ملاحظة يتم تنفيذ جميع الاجوبة في ملف واحد وشكراً

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

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