معتصم محمد

طريقة اخرى في حالة ان النطاق لا يبدأ بالخلية A1 بفرض انك تريد تظليل النطاق C5:H510 حدد الخلية C5 ثم اذهب الى Name Box "بجوار شريط صيغ المعادلات" ثم ادخل H510 ثم اضغط Shift + Enter

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

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

تفضل الحل في الملف المرفق في حالة انك تستخدم اكسل 2007 او ما هو احدث منه يمكنك إستخدام الدالة IfError بدلاً من تكرار المعادلة مرتين بالدالة IF دالة MID.rar

بفرض ان القيمة 0123456789 في الخلية d1 فيمكنك استخدام المعادلة التالية لإدراج كل رقم في خلية بالنطاق B1:b10 =MID($D$1;ROW(A1);1) وبفرض ان القيمة 96325874 في الخلية D2 ونريد ان تدرج كل رقم في النطاق A1:A10 نستخدم المعادلة التالية =MID($D$2;LEN($D$2)+1-ROW(A1);1) Book1.rar

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته شرح فيديو لكيفية حساب رصيد الاجازات السنوي وفقاً لما نص عليه قانون 12 عام 2003 من قانون العمل المصري إختصار للمادة القانونية يُستحق للعامل 21 يوم اجازة متى أمضى في العمل لدى الشركة عام كامل يزيد عدد الأيام من 21 يوم الى 30 يوم في حالة العمل لمدة 10 سنوات أو اكثر بالشركة بلغ العامل سن 50 عام [*]من لم يُكمل ستة شهور عمل لدى الشركة لا يستحق اية اجازات [*]من أكمل 6 شهور عمل لدى الشركة له الحق في الحصول على اجازات بنفس نسبة فترة عمله بالشركة [*]نظراً لأن المادة لم تحدد كيفية التعامل مع كسر اليوم فسأفترض ان الرصيد يتم تقريبه لأقرب يوم المصدر : من مدونتي Vacations Per Year.rar

يمكنك إستخدام الدوال Left لإستخلاص البيانات من بداية حتويات الخلية والدالة right لإستخلاص البيانات من نهاية محتويات الخلية بالنسبة للكمبو بوكس لا اعرف

بارك الله فيك استاذ / محمد مجهود رائع في ادراة وتنظيم الموقع جزاك الله كل خير

الاستاذ / حسام الهدف من حساب الإهلاك هو تحميل الفترات التي تستفيد من الأصل بجزء من تكلفة الأصل وفقاً للعمر الإنتاجي لهذا الأصل عملية حساب الإهلاك بشكل يومي -من وجهة نظري- ستكون عبء على المحاسب الذي يقوم بهذه المهمة خصوصاً في الشركات الصغيرة ومتوسطة الحجم، لذلك قم بمقارنة العائد من حساب الإهلاك بشكل يومي بالتكلفة التي ستبذلها (جهد و وقت) وهل قيمة قسط الإهلاك ستؤثر على نتيجة اعمال الشركة. بخصوص ما درسناه في الكلية فإن الهدف منه هو تدريب الدارس على مرعاة تحميل الفترة بما استفادته من الأصل وليس سنة كاملة عملياً -عامان من العمل في مجال الحسابات- لم ارى شركة تحسب الإهلاك بشكل يومي، لكم يتم ذلك كما اشرت في المشاركة السابقة من خلال حساب الإهلاك بالشهور، وبالتالي فلن نقع في مشكلة عدد ايام السنة 365 ام 360 لأنك حينها ستحسبها وفقاُ لعدد الشهور.

