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

الآن وبعد غياب غير قصير موعدنا مع الحلقة الخامسة من دورة أساسيات إكسل 2013 من تحت الصفر إلى الاحتراف وفيها: التعرف على مقبض التعبئة fill handle إظهار وإخفاء مقبض التعبئة جميع حالات مقبض التعبئة ونسخ المعادلات استعمال وإضافة قوائم مخصصة custom lists استعمال علامة الدولار في تثبيت النطاقات في المعادلات ولا تنسوني من صالح دعائكم ولا تنسوا تشجيعكم لنا يدفعنا للاستمرار من أجلكم اضغط هنا للاشتراك في القناة http://www.youtube.com/user/ostazmas?sub_confirmation=1 مع تحياتي أ / محمد صالح فيس بوك http://adf.ly/1EbLvW جوجل بلس http://adf.ly/1DjBfI شير x الخير فزكاة العلم نشره

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

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

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

السلام عليكم استاذ ياسر معذرة فلم اجرب الحل في ملفك مسبقا , و كما هو متوقع يعمل بكفاءة . كما تفضل استاذنا محمد حسن فالتاريخ 30/2/1431 لم يأخذ وضعه الصحيح في الترتيب و السبب و الله اعلم انه لم يعبر من خلال هذا الشرط If IsDate(Cells(I, "E")) Then (دالة IsDate لم تتعرف عليه كتاريخ) صراحة موضوع التواريخ الهجرية مبهم نوعا ما في الاكسيل تحياتي

شكلها هتولع .. :yes: اجتماع الكبار والعمالقة ... أ / محمد صالح ، و أ / أسامة البراوي يلا عايزين نشوف حاجة جديدة ومميزة .. نريد خطوة على طريق التقدم فيما يخص هذا الموضوع ؛ ليكون بصمة كبيرة في المنتدى

أستازى المتألق دائماً / ياسر خليل ابو البراء إن كان الموضوع كذلك فدة بفضل المتابعة المستمرة والتشجيع من حضراتكم اما بخصوص تجميع الشروحات فدة هيتوقف على عدد الافكار التى سأقدمها فى هذا الموضوع والتى لم احصرها بعد ولكن فى كل الحالات سيكون هناك ملف PDF ان شاء الله شكراً لك على التعقيب الرااائع والاضافة الاروع جـــــــــ شــكــــرررا ــــزيـــــلا

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

بسم الله ما شاء الله تفاعل كبير في الموضوع إليك المعادلة التالية بعيداً عن معادلات الصفيف =SUMPRODUCT(($C$2:$C$44)*($A$2:$A$44=$F$8)*($B$2:$B$44=$H$8))

رمضان كريم اليك المطلوب القوائم المنسدلة مطاطة (تستجيب لاي تعديل في البيانات و لا يظهر المكرر الا مرة واحدة) (أفضل اجابة من فضلك) المسافة salim.rar

شكرا أستاذى الفاضل " أبو سليمان " بارك الله فيك ، وكل سنة وحضرتك طيب وهذه أيضا تحقق المطلوب ولكنها ترجع العديد من القيم لوتم سحبها لأسفل لو أتفقت الشروط فى العديد القيم {=INDEX($C$2:$C$44, SMALL(IF(($H$8=$B$2:$B$44)*($A$2:$A$44=$F$8), MATCH(ROW($A$2:$A$44), ROW($A$2:$A$44)), ""), ROW(A1)))} وهى معادلة صفيف أيضا تقبلوا تحياتى

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

أخي الحبيب يرجى تغيير اسم الظهور للغة العربية جرب الكود التالي Sub Create_Save_Workbook() 'يقوم الكود بإنشاء مصنف في نفس مسار المصنف الذي يحوي الكود ويحفظه باسم تلقائي '---------------------------------------------------------------------------- Dim WB As Workbook Set WB = Workbooks.Add Application.ScreenUpdating = False Application.DisplayAlerts = False WB.SaveAs Filename:=ThisWorkbook.Path & "\Yasser_" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xlsx" WB.Close True Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

