هادى محمد المامون سالم

111 زياره و احنا مستننين يا tag4m طيب بلاش المبتدأين أحنا مالناش نفس نستفيد السلام عليكم

شكرا يا خالد : الملف مرفق لم أقوم بتجربه البرنامج Fack_Folder.rar

بسم الله الرحمن الرحيم الاخوه الكرام سنتناول بالشرح فى هذا الجزء تفاصيل عن اشرطه الادوات قد نراها و لا نستخدمها و نستغل هذا الامر لاعداد برنامج للمصاريف الشخصيه 0 الدرس الاول برنامج المصروفات الشهريه و نبدأ بشرح القائمه List : هذا شريط الادوات تم اضافته على الاوفيس 2003 و دوره الاساسى هو انشاء قائمه من عدد من الاعمده و الصفوف تستطيع التعديل عليهم بالاضافه و الحزف كم تستطيع انشاء اكثر من قائمه فى ورقه واحده و عند التعديل فى سطر من القائمه لا تتاثر ورقه العمل , اما الميزه الاساسيه من وجهه نظرى هى انك اذا اضفت سطر فى وسط أو اخر القائمه و قد سبق لك انشاء معادله فانك لا تحتاج الى السحب حتى تستمر المعادله فى السطر التالى بل القائمه تقوم بذلك بشكل تلقائى دون تدخل منك 0 تعالوا نبدأ ببرنامج لحساباتك الشخصيه أفضل عند انشاء أى برنامج ان نخصص ورقه للتعريفات الثابته ( الاساسيه) بمعنى البنود الثابته التى لا يحدث عليها تغيير الا نادرا و تصبح هى المرجع الاساسى فى البرنامج حيث انك بمجرد ان تقوم بعمل أى تغيير فى هذه الصفحه يتم التغيير بصوره تلقائيه فى باقى الاوراق حيث أن باقى الاوراق مرتبطه بهذه الصفحه الرئيسيه , أما الامر الثانى الذى أفضله هو التعامل بالاكواد و عدم التعامل بالاسماء لعده اسباب اهما احتمال الخطأ اكبر فحرف ى الحاسب يعتبره لا يساوى حرف ي مثلا مع ملاحظه أن السرعه فى ادخال البيانات بالارقام تفوق بكثير ادخال البيانت بالاسماء بشكل كبير 0 سوف نبدأ بأنشاء الصفحه الاساسيه و سوف نسميها ID و سوف نضع ثلاثه عنواين بصفه مبدأيه و هم الكود البيان دمج الكود و لكن ماهى خانه دمج الكود هذه الخانه سوف تفيدنا فى ادخال البيانات و الغرض منها هو دمج خليه الكود مع خليه البيان فى خليه واحده بحيث يظهر لك الكود و بجواره الاسم و يتم عن طريق الامر CONCATENATE =CONCATENATE(A2;B2) و سوف ندخل بيانات أول سطر فقط مع ملاحظه عند تكويد البنود اجعل المصاريف تبدأ من 311 و الايرادات تبدأ من 411 حتى يصبح لديك مجال واسع لاضافه بنود جديده 0 انظر الصوره تعالوا الان نجرب عمل قائمه سنقوم أولا بتحديد المجال الذى تريد عمل قائمه له , فعليك التحديد من A1 الى c2 ثم اذهب الى Data List Creat List كما بالصوره تابع : أكمل ادخال البيانات كما بالصوره التاليه و و لادخال كود كديد يجب الوقوف على النجمه ( بمعنى انك يجب ان تكون داخل حدود الجدول ) و لاحظ ان خليه الدمج الموجوده فى عمود c يتم ملئها تلقائيا دون ان تقوم بالسحب كذلك اذا ادرجت صف جديد و هذه احدى مميزاتList السابق الحديث عنه 0 و هذا هو الشكل النهائى للقائمه و اترككم الى يوم الخميس ان شاء الله لتقوموا بتجربه الشرح 0 السلام عليكم

أعتقد المشكله فى هذا الكود Private Sub Workbook_deActivate() Application.CommandBars("Worksheet Menu Bar").Enabled = False End Sub غير هذا الكود بالكود التالى Private Sub Workbook_deActivate() Application.CommandBars("Worksheet Menu Bar").Enabled = True End Sub ثم شغل الماكرو و النتيجه مضمونه ان شاء الله

ارسله على الميل و سوف ارفعه بالمنتدى hs889@hotmail.com

ارفقت لك ملف Book1.rar

بالنسبه للسؤال الاول : اذهب الى tools Add Ins ضع علامه امام الاختيارات وقد يطلب منك السورس للاوفيس ثم اغلق الملف و اعد فتحه أو أكتب المعادله مره اخرى و ان شاء الله النتيجه مضمونه 0 بالنسبه للسؤال الثانى برجاء ارفاق الملف صاحب المشكله السلام عليكم

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