الأستاذ / حسام من وجهة نظري لا يتم حساب قيمة قسط الإهلاك بشكل يومي ولكن ستتم بشكل شهري، ففي مثالك ستجد ان عملية شراء الأصل تمت في اول الشهر لذلك سنحسب الإهلاك من اول شهر ابريل اي يوجد لدينا 9 شهور في هذا العام لذلك ستكون المعادلة 750 * 0.25 * 9 / 12 في حالة شراء الأصل مثلاً في 24 ابريل نعتبر عملية الشراء تمت في اول شهر مايو اي ستكون المعادلة 750 * 0.25 * 8 / 12 بالنسبة لعدد ايام السنة فهي 365 و ربع يوم و لكن محاسبياً نستخدم السنة التجارية ذات 360 يوم ( 12 شهر * 30 يوم ) يمكنك قراءة هذا الموضوع ستجد به العديد من وجهات النظر بخصوص حساب الإهلاك شهري / يومي http://www.jps-dir.com/forum/forum_posts.asp?TID=408

اللهم اغفر له وارحمه وأدخله فسيح جناتك وألهم أهله الصبر والسلوان

وعليكم السلام ورحمة الله وبركاته بالنسبة للسؤال الأول : يمكنك إضافة حقل ( عمود) أو صف به معادلات وذلك من خلال إختر اي خلية ضمن الجدول المحوري من قائمة Options (القائمة الشرطية التي لا تظهر الا في حالة تحديد اي خلية ضمن جدول محوري) ثم نختار الأمر Fields, Items, Sets ثم نختار Calculated Field في حالة انك تريد اضافة عمود أو اختر Calculated Item في حالة انك تريد اضافة صف بعد كتابة المعادلة التي تريدها اضغط Add ثم Ok لتجد ان العناصر الموجودة في ال items List قد زادت عنصراً وهو العمود المضاف بالنسبة للسؤال الثاني فعلى حد علمي لا يمكن لان الجدول المحوري ليس له شكل ثابت ( طول * عرض ) بحيث يمكن الوصول اليه وقد قمت بمحاولة إستخدام الإسم الخاص بالجدول المحوري مثلاً PivotTable1 في المعادلة ولكن المعادلة لم تتعرف عليه كذلك حاولت إعطاء اسم للنطاق Define Name ولكن المشكلة التي واجهتها هي في حالة تغيير شكل الجدول ( قمت بعمل فلتر لعنصر من العناصر ) ثم توجهت للإسم الذي أعطيته للنطاق وجدت ان الجزء الذي تم تحديده هو المساحة الكلية قيل عمل الفلتر قد يكون للإخوة الأعضاء حل لهذه النقطة بالتوفيق

اللهم أغفر لها وارحمها، وعافها واعفو عنها

أخي العزيز / الشهابي السؤال ماشاء الله ، ذكي ويدل علي تدقيق وتمحيص فعلا أنا سألت نفسي هذا السؤال من قبل ولم أجد إجابة فوضعت في ذهني إجابة افتراضية ،غير متأكد منها، وهي أنه المدي الديناميكي قد يمتد لخارج الملف بمعني أن تسمي مجالا في ملف آخر معتمدا علي بعض بيانات الملف الحالي والله أعلم اعتقد ان سبب عدم وجود المدى الديناميكي في مربع الأسماء Name Box نظراً لأن هذا المدى الديناميكي ناشئ نتيجة الدالة OFFSET والتي تعتبر ضمن الدوال Volatile Functions وهي الدوال التي يتم حساب نتيجتها في كل عملية جديدة تتم على الشيت / الملف وبالتالي فإن مربع الأسماء لا يسجل هذا الإسم لأنه لا يراه

بارك الله فيك استاذ طارق على هذا الموضوع الجميل ميزة المعادلة المستخدمة هي انها تعمل على النسخ القديمة 2003 و ما يليها طريقة اخرى لكنها تعمل من 2007 و ما يليها هي =ISEVEN(ROW()) وبالطبع يمكن تبديل ISEVEN ب ISODD و تبديل ROW ب COLUMN

