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

بسم الله الرحمن الرحيم اراد احد الاخوة كود لازالة بيانات من خلايا متفرقة داخل نطاق معين فخطرت ببالي هذه الفكرة وهي حذف البيانات بمعلومية لون الخليه فوضعت لكم مثال بسيط لعله يفيدكم Sub Yasser() Dim Rng As Range Application.ScreenUpdating = False For Each Rng In Range("a3:g31") If Rng.Interior.Color = Range("h1").Interior.Color Then Rng.ClearContents End If Next Rng Application.ScreenUpdating = True End Sub مع تحياتي ياسر العربي مسح بيانات بمعلومية اللون.rar

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

السلام عليكم ورحمة الله وبركاته في أحد المشاريع التي قمت بها ، كنت محتاج الى برنامج خارجي ليقوم ببعض المهام للمشروع ، فالطريقة المعتادة التي نستعملها هي ، وضع البرنامج هذا داخل احد مجلدات المجلد الرئيسي لقاعدة البيانات ، وبما ان فقدان/حذف هذا البرنامج يجعل المشروع عاجز عن العمل ، لم يكن عندي خيار ، سوى ان اجعل هذا البرنامج داخل قاعدة البيانات ، بطريقة تسمى Blob المرفق فيه هذه الملفات: . النموذج frm_Blob مهم في انه يسمح لك بوضع برامجك في قاعدة البيانات بسهولة ، والزر الاخر هو لتصدير هذا البرنامج الى اي مجلد في الكمبيوتر (لعمل التجارب مثلا) ، وقد وضعت برنامجين في قاعدة البيانات المرفقة: 1. pdftk.exe والذي يقوم بالعديد من العمليات لملفات الـ pdf ، 2. Arc5_S_BE.mdb ، وهي قاعدة بيانات فاضية ، وبها جداول مؤقته ، فبدل ان اعمل هذه الجداول المؤقته داخل قاعدة بياناتي ، ويكبر حجمها ، رأيت ان استعمل جداول خارجية ، وعند اغلاق البرنامج ، كنت اقوم بحذفها من المجلد: . لعمل البرنامج الاول ، استخدم الزر رقم 1 ، والذي سيصدر البرنامج pdftk.exe الى مجلد قاعدة البيانات ، ثم سيدمج الملفين a.pdf و b.pdf ويحفظ النتيجة في ملف ab.pdf ، ويفتحه ، بينما الزر رقم 2 ، سيصدر قاعدة البيانات Arc5_S_BE.mdb الى المجلد الرئيسي لقاعدة بياناتنا: . عند الضغط على الزر 1 ، سنرى هذه الملفات في المجلد الرئيسي لقاعدة البيانات: . ان شاء الله يكون فيه فائدة للجميع جعفر Blob.zip

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

هلا اخوي جعفر الموضوع بسيط ان شاء الله بس ممكن لم يمر عليك في برامجك لما يكون عندك حقل به مثلا سجلين 0.166 0.331 اجماليهم قبل التنسيق = 0.497 مع انه لو تم النظر لهم بعد التنسيق وبتطبيق المشاركة رقم 6 0.17 0.33 وهذا يوحي للمطلع على الرقمين ان اجماليهم 0.50 وهو ما يختلف عن الاجمالي الحقيقي السابق بالتوفيق

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

Sub IN_SH() Dim INSH As Worksheet On Error Resume Next For Each INSH In Worksheets If INSH.ProtectScenarios = False Then INSH.Protect "123" End If Next INSH Set INSH = Nothing End Sub Sub UN_SH() Dim UNSH As Worksheet On Error Resume Next For Each UNSH In Worksheets If UNSH.ProtectScenarios = True Then UNSH.Unprotect "123" End If Next UNSH Set UNSH = Nothing End Sub بعد استخدام البرنامج الجميل من حضرتك يصبح هكذا شكراً لك وبارك الله بك وجزاك كل خير

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

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

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

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

وعليكم السلام احد قواعد الاكسس التي يجب عليك ان تتبعها لبرنامج افضل ، هو إضافة حقل الترقيم التلقائي مفهرس ، فالبرنامج يحتاج اليه ليرتب وضعه في الفهرسة ويكون اسرع في العمل جعفر

