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

السلام عليكم ورحمة الله وبركاته ****************** نويت بإذن الله تعالى - والله الموفق - أن أقوم بالبدء في هذا المشروع الكبير الذي أطلقت عليه اسم (مكتبة الصرح .. زاخرة بالشرح) بحثت عن ملف الأستاذ الكبير عبد الله باقشير (محفظة الأكواد) للعمل عليه .. ** رجاء من الأخ عبد الله .. إضافة للفورم في هذا الملف أن تكون عملية البحث غير مقتصرة على عناوين الأكواد فقط ، بل تشمل عمليه البحث الـ ListBox الذي يحوي الأكواد نفسها ، وكذلك صفحة التعليمات ، حتى يسهل فيما بعد على الباحث أن يصل لمراده بسهولة .. الأمر مختلف قليلاً عما قدم من قبل ، إذ أن الأكواد ستكون مصحوبة بالشرح (على قدر استطاعتي ) ولمن أراد أن يزيد على الشرح فليفعل ولا يتردد.. من هنا بإذن الله ستكون الإنطلاقة الكبرى نحو المشروع الكبير .. وسأحاول جاهداً أن أبدأ عملية بناء المكتبة بشكل منظم يسهل على الباحث فيما بعد الوصول للكود الذي يرغبه ، ويعرف كيف يقوم بتطبيق الكود بنفسه دون الحاجة لغيره .. يعني مبدأ الاعتماد على النفس في تطبيق الأكواد.. وإليكم الملف المرفق به 5 أكواد فقط مدعومة بالشرح منها 3 اكواد بسيطة ، وكود صعب قليلا ، ودالة معرفة UDF كنقطة بداية .. ملحوظة الأكواد مدعومة بالشرح في صفحة التعليمات . أرجو أن ينال رضاكم ... ولا تنسوا التصحيح والتنقيح إخواني أولاً بأول ، حتى يخرج العمل في النهاية بشكل لائق يليق بمنتدانا .. يليق بالصرح العملاق ولذا أسميت المشروع (مكتبة الصرح والصرح المقصود به منتدانا الغالي .. وإن شاء الله تكون المكتبة زاخرة وممتلئة بالشرح بعون الله وتوفيقه ثم بجهودكم ومساندتكم للمشروع) Codes Library.rar

مشكور أخي الغالي أبو تراب على مرورك العطر .. بس دخلت بايدك فاضية ..دا كلام يعني !! المرة الجاية تجيب معاك كيلو برتقال وكيلو مانجا ..مش هنتقل عليك كفاية من حضرتك 50 أو 60 كود بس :yes: بارك الله فيك أخي الحبيب ..تقبل تحياتي :fff:

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

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

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

