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

معك حق يا بو مصطفى وانا اهنيك واغبطك على صبرك ولكن دعني اوضح لك اهم الاسباب التي تمنع الاعضاء من التفاعل مع الموضوع : 1- اولا ابدأ بنفسي حيث لا يوجد في جهازي الا الاصدار 2003 لذا لا يمكنني فتح مرفقاتك ، ولا تنسى ان مثلي كثير 2- وهو المهم انك ترفق برنامجا كاملا في كل سؤال تطرحه مليء بالكائنات والاحسن الذي يجب ان يسير عليه المتعلم انه اذا اراد طرح مسألة اعد لها مثالا مختصرا ومحكما كما يعد الفريق الطبي المريض للجراح ثم بعد الحصول على الاجابة الوافية يحتفظ به في مكتبته ليرجع اليه عند الحاجة

بعد أذن أستاذ على هذا حلا لمشكلة دون الحاجة لتغير نوع بيانات الحقل - لعله يريد الابقاء على كونه رقما ولكن استفسارى لماذا لم يكن ملف الورد تقريرا داخل البرنامج دون الحاجة للتصدير للورد؟! وعموما تفضل التعديل 7.rar

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

سيد حسام المعادلة سليمة 100% بارك الله فيك

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

أخي الفاضل أبو عبد الله الرشود إثراءً للموضوع إليك معادلة أخرى تقوم بالمطلوب إن شاء الله =IFERROR(IF(A2="","",COUNTIF($A$2:$A$100,A2)*1/(--(COUNTIF($A$2:$A$100,A2)=COUNTIF($A$2:A2,A2)))),"") إذا لم تعمل المعادلة معك قم باستبدال الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

رائعون ومبدعون كالعادة شكرا للجميع بارك الله فيكم والى الامام ما يعجبني في المبدعين دوما سباقين

رابط الفيجوال بيسك 6 كامل من رفعي لمن يعانون من مشاكل التنصيب يرجى تشغيلة كمسئول يعمل علي ويندوز 8 64 و7 32 واكس بي بجميع اصدراتها هذا ما تم تجربته عليه http://www.mediafire.com/download/b7r034dv0vcba0h/VB6.0+Enterprise.rar هل جربت هذه النسخة هذه التي اعمل عليها دائما

استاذى الحبيب ابويوسف واستاذى الحبيب ابوالبراء مروركم هو الاروع دائما هذا ما تعلمنه منكم تقبلوا تحياتى ----------------------------

أخي الحبيب حسام حل رائع وجميل .. تسلم الأيادي يا كبير تقبل تحياتي

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

اخى الكريم ابوعبدالله ضع هذه المعادله فى الخليه B2 =IF(COUNTIF(A3:$A$1000;A2)>0;"";COUNTIF($A$2:$A$1000;A2)) وسحبها نزولا لاسفل الى ما تريد من عدد الصفوف وشاهد المرفق به تطبيق عملى تقبلى تحياتى ----------------------------------------------- A.zip

بارك الله فيك أخي وحبيبي في الله حسام حلك ممتاز على حسب ما فهمت من المطلوب ..ويؤدي الغرض إن شاء الله تقبل وافر تقديري واحترامي

الاخت الكريمه ربا جربى المرفق هل هو طلبك تقبلى تحياتى ------------------------- Test.zip

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

اولا / الشكر لله ثم لهذا الموقع الذي اعطانا ما يفيد ونفيد به ثانيا / اشكر الاخوة الذين ساهموا معي وشاركوني وتحملوا كثرة استفساراتي لاخراج هذا البرنامج وهم الاساتذة والمشرفين(جعفر ,عبدالرحمن هاشم,ابوعارف ,ابو خليل ,رمهان ) شكرا لكم على هذا العمل ونطمع فالمزيد منكم برنامج العطاء للعقارات العقارات اسم البرنامج : برنامج العطاء للعقارات نسخة البرنامج : النسخة 1 متطلبات البرنامج : برنامج اوفيس اكسس 2003 صلاحية البرنامج : برنامج مجاني مفتوح يتم تسجيل بيانات ملاك العقارات اولا ثم تسجيل عقود المستاجرين وتاريخ بداية الايجار وعمل توزيع لها ظهور الايجارات المستحقة في تقرير حسب تاريخ استحقاق الايجار - تقرير للمستاجر لبيان عدد مرات الايجار وغيرها - تقرير يظهر الشقق الغير مؤجرة - تقرير يظهر شقق وعقارات باسم الحي - تقرير يظهر شقق المالك والباقي تقدر تكتشفة بالبرنامج البرنامج يتم استعمالة في الايجارات للشقق والاراضي وغيرها لمن يعملون في مكاتب العقار نريد ارائكم واقترحتكم ومشاركاتكم بعد تجربة البرنامج في هذه الصفحة نرجو ممن يقوم بتجربتة يفيد الموقع بذلك وكذلك في حالة وجود مشاكل يمكنة طرحها هنا لحلها وتلافيها ولن يبخل اي من الاعضاء او المشرفين في حل مشكلتك . تنبية : يلزم فتح موضوع جديد حتى يتم النظر في المشكلة من شروط الموقع رابط البرنامج هـــنــا