اثراء للموضوع هذه المعادلة =MATCH($E$3,$A$3:$A$5,0) او هذه =COUNTA(INDIRECT("A"&MATCH($E$3,$A$3:$A$5,0)+2&":A3")) او هذه (يلزمها CTRL+SHIFT+ENTER) =MAX(IF($A$3:$A$5=$E$3,ROW($A$1:$A$3),"")) أو هذه =SUMPRODUCT(--($A$3:$A$5=$E$3),{1;2;3}) هذا بالاضافة الى دالة IF مع توابعها (IF كذا اعطني كذا ...)

بص موضوع الـ ByVal موضوع محتاج وقت ... خد الكود دا فيه شرح وفيه الفرق بين ByVal و ByRef 'a. Formal Parameter - a variable passed to a Sub or Function (e.g. i, iRow, and sData are formal parameters). 'b. ByRef (default) means the Sub or Function is allowed to modify the value of a formal parameter and pass the _ modified value back to the calling routine. 'c. ByVal means means the Sub or Function is allowed to modify the value of a formal parameter (in some languages _ this causes a compile error), but the value that the calling routine sees is the ORIGINAL value. '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Sub IncrementCounter(ByRef I As Long) I = I + 1 End Sub Sub OuputValueToColumnA(ByVal iRow As Long, ByVal sData As String) Cells(iRow, "A").Value = sData iRow = iRow + 1 'NOTE: Modification of a ByVal formal parameter is allowed inside the routine, but is poor programming practice Cells(iRow, "A").Value = sData End Sub Sub ImprovedOuputValueToColumnA(ByVal iInputRow As Long, ByVal sData As String) Dim iRow As Long iRow = iInputRow 'Make a local copy of the input value Cells(iRow, "A").Value = sData iRow = iRow + 1 'NOTE: Modification of a ByVal formal parameter is allowed inside the routine, but is poor programming practice Cells(iRow, "A").Value = sData End Sub Sub ByRefAndByVal() Dim iRow As Long Dim sMessage As String sMessage = "Hello World." iRow = 11 Debug.Print "iRow = " & iRow 'Output to Immediate Window (CTRL G in debugger) Call IncrementCounter(iRow) Debug.Print "iRow = " & iRow '12 expected iRow = 21 Debug.Print "iRow = " & iRow 'Output to Immediate Window (CTRL G in debugger) Call OuputValueToColumnA(iRow, sMessage) Debug.Print "iRow = " & iRow '21 expected Call ImprovedOuputValueToColumnA(iRow, sMessage) Debug.Print "iRow = " & iRow '21 expected End Sub تقبل تحياتي

وهذه محاولة وللفائدة

