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

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

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

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

السلام عليكم تفقيط محدث بدالتي جديدتين واحدة للعربي ArbNum2Text وأخرى للإنجليزي EngNum2Text وتم الفصل بينهما بعد إن كانتا في دالة واحدة وذلك لوجود فرق في عدد المدخلات تصل إلى 4 مدخلات . والتحديث الآن تركز على تسهيل استخدام الدوال وخصوصا العربي مع استخدام المدخلات الإختيارية والتي كانت سابقا كلها مدخلات مطلوبة . لي ملاحظة واحدة فقط وتحتاج إلى آرائكم وهي تفقيط الكسر للدالة الإنجليزي وخصوصا أن الدالة تبدأ بالعملة أولا ثم تحويل الأرقام إلى حروف وعند الكسر يكون العكس ، الشيء الذي لا يروق لي .. فمن له دراية بالموضوع أرجو التكرم بتقديم مالديه من معلومات ولكم جزيل الشكر سلفا . الكود معمول لللأكسس والأكسل معا . تحياتي . الملفات المرفقة Num2Text20030725.zip ( 74.73ك ) عدد مرات التنزيل: 626

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

بسم الله الرحمن الرحيم السلام وعليكم ورحمة الله وبركاتة ومازلنانتواصل معكم فى شرح سلسلة تعليم vba للمبتدئين ونقدم لكم الجزء الخامس https://www.youtube.com/watch?v=0mDB-jZXXYE

السلام عليكم اسمحو لى بالتطفل عليكم الكود الذى يطبع من الفورم مباشره هذا هو DoCmd.OpenForm "واجهة ادخال البيانات", acNormal, , , , acDialog DoCmd.PrintOut ولكن يجب عليك ضبط الحدود علشان متطلعش الطباعة زى كدا وكمان لازم تخفى الازرار علشان متطبعش معالفورم ولاخفائها اتبع الاتى كل زر عاوز تخفيه عدل التسيق بتاعه كالاتى

اخي الكريم عبد الكريم جرب الملف المرفق التالي .. Combinations Scenario For Values Summation.rar

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

وأى أوفس

'للملف وورد 2003 او اقدم ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.doc" ActiveControl.Hyperlink.Follow 'للملف وورد 2007 او احدث ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.docx" ActiveControl.Hyperlink.Follow 'للملف اكسل 2003 او اقدم ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.xls" ActiveControl.Hyperlink.Follow 'للملف اكسل 2007 او احدث ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.xlsx" ActiveControl.Hyperlink.Follow ضع كود مناسب في حدث عند نقر لزرالأمر غير مسار الى مسار ملف لديك

السلام عليكم ورحمة الله تم الحل بمعادلة صفيف بوساطة الدالتين MIN و MAX في الملف المرفق... بن علية Book1_11.rar

السلام عليكم ورحمة الله وبركاته وبكم بارك الله أخي الربيعي جزاكم الله خيراً.

شكرا اخي محمد حسن ...الحل ممتاز بارك الله فيك

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

تفضل جرب المرفق الوثائق2.rar

لفتح الاكسل هذا الكود Dim oApp As Object Set oApp = CreateObject("Excel.Application") oApp.Visible = True لفتح الوورد هذا الكود Dim oApp As Object Set oApp = CreateObject("Word.Application") oApp.Visible = True

جرب هذا الملف نهاية الفصل salim.rar

السلام عليكم أخي العزيز هل أنت بحاجة لمعرقة الوثائق المنتهية ؟ الوثائق المنتهية لا تهمك إذن أنت تريد أن تظهر في الفورم شيئين هما : 1)الوثائق المنتهية 2)والتي ستنتهي بعد 15 يوما فهل هذا صحيح ؟

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

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

السلام عليكم أخي الكريم بحار الأكسس .. جزاكم الله خيراً على الكلمة الطيبة ...بارك الله بكم..

السلام عليكم بعد إذن إخوتي الكرام أخي الكريم أرجو أن يكون به جواباً لسؤالك. 2016.rar

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

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

لا ضرورة للحلقات التكرارية يكفي هذا Sub del_rg() Sheets("123").Range("a1:a500")="" End Sub

الله يبارك بكم ... ويرزقنا واياكم كل ما نتمنى من الخير

حساب العمر.rar إليك الحل أخي عبد العزيز لقد أضفت ذلك في مشاركة سابقة

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

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

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

سلمكم الله وزادك علما وحفظكم الله من كل مكروه

أخي الحبيب أبو نبأ ... أفضل أن يكون شرح المطلوب بالموضوع وليس داخل الملف المرفق .. عموما جرب الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 1 And Target.Column = 10 Then If Target.Value = "صرفت" Then Target.Offset(, 1).Value = Date Target.Offset(, 2).Value = Format(Date, "ddd") End If End If End Sub كتابة التاريخ واليوم عند كتابة كلمة.rar