أخي الحبيب الغالي علاء رسلان بارك الله فيك وجزاك الله خير الجزاء على مساهماتك الفعالة في المنتدى ومحاولة مساعدة الآخرين والمشاركة المستميتة بالموضوعات والمحاولة قدر الإمكان (وهذا ما أرغبه من الجميع) أتحدث هنا عن المحاولة تلو الأخرى بدون يأس وبدون كدر فالمحاولات هي سر النجاح .. ولو تخلينا عن المحاولة لفشلنا .. فقد سمعت ذات مرة أن مخترع المصباح حاول أكثر من ألف مرة ليحقق هدفه ، فنريد أن نزرع في أنفسنا عدم اليأس وأنه طالما ان هناك أنفاس وقلب ينبض ، فالأمل دائماً موجود .. عفواً إن كنت قد اطلت عليكم ، بس يلا أديني بسلي صيامكم جرب الملف التالي عله يفي بالغرض Sub FilterData() Dim LastRow As Long LastRow = Sheets("ورقة2").Cells(Rows.Count, 4).End(xlUp).Row Sheets("Sheet3").Range("G5:N1000").ClearContents Sheets("ورقة2").Range("D4:L" & LastRow).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Sheet3").Range("P1:S2"), CopyToRange:=Sheets("Sheet3").Range("G4:M4"), Unique:=True End Sub تم استخدام التصفية المتقدمة .. ويوجد في قناة اليوتيوب في التوقيع الخاص بي فيديو يشرح كيفية التعامل مع التصفية المتقدمة تقبل تحياتي وكل عام وأنت بخير Advanced Filter YasserKhalil.rar

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

الحمد لله الذي جعل العلم ضياء والقرآن نوراً الحمد لله الملك الحق المبين ، الذي هدانا إلى الإيمان واليقين نحمــده تعالى وهـــو الرب الجليل ، الهادي إلى ســـواء الســـبيل ، الذي لا يخفى عليه الكــثير ولا القليــل . والصلاة والسلام على المبعوث في الأميين معلماً ورسولاً ومرشداً وحكيماً وأشهد أن لا إله إلا الله وحده لا شريك له أمر بإتباع الحق ونهى عن إتباع الباطل ، ورفع من شأن العالم دون الجاهل ، وأشهد أن سيدنا محمداً عبده ورسوله جــــاء بالحــــق المبــــين ، فكان رحمــــة للعالمين ، صلى الله عليه وعلى آله وأصــحابه وســـلم تســـليماً كــــثيراً . اللهم اجعل العام الهجري الجديد فاتحة خير علي المسلمين وبلاد المسلمين ا أحبائي واخواني في منتديات اوفيسنا الاحبة كشجرة الياسمين لا تكتفـــي أن تظـــلك بـــــــل لا تترككــ الا معطــــرا بعبيرهـــا فاســعد الله من كانوا دومــــا زهــــور الياسمــين في حـــياتنا . موضوعنا اليوم حول برنامج يخدم شريحة من الطلبات لادارة النشاط التجاري والخدمي وراعينا ان يكون البرنامج سلس ومرن ليتناسب مع اغلبية الاحتياجات . وايضا لاستكمال مواضعينا السابقة عن دمج الاكسل ببرامج التصميم المختلفة والتحكم في خصائص الادوات لليوزرفورم . برنامج نور التجاري والخدمي اول انتاج مشترك بيني وبين اخي الحبيب العبقري / شوقي ربيع في سلسلة البرامج الخدمية ان شاء الله تعالي . البرنامج يقوم بإدارة النشاط بصــفة عامة ، وادارة عمليات البيع بإصدار الفواتير ، وطباعتها ، واصدار ســـندات القبض وطباعتها ، وادارة العمليات المتعلقة بفواتير الشراء ومرودتها واثبات عمليات الشراء والاصناف واصدار سندات الصرف وطباعتها . الجديد في البرنامج كثيرا تم طرح نماذج فواتير بيع باضافة عدد محدد من التكسات بما يتناسب مع صفوف الفاتورة الواحدة لكن في البرنامج تناولنا الموضوع بطريقة اخري باضافة عدد تكسات رئيسية تقوم بترحيل الي ليست بوكس ومنها الي الشيت وبذلك يمكن اصدار الفاتورة بعدد لا محدود من الاصناف وطباعتها . شاشة الدخول اسم المستخدم وكلمة المرور الافتراضية admin الشاشة الرئيسية للبرنامج شرح واعداد البرنامج بالكامل اضغط هنا بالمرفقات اللهم اجعلنا ممن طاب ذكرهم ، وحسنت سيرتهم ، واستمر أجرهم في حياتهم وبعد موتهم اللهم امين Nour Commercial V 1.0.0.rar