هذا لازم تستخدم معادلة علشانه ، في الاستعلام مثلا: IIf([Selling] - Int([Selling])=0,Format([Selling],"#,###",Format([Selling],"#,###.##")) جعفر

تفضل اخي الملف جاهز مع الكود ( الكود لا ينفذ العمل الا اذا امتلأ اخر صف في الجدول ) WALID salim1.rar

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

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

السلام عليكم اخى الحبيب / احمد .. ده شرف كبير لى .. نعم الاخ والله .. اشكر الظروف التى جعلتنى عضواً فى هذا المنتدى العظيم باعضائه الماس خالص حبى وتقديرى لشخصكم المحترم

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

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

أخي الغالي أحمد كلكم إخواني وعلى عيني وعلى رأسي ..وبعدين أنا واخد بالي من كله (مراقبك وهراقبك) تقبل تحياتي

جزاك الله كل خير اخى صلاح وجزاك الله كل خير اخى ابو البراء بس انا زعلان ياعنى واخد بالك من صلاح وسايبنى ههههههههههههههه اوعى تزعل ياصلاح احنا بنهرج بس اوعى تضرب ياابوالبراء هههههههههههههههههه حبيبى

حمدالله على السلامه يا ابواسيل مش هنقول ايه اقوم صلى واحمد ربنا ده اللى بيتعمل مش اللى بيتقال ثانيا ربنا سبحانه وتعالى قال فى كتابه العزيز بسم الله الرحمن الرحيم فَقُلْتُ اسْتَغْفِرُوا رَبَّكُمْ إِنَّهُ كَانَ غَفَّارًا يُرْسِلِ السَّمَاء عَلَيْكُم مِّدْرَارًا وَيُمْدِدْكُمْ بِأَمْوَالٍ وَبَنِينَ وَيَجْعَل لَّكُمْ جَنَّاتٍ وَيَجْعَل لَّكُمْ أَنْهَارًا صدق الله العظيم هل تريد أكثر من ذلك يا ابا آسيل حبيبى واخى ويا من رزقنى بكم الله فالحمد لله الواحد الرزاق لا تعرف اين رزقك وما هو رزقك ادعو الله لك ولكل امة محمد ان يرزقهم راحة البال والطمأنينه جزاكم الله كل خير

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

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

دائماً نتعلم منك ياكبير .. ماشاء الله على قوة المتابعه والملاحظة .. بارك الله فيك التعديل Dim INSH As Worksheet On Error Resume Next For Each INSH In Worksheets If INSH.ProtectScenarios = False Then INSH.Protect "123" End If Next INSH End Sub Dim UNSH As Worksheet On Error Resume Next For Each UNSH In Worksheets If UNSH.ProtectScenarios = TRUE Then UNSH.UNProtect "123" End If Next UNSH End Sub

أخى الحبيب ياسر هدية مقبولة تسلم ايديك

وعليكم السلام ياريت تعطي مثال بطلبك ، توفر علينا نحن الاثنين الوقت اذا كان قصدك ان تجمع قيم الحقول في سجل واحد ، فهذا الكود يعطيك الحقول للسجل ، وجمع قيمها: Dim rst As DAO.Recordset Dim fld As Field 'get this Name Record from the table Set rst = CurrentDb.OpenRecordset("Select * From [salary2015+2014] Where Full_Name='" & F & "'") T = 0 'initial Total 'loop through the fields For Each fld In rst.Fields 'Debug.Print fld.Name & vbTab & fld.Value 'skip the Full_Name field name If fld.Name <> "Full_Name" Then 'add the field values T = T + fld.Value End If Next fld rst.close : set rst=nothing جعفر

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

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

بعد اذن اخى خالى حل اخر لاثراء الموضوع بالتوفيق 1تواتي.rar

اسف على الخطأ اعلمني اذا كان المرفق طلبك تقبل تحياتي واعتذاري استدعاء بيانات2.rar

السلام عليكم أخي العزيز اتمنى المرفق يساعد بشيئ تحياتي استدعاء بيانات2.rar

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

مالك ياعم ياسر انت فتحت الباب على وسعه كده ليه مره واحده ههههههههههههههههههههه كده انا روحت منك خالص ياعم بالراحه عليا هحاول افهم اى حاجه لغاية ما اكمل فتح الباب بالراحه بعد مافسخته ههههههههههههههههههههههه ربنا المعين جزاك الله كل خير يا ابوالبراء

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

السلام عليكم بعد اذن اساتذتى الكرام فعلى قد فهمت المطلوب .. استبدل المعادلة الموجودة بالخليه I10 بتلك المعادلة . ثم اسحب لاسفل =IF(OR(G10=0;G10="");0;MROUND($L$10*K10/$K$50/G10;5)*G10) برنامج توزيع مبلغ بنسب (Recovered)_3.rar

تحيا مصر

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

السلام عليكم استاذى / ابو البراء .. جزاك الله خيراً .. واستأذنك استاذى فى عرض فكرة اخرى بإستخدام المعادلات بإفتراض ان مرجع القائمه المنسدلة هى الخلايا A3:A5 وان خليه القائمه هى E3 يتم وضع المعادلة التاليه فى الخليه المراد بها الرقم =SUMPRODUCT(--(E3=A3:A5);ROW(A3:A5)-2) Book1ffff.rar

اخى الكريم ماذا تقصد من سؤالك ،، وماذا تعنى جملة (( لأننى لا أجد أى تغيير )) على ما اعتقد انكم طلبتم ترقيم تلقائى داخل الفورم ومرفق صورة توضح ذلك وقد اضفت كود داخل الفورم وهو Private Sub UserForm_Activate() Lr = Sheets("المبيعات").Cells(Rows.Count, 5).End(xlUp).Row Me.Code_Fatora = Application.WorksheetFunction.Max(Sheets("المبيعات").Range("B6:B" & Lr)) + 1 End Sub

أهلا بك عضوا جديدا في منتدانا وأتمنى أن تجد فيه بغيتك أهلا بك يا manbar labib تفضل جرب المرفق Book2.rar

حياكم الله اخواني وشكرا على مشاركتكم jojo 2009 ولك بأكثر مما دعوت بإذنه تعالى الأخ محمد حياك الله انا عملت المثال على 2007 وحفظت منه نسخة بتنسيق 2002-2003 وهي في المرفق السابق وهذه نسخة بتنسيق 2007 اتمنى من الأعضاء الكرام ممن لديهم نسخ اعلى من 2003 و 2007 التجربة وافادتنا مشكورين. وفقنا الله واياكم جميعا ... MyProtect.rar

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

الحلقة الثانية ونبدأ حلقة جديدة من حلقات مسلسل افتح الباب يا عبد التواب .. اتعلمنا المرة اللي فاتت إزاي ندخل على محرر الأكواد وإزاي نضيف كود واتعرفنا على نافذة المشروع .. دلوقتي جه الوقت اللي لازم تعرف فيه الهيكلة العامة للتعامل مع الأكواد .. يعني ايه ؟ هضرب مثال ليتضح المقال : أنا ساكن في عمارة كبيرة (العمارة زي تطبيق الإكسيل Application) دي العمارة بتاعتنا وساكن في شقة فيها (الشقة دي هي WorkBook المصنف يعني .. والشقة عندي فيها 3 أوض (أوضة 1 - أوضة 2 - أوضة 3 ) دي زي أوراق العمل اللي عندنا Sheet1 و Sheet2 و Sheet3 جوا كل أوضة فيه مجموعة أشياء أو بنسميها كائنات Objects بس حاجات صغيرة.. مثلا فيه تلاجة .. والتلاجة طبعا واخدة حيز من الفراغ بنسميه نطاق Range يعني النطاق ده جوا الأوضة اللي جوا الشقة اللي في العمارة يبقا ممكن نبرمج التلاجة : أيوا صحيح !! هنحدد مكانها .. عمارة.شقة.أوضة(1).تلاجة.فتح بالإكسيل تكون بالشكل ده : Application.ThisWorkbook.Sheets(1).Range("A1").Select بكدا نكون عرفنا هيكلة الكائنات الموجودة عندنا Objects .. في السطر اللي فات بدأنا بالعمارة أقصد التطبيق متبوعاً بنقطة Period ثم حددنا الشقة أقصد المصنف Workbook وهنا أشرنا للمصنف الحالي ThisWorkbook، وبعدين حددنا الأوضة اللي هي الشيت Sheets (1) ثم أخيرا التلاجة أقصد النطاق المراد العمل عليه وهو هنا الخلية A1 بهذا الشكل Range("A1) . >>> وأخيرا .. بعدما وصلنا للتلاجة هنعمل ايه ؟ أكيد هنفتحها عشان نشوف أي حاجة نشربها بعد الكلام الكتير ده الواحد ريقه نشف اللي يبل ريقكم .. أيوا نفتح دا فعل والفعل في اللغة العربية نعرفه إزاي .. لما نحط قبليه كلمة (أن) يعني لو قلنا (أن يفتح) كدا فيه معنى واضح .. أما لو قلنا كلمة حجم وحطينا قبليها (أن حجم) دي ملهاش معنى ، فبالتالي كلمة يفتح فعل أما كلمة حجم فدي اسم أو صفة (كدا معلمي اللغة العربية هيبلغوا عني إني بدي دروس في العربي) !! يرجع مرجوعنا لموضوعنا إحنا ليه شرحنا الفعل لأن الفعل في البرمجة بيساوي كلمة Method يعني لما نشوف كلمة Method دي نربطها بحدث الفعل تلاجة.فتح يعني لو جربنا السطر اللي فات ووقفنا في خلية بعيدة شوية ونفذنا الكود هيحدد الخلية A1 .. مبروك عليكم السطر الأول من الأكواد الفعل هنا أو الـ Method اسمه Select وترجمتها حدد .. أي أننا قمنا بالإشارة لكل الكائنات وصولا إلى الخلية A1 ثم نأمر الكود بتحديد النطاق. ناخد مثال مهم أوي عشان نفهم الـ Method بشكل أكبر Application.Quit هنا لما اكتب الكائن Application وبعدين أكتب النقطة هلاحظ حاجة في غاية الأهمية .. ايه هيا؟ محرر الأكواد بيقدم مساعدة لينا (ودي عشان الجماعة اللي بيقولوا المشكلة في اللغة .. خلوا بالكم) بيظهر لنا قايمة شبه القايمة المنسدلة بس مش منسدلة فيها كلمات كتيرة .. وهنلاقي شكلين : الشكل الأول عمنا بيل جيتس بيشاور بصبعه على ورقة والشكل التاني علامة شبه الطوبة الخضرا .. الشكل الأول بنسمية الخاصية Property وهنشرحها بالتفصيل كمان شوية ، والشكل التاني الطوبة الخضرا ربنا يجعل حياتكم خضرا ومزهزهة هي دي الـ Method أو الفعل طيب هعرف إزاي إذا كانت كلمة Quit دي Method ولا Proerty ببساطة بص على شكلها هتلاقي علامة الطوبة الخضرا اللي قلنا عليها يعني كلمة Quit دي Method وطبعا الحتة اللي فاتت للجماعة اللي مش بيعرفوا إنجليزي زي حالاتي ، أما بالنسبة للي بيعرفوا إنجليزي فيبصوا لكلمة Quit هيلاقوا معناها اخرج ودا فعل يعني Method> يبقا خلاصة الكلام السطر اللي فات بيعطي أمر للخروج من التطبيق. نقطة تانية في غاية الأهمية لما نلاقي نفسنا مش عارفين حروف الكلمة اللي بنكتبها .. بعد النقطة ولما تظهر القايمة بكتب أول حرف أو حرفين في الكلمة اللي أنا عايزها ، وبعدينباستخدام الأسهم فوق وتحت أقف على الكلمة اللي عليها العين والنن واضغط TAB من لوحة المفاتيح اللي تحت حرف الذال يا رجالة (أنا عارف إن فيه ناس هتدور دلوقتي على حرف الذال ومش هتلاقيه . بصوا في لوحة المفاتيح أيوا بصوا .. فوق شمال فوق شمال فوق شمال تحت زر Esc هتلاقي حرف الذال ، وتحت الذال هتلاقي Tab عليها سهمين سهم متجه لليسار وآخر لليمين .. لو ملقتش السهمين قوم حالا رجع لوحة المفاتيح للراجل اللي إنت اشتريت منه دا نصب عليك) المهم لما نضغط Tab هنلاقي الكلمة اتكتبت لوحدها .. يا سلام ونعم الكلام ونعم المساعدة شكرا يا بيل !! ممكن أريح ايدي شوية عشان والله ايدي تعبت !!! ---------------------------------------------- طيب دي الـ Method فيه حاجة تانية اسمها Property ودي ترجمتها خاصية (وتشمل زي ما قلنا الاسم أو الصفة) تلاجة.حجم حجم دي هي خاصية التلاجة Property فلو حبينا نضع قيمة لحجم التلاجة تلاجة.حجم = 10 قدم نلاحظ إن الخاصية ليها قيمة وعشان نضع قيمة ليها بنحط علامة يساوي متبوعة بقيمتها ناخد مثال على الخاصية Property عشان عارف إنتو تهتو مني ... ركزوا يا شباب! Application.Caption= "Officena" طبعا إحنا عارفين شريط العنوان بيكون فيه اسم الملف أو المصنف متبوعا بشرطة - وبعدين اسم التطبيق Excel طيب لو حبينا نخليه باسم منتدانا الحبيب يبقا ننفذ السطر اللي فوق الكلمة اللي جات ورا Application اللي هي كلمة Captionدي خاصية من خواص التطبيق مش فعل يا مستر حمدي .. وطالما إنها خاصية فبنحدد ليها قيمة بعلامة يساوي (واحد هيعمل فيها مركز طيب إحنا نسينا علامة يساوي مع Quit أقولك الفعل مش بيتحدد له قيمة ، القيمة بتكون مع الخاصية أو الاسم أما الفعل له حاجات تانية اسمها بارامترات .. متخرجنا برا الموضوع) المهم بنحدد قيمة للخاصية وليكن مثلا كلمة Officena وطبعا دي نص ، وعرفنا من المرة اللي فاتت إن النصوص توضع بين أقواص تنصيص " " .. اللي مش عارف يرجع يراجع من الأول أنا مش بحب أكرر المعلومة أكتر من 100 مرة .. لو نفذنا بقا السطر اللي فات هنلاقي شريط العنوان اتغير (يا حلااااااااوة) واحد هيقولي طيب إزاي نكتب الأسطر اللي إنت نازل دش فيها أقولك فيه قايمة اسمها Insert اختار منها Module أو فيه علامة في شريط الأدوات جنب علامة الإكسيل على يمينها علطول اختار منها Module ,وضع فيها الأسطر المراد تنفيذها يرجى مراعاة حاجتين الأسطر مبتكونش عريانة كدا لازم نغطيها بلحاف وبطانية يعني اللحاف Sub وبعدين اسم الإجراء ، والبطانية End Sub ونحاول عشان نقدر نتعلم صح نبص كويس قبل تنفيذ الكود وبعده يعني في المثال الأخير بص لشريط العنوان هتلاقي Excel مشرف في العنوان ، وبعد تنفيذ الكود هتلاقي Officena هي اللي نورت ... وإلى لقاء في حلقة جديدة من حلقات افتح الباب أسأل المولى عزوجل أن ينفع بهذا الرغي جموع المسلمين وأن يكون شاهدا لي لا علي ..

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

بسم الله الرحمن الرحيم الاخ الفاضل ابو عبدالله تحية طيبة لك ولكل من معنا بداية انا تمعنت في الملف الرائع المرسل من قبلكم ووجدت انه طالما يمكننا قراء تفاصيل اى مخزن على حدا فلما لانعامل مراكز البيع على انها مخازن فرعية (وهي ضمنيا بلغة المحاسبة مخزن فرعي لان جرد مركز البيع آخر الفترة يدخل ضمن الاصول المتداولة للمنشاة ) اذا خطة العمل لديناستكون على ثلاثة محاور اساسية سوف الخصهما لك( وانا شاهدت في هذا المنتدى العديد من الاوامر المبهرة وعلى راسها المشروع العظيم رقم 2 والتي تنتقي بيانات محددة من صفحة محددة او اكثر) اولا :دخول البضاعة الى المخازن العمومية بتفريعاتها (اذن تسليم بضاعة Receiving Voucher) واعتقد ان الملف به هذه الامكانية وليس مطلوبا في هذه المرحلة سوى معرفة التفاصيل داخل كل مخزن على حدا او مجمع. ثانيا: حركة الصرف من المخازن العمومية الى مراكز البيع وايضا انت نجحت في تنفيذ هذا المطلب ايضا (وهنا ايضا يمكننا الحصول على كافة التفاصيل داخل المخازن العمومية ومراكز البيع Separately او Totaly اكيد حضرتك متفهم جيدا لما اقصد. ثالثا: حركة خروج الاصناف من مراكز البيع مع تعدد اسباب الصرف وفي هذه الحالة مطلوب سعر البيع اى اننا سنضيف عمود جديد في صفحة صرف الاصناف يوضع به سعر البيع الذي مبدئيا يمكننا ان نلصقه كارقام في صفحة Item Chartالموجودة عندناوما قصدته بشكل مبدئي هو اننا سنربطه فيما بعد (اقصد سعر البيع) بريسيبي الاصناف والمطلوب في المحور الثالث هو عمل قائمة باسباب الصرف وقد اوضحتها في بداية ردودي في ذات الموضوع واما عن التقارير المطلوبة بعد ذلك اريد ان اشير هنا الى عظمةالقائمين على هذا الصرح العظيم في استخراج وعمل تقارير لا حصر لها من قاعدة بيانات اقصد صفحة بيانات بها مالذ وطاب من الارقام والنصوص والتواريخ بل والرسومات .اى ان اى تقرير سوف ارسل لك فورم خاص به فانت قادر ان شاء الله بكل ثقة مني في تنفيذها على اكمل وجه. واشكر لك سعة صدرك على قراء كلام محاسبة وبس لكن ما يشجعني هو الحماس المنقطع النظير لديكم لاخراج كل ماهو جديد ومتفرد دون بخل او اخفاء لكل صاحب مطلب او مشورى. وفقك الله اخي العزيز وجعلنا جميعا اسبابا للانتفاع بالعلم Hany Badr

------------------------------------------------ جزاك الله خيرا اخى الكريم rudwan -------------------------------------------------