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

ايه ياحبيبي ياغالي الموضوع مش مستاهل شراء وانت عارف كويس المصريين بيسلكوا دايما جرب المرفق دا وقولي رايك في منه كتير بس اللي يدور المكتبات دي موجودة من زمن BankCode.rar

السلام عليكم اعتقد مهم ان اعطيكم مثال على Me.Painting ، فالتوضيح في الرابط التالي يحتاج الى توضيح http://www.officena.net/ib/topic/67464-المساعدة-في-فتح-صورة-من-listbox/?do=findComment&comment=438833 النموذج Form1 ، كل ثانية ، اللون الاصفر ينزل الى الحقل التالي (اي بمعنى ان النموذج يجدد شكل النموذج باستمرار ، وعليه نرى الالوان تنتقل من حقل الى آخر): الكود: Function Change_Colors(F) Me(F).BackColor = RGB(225, 225, 0) 'yellow Me(F) = F DoEvents PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop Me(F).BackColor = RGB(255, 255, 255) 'white Me(F) = "" End Function Private Sub cmd_Start_Coloring_Click() Call Change_Colors("q1") Call Change_Colors("q2") Call Change_Colors("q3") Call Change_Colors("q4") Call Change_Colors("q6") Call Change_Colors("q7") End Sub . والنتيجة: . اما النموذج Form2 ، فهو نسخة من النموذج السابق Form1 ، إلا اني طلبت في الكود ان: اللون الاصفر يلون الحقل الاول والثاني ، ثم اعطيت الامر بعدم تجديد شكل النموذج بالامر Me.Painting=False فاللون الاصفر ظل على الحقل الثاني للنموذج ، بينما الكود استمر في عمله في تلوين الحقل الثالث والرابع ، ولكن دون ان يُظهر لنا النتيجة على النموذج ، ثم اعطيت الامر Me.Painting=True ، فاللون الاصفر اختفى من الحقل الثاني ، وظهر لآخر حقلين ، والكود هو: Function Change_Colors(F) Me(F).BackColor = RGB(225, 225, 0) 'yellow Me(F) = F DoEvents PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop Me(F).BackColor = RGB(255, 255, 255) 'white Me(F) = "" End Function Private Sub cmd_Start_Coloring_Click() Call Change_Colors("q1") Call Change_Colors("q2") Me.Painting = False Call Change_Colors("q3") Call Change_Colors("q4") Me.Painting = True Call Change_Colors("q6") Call Change_Colors("q7") End Sub . والنتيجة: . طيب ، ما الفائدة عمليا من هذا الكود؟ انا استخدمت هذا الامر مرات جدا قليلة في برامجي ، والبرنامج اعلاه (في تغيير اسم الملف) هو احدهم ، اما البرنامج الآخر فهو: برنامج فيه آلاف السجلات ، وهناك صور للسجلات ، فكنت اريد ان اعرض النموذج بطريقة معينة ، بحيث باختيار اسم الموظف تصل الى معلوماته ، ولكني اردت ان اسمح لهم ان يروا بقية السجلات ايضا ، فالاكسس كان يعرض اول سجل وصورة ، ثم ينتقل الى السجل المطلوب ، وانا لم ارد للمستخدم ان يرى اول سجل وصورته ، وانما اردته ان يرى سجل وصورة الموظف الذي تم اختياره ، فاستخدمت هذه الطريقة في اخفاء السجل الاول وصورته (بعدم تجديد الشاشة) ، وعندما حان موعد ظهور السجل المطلوب وصورته ، اعطيت الامر بإظهار وتجديد شاشة الاكسس ، والنتيجة كانت مرضية لي جعفر 297.Me.Paint.accdb.zip

السلام عليكم ورحمة الله وبركاته فورم إضافة وبحث وتعديل مرن (الاصدار الثالث) بمعية فورم لادخال التاريخ الجديد في هذا الاصدار 1 - امكانية اضافة التاريخ في تاكست الادخال بوضع مؤشر الفارة على التاكست والضغط عل الزر Calendar 2 - اضافة زر اختيار للبحث للتبديل بين البحث العام والبحث من بداية الكلمة 3 - اضافة زر للذهاب الى السجل النشط شرح امكانيات الفورم وكيفية الاستخدام 1 - استخدام الفورم لاكثر من قاعدة بيانات في المصنف على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم تلقائيا في عمود معين سجل عنوان راس العمود . مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات كما هو معمول في المثال 2. 2 - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة . 3 - ينسخ التنسيقات والمعادلات في السجل الجديد . 4 - يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم . 5 - يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ . 6 - امكانيات زر البحث عن تاريخ يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم ,, مع امكانية ادخال رقم صحيح بين 1 الى 31 ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية 7 - ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية مثلا "E15,C15,H15:AX15" الشرح بداخل الملف للاستخدام يجب نقل الفورمين الى ملفك المرفق 2003 فورم ادخال و تعديل مرن بمعية فورم ادخال التاريخ.rar ============================================ تم اضافة زر للطباعة في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=52300 ============================================