المشروع الكبير: شرح برنامج المخزون و الفواتيرالشامل الاصدار الثالث هذا البرنامج هو النسخة الثالثة من برنامج المخزون و الفواتير الشامل وهو من الممكن اعتباره اكثر من برنامج فى برنامج واحد يصلح لكافة اغراض المبيعات و المشتريات وذمم عملاء وموردين مع ميزانية عامه توضح الربح و الخساره يمتاز البرنامج بكثرة التقارير وسهولة الحصول عليها فى اى وقت البرنامج به الكثير من الاضافات عن الاصدارات السابفة البرنامج مليئ بافكار جديده فى طريقة ادخال الاصناف داخل الفواتير و استدعائها و التعديل عليها ربما لم تشاهدها من قبل البرنامج بواجهة تطبيقية كاملة مما يسهل من استخدامه ويسرع من ادائة ويحافظ على ثباته البرنامج يعمل على نسختي اوفيس 2007 و 2010 وان كنت انا افضل النسخة الأخيرة من حيث السرعة ** اليوم وانا على وشك انتهاء مرحلة تجربة هذاالاصدار احببت ان اقدم لكم الشرح الوافى لهذا البرنامج البرنامج يحتوى على الكثير و الكثير من الاختصارات التي تساعدك في انجاز مهامك بسرعه عالية وهى افكار جديده على الاكسيل ** تم تصميم البرنامج بمواصفات خاصه وهو فى الاصل برنامج تجارى ولكنى اقدمه هنا للمنتدى وللأخوة الاعضاء بصورة مجانية بغرض التعلم او استخدامهم الشخصىعلى شرط ان لن يقوم اى شخص بتقديم هذا البرنامج الى اى جهه او شركة بغرض الربح. فحقوق ملكيتة محفوظة لى و الله الشاهد على ذلك البرنامج سوف يتم نزوله مفتوح المصدر فليس غرضى هو الاحتكار ولكنى اريد هذا العمل خالصا لوجه الله تعالى لكى يستفيد ويتعلم الجميع Ø يمكن التعديل في البرنامج على حسب ظروفي ومدى انشغالي اذا كانت تغييرات غير جوهريه Ø اليوم اقدم لكم شرح وافى للبرنامج لطلب كثير من الاعضاء و ايضا لضرورة التعرف على بعض النقاط الهامه داخل البرنامج كما يمكنك الحصول على ملف تنفيذى به شرح كامل للبرنامج حجم الملف 7 ميجابايت يمكنك مراسلتى على الايميل لطلب الشرح amroomo@gmail.com # فى الاسبوع القادم بمشيئة الله سوف اقوم بتنزيل البرنامج على المنتدى و عندما تنتهى فترة تجربة البرنامج ليكون كاملا و الكمال لله وحده سبحانه وتعالى ...... لن اطيل عليكم فلنبدأ على بركة الله بالشرح وهو عباره عن صور تشرح كافة تفاصيل البرنامج

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. قد يكون موضوع الكسر موضوع شائك وفيه خلاف ، ولكن ربما يكون مفيد لصاحب العمل نفسه ، حيث أنه معرض لنسيان الباسورد الذي تم وضعه على محرر الأكواد .. الموضوع مميز لأنه يقوم بكسر الحماية بدون برامج على الإطلاق ..وبدون AddIns وبدون الاستعانة بأية برامج مجانية أو مدفوعة !! كسر محرر الأكواد بالأكواد نفسها (قنبلة الموسم) وعلى رأي المثل : علمته رمي السهام فلما اشتد ساعده رماني .. الكود قليل الأصل !! محفظش الجميل للبيئة اللي هو منها ، لأنه كسر بيئة محرر الأكواد !!! Sub HackVBA() Open "C:\Users\Future\Desktop\Test.xls" For Binary As #1 Put #1, 1, Replace(Input(LOF(1), 1), "DPB=", "DPX=", , 1) Close Workbooks.Open "C:\Users\Future\Desktop\Test.xls" End Sub المطلوب فقط أن تغير مسار الملف المراد كسره داخل الكود ، والمسار يوضع بين أقواس تنصيص .. أترككم مع الفيديو عله ينال إعجابكم وتستفيدوا منه إن شاء المولى .. ولا تنسونا من اللايكات على اليوتيوب !!!!! ....أكرر اللايكات على اليوتيوب ..فضلاً لا أمراً تقبلوا تحيات أخوكم أبو البراء

