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

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

السلام عليكم ولو اني مالي علاقة في السؤال ، ولكن صاحب السؤال hmimou777 عمل هذا السؤال في 21/12/2015 ، والى اليوم لم يتفاعل مع المشاركات ، بينما الاجابات كلها صارت للأخ nabil09 هنيئا له جعفر

السلام عليكم ورحمة الله وبركاته أخي الحبيب ياسر العربي مروركم الأجمل ..حاولت المشاركة بشيء بالرغم من انشغالي ..فالتفاعل مطلوب لأن ثمرته التلاقي والمحبة والسلام عليكم

وعليكم السلام ومشاركة مع أخي عبدالرحمن ، ولكن بتعديل للطريقة الاصل وبيان اين المشكلة نضغط على الزر بالثلاث نقاط ، لكي نغير بيانات استعلام مربع تحرير الحقل "مالك العقار" . نرى انك مستخدم اسم المالك فقط ، ولم تنزل الحقول الاخرى التي تريدها ، وهي "رقم الهوية" و "رقم الجوال" !! . ننزل بقية الحقول المطلوبة ، ولاحظ ارقام الاعمدة ، والتي سنستخدمها في الكود ، يعني "رقم الهوية" في العمود رقم 1 ، و "رقم الجوال" في العمود رقم 2 . على هذا الاساس ، نغير في اعدادات الحقل ، بأنه هناك 3 اعمدة ، ولكن اجعل عرض العمود رقم صفر 1.4348 بوصة ، واجعل نتائج العمودين 1 و 2 مخفية (اي ان عرض الاعمدة صفر) . على اساس المعلومات اعلاه ، هكذا يكون الكود ، رقم الاعمدة كما عملناها في الاستعلام . جعفر 324.db1.mdb.zip

ههههههههه عندك حق أخي جعفر.. والله انا افتكرت السائل هو الأخ نبيل ونسيت إن صاحب المشاركة hmimou777 الحمد لله المهم ان الإجابات داخل نطاق السؤال من البداية

السلام عليكم ورحمة الله وبركاته أخي الحبيب الصقر "حسام عيسى " كلها أيامٌ نعدها فمنها ما يستحق الذكر ومنها ما لا أهمية لذكرها فخير تلك الأيام تلك التي تعدها لك وقد أبليت بها بلاء حسناً ...فنحن ينطبق علينا القول الآتي: من لم يكن يومه خير من أمسه فبطن الأرض خير له من ظهرها...ولكن الحمد لله الذي وهباً لنا قلوباً ذاكرة وألسنة شاكرة فالمرء بأصغريه قلبه ولسانه ..والمؤمن يألف ويؤلف ...وله فراسة ذلك لأنه يعبد ربه على بصيرة ...مما يجعل النور يحيطه من كل اتجاه فلنحمد الله على عظيم منّه وكرمه وأن هيأ لنا خيراً عميماً ومحبة كبرى بين عباده والسلام عليكم.

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

اخى الغالى عبدالعزيز مرورك هو الاروع والاجمل دائما ما تضئ مشاركاتى بنورك تقبل تحياتى

السّلام عليكم و رحمة الله و بركاته أخي الغالي .. قبل أستاذي القدير " حسام عيسى " هديّة إكسيلية بأضواء ملوّنة .. مميّزة فعلاً .. بارك الله فيك .. جزاك الله خيرًا و زادك من علمه و فضله كل عام و كل أعضاء جامعة " أوفيسنا " بمليون خير فائق إحتراماتي

كل عام وأنت بخير أخي الحبيب الغالي حسام أسأل الله أن يجمعنا في الجنة في مستقر رحمته تقبل تحياتي

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

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

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