الأستاذ يوسف يمكنك إستخدام جوجل للترجمة، فقد قمت بتحويل هذه الأسماء أحمد محمد عبد الرحمن علي جمال محمود رمضان سيف الدين محسن بيومي علوان محي الدين وهدان الى Ahmed Mohammed Abdul Rahman Ali Jamal Mahmoud Ramadan Saifuddin Mohsen Alwan Bayoumi Mohiuddin Wahdan

جميل جداً هذا التطبيق بارك الله فيك إستاذ محمد

ملف جميل استاذ محمد بعد إذنك هذا ملف يقوم بإظهار مربع حوار بناء على إختيار المستخدم دون الدخول لمحرر الأكواد MsgBoxFunction VBA Excel.rar

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

عمل جميل جداً استاذ / عبدالله بعد إذنك سأاحاول الإجابة يعتمد هذا الفورم في عمله على بعض المعطيات التي قمت حضرتك بتعيينها منها عرض الفورم والذي يمثل مساحة 26 حرف باللغة الإنجليزية (A-Z) وقبل الأحرف توجد مسافة وبعد الأحرف توجد مسافة، إذن يوجد لدينا 28 حرف أو وحدة نصية. لا يعمل الكود الا في حالة اضغط على الLable باللون الرمادي والذي يوجد به ال 26 حرف يوجد Label ثاني يمثل حرف باللون الأصفر ويتغير موضعه وفقاً لضغطة الماوس فكرة العمل حسبما فهمت ان الكود يقوم بتحديد موضع الضغط على label الرمادي (26 حرف) ويتم إسنادها للمتغير X وهي بذلك تمثل المحور الأفقي وعليه فإن المتغير Y يمثل المحور الرأسي بعد تحديد موضع ضغطة الماوس يتم تقريب هذه القيمة X لأقرب رقم صحيح بواسطة الدالة INT ويتم إسناد هذا الرقم الصحيح للمتغير i يتم تغيير قيمة ال label الخاص بالنص باللون الأصفر من خلال إضافة قيمة المتغير i (والتي ستتراواح ما بين 1-26) مع القيمة 65 والتي تكون داخل الدالة Chr وبذلك سيكون لدينا سلسلة نصية بحروف كبيرة CAPITAL تتغير بتغير موضع ضغطة الماوس هذا ما فهمته من الكود، اتمنى ان يكون فهمي صحيح أو انني استطعت إيصال ما فهمته بارك الله بك مرة اخرى استاذنا الفاضل وحفظك الله من كل مكروه

نسأل الله ان يشفي ويعافي اخونا الفاضل / عبدالله المجرب

بارك الله فيك اخي العزيز على الشرح الوافي بالنسبة لسؤالك عن الخطأ الحاصل عندي هو كما في الصورة اما بالنسبة لنظام التشغيل عندي فهو ويندوز 7 واستخدم اوفيس 2010 أستاذ عبدالقادر اعتقد ان الخطأ الذي تحصل عليه نتيجة استخدامك للمتغير على انه دالة، بمعنى انت قمت بتعريف المتغير FORMAT على انه من النوع Varient لكن في VBA توجد دالة اسمها Format تقوم بعمل تنسيق على قيمة محددة بالتنسيق الذي تريده ويكون إستخدام دالة التنسيق Format كما ذكر الأستاذ / محمد صالح Format(myValue, myFormat) Format(1234.5, 0.00) نتيجتها ستكون 1234.50

استاذنا / أحمد فضيلة عمل رائع بكل امانة اسأل الله ان ييسير لك سبل الرزق ويغنيك بالحلال ويجنبك الرزق الحرام، وان يبارك لك في علمك

إستخدم المعادلات التالية في الخلايا C2 & D2 ثم قم بنسخهم حتى نهاية المدى الذيس تريده المعادلة التي ستقوم بفصل الإسم هي =TRIM(MID(B2;FIND(" ";B2);LEN(B2))) المعادلة التي ستقوم بإستخراج الرقم هي =LEFT(B2;FIND(" ";B2)-1)*1