بعد الاطلاع على المرفق تبين لي المشكلة التي واجهتها فرقم الايبان يوجد في بدايته حرفين انجلش كبيتال لهذا سيكون قناع الادخال هكذا LL0000000000000000000000 حرفين L كبيتال و 22 صفر جرب ووافنا بالنتيجة

أخي الحبيب علاء رسلان عشرات من فنجايل القهوة .. ومفيش مرة فيهم تعزمني على واحد .. مشكور يا كبير إليك حل مشابه للحل الذي قدمته في المشاركة رقم 11 إلا أنه لا يعتمد على نطاق ثابت بل إنه يتم إنشاء النطاق الخاص بالشروط في آخر الأعمدة في ورقة العمل التي تظهر فيها النتائج ثم بعد تنفيذ الكود يتم مسح البيانات لجدول الشروط .. التصفية المتقدمة أسهل الطرق وأيسرها لتنفيذ المطلوب .. إذا كانت الخلية فارغة لأي خلية من خلايا الشرط فهذا يعني أنه يتم جلب كل البيانات بدون اللجوء إلى كلمة " الكل" أو خلافه ... جرب تترك كل الخلايا B2 و B3 و H2 و H3 فارغة .. ونفذ الكود ستجد أن البيانات جميعها يتم جلبها ... ولو اخترت أي شرط سيتم جلب البيانات المرتبطة بهذا الشرط إليك الكود مع شرح لأسطر الكود لعله يروي ظمأك Sub AdvancedFilterUsingConditionsArray() 'يقوم الكود بالتصفية المتقدمة للبيانات بشروط والشروط لا توجد في نطاق بل يتم إنشائها ثم مسحها '------------------------------------------------------------------------------------------ Dim LastRow As Long, Rng As Range, Header, Criteria, I As Long 'بدء التعامل مع ورقة النتائج المطلوب فيها فرز البيانات With Sheets("التقرير") 'تعيين آخر صف به بيانات في ورقة البيانات الرئيسية LastRow = Sheets("التوريدات").Cells(Rows.Count, "A").End(xlUp).Row 'وضع عناوين الشروط Header = Array("وارد لقطاع", "الصنف", "اسم المورد", "رقم LPO") 'تحديد النطاق الذي ستوضع به الشروط Set Rng = .Cells(1, Columns.Count).Offset(, -UBound(Header)).Resize(, UBound(Header) + 1) 'النطاق يساوي عناوين الشروط Rng.Value = Header 'تعيين الشروط في الخلايا المحددة داخل المصفوفة Criteria = Array("B2", "B3", "H2", "H3") 'حلقة تكرارية للشروط For I = LBound(Criteria) To UBound(Criteria) 'إذا كانت الخلية التي بها الشرط فارغة يتم إضافة علامة لا يساوي وإلا يظل الشرط كما هو Criteria(I) = IIf(.Range(Criteria(I)) = "", "<>", .Range(Criteria(I))) Next I 'النطاق الذي ستوضع به الشروط في الصف التالي توضع به الشروط الجديدة Rng.Offset(1).Value = Criteria 'التعامل مع ورقة البيانات الرئيسية لعمل التصفية المتقدمة Sheets("التوريدات").Range("A4:I" & LastRow).AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=Rng.CurrentRegion, _ CopyToRange:=.Range("A4:H4"), Unique:=True 'مسح النطاق الذي تم وضع الشروط به Rng.CurrentRegion.ClearContents End With End Sub أرجو أن يكون الكود مفيد تقبل تحياتي Advanced Filter Without Criteria Table.rar