السلام عليكم إخواني الكرام أثناء تجوالي في مواقع الانترنت وجدت برنامج اسمه VBA Time Saver Kit فكرة البرنامج أنه يقوم بتخزين أكواد الـ VBA .. ويمكن البحث من خلاله بسهولة عن الكود المطلوب .. أعتقد أنه يمكن أن يكون نواة لمكتبة كبيرة نساهم جميعاً في إثراء تلك المكتبة .. لمن لديه خبرة في التعامل مع مواقع الانترنت والشراء من خلالها ويستطيع أن يقوم بشراء البرنامج حوالي 15 دولار فليتقدم ويتبرع إذا كان بإمكانه وبعد الشراء طبعاً عارفين ..كل الوطن العربي هيستخدم البرنامج اللي هيتم شرائه ..بس خلاص تقبلوا وافر تقديري واحترامي

هههههههه والله ياجدع ظنيت فيك الظن دا بردوووووا بس قلت نحسن الظن المهم عجبك شكل المكتبة نفصلك زيها لو كدا انا اللي هجيبلك المكتبة دي وكله بحسابه وانا اللي همسك صندوق التبرعات وهسميه ( تحيا مصر)

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

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

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

ترقيم تلقائي يتجدد مع بداية كل سنة على النحو التالي 1300001 1300002 1300003 1400001 1400002 وهكذا ................. باعتبار الرقم 13 ، 14 هو السنة والترقيم لاشك سيكون تبعا للسنة الحالية Private Sub Form_BeforeInsert(Cancel As Integer) On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", Date), 2) prtTxt = Left(DMax("ID", "tbl1"), 2) xLast = DMax("ID", "tbl1", prtTxt = prtyr) If IsNull(xLast) Then xNext = 1 Else xNext = Val(Mid(xLast, 3, 5)) + 1 End If Me!ID = prtyr & Format(xNext, "00000") End Sub ترقيم تلقائي جديد كل سنة.rar

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

السلام عليكم ورحمة الله وبركاته جمعة مباركة للجميع التعديلات الجديدة : 1ـ عندما تريد تعديل حساب اثناء اختيارك لرقم الحساب تاتيك معطيات هذا الحساب في الفورم لتختار منها ما تريد تعديله 2ـ حساب المتاجرة وارباح وخسائر والميزانية الختامية تم ضمهم في ورقة واحدة وسميت الاغلاق اذا اردت اقفال حساباتك تذهب الى ميزان المراجعة الذي يوجد فيه زر الانتقال اليها ثم ....... في النظر كفاية عن الشرح 3ـ زر جديد في القيود للصق قيمة العملة بمعطيات قيمته بالعملة الرئيسية 4ـ زر لصق فارق الميزان يقوم باحتساب الفرق للعملتين الرئيسية والفرعية 5ـ فورم اضافة التاريخ ( هدية الاخ نزار) للتذكيراسم المستخدم : خبور كلمة المرور : بسم الله كلمة مرور التعديلات : بسم الله وترقبوا قريبا ان شاء الله برنامج خبور بالتاريخ الهجري ودمتم في حفظ الله وسلامته تحياتي وسلامي اخوكم / خبور __________________________.rar

السلام عليكم امثلة على طباعة السجل من (فورم ادخال وتعديل وبحث) الاصدار الثالث http://www.officena.net/ib/index.php?showtopic=51955 هذه ثلاثه امثله مختلفة في المرفق 1 - طباعة في مصنف جديد او من خلال الفورم اذا كانت الشاشة تظهر جميع بيانات السجل 2 - طباعة الى ورقة معينة في الملف حسب تنسيق معين لجميع بيانات السجل 3 - طباعة الى ورقة معينة في الملف حسب تنسيق معين لبعض بيانات السجل المرفقات 2003 فورم ادخال و تعديل مرن مع الطباعة 1.rar

احاول اربط جدول prescription مع patient inf يحدث خلل بالكود الي بالنموذج medication وايضا عندما احاول اضافه حقول من اي جدول اخر ل form2 تختفي جميع الحقول المطلوب هو اضافة حقول من patient inf الى form2 مع تخزين كافه المعلومات Medication.rar

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

