احمدزمان

شكرا استاذ طاهر جزاك الله خيرا و احسن الله اليك

اخي الفاضل ابو علي آسف احترت ولم افهم المطلوب ماهي المعادلة في العمود c == في الملف الذي ارفقته سابقا اشتغلنا عليه وطلعت النتيجه مظبوطة الآن لا ادري آمل التوضيح اكثر بارك الله فيك

و عليكم السلام و رحمة الله وبركاته If Cell.Value = "0" Then Cell.EntireColumn.Hidden = True جرب الغاء " " من هذا السطر لكي يصبح If Cell.Value = 0 Then Cell.EntireColumn.Hidden = True ان شاء الله يظبط

السلام عليكم و رحمة الله وبركاته اخي الفاضل ابو علي ان التعامل مع التاريخ في اكسل هو تحويل التاريخ الى رقم ولكن اكسل لا يقراء التاريخ الهجري مباشرة الا بشرط وهو اضافة الحرف a قبل التاريخ حيث في هذه الحالة يقوم اكسل بتحويل التاريخ الهجري الى ميلادي و تستطيع التعامل معه شاهد الحل المرفق اكسل هجري.rar التقويم_الهجري3.xls

السلام عليكم اخي الفاضل خالد للتوضيح هل تريد استخراج اللوحات المكررة في عمود الشركات او اللوحات المكررة المكررة في الحالات او اللوحات المكررة في جميع العامودين الشركات و الحالة او اللوحات الموجودة في الحالة ومكررة في الشركات

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

https://www.officena.net/ib/topic/82735-مطلوب-داله-حساب-مكافأة-ترك-الخدمة-طبقا-لما-يلى/?do=findComment&comment=526571 السلام عليكم و رحمة الله وبركاته تم العمل على نفس الملف في المشاركة السابقة وتم اضافة عمود النسبة به آمل الإطلاع عليه

و عليكم السلام

السلام عليكم و رحمة الله وبركاته نعمل جدول ثم نسمية ثم الدالة =INDEX(مدة_الخدمة;MATCH($K6;INDEX(مدة_الخدمة;;1);1);2) مرسل اوفيسنا.xlsx

السلام عليكم و رحمة الله وبركاته جزاك الله خيرا لم افهم ما هو المطلوب كثيرل منا لم يعمل في الحاويات و لا بفهم المطلوب لذلك حبه حبة ماذا تريد - وكيف يكون الحساب - و ماهو المطلوب عمله و ان شاء الله خير

السلام عليكم تم الرد سابقا من ألأستاذ علي في مشاركة اخرى

السلام عليكم و رحمة الله وبركاته اسعد الله صباحكم بكل خير Private Sub Worksheet_Change(ByVal Target As Range) Dim TA TA = Target.Address If TA = "$C$2" Or TA = "$C$3" Or TA = "$C$8" Then Application.Run "ضع هنا اسم الماكرو المطلوب ان يعمل " End If End Sub اخي الفاضل خليك معي خطوة خطوة في الصورة المرفقة اولا ادخل الى محرر VB بالضغط على Alt+F11 1 - اضغط دبل كليك ضغطتين سريعة على اسم الورقة التي سوف تعمل عليها 2 - اختار من القائمة كلمة Worksheet 3 - اختار من القائمة change انسخ الكود الموجود اعلاه الى مكانه المكان الذي يطابق اول سطر موجود في الأعلى غير الكلمات العربية الى اسم الماكرو المطلوب عمله يجب ان يكون الماكرو موجود في نفس هذا الملف الآن ارجع الى ملف اكسل و اكتب في اي خلية من 3 خلايا التي ذكرتها سوف يعمل الماكرو تلقائي بعد الكتابه و الخروج من الخلية

جزاك الله خيرا و احسن الله اليك

لا مشكلة تضعة في حدث التغيير في الورقة و لكن السئال متى يجب ان يعمل الكود بمعني عندما يتم ادخال اي بيانات ثم يعمل الكود مثال Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$6" Then Application.Run "اسم الماكرو المطلوب عمله" End If End Sub

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