اخى الكريم : اعتقد ان افضل داله للتقريب الذى تقصده هى داله MROUND ضع 62.79 فى الخليه A1 و فى الخليه B1 ضع الكود التالى طالما انك تريد التقريب الى اقرب ربع ( 0.25) =MROUND(A1;0.25) و أخبرنى بالنتيجه

بصراحه حاجه عظيمه

اخى tag4m : اشكرك على مبادرتك الجميله و اضم صوتى لصوت اخى فلسطينى انظر الى عدد الزيارات 0 و سيرى يا نورمندى

جرب الرابط التالى http://www.officena.net/ib/index.php?showtopic=12408

عند الدخول على الوصله ظهرت الرساله التاليه Sorry, the page you are looking for does not exist. If you gained access to this page from one of Sky's other websites please use the related links to the right to rejoin the site you left. Thank you

اخى عمر : بصراحه برنامج جبار و شامل 0 لكن حاولت افك كلمه سر Rar و كانت مساحه الملف كبيره 90 ميجا و لكن لم يستطع سأحاول فى ماف ثانى 0 و لا أدرى باقى البرامج ح تعمل أيه , أعتقد سوف تفك كلمه سر القنبله الذريه 0 السلام عليكم

مشكور أخى smail_d على متابعتك و لكن ترقب المفاجأه الكبرى و سأعود بعدها ان شاء الله

اخى عمر انت (y) لكن لم ترد على السؤال الاول بخصوص الاخفاء

اخى عمر اعتقد المطلوب هو العدد و ليس البحث

تم ارسال البرنامج باسم كسر الحمايه <{POST_SNAPBACK}> لم يرسل حتى الان ارجو التأكد من الايميلasir07@hotmail.com <{POST_SNAPBACK}> فعلا عندك مشكله فى الميل

اخى عمر : نحاول نقترب قليلا من الحل و لكن يجب الرد بصراحه 1 - حجم الملف كبير جدا و لا يتناسب مع البيانات فالامر متعلق بشىء مخفى 0 2 - برجاء ارفاق ملف اخر مع تبديل كلمه me ب she او he مثلا علشان باقى العيله ماتزعلش لان كلمه me لها معنى و أهنأك على هذه المشاركه الجميله

السلام عليكم : أسف اخى الكريم أنى لم أفهم قصدك لولا تدخل أخى فلسطينى الداله التى تقوم بالبحث عن عدد الكلمات فى Microsoft Visual Basic هى Instr حيث تستخدم بغرض تحديد أول حرف فى الكلمه التى يتم البحث عنها داخل النص و اعاده رقم هذا الحرف داخل نص اخر تقوم بتحديده0 و صيغه هذه الداله : Variable = Instr(StartPos,SourceStr,SearchStr[,Compare]) Variable : يشير هذا المعامل الى متغير يتم تخصيصه لتخزين ناتج الداله StartPos : أول حرف سوف تبد أ منه الداله عمليه البحث SourceStr : مجال البحث SearchStr : الكلمه التى يتم البحث عنها Compare : معامل اختيارى لتحديد نوعيه لبحث فاذا كانت قيمه هذا المعامل = 0 فهذا معناه ان كلمه All لا تساوى all فاذا كانت قيمه هذا المعامل = 1 فهذا معناه ان كلمه All تساوى all وقد قمت بعمل برنامج لكن ب Microsoft Visual Basic و هو يعمل بطريقه جيده , ثم قمت بتحويله الى الاكسيل و لكن الامر يتطلب تغيير المجال يعنى شغلانه و المشكله فى الوقت 0 و لكن الحل السريع هو تحديد مجال البحث فى و رقه الاكسيل أولا ثم لصقه بطريقه ( Control + V) فى مجال البحث بالمثال المرفق ثم الضغط على Search فتظهر عدد الكلمات المكرره بمجال البحث و لكن يجب عدم ترك خانه كلمه البحث فارغه و الضغط على Search و أكرر يجب عدم ترك خانه كلمه البحث فارغه و الضغط على Search 0 و قد أرفقت الملف السلام عليكم Find.rar

أستاذنا أبو هادى : لا ادرى اذا كان هذا الرابط يؤدى الغرض ام لا http://www.officena.net/ib/index.php?showtopic=5899 السلام عليكم

تم ارسال البرنامج باسم كسر الحمايه

تم ارسال البرنامج باسم كسر الحمايه

كود الاخ كريم سليم لكن المشكله فى الفاصله كما اخبرك هذا هو الكود بعد تعديل الفاصله =IF(A1>=90;"امتياز";IF(A1>=80;"جيد جدا";IF(A1>=70;"جيد";IF(A1>=50;"مقبول";"راسب")))) السلام عليكم

أخى الكريم أذهب الى Tools Options ثم قم بالغاء العالمه كما بالصوره السلام عليكم