هههههههههههههههههه عليك عسل ياأبو البراء ماهو صحيح ياجماعة الـــ 15 دولار مش محتاجين متبرع شوفت بقى ياعم ياسر الزهايمر بيعمل ايه " احلى تثبيته يامعلم " وافر تقديرى واحترامى

السلام عليكم ورحمة الله اليك الحل باذن الله القوائم الاسمية.rar

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

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

سبحان الله قضاء الحوائج مرهون بأوقاتها جزاك الله كل خير على كل مافعلته معي

الى من يهمه الموضوع اتضح أن العلة ليست في الاكواد...وليست في اوفيس 2007 ...إنما في اعداد صفحة الاكسل لكي تكون النتائح صحيحة يجب ان يكون حجم الورقة 100% و بغير هذه النسبة تحدث الاضطرابات في طباعة الصفحات كما حصل معي الصورة في المرفقات والسلام عليكم

أخي ياسر حفظك الله، الحمد لله تم أخيراً فتح الملف بعد أن قدمت حضرتك كل مساعدة ولم تبخل بأي معلومة فجزاك الله خير الجزاء وغفر الله لك ولوالديك. تقبل مروري وامتناني

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

جرب هذا الملف search salim.rar

Sub Choosen() For i = 2 To 52 If Cells(i, 7).Value = Range("J1").Value Then Cells(i, "A").EntireRow.Hidden = False Else Cells(i, "A").EntireRow.Hidden = True End If Next End Sub السلام عليكم ورحمة الله ضع هذا الكود فى مديول واختر الخلية ( J1 ) لكتابة التاريخ المراد البحث عنه

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

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

ياعم الحاج والله انا ما جبت حاجه من عندي الراجل عايز الوان لونت له ههههههههه وزي ما قلت تنسيق شرطي بس =AND(M$11>=$D12;M$11<=$G12) وبعدين زي ما انت بتحاول تساعد الناس بقدر تفرغك انا نفس النظام وبصطاد المواضيع بنفس الطريقة (بصطاد في الميه العكرة) وبعدين ياعم الحاج انت رجل مسالم متخوفشي ومش باين عليك ادي مثال تنسيق شرطي لخط زمنى معين نقوم بتحديده بعيد عن المعادلات حتى تصل الفكرة عشان خاطر ابو البراء الغالي Yasser.rar

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

أخي الكريم إبراهيم أبو ليلة قم بإلغاء الفلترة في ورقة العمل المراد العمل عليها والمسماة "في حالة الفلترة" ضع المعادلة التالية في عمود مساعد في الخلية H5 مثلاً ثم قم بسحبها لنهاية النطاق المستخدم =SUBTOTAL(109,E5) ثم في عمود الناتج ضع المعادلة التالية في الخلية C5 ثم قم بسحبها لنهاية النطاق المستخدم =IFERROR(INDEX($E6:$E$15,MATCH(TRUE,INDEX(H6:$H$15<>0,),0))-D5,"") قم بفلترة النطاق C3:F14 على أي حقل وليكن حل الكود كما فعلت أنت واختر رقم 1 لشرط الفلترة ، ولاحظ النتائج F.rar

تفضل اخي لعله المطلوب osamah3.rar

اخي الكريم يرجى تغيير اسم الظهور للغة العربية كما يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى لمعرفة كيفية التعامل مع المنتدى بشكل أفضل إليك الكود التالي يوضع في حدث ورقة العمل عله يفي بالغرض توضع الأكواد بين أقواس الكود وليس كما فعلت في مشاركتك الأولى Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Columns("H:H")) Is Nothing Then Target.Offset(, -2).Value = Date If IsEmpty(Target) Then Target.Offset(, -2).Value = "" End If End Sub تقبل تحياتي

اخي الكريم اتبع الفديو التالي وحاول تبدع ولا تكتفي

الاخ على كل شيئ ممكن مع المحاولة ارسل ملف فيه الموضوغ

khaled.rar السلام عليكم انظر المرفق وابدى ملاحظاتك على النتائج

