محمد ابراهيم 78 قام بنشر أكتوبر 25, 2017 قام بنشر أكتوبر 25, 2017 السلام عليكم ارجوا المساعدة في كيفية عمل كود لحساب مجموع فواتير صادرة قي تواريخ مختلفة وعند كتابة اسم الشهر والسنة يقوم بحساب مجموع الفواتير في ذلك الشهر المرفق يوضح المطلوب مع الشكر الجزيل مثال.rar 1
طارق محمود قام بنشر أكتوبر 26, 2017 قام بنشر أكتوبر 26, 2017 السلام عليكم أخي اكريم المطلوب بسيط لايحتاج أكواد تفضل المرفق بالمعادلات مثال1.rar 2
mahbob قام بنشر أكتوبر 26, 2017 قام بنشر أكتوبر 26, 2017 سلمت يداااك استاذ طارق محمود أفادك الله بعلمك وجعله في ميزان حسناتك بعد اذن حضرتك .. لو عاوز بقى مجموع السنه كلها اعمل ايه ؟
محمد ابراهيم 78 قام بنشر أكتوبر 27, 2017 الكاتب قام بنشر أكتوبر 27, 2017 شكراً جزيلاً .... أستاذ طارق وبارك الله فيك ...
طارق محمود قام بنشر أكتوبر 29, 2017 قام بنشر أكتوبر 29, 2017 في 10/26/2017 at 21:13, mahbob said: سلمت يداااك استاذ طارق محمود أفادك الله بعلمك وجعله في ميزان حسناتك بعد اذن حضرتك .. لو عاوز بقى مجموع السنه كلها اعمل ايه ؟ السلام عليكم أخي الكريم في حال السنة إخترت لك معادلة أخري تفضل المرفق مثال2.rar 1 1
mahbob قام بنشر أكتوبر 30, 2017 قام بنشر أكتوبر 30, 2017 جــزاك الله خـيراً أستـاذ طـارق محـمـود لـــك منى خــالص الاحــتـرام والتـقـديـر
mahbob قام بنشر أكتوبر 30, 2017 قام بنشر أكتوبر 30, 2017 استاذي الفاضل طارق محمود حضرتك انا دلوقتى نفذت شرحك على شيت عندى بس لو بصيت حضرتك على صفحة العميل "" محمد عوض على على "" هتلاقى ان كل سنه علية مبلغ ف بالتالى اللى لاحظته ان المعادله بتجمع المبالغ للسنة اللى بتحددها فى تواريخ متعدده مش بترحل مبلغ واحد بس فى السنه كلها الحل ايه ؟ مرفق ملف للتوضيح mahbob.rar
طارق محمود قام بنشر أكتوبر 31, 2017 قام بنشر أكتوبر 31, 2017 وعليكم السلام أخي الكريم في المرفق الذي أرسلته أنت وفي صفحة العميل "" محمد عوض على على "" ستجد أنك أدخلت بالخلية A10 ,A12 توارخ خاطئة30/02/2018 و30/02/2019 فمن المعروف أن شهر فبراير ليس به اليوم 30 عدلها إلي 28/02/2018 و 28/02/2019 ستجد المعادلة مضبوطة مرفق الملف بعد التعديل حسابات العملاء2.rar 2
mahbob قام بنشر نوفمبر 2, 2017 قام بنشر نوفمبر 2, 2017 في ٣١/١٠/٢٠١٧ at 14:33, طارق محمود said: وعليكم السلام أخي الكريم في المرفق الذي أرسلته أنت وفي صفحة العميل "" محمد عوض على على "" ستجد أنك أدخلت بالخلية A10 ,A12 توارخ خاطئة30/02/2018 و30/02/2019 فمن المعروف أن شهر فبراير ليس به اليوم 30 عدلها إلي 28/02/2018 و 28/02/2019 ستجد المعادلة مضبوطة مرفق الملف بعد التعديل حسابات العملاء2.rar استاذى الفاضل طارق محمود انا عاجز عن الشكر فأنا غاوى العمل مع الاكسيل ولكنى لم ادرسه ومن حضرتك اتعلم فلك جزيل الشكر والتقدير إن ساعدتى فى ترحيل هذه المبالغ لصفحة الجرد فأنا طرحت موضوع عن هذا سابقاً ولكن كان أكثر تعقيدا قبل ان تأتى هذه الفكره ببالى وهى تجميع كل المبالغ المتبقيه ع العميل لكل سنه وبمساعده حضرتك ومجهوداتك تم ذلك ، وبذلك يكون الترحيل اسهل من السابق .. فأريد ترحيل اسماء كل العملاء والمبالغ المتبقة عليهم من الاعمده التى جمعناها فى شيت الجرد فرجاء من حضرتك المساعده ولو بالقليل وجزاك الله خيراً يوجد ملف مرفق يحتوى ع المطلوب ترحيل.rar
طارق محمود قام بنشر نوفمبر 4, 2017 قام بنشر نوفمبر 4, 2017 وعليكم السلام أخي الكريم مرفق حل سريع بدون أكواد (معادلات فقط) ولتجنب الأخطاء نقلت صفحة الجرد للملف الرئيسي مع عمل لينكات للصفحة الرئيسية تفضل المرفق حسابات العملاء2.rar 1
mahbob قام بنشر نوفمبر 4, 2017 قام بنشر نوفمبر 4, 2017 أستــاذى الفـاضـل طـــارق محـمــود لــك منى كـل الاحتـرام والتقـدير ،، وانا عـاجـز عـن الشـكـر العـمل الذى قــدمتـه رائع فـوق العــــاده ولكن هـناك مشكلة واحـده "" ان هـيبقى فـيه 300 عـميل وأكـثـر فى شيت حسابات العـملاء فـمن المجهـد انى اكتب كـل هــذه الاسماء مع التـدقـيق فى كـيفـية كـتابة الاسـم بالطـريقة السليمة حتى يتـم ترحـيل المبالغ المتبقـية عليهم لكـل سنه "" فرجاء من حضـرتـك ايجـاد حـل انى مكـتبش الاسماء دى كلها من تانى وانا شـاكر لمجهـود حضـرتـك وأسـف للإطـاله عـليك لضـيق وقـتـك
طارق محمود قام بنشر نوفمبر 5, 2017 قام بنشر نوفمبر 5, 2017 السلام عليكم اخي الكريم الكود التالي صغير يمكنك استخدامه لأي ملف قبل تشغيل الكود ، يجب ان تكون الخلية التي تقف عليها (الخلية النشطة) تقع في مكان يليه عمودين فارغين Sub Sheets_Name() For I = 1 To Sheets.Count ActiveCell.Offset(I, 1) = I ActiveCell.Offset(I, 2) = Sheets(I).Name Next End Sub سينتج من الكود ارقام الشيتات في عمود واسماؤها في العمود التالي مهما كان عدد الشيتات 1
mahbob قام بنشر نوفمبر 7, 2017 قام بنشر نوفمبر 7, 2017 (معدل) أستـاذى الفاضـل طــارق محـمـود سـلام الله عـليك ورحـمته وبركاته أنا اعـجـز عـن الشكـر ،، جــزاك الله خـيراً ،، وجعـلك الله من أهــل الجــنه تم عـمل الكـود بنجـاح ولكـن هـل من الممكـن التعـديل فى الكـود انى استـدعى اسماء الصفحـات ما عــدا صفحة معـينه ولا لأ وجـزاك الله خـيراً مراراً وتكـراراً دون كـلل ولا مـلل فهـذا أقـل ما يمكـن تقـديمة لحـضـرتـك وأسـف للإطـالة عـلى حـضـرتك تم تعديل نوفمبر 7, 2017 بواسطه mahbob
طارق محمود قام بنشر نوفمبر 7, 2017 قام بنشر نوفمبر 7, 2017 " هـل من الممكـن التعـديل فى الكـود انى استـدعى اسماء الصفحـات ما عــدا صفحة معـينه ولا لأ ؟" طبعا ممكن ، عدل الكود كالتالي: Sub Sheets_Name() For I = 1 To Sheets.Count If Sheets(I).Name = "AA" Then GoTo 10 ActiveCell.Offset(I, 1) = I ActiveCell.Offset(I, 2) = Sheets(I).Name 10 Next End Sub بفرض أن الشيت الذي لاتود إستدعاء إسمه هو "AA" لاحظ إضافة السطر If Sheets(I).Name = "AA" Then GoTo 10وكذلك إضافة الرقم 10 للسطر 10 Next 1
mahbob قام بنشر نوفمبر 7, 2017 قام بنشر نوفمبر 7, 2017 4 ساعات مضت, طارق محمود said: " هـل من الممكـن التعـديل فى الكـود انى استـدعى اسماء الصفحـات ما عــدا صفحة معـينه ولا لأ ؟" طبعا ممكن ، عدل الكود كالتالي: Sub Sheets_Name() For I = 1 To Sheets.Count If Sheets(I).Name = "AA" Then GoTo 10 ActiveCell.Offset(I, 1) = I ActiveCell.Offset(I, 2) = Sheets(I).Name 10 Next End Sub بفرض أن الشيت الذي لاتود إستدعاء إسمه هو "AA" لاحظ إضافة السطر If Sheets(I).Name = "AA" Then GoTo 10وكذلك إضافة الرقم 10 للسطر 10 Next استاذى الفاضل طارق محمود جميع كلمات الشكر والتقدير لا توفيك حقك ،، أسأل الله العظيم رب العرش العظيم أن يعظم أجرك ويجعلك من عباده المخلصين ،، جزيت خيراً أستاذى الفاضل
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.