أخي الكريم مختار البركاني السطر الأول هو سطر للإعلان عن المتغيرات المستخدمة في الكود السطر التالي Set MyRange = Range(Cells(8, 1), Cells(Cells(Rows.Count, 1).End(3).Row, 1)) هذا السطر يتم فيه تعيين قيمة للمتغير الذي سنتعامل معه وهو النطاق الذي سنقوم بعمل حلقة تكرارية لخلاياه وهو يبدأ من الخلية في العمود الأول في الصف الثامن وينتهي في نفس العمود في آخر خلية بها بيانات هذا الجزء من الكود For Each Cel In MyRange If Cel.Value = 0 And Cel.Offset(, 4).Value = 0 Then If Not Cel Is Nothing Then If Rng Is Nothing Then Set Rng = Cel Else Set Rng = Union(Rng, Cel) End If Next Cel هنا حلقة تكرارية لكل خلية من خلايا النطاق المذكور في السطر السابق يتم اختبار قيمة الخلية وكذلك قيمة الخلية في العمود الخامس التي تبعد عن الخلية الحالية بمقدار 4 أعمدة في نفس الصف ، فإذا كانت الخليتين قيمتهما = صفر يتم تنفيذ السطر التالي والذي يقوم بتخزين نطاق الخلية الحالية في متغير آخر باسم Rng .. وفي كل حلقة يتم تخزين النطاق الجديد إضافة إلى النطاق القديم .. بمعنى يتم تجميع نطاقات الخلايا التي ينطبق عليها الشرط ثم If Not Rng Is Nothing Then Rng.EntireRow.Hidden = True يتم إخفاء الصفوف للنطاق المسمى Rng (الخلايا التي انطبق عليها الشرط) مرة واحدة وهذا أسرع من الكود الأول الذي يقوم بالتعامل مع صف صف ... الفكرة في السرعة هنا في أداء الكود أن الكود يتعامل مع الخلايا التي ينطبق عليها الشرط مرة واحدة ActiveSheet.PrintPreview أخيراً يتم معاينة أو طباعة ورقة العمل النشطة وفي نهاية المطاف يتم إظهار الصفوف التي تم إخفائها مرة أخرى أرجو أن تكون الصورة قد اتضحت أخي الكريم تقبل تحياتي

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أيها الأحبة منذ أن بدأت في تعلم الأكسس حيث كانت بداياتي في هذا المنتدى المبارك وكنت أتمنى طريقة شرح معينة حيث إن المبتدئ منا لا يحتاج للشيء النظري البحث إنما يحتاج لإنارة الطريق حتى يصل إلى المطلوب من خلال أمثلة مبسطة وذلك بحكم أن ليس كل مشارك في المنتدى متخصص في البرمجة ونحوها .. وكنت منذ أن بدأت أجمع الأمثلة ثم أقوم بفكها والنظر في الاكواد ونحوها وكان يشكل علي كثيرا معرفة اسم النموذج في الكود والسجل ونحوها وتمييزها عن بقية الكود فالكود أحيانا يكون به كلمات إنجليزية هي أساس في الكود فلا تتغير إنما الذي يتغير كلمات معينة كاسم النموذج أو السجل أو الاستعلام ونحوها ... وكم عانيت في ذلك وخاصة إذا كان المثال معقدا. ومن هذا أحببت أن نبدأ جميعًا في مشروع أظنه نافعا بإذن الله تعالى وما كان لي أن أطرحه دون إذن أساتذتي الفضلاء الذي لهم سبق فضل علي بعد فضل الله بارك الله في علمهم وعملهم ... وتكمن الفكرة في هذا الموضوع أن يتم تخصيص هذا الموضوع بموضع معين مثلا طرائق البحث في نموذج أكسس فكل منا يجتهد في طرح ما يعرفه من طرائق البحث في نماذج أكسس بشرط أن تشرح بشرح وافي بالمثال بحيث تكون مرجعا لمن أراد البحث في هذا الموضوع (طرق البحث في الأكسس) وعلى ذلك أستأذنكم في طرح مثال أُسرُّ من خلال برأيكم وملحوظاتكم حيث إني لم أقف في شبكة الإنترنت على من تولى مثل ذلك وأتمنى أن يكون لهذا المنتدى قصب السبق ... عنوان الموضوع طرائق البحث في الأكسس : الطريقة الأولى : البحث في النموذج بكتابة جز من الكلمة نفرض أن لدينا جدولا اسمه Book يهتم بأسماء الكتب ونرغب أن نبحث عن كتاب معين بمجرد كتابة جزء من اسمه فنعمل الآتي: 1)نصمم جدولا باسم Book بداخله أسماء كتب تحت سجل nameBook 2) نصمم نموذجا مبني على جدول Book بنماذج مستمرة وليكن اسم النموذج FormBook. 3) ندرج في أعلى النموذج (رأس النموذج ) مربع نص ونسميه فرضا Text1 وبالطبع التسمية من خلال الضغط على مربع التسمية بالزر الأيمن ثم خصائص ثم غير ذلك ثم في خانة الاسم نكتب الاسم المطلوب. 4) نقوم بعمل استعلام مبني على جدول Book وليكن اسمه Qry في الاستعلام نجد سجل NameBook نكتب في الحقل الفارغ الذي بجواره الكود التالي : nz([book].[namebook];"**") حيث إن Book اسم الجدول و NameBook اسم السجل الذي بداخل الجدول. 5) في الاستعلام في المعايير تحت حقل الذي تم عمله في الفقرة رقم (4) نضع الكود التالي Like "*" & [forms]![formbook]![text1] & "*" حيث FormBook هو اسم النموذج و Text1 اسم مربع النص الذي تم إدراجه في رأس النموذج. 6) نذهب إلى النموذج ونضع المؤشر على مربع النص text1 ثم الزر الأيمن ثم خصائص ثم حدث ثم بعد التحديث نضع الأمر التالي Me.Requery 7) نذهب إلى خصائص النموذج من خلال الضغط على أي مكان فارغ في النموذج ثم الزر الأيمن ثم خصائص ثم نختار بيانات ثم مصدر السجل ثم نختار منه اسم الاستعلام Qry بعد ذلك يكون النموذج جاهزا للبحث فيه عن أي كتاب ويمكن تكرار ذلك لأكثر من مربع نص بنفس الخطوات السابقة وبالمثال يتضح المقال. ((هذا نموذج إن كان مناسبا نستمر عليه ليكون مرجعا ثم ننتقل إلى موضوع آخر (ولا ولا ولا أستغني عن الرأي والمشووورة وهذا جهد المقل) ...) والله الموفق طرائق البحث.rar

نعم صح ، واحتياطا ، عملت في النموذج الفرعي على الحدث الحالي ، ان الحقل PartNo يجدد مصدر بياناته جعفر

وعليكم السلام ورحمة الله تفضل أخي مرفقك بعد التعديل.. بالاستعلام الذي أضفته للنموذج سيجعلك تستغنى عن الكود الذي أشرت إليه ملحوظة: ابتعد عن المسميات المكررة مثل رقم الهوية في جدول المستأجرين والمالك db1.rar

السلام عليكم مبدأيا أخي الفاضل عليك بتغيير الكود الموجود في أزرار التنقل بين النماذج ليكون هكذا.. وذلك لكي يفتح النموذج على البيان الحالي ونصيحة أخي الفاضل مادمت في مقتبل بناء برنامجك فاكتب مسميات الحقول والكائنات بالإنجليزية أو الفرانكو وبدون مسافات حتى لا تعاني من جراء ذلك عند كتابة الأكواد Dim stDocName As String Dim stLinkCriteria As String stDocName = "نموذج2" stLinkCriteria = "[N°]=" & Me![N°] DoCmd.OpenForm stDocName, , , stLinkCriteria DoCmd.Close acForm, "نموذج1", acSaveYes أما بالنسبة لتعدد النماذج فما رأيك لو استخدمت عنصر تحكم علامة الجدولة ستجده ضمن عناصر التحكم وسيوفر عليك النماذج وأكواد الانتقال بينها.. اطلع على مثالك بعد التعديل بالكود وبعنصر التحكم Test.rar

اخى الحبيب انت تامر لو قدر استطاعتى ما اتاخر عنك تقبل تحياتى

الف شكر اخى الكريم هو المطلوب اثباتة شكرا لمجهودك وجزاك الله خيرا

اخى الكريم جرب هذه المعادله =IF(AND(K5>J5;K5<>"");"تم تجديد الاجازة";IF(AND(J5>=TODAY()-30;J5<TODAY());"تنبية باقى شهر لانتهاء الاجازة";IF(J5>=TODAY();"أنتهت الاجازه";""))) تقبل تحياتى

السلام عليكم أخي الفاضل الاستعلام الالحاقي اصبح هكذا: . 1. الحقل IDALL هو حقل ترقيم تلقائي ، فلا يمكنك ان تغيره ، لذا يجب ان تحذف كلمة IDALL من هنا ، 2 و 5 - في الحقول في النماذج وحتى في الجدولين TRANS و SUNTRANS ، فهذه الحقول عبارة عن ارقام (لأنك جعلت مربع السرد يأخذ قيمة الرقم ولا يأخذ قيمة النص) ، لهذا ، كان لازم نأخذ قيمة النص ، واتضح ان قيمة النص موجودة في جدول آخر ، فلذلك جلبنا الجدول (MODELS مثلا) الى الاستعلام ، وبسبب العلاقة بين الجدولين التي قمت انت بعملها مسبقا ، فتم ربط الجدولين ، واستخدمنا قيمة الجدول MODELS النصية MODEL بدلا عن قيمته الرقمية والتي كانت في الجدول TRANS في حقل MODEL . 3 و 4 - هما حقول النص ، فوضعناهما في الاستعلام ، سهلة ههه جعفر 322.2.BMTES.mdb.zip

السلام عليكم ورحمة الله أخي الكريم، لأجل ذلك تقوم بما يلي: 1- تغيير السطر التالي : Function NumtoTxt(TheNo As Double, MyCur As String, MySubCur As String) As String بالسطر : Function NumtoTxt(TheNo As Double) As String 2- تقوم بإضافة السطرين التاليين بعد هذا السطر الذي تم تغييره أو بعد انتهاء التعريف بالمتغيرات (أي بعد آخر Dim) : MyCur = "ريال سعودي" MySubCur = "هللة" وبإذن الله سيعمل الكود حسب طلبك... بن علية

كانت لدي من سنة 2005 تقريبا يعني مجموعة ولا اروع منها من الايقونات الجميلة ومقسمة تقسيم حسب الانواع سأبحث عنها لعلي اجدها وستكون مفيدة جدا لنا

أخي محمود قبل ان تبحث ، ارفق لك برنامج مقسّم الى قسمين ، واطلب منك ان تجربه لوسمحت: - BE وفيه جدول واحد - FE وفيه نموذج مرتبط بجدول BE لما تشغل FE ، تلقائيا راح يطلب منك اين BE. رجاء استعمل هذا في شبكتك: - BE على كمبيوترك ، وفي مجلد المشاركة ، _ FE نسخة على كمبيوترك ، ونسخة على الكمبيوتر الثاني (مهم ان النسخة الثانية تكون على الكمبيوتر الثاني) ، الآن جرب تشغيل البرنامج ، وشوف اذا لازلت تحصل على الرسالة. جعفر 297.FE_BE.zip

أخي محمود عملت بحث للموضوع ، ورايت الرابط الاجنبي التالي ، والذي يربط المشكلة بالانترانت (نحن كنا ننظر لها من ناحية الاكسس): http://stackoverflow.com/a/226658 جعفر

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

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

مشاركة بجانب مشاركات إخواني الكرام لماذا أخي كل هذه النماذج والجدول واحد؟

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

أخي الكريم أبا الحسن والحسين للأسف لا تعمل الأداة مع الإصدارات الحديثة أو ربما لا تعمل على 64 بت .. الرجاء ممن يستخدمون الإصدارات الحديثة 32 بت أن يوافونا بالنتائج

تفضل أخي Dim ctype As String ctype = "select* from tbl_customers where ([type]='" & Me.cbotype & "')" Me.customers_subform.Form.RecordSource = ctype Me.customers_subform.Form.Requery للعلم أخي.. القيمة الموجودة في مربع التحرير والسرد بها قيمة مختلفة عن الموجودة بالجدول؛ فمثلا (كبير المعلمين) مكتوبة بالجدول بدون مسافة (كبيرالمعلمين)

طبقها التوجيه السابع : حمل الملف المرفق التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر احد اخطائي ولم اجد اجابات الا بعد تطبيقها

السلام عليكم ورحمة الله نعم لم اتعدى J28 بل ضمن الجدول المحدد والذي به بيانات فقط غيرت كلمة مبيعات الي مشتريات ضمن الجول . انا مالي بالمعادلات إلاً في حدود مايتناسب معي. فقط من باب الملاحظات والمتابعة للإستفاده منكم جميعا.

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

السلام عليكم ورحمة الله اخي وصاحبي واستاذي حسام نعم بارك الله انا ذكرت انني عملت التغيير داخل الجدول في J26 وغيرت من مبيعات الي مشتريات وما ادري هل عمود المبيعات او مشتريات مربوط بكلمة مشتريات. لكن بالنسبة لما طلبته حسب المرفق فالصفحة خاصة بالمشتريات.مع الاخذ بالإعتبار وجود اكثر من شراء في تاريخ واحد والذي يأخذ حالتين الحالة الاولي ممكن السعر لكل الشراء في ذلك التاريخ والحالة الثانية ممكن يكون الشراء مختلف .حسب الموضح ادناه كمثـــــال فقط: االحالة الاولي : الحالة الثانية : التاريخ السعر التاريخ السعر 01/12/2015 55 01/12/2015 55 01/12/2015 55 01/12/2015 50 01/12/2015 55 01/12/2015 58 01/12/2015 55 01/12/2015 60 01/12/2015 55 01/12/2015 57 وجزاك الله خير.

أظن طلبك هنا 22222.rar

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

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

جرب الكود التالي عله يفي بالغرض Fit Screen Resolution On UserForm YasserKhalil.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 تقبل تحياتى

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

وعليكم السلام في البحث ، بدل ان تستخدم / جرب واستخدم * او % جعفر

السلام عليكم ورحمة الله وبركاته بعد الحمد لله والصلاة والسلام على رسول الله وبعد وبعد نزول الاصدارالثالث وقيام بعض التعديلات عليه وطلب بعض الاخوة جزاهم الله خيراً بطلب بعض التعديلات قررت مستعينا بالله ان انزل الاصدار الرابع اهم المميزات الاصدار الرابع 1 ) تعديل بعض الاخطاء البسيطة التي كانت في احد الورقات 2 ) بناءأً على طلب الاخوة اضفت ورقة شهادات للدور الثاني والان اترككم للتصفح وانا في انتظار ارائكم والسلام عليكم ورحمة الله وبركاته للعلم جميع المعلومات عن هذه المرحلة وما يخصها من درجات والقرارات الوزارية ماخوذة من الاستاذ //ahmed alimer فله الشكر كما اشكر كل من ساهم في امدادي ببعض المعلومات ومنهم الوالدة الفاضلة // أم عبد الله الاستاذ الفاضل // اسامة عطاالله الاستاذ الفاضل // حسين شاكر وعند وجود اي أخطاء ارجو الابلاغ لتعديلها واتمنى لمن هو مهتم بهذا الشيت ان يتابع اخر مشاركات لهذا الموضوع من حين لاخر فربما نجد اخطاء ويتم تعديلها.. والسلام عليكم ورحمة الله وبركاته.. شيت النقل للتعليم الفني 20 مادة تضاف للمجموع + 2 مادة لا تضاف للمجموع _الاصدار الرابع-السبت _12-4-2014.rar