أخي الكريم يوسف عطا جرب الكود التالي ..ستظهر النتائج في العمود O ..يمكنك التعديل في الكود لتضع النتائج في العمود المناسب لك Sub Split() Dim Arr, I As Long, StrA As String, StrB As String Arr = Range("F2", Cells(Rows.Count, "F").End(xlUp)).Value For I = LBound(Arr) To UBound(Arr) StrA = VBA.Split(Arr(I, 1), " ")(0) StrB = VBA.Split(Arr(I, 1), " ")(1) If StrB = "MIN" And Val(StrA) = "0" Then Cells(I + 1, "O") = 0.01 ElseIf StrB = "MIN" Then Cells(I + 1, "O") = Val(StrA) ElseIf StrB = "KBs" Then Cells(I + 1, "O") = Val(StrA) / 1000 Else Cells(I + 1, "O") = StrA End If Next I End Sub أرجو أن يفي بالغرض .. ملحوظة : تم التعامل مع الأصفار 00:00 بجانب كلمة MIN على أنها 0.01 كما أدرجت في النتائج المرفقة رغم أنه غير منطقي .. تقبل تحياتي

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

أخي الكريم أحمد محمد جرب المعادلة التالية في الخلية C3 .. =IF(A3="","",(LEN(" "&SUBSTITUTE(A3," "," ")&" ")-LEN(SUBSTITUTE(" "&SUBSTITUTE(A3," "," ")&" "," "&B3&" ","")))/LEN(" "&B3&" ")) إذا لم تعمل معك المعادلة قم باستبدال الفاصلة العادية الموجودة في المعادلة بفاصلة منقوطة تقبل تحياتي

بس للعلم ، كود تغيير الاسم فيه شئ جميل للنظر فيه ، فالسؤال هو : اذا فتحت ملف اكسس مثلا ، فهل تستطيع ان تغير اسمه وهو مفتوح؟ الجواب لا ، فهنا انا ، غيرت اختيار الصورة (يعني كأنّي كبست على صورة ثانية) 'select another file in the listbox, so that this file is no longer in-use عندها ، طلبت من الاكسس ان لا يسمح لك ان ترى ما يحدث (يعني لما اكبس الزر لرؤية صورة اخرى ، فالمفروض ترى صورة اخرى في النموذج ، مما قد يربك المستخدم) ، وذلك بعدم تغيير آخر شكل للنموذج ، والامر هو Me.Painting = False ، وعندها عملت التغييرات ، ولما خلصت ، طلبت من اكسس ان يعرض الشكل الصحيح للنموذج Me.Painting = True للعلم جعفر

عدم الرد من صاحب السوال جعلني ادخل مرة اخرى اواكتشف اني لم ارفق الوحدة المسؤولة عن الترجمة تفصل والصقها في صفحة وحدة نمطية جديدة Public Ok, Cancel, ABORT Public RETRY, IGNORE, YES, NO Private m_hHook As Long Private Const IDOK = 1 Private Const IDCANCEL = 2 Private Const IDABORT = 3 Private Const IDRETRY = 4 Private Const IDIGNORE = 5 Private Const IDYES = 6 Private Const IDNO = 7 Private Const WH_CBT = 5 Private Const GWL_HINSTANCE = (-6) Private Const HCBT_ACTIVATE = 5 Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" _ (ByVal hDlg As Long, ByVal nIDDlgItem As Long, _ ByVal lpString As String) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Long) As Long Public Sub MessageBoxH(hwndThreadOwner As Long) Dim hInstance As Long Dim hThreadId As Long hInstance = GetWindowLong(hwndThreadOwner, GWL_HINSTANCE) hThreadId = GetCurrentThreadId() m_hHook = SetWindowsHookEx(WH_CBT, AddressOf _ MsgBoxHookProc, hInstance, hThreadId) End Sub Private Function MsgBoxHookProc(ByVal uMsg As Long, ByVal _ wParam As Long, ByVal lParam As Long) As Long If uMsg = HCBT_ACTIVATE Then SetDlgItemText wParam, IDOK, Ok SetDlgItemText wParam, IDCANCEL, Cancel SetDlgItemText wParam, IDABORT, ABORT SetDlgItemText wParam, IDRETRY, ABORT SetDlgItemText wParam, IDIGNORE, ABORT SetDlgItemText wParam, IDYES, YES SetDlgItemText wParam, IDNO, YES UnhookWindowsHookEx m_hHook End If MsgBoxHookProc = False End Function

شكرا اخي جعفر على هذه النوادر الجميلة وتفضل اخي عبدالله يمكنك كتابة اي شيء على الزر Dim resalh As Integer Ok = "أكيد موافق" Cancel = "not agree" MessageBoxH Me.hwnd resalh = MsgBox("تفضل هذه الخلطة في اللغة", vbOKCancel, "رسالة")

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

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

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