اخي ياسر الدالة في MsgBox ليست صحيحة للاسف يجب ان تكتب هكذا ((4,3-) Msgbox (mod ثانياً لتثبيت نظريتي اليك هذا المرفق الدالة mod.rar

أخي سليم جرب الكود التالي : MsgBox -4 Mod 3 وقولي بقا بيل جيتس بيسعتبط ولا إحنا اللي مش فاهمين حاجة

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

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

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

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

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

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

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

بتوشوش في اوذانه بتقوله ايه انا سمعي ثقيل شوي مشكور على العمل و المجهود

حبيبى الغالى ابن مصر الاستاذ احمد يشرفنى يكون اول رد منك وهقولك على سر لك انت لوحدك لو عايز تفتح البرنامج قبل الساعه 12 قرب ودنك كدا غير تاريخ الجهاز الى 1-1-2015م هيفتح معاك واوعى تقول لحد ههههههههههههههههه تقبل منى وافر الاحترام والتقدير

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

وبعيدا عن معادلات الصفيف أستخدم هذه المعادلة أيضا ستحقق المطلوب =VLOOKUP("*"&RIGHT(B8,5),$H$9:$I$15,2,0) تقبلوا تحياتى

تفضل حسب الشرط الاخير لا يتم تغيير اي شيئ ملفات مرفقة Lens Test.rar 8.89كيلو 1 عدد مرات التحميل

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

وهذه طريقة اخرى بالاكسل كقاعدة عامة للحصور على بافي قسمة a على b فأن: a mod b =a-b*INT(a/b) مثال: باقي قسمة -4 على 3 =-4-3*INT(-4/3)

أخي الحبيب أبو بلقيس أنا مش مدرس رياضيات ، لكن تعال ناخد الموضوع ببساطة كدا وبالبلدي ... الدالة MOD تأتي بباقي القسمة بعد الحصول على رقم صحيح يعني لو قلنا : =MOD(14,3) الناتج هيكون 2 ..إزاي؟ الرقم 3 دا الرقم المقسوم عليه .. لو جبنا مضاعفات الرقم وقلنا : 3 - 6 - 9 - 12 - 15 - 18وهكذا ، ونشوف الرقم بتاعنا بيقع فين ؟ بيقع بعد الـ 12 وقبل الـ 15 .. نشوف أصغر رقم في المضاعفات اللي هو رقم 12 ونجري عملية حسابية بسيطة جداً (الرقم الهدف - أصغر رقم من المضاعفات) يبقا الناتج هيكون (14 - 12 ) = 2 إذاً الناتج هو 2 ****** نيجي بقا للسالب يا كبير نشوف مضاعفات الرقم المقسوم عليه اللي هو 3 .. هنلاقي : 3 - 6 - 9 - 12 - 15 - 18 وهكذا ، ولأن الرقم الهدف بالسالب يبقا هنخلي المضاعفات بالسالب يعني -3 ، -6 ، -9 ، -12 ، -15 طيب نرجع للمعادلة الخاصة بك ونشوف مع بعض : =MOD(-4,3) الرقم الهدف -4 طيب الرقم الهدف بيقع بين -3 ، -6 صح كدا ..نشوف أصغرهم ..أصغرهم رقم -6 وليس -3 خلي بالك لأن السالب في خط الأعداد بيتجه ناحية الشمال فالصفر أكبر من -1 ، والـ -1 أكبر من -2 وهكذا ..بكدا يكون -6 أكبر من -3 .. نأتي لأهم خطوة (الرقم الهدف - أصغر رقم من المضاعفات) دي المعادلة اللي اتفقنا عليها =-4-(-6) فالناتج يكون 2 أرجو أن أكون وفقت في توصيل المعلومة .. وأعتذر لمدرسي الرياضيات إن كنت أخطأ في فهمي

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

السلام عليكم بعد اذن الاستاذ القدير سليم حاصبيا اليك معادلة اخرى اقل ابداعا من معادلة استاذى الحبيب سليم {=VLOOKUP(B8;IF(ISNUMBER(SEARCH($B8;$H$9:$H$16;1));$H$9:$I$16;"");2;0)} تقبل تحياتى تاريخ الميلاد.rar

بالنسبة لاختلاف الاسم استبدل في المعادلة B8 بـ (TRIM(B8

اكتب هذه المعادلة في الخلية C8 و اسحب نزولااً =IF(ROWS($C$8:C8)>COUNTA($H$9:$H$100),"",IFERROR(INDEX($I$9:$I$100,MATCH(B8,$H$9:$H$100,0)),"غير موجود"))

السلام عليكم اخى الكريم هل تقصد هكذا تاريخ الميلاد.rar

السلام عليكم اذا كان النموذج منفرد (من اعدادات النموذج يمكنك ان تضعه في الوسط وليس في وسط الشاشه) اما اذا كان النموذج مدمج ب نموذج اخر فانك تختار المكان المناسب له عند عمليه التصميم ولو عززت سؤالك بمثال لتسنى للاخوه الاجابه عليك بشكل عملي ولعلمنا ما تريد بالضبط بالتوفيق

تفضل أخى الكريم لاحظ التعديل كشف المناداة.rar

أنا لست خبيرة بالاكسل ومعادلاته ولكني أعمل مدرسة رياضيات باقي القسمة يجب أن يكون صفرا أو عدد صحيح موجب لذلك ناقص اربعة تقسيم 3 يكون الناتج ناقص اثنين والباقي 2 اذا MOD(-4;3)=2 True

جرب الكود التالي ليعمل مع أي خلية نشطة Sheets("Sheet1").Range("" & Mid(ActiveCell.Address, 2, 1) & "" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select

أخي الحبيب جرب الكود التالي هذا للعمود A يمكنك تغيير العمود كما تريد Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select

تفضل أخي الكريم تم عمل المطلوب في أوامر التوريد والصرف وضع السريال الذي تريده ، وأخبرني بالنتيجة . ملحوظة : أخي الكريم حتى يعمل معك الكود بانتظام ضع رصيد أول المدة للوارد أو المنصرف واكتب التاريخ ورقم 1 مثلا ولو مفيش رصيد اول مدة اكتب في الخلية a4 و الخلية b4 أي حاجة وليكن * مثلا الخلاصة لازم قبل ما تبدا تشتغل بالكود تملأ الخلية a4 و b4 بأي حاجة . تقبل تحياتي خزينة11.rar

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

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

أخى الفاضل / يجيــــاوى سلام الله عليكم كما أنتم دائمـــا..أدام الله عليكم نعمة العلم بعد إذنكم قمت بوضعهم جميعا فى ملف واحد Freeze CommandButton.rar

كود لفتح و ارجاع قارئ الاقراص Open Close CD Door.rar

كود جميل ولكن لو سمحتم ضعوه في ملف لزياده الفائده

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

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

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