ارجو منك توضيح المشكلة اكثر

أخى الكريم نحن نتحكم فى مدة الطباعة بطريقة غير مباشرة عن طريق التحكم فى عدد الأوراق يعنى لو عدد الأوراق طلع 60 ورقة قسم ذلك على مرتين أو ثلاث يعنى اطبع من 1 الى 20 ثم ريح الطابعة ثم اكتب من 21 الى 40 ثم ريح الطابعة ثم اكتب من 41 الى 60 وهكذا هل وصلت الفكرة ؟ أم أنك تريد شيئا آخر ؟ تم اضافة شيت بحث مطابق تماما لشيت الشهادة مع اضافة قائمة منسدلة للبحث تذكرنى بالخير كلما طبعت على هذه الطابعة المسكينة طباعة مرن مع البحث بدلالة رقم الجلوس.rar

لمعرفة رقم الصف لاول خلية غير فارغة في العامود A مثلاً (هذا الامرلا يأخذ بالحسبان الغراغات) المعادلات صفيف (ctrl+shift+enter) =MATCH(1,IF($A$1:$A$500<>0,IF($A$1:$A$500<>"",1)),0) لمعرفة عنوانها =ADDRESS(MATCH(1,IF($A$1:$A$500<>0,IF($A$1:$A$500<>"",1)),0),1) لمعرفة ماذا تحتوي =INDEX($A$1:$A$500,MATCH(1,IF($A$1:$A$500<>0,IF($A$1:$A$500<>"",1)),0)) لمعرفة رقم الصف لاخر خلية غير فارغة في العامود A مثلاً =MAX(($A$1:$A$500<>"")*ROW($A$1:$A$500)) لمعرفة عنوانها =ADDRESS(MAX(($A$1:$A$500<>"")*ROW($A$1:$A$500)),1) لمعرفة ماذا تحتوي =INDEX($A$1:$A$500,MAX(($A$1:$A$500<>"")*ROW($A$1:$A$500)))

السلام عليكم ورحمة الله أخي الكريم، يكفي استعمال الدالة CONCATENATE أو & بين صيغتي الدالتين أو بين عنواني القيمتين (عنواني الخلايا)... أنظر الملف المرفق... أخوك بن علية Mean_SD.rar

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