Eid Mostafa

للرفـــــــــــــــــع

الأخوة الأعزاء ======= السلام عليكم ورحمة الله وبركاته ،،،،، برجاء التكرم بتطبيق فكرة كود الطباعة (محدد المدى) والموجود بملف (EXAMPLE) والذى ومن خلاله يتم طباعة الأسطر التى تحتوى على بيانات فقط وإستبعاد الفارغة. حيث أريد تطبيقة على الملف الآخر والمسمى (Edit Print) وذلك فى النطاقات التاليه:- أولاً : النطاق من A5 : U93 وأن تكون العبرة فى ذلك إحتواء العمود U على بيانات (بمعنى أنه فى حالة تطبيق الكود بشكل صحيح فبناءاً عليه سيتم طباعة المدى من A1 : U88 ثم كذلك أيضاً المدى من من A94 : U96) ثانياً : النطاق من A104 : U117. ثالثاً : النطاق من A128 : U141. ملاحظة هامه : ستلاحظون فى النطاقات أعلاه بأننى قد قمت بتثبيت رأس وتذييل كل جدول وللتوضيح أكثر فقد قمت بتحديدهم بالأسهم فى الملف المرفق. أرجو أن أكون وفقت فى شرح ما أقصدة. ============ خالص شكرى وتقديرى أخوكم عيد مصطفى Edit Print.rar EXAMPLE.rar

الأخوة الأعزاء ======= السلام عليكم ورحمة الله وبركاته ،،،،، برجاء التكرم بمساعدتى فى إستكمال (تعديل) معادلة "If" بالملف المرفق لإحتساب إهلاكات الأصول الثابتة بشكل شهرى والأمر يتلخص فى التالى :- لقد قمت بإدراج معادلة "If" بالملف المرفق وذلك لإحتساب إهلاك كل بند من بنود الأصول الثابتة على حده ووفقاً لنسبة الإهلاك الخاصه بذلك البند. ولكن واجهتنى مشكلة أرجو من الأخوة والأساتذة الخبراء التكرم وإفادتى لحلها حيث أريد ألا يتخطى مجمع الإهلاك (عمود AA) قيمة الأصل نفسه (عمود E) كما هو حاصل حالياً علماً بأن (عمود AA) هو حاصل جمع (عمود Y) ويمثل رصيد مجمع إهلاك الأصل للسنوات السابقة و (عمود W) والذى هو حاصل جمع إهلاك الإثنى عشر شهراً (الأعمدة من J : U). لذا أرجو منكم التكرم بتعديل معادلة "If" (بالأعمده من J : U) بحيث على سبيل المثال يتم إحتساب إهلاك شهر يناير طالما أن رصيد مجمع الإهلاك لم يتخطى قيمة الأصل نفسه ، ثم فبراير ، ثم مارس وهكذا إلى أن يتم إدراج المتمم فى آخر شهر وفقاً للرصيد. مثـــــــــــــــــال :- سطر رقم (5) إهلاك سيارة مرسيدس ستلاحظون أن المعادلة أتت بمجمع إهلاك يفوق قيمة الأصل (خليه AA5) وذلك لأن المعادله الموجوده بالأشهر إستمرت فى إحتساب الإهلاك حتى ديسمبر فى حين كان يجب التوقف عند شهر (يوليو) وإدراج المتمم للقيمة وقدره (16000.79) فقط فى شهر (يوليو) بدلاً من القيمة المحتسبة حالياً ، وعلى أن يلى ذلك ألا يكون هنالك إهلاك لهذا البند فى الأشهر اللاحقه أى من (أغسطس : ديسمبر) أى تظهر بقيمة (صفر). أرجو أن أكون وفقت فى شرح ما أقصدة. ============ خالص شكرى وتقديرى أخوكم عيد مصطفى If Correction 3.rar

أخى الكريم / عمرو ================ السلام عليكم ورحمة الله وبركاته ،،،،، بداية أشكرك على إهتمامك وتجاوبك مع سؤالى وبالفعل أخى الكريم هذا ما قصدته تماماً :fff: :fff: ============ خالص شكرى وتقديرى أخوك عيد مصطفى