السلام عليكم و رحنة الله وبركاته اللآن في نفس الورقة AZ_مقاول1.xls

ان شاء الله لا مشكلة

السلام عليكم اخي الفاضل هذه مجموعة من الدوال التي تختص بمواضيع حساب القروض و الفائدة مع انني لا اعرف طريقة استخداماها و لم استخدمها سابقا ولكن وضعتها لك لتستفيد منها CUMIPMT المالية إرجاع الفائدة المتراكمة المدفوعة بين فترتين CUMPRINC المالية إرجاع رأس المال التراكمي المدفوع على قرض بين فترتين ISPMT المالية حساب دفعات الفائدة المدفوعة أثناء فترة استثمار معينة EFFECT المالية إرجاع النسبة الفعلية السنوية للفائدة IPMT المالية إرجاع دفعات الفائدة لاستثمار لفترة محددة ISPMT المالية حساب دفعات الفائدة المدفوعة أثناء فترة استثمار معينة NOMINAL المالية إرجاع النسبة الاسمية السنوية للفائدة PRICE المالية إرجاع السعر لكل قيمة اسمية لـ 100 ر.س. لورقة مالية يستحق عنها فائدة دورية PRICEMAT المالية إرجاع السعر لكل قيمة اسمية لـ 100 ر.س. للأوراق المالية التي يستحق عنها فائدة عند موعد الاستحقاق RATE المالية إرجاع معدل الفائدة لكل فترة من فترات المرتب الدوري

السلام عليكم شرح الكوود.doc

السلام عليكم و رحمة الله وبركاته =SUMIF($A$1:$A$12;$E$1;$B$1:$B$12) اجمالي القيم المقابله.xls

العفو اخي ابو عبدالرحمن لا اعرف دالة افضل من Trim لحذف المسافات حيث انها تقوم بحذف المسافات في بداية الجملة و في نهاية الجملة و تقوم بحذف اي مسافة زائدة عن مسافة واحدة بين كلمات الجملة اما حول اضافة النقطة يمكنك استخدام الدالة CONCATENATE و يكون الحل لجملة البسملة التي ذكرتها هنا =CONCATENATE(TRIM(A1);".") هذا الحل على قدر فهمي و الله اعلم

و عليكم السلام و رحمة الله وبركاته هل تريد حذف المسافات نهائيا =SUBSTITUTE(D6;" ";"")

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

السلام عليكم نَفَسُ عِصَامٍ سَوَّدَتْ عِصاما ... وَعَلَّمَتْهُ الكَرَّ وَالإقْدَامَا لايهمك ان شاء الله خير

السلام عليكم و رحمة الله وبركاته حاولت اعمل المطلوب باستخدام التصفية المتقدمة بالكود ولكن لم استطيع لذلك تم عمل كود ترحيل الى صفحة اخرى يمكنك جلب بيانات اي عميل حسب اسم الصفحة Sub ãÇßÑæ1() ' ÇáãÇßÑæ ãÓÌá ý01/03/2018 ÈæÇÓØÉ ýZmn Range("D7:N999").ClearContents Range("D7").Select Dim FS As Worksheet, TS As Worksheet Dim Q1, Q2, Q3, Q4, Q5, Q6, ER, FR, TR, FC Set TS = Sheets(ActiveSheet.Name) Q1 = TS.Range("B1").Text Set FS = Sheets(Q1) Q2 = TS.Range("B2").Text Q3 = TS.Range("B3").Text Q4 = TS.Range("B4").Text Q5 = TS.Range("B5").Text TR = 6 For FR = 6 To 6666 If FS.Cells(FR, 4).Text = Q2 Then Q6 = FS.Cells(FR, 5).Text If Q6 = Q3 Or Q6 = Q4 Or Q6 = Q5 Then TR = TR + 1 For FC = 1 To 11 TS.Cells(TR, FC + 3) = FS.Cells(FR, FC) Next 'FC End If End If Next 'FR End Sub آمل ان يفي بالغرض المطلوب AZ_مقاول1.xls