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

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

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

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

الكنترول الابتدائي 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

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

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

اضافة للموضوع مرفق ملف من اعداد الاستاذ / عماد الحسامى - رحمه الله وادخله فسيح جناته 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» في أسفل الصفحة.

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

بسم الله الرحمن الرحيم اليوم سنقوم بشرح طريقة ربط الفيجوال بيسك بالإكسيل اولا نعمل مشروع جديد عبارة عن فورم وواحد كمبوبوكس وسته تكست وثمانية ليبل وخمس أزرار وملف اكسيل بامتداد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

أساتذتى الكرام كل سنه وانتم طيبين بعيد المولد النبوى ....... أنهارده جبت مرفق تانى عباره عن أداه على الاكسيل بتختار منها العمله و المتاح ثلاث عملات ( جنيه مصرى - يورو - دولار ) وأيضا تختار اللغه والمتاح ( اللغه العربيه - +اللغه الانجليزيه ) دى أداه تساعدنا فى حاجات كتيييييييييييييييير للامانه مش انا الى عاملها أنا ناقلها - شاففها يعنى - يارب تعجبكم Convert Numbers to Letters By Excel Ver. 3.rar

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

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

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

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

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

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

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

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

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

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

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

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