الأخوة الأعزاء ======= السلام عليكم ورحمة الله وبركاته ،،،،، برجاء التكرم بمساعدتى فى إستكمال (تعديل) معادلة "If" بالملف المرفق لإحتساب عمولة تحويل الأموال بأحد البنوك والأمر يتلخص فى التالى :- 1- نسبة العمولة 2 فى الألف (بحد أقصى 150 جنية ، وبحد أدنى 10 جنية) 2- يُضاف للناتج أعلاه م. سويفت 28 جنية ، م. بريد 20 جنية. (بغض النظر عن القيمة الناتجه بأعلاه) ستلاحظون أنى قمت بعمل المعادله ولكنى توصلت للنصف الأول فقط من النقطه رقم (1) مضافاً إليها النقطه رقم (2) ولكنى لم أتمكن من تطبيق النصف الثاتى من النقطه الأولى (الحد الأدنى) فبرجاء التكرم بإستكمال أو تصويب المعادله لتحقيق الشرطين معاً. أرجو أن أكون وفقت فى شرح ما أقصدة. ============ خالص شكرى وتقديرى أخوكم عيد مصطفى If Correction 2.rar

أخى الحبيب والكريم / بن علية ================ السلام عليكم ورحمة الله وبركاته ،،،،، أخى الحبيب والله تعجز الكلمات عن وصف ما يجول بخاطرى تجاهك جعله الله فى ميزان حسناتك إن شاء الله (وجعل كلامى هذا بعيداً عن النفاق والرياء) هذا ما قصدته تماماً أشكرك دائماً وأبداً على إبداعاتك تلك كما أشكرك أيضاً على تفاعلك وتجاوبك الرائع معى ومع كل السائلين :fff: :fff: أعانك الله على أمور حياتك ، وبارك لك فى أولادك وفى رزقك وفى وقتك وفى عملك ============ خالص شكرى وتقديرى أخوك عيد مصطفى

أخى الحبيب والكريم / بن علية ================ السلام عليكم ورحمة الله وبركاته ،،،،، بالفعل أخى الحبيب هذا ما قصدته تماماً أشكرك دائماً وأبداً على إبداعاتك تلك كما أشكرك أيضاً على تفاعلك وتجاوبك الرائع معى ومع كل السائلين :fff: :fff: ============ خالص شكرى وتقديرى أخوك عيد مصطفى

أخى الحبيب والكريم / بن علية ================ السلام عليكم ورحمة الله وبركاته ،،،،، بداية أشكرك على إهتمامك بالرد وبالطبع لم أقصد أن أثقل عليك أخى الحبيب عذراً فأنا لم أقصد تلوين (العمود) ولكنى قصدت تلوين الخط نفسه (Font) إن كان ذلك ممكناً وبناءاً عليه فنحن نحتاج إلى (12) لون بعدد (الإثنى عشر شهراً) وليس (13) كما ذكرت أخى الحبيب إن كان بالأمر مشقه فلا عليك إطلاقاً. ============ خالص شكرى وتقديرى أخوك عيد مصطفى

أردت أن أبسط العملية ولكن !!! (لم أستطع إلا أن أنفذ 13 تنسيق شرطي على كل خلية من العمود)

أخى الحبيب والكريم / بن علية ================ السلام عليكم ورحمة الله وبركاته ،،،،، لقد قمت بإدراج معادلتك الرائعة بالملف المرفق بالعمود (U) وقد واتتنى فكره أرجو منك التكرم بمواصلة إبداعاتك والعمل على تنفيذها ألا وهى إدراج معادله بالتنسيق الشرطى بحيث يتم تلوين مسلسل كل شهر بلون مختلف بحيث على سبيل المثال يتم تلوين لون خط مسلسل يناير بلون (أخضر) ثم فبراير بلون (أصفر) .............. وهكذا حتى ديسمبر. ============ خالص شكرى وتقديرى أخوك عيد مصطفى Sequence.rar