بعد إذن أستاذ Karrar Sabry سأجيبه على النقطة الثانية - على شرط ألا يعدد الأسألة مرة أخرى بموضوع واحد الاجابة بالصورة , وإن لم تكن الاجابة واضحة - غير الاستاذ -

واخير الحمد لله لقد تم الانتهاء من برنامج المرتبات للمعلمين والاداريين تحديث يناير 2016 بمشيئة الله وبناءا على طلب بعض الزملاء والسادة الأفاضل داخل قنا وخارجها من المحافظات فإليكم البرنامج الخاص بإدارة قوص التعليمية التابعة لمحافظة قنا فعلى من يرغب فى أى استفسار أو تعدل من الاخوة الأفاضل خارج الإدارة أو خارج المحافظة فنحن دائما فى خدمة الجميع بقدر المستطاع للاستفسار 01142948464 وأخيرا لا نرجو منكم سوى الدعاء لنا بالعفو والعافية وأن يعيننى الله على اعطاء المزيد واليكم هذا الرابط هو برنامج للممعلمين فقط على قانون الكادر http://www.mediafire.com/…/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D…

اتفضل ياأخى ولا يكون خاطرك الا مرضى ان شاء الله خاص.rar

بعد اذن استاذ على تم التعديل لخاصية منبثق لنعم لفورم adham تفضل osama.rar

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

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

اخي الفاضل السلام عليكم هل تقصد الناجح والراسب بواسطة المعادلات اتمنى ان يكون المطوب كنترول 5.rar

تفضل الحل osama.rar ---------

السّلام عليكم و رحمة الله و بركاته الشّكر موصول للأخ الغالي " ياسر العربي " لفتحه الأبواب لنا على مصْراعيْها للنّقاش المثمر و الحوار المتواصل أدعو الله أن يفتح له أبواب الجنّة على مصراعيْها إن شاء الله المولى العزيز القدير الأخ القدير و الأستاذ الحبيب " أبو يوسف " رفعت لك هذه النّسخة التي إشتغلت عليها لحد الآن و لم تصادفني مشاكل إلاّ التي تحدث عن سوء فهمي لها و جهلي بها .. نسخة الفيجوال بيسك البروفيسيونال بصيغة إيزو .. جرّب من باب زيادة الخير خيريْن لعلها تنفع .. لا ندري سأحاول رفع الآن نسخة الويندوز 7 للأستاذ القدير " إبراهيم أبو ليله" .. فقط شويّة صبر .. فالسلحفاة أسرع من الأنترنت عندي تفضّل الرّابط : http://www.4shared.com/file/pj0Btorlce/VBPRO.html

تم العمل على الملف دون كود بواسطة المعادلات فقط كنترول 5 salim.rar

اخي معذرة لا يمكنني فتح المرفق للتعديل بسبب الاصدار تفضل هذا مطلوبك الصقه في حدث النقر على زر داخل نموذجك مع الاخذ بالاعتبار تغيير اسم التقرير بالاسم الذي في برنامجك DoCmd.OpenReport "RepName", acViewPreview, "", "", acNormal DoCmd.PrintOut acPages, 1, 1, acHigh, 1, True If MsgBox("اقلب الورقة ان كنت تريد الطباعة في الخلف", vbOKOnly, "") = vbOK Then DoCmd.PrintOut acPages, 2, 2, acHigh, 1, True Else DoCmd.PrintOut acPages, 2, 2, acHigh, 1, True End If DoCmd.Close acReport, "RepName"

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

اصلحها الله وانبتها نباتا حسنا وكن مستعدا ابا يوسف سنيات قليلة وتسمع يا جدو

السلام عليكم ورحمة الله وبركاته في الجدول ShippingInfo تجد ان نوع حقل ال ClintName هو Number حوله إلى text 7.rar

تفضل 11.rar