اليك هذا الملف للعمل عليه (فقط نموذج) تستطيع لتعديل في البيانات في الصفحة رقم 2 كود المدن.rar

زيادة في اثراء الموضوع النتيجة بواسطة الماكرو انظر الى (Feuil1 (2 المسافة salim (macro).rar

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

أخي العزيز عزيز البيانات راحت تفطر عشان كانت صايمة طول النهار وهيست ههههه يمكنك الدخول لمحرر الأكواد ومن نافذة المشروع ستجد أوراق العمل .. ورقة العمل التي تقصدها مخفية يمكنك إظهارها من نافذة الخصائص من خلال الخاصية Visible اختر الخيار XlsheetVisible وها هو الملف المرفق وبه ورقة العمل المخفية تقبل تحياتي وهزاري Codes Library.rar

بعد اذن السادة علماء المنتدى العظيم تم التعديل لتظهر كل قائمة حسب حجمها الخاص بها وكل عام وانتم بخير المصنف1.rar

بارك الله فيك استاذ مارد اخي طارق : انظر المرفق وهناك زر امر لماتريد ! تنبيه : 1. تم وضع التسلسل مفتاح اساسي 2. لاحظت ان هناك قيم تتكرر لذلك يمكنك : الذهاب لخصائص هذا الحقل ثم وضع خاصية القيمة الافتراضية لماتريد فيتم ادخالها تلقائيا وعند كل سجل جديد 3. انصحك بالادخال عن طريق النموذج المنقسم الاسفل فهو اسرع للادخال Private Sub comd_Click() 'رمهان 'اوفيسنا DoCmd.GoToRecord , , acFirst xn = 1 For i = 1 To Me.RecordsetClone.RecordCount Step 5 For ii = 1 To 5 If CurrentRecord = Me.RecordsetClone.RecordCount Then: Me.رقم_الظرف = xn: Exit Sub Me.رقم_الظرف = xn DoCmd.GoToRecord , , acNext Next ii xn = xn + 1 Next i End Sub بالتوفيق 1.rar

جزاك الله خيراً أستاذ ياسر وزادك الله بسطة في العلم ونفعنا من علومكم

السلام عليكم: لدى موضوع سابق به دالة التفقيط برجاء الاطلاع عليه فى المشاركة التالية http://www.officena.net/ib/index.php?showtopic=61867#entry399895 ارجو الاطلاع عليها لعلكم تجدوا فيها ضالتكم كما واتمنى ان برسل لى الاستاذ محمد صالح كود ال PHP المذكور لاجرب تحويله الى VBA

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

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

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

استاذنك اخى رمهان فى المشاركة معك اخى الكريم لم يتسنى لى تنزيل المرفقات لعزرا خارج ارادتى اما بالنسبة لكود الترقيم 'فرضنا متغير من نوع رقم Dim m As Integer 'ثم قلنا بان هذا المتغير يساوى مجموع السجلات مقسوما على 5 'ثم استعملنا دالة من الدوال الرياضية ليعطينى ناتج القسمة عددا صحيحا ثابتا m = Int(DCount("[id]", "tb1") / 5) 'ثم قلنا اذا كان ناتج القسمة اقل من واحد فاجعل مربع نص الترقيم = 1 ' ولن يكون ناتج القسمة اقل من 1الا اذا كان القسمة من 1 الى 5 If [m] < 1 Then Me.id = 1 'ثم اذا قلنا اذا كان ناتج القسمة = 1 فاجعل مربع نص الترقيم = 2 ' ولن يكون ناتج القسمة = 1 الا اذا قسمنا ال 5 على نفسها ElseIf [m] = 1 Then Me.id = 2 'ثم اذا كان ناتج القسمة اكبر من او يساوى 1 ElseIf [m] >= 1 Then 'فاجعل الترقيم يكون حاصل القسمة عددا صحيحا مضافا له 1 ليبدأ الترقيم Me.id = Int(m) + 1 End If وبذلك نكون ايضا حللنا مشكلة حذف سجل ليعيد الترقيم نفسها ذاتيا ويمكنك وضع هذا الكود فى حدث بعد التحديث لمربع نص اخر مثلا تحياتى

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

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

الإخوة الكرام كل عام أنتم بخير أنا لا أتأخر عن أحبابي إذا كان المطلوب في استطاعتي وللعلم لا أملك أي ملف للتفقيط بدون كود الذي أملكه هو هذا الملف للتفقيط العربي والإنجليزي بخيارات متعددة وهو للأكسس والإكسل ArEnTafkeet.rar

السلام عليكم ورحمة الله وبركاته شكراً لك أخي الفاضل ========== لمزيد من الفائدة يوجد في المنتدى موضوع من عمل الاستاذ محمد صالح وهو باللغة العربية وهذا رابطه http://www.officena.net/ib/index.php?showtopic=40108&hl=

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

واليك هدا المثال في الفورم بعد اذن الاستاذ طلعت محمد حسن لعله يكون طلبك مثال .rar

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

إخواني الكرام كي لا تضيع الكنوز إليكم أفضل ملف رأيته في موضوع التفقيط من وجهة نظري وهو للأخ الكريم أسامة البراوي حفظه الله ورعاه وسدد خطاه وجعل أعماله في ميزان حسناته يوم القيامة :fff: :gift2: والملف يشمل اللغة العربية والإنجليزية .. Tafket OB.rar

بارك الله فيك مشكور أخي

ما شاء الله تبارك الله ررررررررررررائع

إليك أخى المطلوب والمعادلة معادلة صفيف أى لابد من الضغط على " ctrl+shift+enter " لكى يتكون هذان القوسان فى بداية ونهاية المعادلة " { } " {=INDEX($C$2:$C$6757,MATCH(1,IF($A$2:$A$6757=$F$8,IF($B$2:$B$6757=$H$8,1)),0))} تقبل تحياتى إرجاع قيمة بالعديد من الشروط.rar

للحصول على أكبر سعر إليك المعادلة التالية =IF(ISERR(LARGE(IF($K$8:$K$130=B8,$L$8:$L$130,""),1)),"",LARGE(IF($K$8:$K$130=B8,$L$8:$L$130,""),1)) لا تنسى أنها معادلة صفيف

اخى خالد شرح جميل وممتع بارك الله فيك فى انتظار رؤيه الفكره 8 وهل هى التى ف بالى أم لا تقبل تحياتى

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

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

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

أخي الحبيب قمت بمراجعة الملف مرة أخرى ووجدت أن النتائج صحيحة ؟؟ لو تكرم أحد الأخوة بمراجعة النتائج وموافاتي بالنتيجة ؟؟؟ هل أدى الملف الغرض أم لم يؤدي ؟ تقبلوا تحياتي

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