أخى الحبيب والكريم / بن علية ================ السلام عليكم ورحمة الله وبركاته ،،،،، أشكرك على إهتمامك بالرد كما أشكرك على هذا التعديل الأكثر من رائع :fff: :fff: ============ خالص شكرى وتقديرى أخوك عيد مصطفى

أخى الحبيب والكريم / بن علية ================ السلام عليكم ورحمة الله وبركاته ،،،،، الملفان المرفقان هما نتاج أعمالك بما يحتويان عليه من معادلات أكثر من رائعة بالتنسيق الشرطى والتى ومن خلالها يتم تظليل أكبر و أصغر قيمة بالأخضر والأحمر على التوالى. ولكن لى طلب صغير أرجو منك التكرم بتعديله ألا وهو هل بالإمكان تعديل المعادلات بحيث يتم الإكتفاء بأول قيمة فقط وتلافى تكرار المتشابهات سواء أكبر أو أصغر قيمة. فعلى سبيل المثال بمعنى إن كانت أصغر قيمة هى (1) بتاريخ 15/1/2012 ثم تكررت نفس القيمة (1) فى تاريخ 28/3/2012 فيتم الإكتفاء بتظليل القيمة الأولى فقط (أى تلك التى بتاريخ 15/1/2012. كما ستلاحظ وبصورة جليه فى ملف Trading Investments - 2013 أنه قد تم تظليل أرصدة أول المدة كأكبر قيمة ونظراً لعدم وجود حركات على الحساب حتى تاريخة فقد تم تظليل كل ما بأسفل رصيد أول المدة وإعتباره أكبر قيمة أيضاً. فهل بالإمكان تلافى ذلك. ============ خالص شكرى وتقديرى أخوك عيد مصطفى Trading Investments - 2012.rar Trading Investments - 2013.rar

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

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

الأخوة الأعزاء ======= السلام عليكم ورحمة الله وبركاته ،،،،، بالملف المرفق كود رائع لمحاذاة القيم الصفرية بالمنتصف (وهو من روائع أخونا الحبيب المهندس / طارق محمود) وهو مطبق بالنطاقات (الأعمده) التاليه :- [C4:C96], [G4:M96], [P4:Q96], [C105:C120], [G105:M120], [P105:Q120], [C129:C144], [G129:M144], [P129:Q144] وفقاً للتنسيق التالى ( NumberFormat = "_(#,##0.00_);[Red]_((#,##0.00);_(--_);_(@_)" ) ما أريده تطبيق نفس المبدأ على العمودان "A" و "O" ولكن دون العلامة العشرية حيث أن هذان العمودان يعبران عن كميات أى أن يكون التنسيق بهما كالتالى ( NumberFormat = "_(#,##0_);[Red]_((#,##0);_(--_);_(@_)" ) أرجو أن أكون وفقت فى شرح ما أقصده. ============ خالص شكرى وتقديرى أخوكم عيد مصطفى Horizontal & Vertical Alignment (2).rar

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

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

الأخوة الأعزاء ======= السلام عليكم ورحمة الله وبركاته ،،،،، هل يمكن بالمعادلات إستخراج عدد أيام السنة ، مع ملاحظة السنة الكبيسه والتى تأتى كل 4 سنوات بمعنى أن عدد أيام 2010 كان 365 يوم وكذلك 2011 ، أما 2012 فعدد أيامها 366 أرجو أن أكون وفقت فى شرح ما أقصدة. ============ خالص شكرى وتقديرى أخوكم عيد مصطفى Year # of days.rar

أخى الحبيب / بن علية ========== السلام عليكم ورحمة الله وبركاته ،،،،، كم أنت مبدع كم أنت عبقرى أخى الحبيب والغالى أود أن أبلغك أن إقتراحى فى إستخدام دالة " Offset " أو " Indirect " هو كان على سبيل التخمين منى كما أدين لك بالفضل فى المقام الأول والأخير ، حيث وجدت أنك إستخدمتهما فى ردك على فى هذا الموضوع http://www.officena.net/ib/index.php?showtopic=42665&st=20#entry254257 ولكنى وكالعادة لم أستطع تطويع المعادلات الموجودة بذلك الملف لتأتينى بالمطلوب. وهذا هو الفارق بين الأستاذ والتلميذ مرة أخرى أشكرك على ردودك القيمة والتى تأتى دائماً بما أريدة ، إن لم يكن وأكثر. أعانك الله على أمور حياتك ، وبارك لك فى أولادك وفى رزقك وفى وقتك وفى عملك ============ خالص شكرى وتقديرى أخوك عيد مصطفى

الأخوه الأعزاء والأحباب للرفع رفع الله قدركم

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

الأخوة الأعزاء ======= السلام عليكم ورحمة الله وبركاته ،،،،، بالملف المرفق ستجدون بالخلية " D95 " معادلة هى " =-SUM'Detailed Trial Balance'!E18:E34 " لجمع قيم محددة من عمود " E " بشيت " Detailed Trial Balance " وعندما حاولت بالخلية " E95 " جلب القيم المماثلة عن شهر فبراير والتى موجودة بعمود " G " من نفس الشيت المذكور قمت بسحب المعادلة الموجودة بالخلية D95 إلى الخلية E95 فكانت النتيجة هى : =-SUM'Detailed Trial Balance'!F18:F34 " ثم قمت بطريقة بدائية " يدوية " بتغيير الـ F بـ G. فهل هنالك من معادلة بديلة أدق أو أكثر إحترافية تأتى بما أوضحتة أعلاه بطريقة مباشرة. ولتكن " Offset " أو " Indirect " على سبيل المثال. أرجو أن أكون وفقت فى شرح ما أقصدة. ============ خالص شكرى وتقديرى أخوكم عيد مصطفى Sum values ​​of a specific columns.rar

أخى الحبيب / أبو نصار ================ أحييك على إمدادنا بهذا الملف الأكثر من رائع ============ خالص شكرى وتقديرى أخوك عيد مصطفى

أخى الحبيب / طارق ============ إقتباس : [لايجوز عمل كودين بنفس الإسم في ملف واحد ، وإذا كان الموضوع خاص بأكواد حدث الورقة (مثل هذا الخاص بالتغيير في الورقة) فالأفضل دمجهما] أخى كيف يمكننى تلافى عمل الكودين بنفس الإسم فى ملف واحد وبالطبع لا أقصد أنى لا أستطيع تسميتة بإسم أخر ، ولكن ما أقصدة ماذا سيكون الإسم الآخر فى حالة الإضطرار لذلك. ما أقصدة أن الدمج يشترط أن يكون المدى (RANGE) متطابق ، فما العمل فى حالة عدم التطابق ... ؟؟ أرفق لك ملف أعتقد أو على الأقل بالنسبة لى أنه أصعب من الملف المرسل فى المرة السابقة وأرجو منك التكرم بإضافة كود محاذاة الأرقام بالمنتصف التالى :- Private Sub Worksheet_Change(ByVal Target As Range) Dim myRange As Range Set myRange = Union([b12:C408], [D12:D408]) If Intersect(Target, myRange) Is Nothing Then Exit Sub Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each ce In myRange If IsNumeric(ce) = False Then GoTo 1 ce.NumberFormat = "_(#,##0.00_);[Red]_((#,##0.00);_(--_);_(@_)" If ce.Value = 0 Then With ce .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With Else With ce .HorizontalAlignment = xlRight .VerticalAlignment = xlCenter End With End If 1 Next ce Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub ============ خالص شكرى وتقديرى أخوك عيد مصطفى Code Modify 2.rar

أخى الحبيب / طارق ============ أخى أشكرك على إهتمامك بالرد وتفاعلك مع الموضوع وعلى تعديلك الأكثر من رائع كما أشكرك على ملاحظتك القيمة ============ خالص شكرى وتقديرى أخوك عيد مصطفى