كل سنة وجميع الأعضاء الأعزاء بألف خير وزيادة فى الخير هذه طريقة أخرى لفصل الرقم عن النص من جهة اليسار وهى معادلة صفيف أى لكى تحقق النتيجة المرجوة بالشكل الصحيح لابد من الضغط على " ctrl+shift+enter " {=MID(A2,MATCH(TRUE,ISNUMBER(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)*1),0),LEN(A2))} وهذه أيضا وهى ليست دالة صفيف أى يكفى فيها الضغط على " enter " =MID(A2,MIN(FIND({0,1,2,3,4,5,6,7,8,9,0},A2&3^45)),99) أما بخصوص فصل النص فيمكن إستخدام معادلة الأخ الفاضل " سليم " تقبلوا تحياتى وتهنئتى

السلام عليكم إخواني وأحبائي وجدت علي موقع أجنبي قائمة للمبتدئين في تعليمات وبرمجيات الفيجوال بيزيك للاكسل القائمة علي شكل فهرس ولم أفعل غير تنسيقها فقط بالإكسل تفضلوا القائمة بصيغتي 2003 ، 2007 عسي الله أن ينفع بهما Excel VBA Index.rar

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

أستاذى الحبيب / عبد الله باقشير بارك الله فيك وزادك من العلم حتى ترضى وجعل هذا الشرح فى ميزان حسناتك ان شاء الله وأعلم أستاذى الحبيب أننا نتابع هذا الشرح الرائع بكل تركيز ولهفة فى التعلم بعد اذن أستاذى الحبيب / عبد الله باقشير أسمح لتلميذك المحب لك أن يعرض معلومة صغيرة حتى يسعد بالحوار مع معلمه المبدع / عبد الله باقشير بالنسبة للمصفوفة ذات الحجم الثابت وثنائية البعد والتى تتكون من ثلاثة صفوف وعمودين يمكن التعبير عنها كلأتى Dim ay(2, 1) As String وفى هذه الحالة تكون الصفوف هى 0 و 1 و 2 والأعمدة هى 0 و 1 بدلا من Dim ay(1 To 3, 1 To 2) As String وبالتالى يكون المثال كلآتى Sub kh_Array1() Dim ay(2, 1) As String ay(0, 0) = "A" ay(1, 0) = "B" ay(2, 0) = "C" ay(0, 1) = "D" ay(1, 1) = "E" ay(2, 1) = "F" Range("A1").Resize(3, 2).Value = ay End Sub

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

السلام عليكم ورحمة الله وبركاته نفرض أنك تشتغل على نموذج بصورة شبه يوميه وتريد عندما تفتح النموذج أن يعود بك إلى أخر سجل قمت بإدخاله أو تعديله . المثال التالي يحل المشكله ان شاء الله وهو يعتمد على نموذج يحتوي على حقل ترقيم تلقائي فريد باسم ( CustomerID ) الشـــرح:- أولاً : أنشىء جدول باسم "tblSys" يتكون من الثلاث حقول التالية : Variable (حقل نصي حجمه 20 حرف) Value (حقل نص حجمه 80 حرف) Description (حقل نص حجمه 255 حرف) ثانياً: ضع الكود التالي في حدث عند إلغاء التحميل للنموذج المراد إستخدامه Sub Form_Unload (Cancel As Integer) Dim rs As DAO.Recordset If Not IsNull(Me.CustomerID) Then Set rs = CurrentDb().OpenRecordset("tblSys", dbOpenDynaset) With rs .FindFirst "[Variable] = 'CustomerIDLast'" If .NoMatch Then .AddNew ![Variable] = "CustomerIDLast" ![Value] = Me.CustomerID ![Description] = "Last customerID, for form " & Me.Name .Update Else .Edit ![Value] = Me.CustomerID .Update End If End With rs.Close End If Set rs = Nothing End Sub ثالثاً: ضع الكود التالي في حدث عند التحميل للنموذج المراد إستخدامه Sub Form_Load() Dim varID As Variant varID = DLookup("Value", "tblSys", "[Variable] = 'CustomerIDLast'") If IsNumeric(varID) Then With Me.RecordsetClone .FindFirst "[CustomerID] = " & varID If Not .NoMatch Then Me.Bookmark = .Bookmark End If End With End If End Sub ملاحظة: أضف المرجع DAO 3.6 إلى قائمة المراجع لديك في القاعدة لكي تعمل القاعدة بالشكل المطلوب. للإستيضاح مرفق مثال على ذلك. والله الموفق (المرجع أحد المواقع الأجنبية) Last_update_Recorde.zip

هذه مجموعة دروس بسيطة نقلتها من موقعي القديم الدرس الأول الدرس الثاني الدرس الثالث الدرس الرابع و ساعيد ارفاق الأمثلة الثلاثة هنا مثال الدرس الثاني " Less02Excel.zip