اخى ابو البراء تسمح لى أُقبل البراء ثلاث قبلات بارك الله فى البراء وفيكم وجزاكم الله خيرا الهى وانت جاهى ينورهالك يياسر ياأبن حواء وأدم ويجعلك فى كل كود سلامة " ههههههه " ويباركلك فى بدنك وصحتك وأولادك اخى ياسر للموضوع بقيه ولكن بموضوع أخر مرتبط بهذا الموضوع سبتم رفعه فى حينه فلا تنسانى جزاكم الله خيرا **** انتهى الجزء الاول من البرنامج تقبل وافر تقديرى واحترامى

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

استاذى الحبيب ابويوسف يسعدنى اكون اول المهنئين بقدوم الحفيده ربنا يبارك فيها تقبل تحياتى

بارك الله فيك .. راح اطبق الكود باكثر من طريقة لاصل إلى المطلوب باذن الله

أخي الكريم صداكم وجزيت خيراً بمثل ما دعوت لابد من تمكين إعدادات الماكرو لتعمل الأكواد .. وكما قلت ربما يحوي الكود على أسطر تشبه عمل الفيروسات ..فيمكن باستخدام الأكواد مسح الملفات والمجلدات في بارتشن بالكامل .. لذا يجب الحذر والحيطة والإطلاع على الكود قبل تجربته ... وإليك شرح لأسطر الكود لعله يكون معين لك على إنجاز مهمتك Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'يوضع الكود في حدث ورقة العمل ويتم التنفيذ عند النقر المزدوج على الخلايا التي سنقوم بتحديدها '------------------------------------------------------------------------------------------- 'سطر في حالة أن عدد الخلايا التي سيتم التعامل معها أكبر من خلية يتم الخروج من الإجراء 'حيث أن المطلوب التعامل مع خلية واحدة فقط في كل مرة لذا وجب الحيطة والحذر وتحديد خلية واحدة If Target.Cells.CountLarge > 1 Then Exit Sub 'هذا السطر هو الذي يحدد نطاق الخلايا التي ستتمكن من التعامل معها وهي في العمود الثالث 'وأيضاً التعامل سيكون في الصفوف الأكبر من الصف الثالث [C] حيث أننا جعلنا عمود الخلية الهدف يساوي 3 أي العمود 'أي أنه سيتم استثناء الصف الأول والثاني والثالث ويتم التعامل مع الصفوف بدايةً من الصف الرابع If Target.Column = 3 And Target.Row > 3 Then 'سطر لإلغاء تحديث الشاشة وكذلك إلغاء تمكين الأحداث وهذا الإلغاء يسرع من عمل الكود Application.ScreenUpdating = False Application.EnableEvents = False 'عدم السماح بالتعديل في الخلايا الهدف أي أن الخلايا في العمود الثالث 'بدايةً من الصف الرابع لن تتمكن في التعديل عليها بالنقر المزدوج كما 'هو الحال في بقية الخلايا .. وهذا لا يعني أنك لا تستطيع التعديل على الخلايا 'من لوحة المفاتيح [F2] يمكن التعديل باستخدام مفتاح 'أما التعديل عن طريق النقر المزدوج فممنوع في الخلايا المحددة Cancel = True 'تعريف المتغيرات الأول لورقة العمل التي سنقوم بترحيل البيانات إليها 'والمتغير الثاني لمعرفة صف الخلية الهدف التي سيتم التعامل معها Dim Sh As Worksheet, lRow As Long 'تعيين قيمة للمتغير ليساوي ورقة العمل المسماة التقرير Set Sh = Sheets("التقرير") 'تعيين قيمة للمتغير ليساوي صف الخلية الهدف lRow = Target.Row 'بدء التعامل مع ورقة التقرير With Sh 'مسح البيانات الموجودة في الخلايا المحددة في السطر .Range("D5,D7,H8,H11,D11").Value = "" 'شرط ألا تكون الخلية الهدف فارغة أما إذا كانت فارغة فلن يتم تنفيذ الكود If Not IsEmpty(Target) Then 'تساوي التاريخ الحالي [D5] الخلية .Range("D5").Value = Date 'تساوي القيمة الموجودة في العمود الثالث في نفس صف الخلية الهدف [D7] الخلية .Range("D7").Value = Cells(lRow, "C").Value 'تساوي القيمة الموجودة في العمود الرابع في نفس صف الخلية الهدف [H8] الخلية .Range("H8").Value = Cells(lRow, "D").Value 'تساوي القيمة الموجودة في العمود الخامس في نفس صف الخلية الهدف [H11] الخلية .Range("H11").Value = Cells(lRow, "E").Value 'تساوي القيمة الموجودة في العمود السادس في نفس صف الخلية الهدف [D11] الخلية .Range("D11").Value = Cells(lRow, "F").Value 'إظهار رسالة تفيد بأنه تم إعداد التقرير للموظف ثم ذكر اسم الموظف الموجود في العمود الثالث MsgBox "تم إعداد تقرير للموظف " & Cells(lRow, "C").Value & " في ورقة التقرير", 64 'انتهاء جملة الشرط End If 'انتهاء التعامل مع ورقة التقرير End With 'استعادة الإعدادت التي تم إلغائها في بداية الكود Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub تقبل تحياتي

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

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

أخي الكريم السيفاني .. المتغير Range من النوع Object أي كائن وهذا النوع يشغل 4 بايت من مساحة الذاكرة وإليك تفصيل لكل نوع من أنواع البيانات والمساحة التي يشغلها بالذاكرة VBA Data Types.rar

أخي الحبيب أبا الحسن والحسين .. بارك الله فيك وجزيت خيراً على إبداعاتك المتواصلة .واصل بلا فواصل أخي الفاضل أبو حماده جرب التعديل في هذا السطر (بإضافة الرقم المطلوب إضافته) MyFileName = Form1.ComboBox1.Value & " 1" تقبل تحياتي

الله المستعان لك مني تحياتى

مش عارف اشكرك بجد ازاى واسف لو كنت متقل عليك بطلباتي

انا عملت الملاحظات وسوف اعمل عليها إن شاء الله اترك لي فرصة لان الوقت متأخر

أخي الكريم سليم بارك الله فيك وهذه دالة معرفة أبسط تقوم بالمهمة Public Function strReverse(ByVal cell As Range) As String strReverse = VBA.strReverse(cell.Value) End Function

اخى الحبيب ابومهند على حسب ملفك المرفق الاخير نفذت طلبك شاهد المرفق وقولى رأيك وان شاء الله يعجبك انا عارف ممكن يكون فى بعض الملاحظات البسيطه وممكن نعملها بعدين بس نتاكد ان المرفق تمام من حيث الجوهر ومعتدقتش هذه المره يكون الاختلاف فى الجوهر تقبل تحياتى --------------------------------------------- 7.zip

أخي الكريم مرسال يرجى تغيير اسم الظهور للغة العربية .. قمت بتغيير شكل الملف قليلاً لسهولة التعرف على كيفية التعامل مع البيانات بشكل صحيح .. لأن الملف المرفق من قبلك غير معبر بعض الشيء عموماً يمكنك التعديل بسهولة على الملف وعلى الكود يوضع الكود في حدث ورقة العمل المسماة Sheet1 .. كليك يمين على اسم ورقة العمل Sheet1 ثم اختر الأمر View Code ثم الصق الكود التالي ..ثم انقر دبل كليك في عمود الاسم ليتم إعداد التقرير للاسم الذي قمت بالنقر عليه دبل كليك وإذا كانت الخلية فارغة يتم مسح محتويات التقرير Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Column = 3 And Target.Row > 3 Then Application.ScreenUpdating = False Application.EnableEvents = False Cancel = True Dim Sh As Worksheet, lRow As Long Set Sh = Sheets("التقرير") lRow = Target.Row With Sh .Range("D5,D7,H8,H11,D11").Value = "" If Not IsEmpty(Target) Then .Range("D5").Value = Date .Range("D7").Value = Cells(lRow, "C").Value .Range("H8").Value = Cells(lRow, "D").Value .Range("H11").Value = Cells(lRow, "E").Value .Range("D11").Value = Cells(lRow, "F").Value MsgBox "تم إعداد تقرير للموظف " & Cells(lRow, "C").Value & " في ورقة التقرير", 64 End If End With Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub تقبل تحياتي Single Report For Each Name Worksheet Double Click YasserKhalil.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

السلام عليكم ورحمة الله أخي الكريم وهذا عمل آخر مختلف تماما عما سبق، قمت بتحضير نوع خط جديد سميته Inversed.ttf يقوم بقلب أي حرف أو رقم أو علامة بعد تطبيق هذا النوع عليها وتجد اسم الخط في قائمة الخطوط مقلوبا هو أيضا... في الملف المرفق تجد ملفين أحدهما هو نوع الخط يجب تنصيبه مع خطوط ويندوز والملف الثاني هو مثال تطبيقي على قلب الأرقام وقد استعملت معه دوال تقوم بكتابة الأرقام بالعكس (من اليمين إلى اليسار) (والحد الأعلى لأرقام العدد الذي تريد قلبه هو 6 أرقام)... أخوك بن علية قلب الأرقام بالخط.rar

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