نجوم المشاركات

راديو احترافى لن تجده الا بمنتديات اوفيسنا الاصدار الاول : JU_Radio v1.zip

أنت بحاجة إلى إنشاء صورة بالامتداد BMP وتسميتها بنفس اسم مشروعك وفي نفس مجلد المشروع. للملاحظة.. ينبغي أن يكون حجم الصورة مقبولا لكي لا تتأخر في الظهور.

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

احسنت استاذى الكريم هدية ممتازة ومقبولة -جعله الله في ميزان حسناتك وزادك الله من فضله

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

كود ممتاز استاذ سليم بعد اذن حضرتك ولإثراء الموضوع هناك حل أخر بالمعادلات فى العمود C يمكنك استخدام هذه المعادلة مع التغيير المطلوب فى كل معادلة =SUMPRODUCT(SUMIF(INDIRECT("'"&C$2&"'!"&"B2:B1000"),$B3,INDIRECT("'"&C$2&"'!"&"H2:H1000"))) Total.xlsm

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

تفضلى المستودع التقني.xlsm

يمكن اذا اردت ان يكون العمل بواسطة الماكرو VBA Option Explicit Sub give_data() Dim N As Worksheet: Set N = Sheets("names") Dim S As Worksheet: Set S = Sheets("Salim") Dim lrN%: lrN = N.Cells(Rows.Count, 3).End(3).Row Dim t%, i%: i = 6 Dim m%: m = 9 S.Cells(m, 3).Resize(15, 7).ClearContents Do Until i = lrN + 1 If N.Cells(i, "Y") Like "*" & S.Range("m3") & "*" Then With S.Cells(m, 3) t = t + 1 .Value = N.Cells(i, 1) .Offset(, 1) = N.Cells(i, 3) .Offset(, 2) = N.Cells(i, 2) .Offset(, 3) = N.Cells(i, 5) .Offset(, 4) = N.Cells(i, 10) .Offset(, 5) = N.Cells(i, 8) m = m + 1 End With End If i = i + 1 Loop Cells(1, 4) = t End Sub الملف مرفق Legan _salim.xlsm

هذه الهدية القيمة شفرة الكود المستخدمة فى استخلاص اسماء الشهور والايام اهدانى اياها ذات يوم استاذى الجليل ومعلمى القدير الاستاذ الجليل @ابوخليل ههههههه حتى ايضا الشفرة المستخدمة لعمل الاستبدال ( دالة Replace) ايضا يرجع الفضل فيها الى الله اولا ثم الى استاذى المبجل الاستاذ @ابوخليل نعم لم تكن بنفس الهيئة كانت للاستبدال رموز خاصة وعلامات وانا قمت بالتعديل الطفيف عليها لتحويل الارقام الى عربي عن طريق ال Unicode Chart ولكن لولا الله سبحانه وتعالى ثم استاذى ووالدى لما توصلت الى هذه الفكرة مميزات المرفق - موديول به كل ما يخص التاريخ وكذلك تحويل الارقام الى العربية بدون التدخل فى اعدادات النظام وبدون اى خطوط خارجية ولتكون الهدية كاملة مكملة هذا هو الموقع الذى استخدمة عندما اريد الحصول على ارقام رمز او حرف ما  https://www.ssec.wisc.edu/~tomw/java/unicode.html التاريخ.mdb

ماشاء الله هداية جميلة اباجودي⁦❤️⁩⁦❤️⁩ وخصوصاً أنني اعشق الإستماع للإذاعة تحياتي

ربما مطلوبك هنا ....

السلام عليكم أخي الحبيب أبا جودي جزاكم الله خيراً على هذه الهدية الرائعة تقبل تحياتي العطرة السلام عليكم ورحمة الله وبركاته.

قدم لك الأستاذ سليم افضل الإجابات ليس هناك افضل من هذا ولا يعلو على إجابة وحل استاذنا الكبير سليم

برنامج رائع الصراحه صحيح انها فكرتي :) بس التطوير والشغل يلي يشتغلت عليه ممتاز مشكوووووووووووور

عاشت ايدك استاذ مجمد بوركت

سبب تحديد الكل أنك لم تحدد مصدر مربع التحديد وهو DelChk عموما تفضل 3 (2) - Copy.rar

الحمدلله 🙂 وشكرا ابا جودي على التجارب والمعلومة 🙂 اخوي محمد ، تابع معاي مثالي الجاي ، وبعدين نبحث عن البرنامج المناسب 🙂 جعفر

وعليكم السلام-بعد اذن الأستاذ محمد فؤاد لك ما طلبت بدون عمود مساعد حساب كميات الأسفلت لكل شهر.xlsx

بالنسبة للسؤال الثاني (حل لإزالة التنسيقات) هذا الكود Option Explicit Sub del_shapes() Dim x As Shape For Each x In ActiveSheet.Shapes x.Delete Next End Sub

اذا زاد عدد الصفحات تقوم بالتعديل في هذا القسم من الكود مع مراعاة ان تأخذ الــ K عدداً جديداً من 3 الى 3 + عدد الصفحات -1 في مثلنا عدد الصفحات (بدون الــ Total ) يساوي 3 ====> عدد الصفحات -1=2 ====> 3 + عدد الصفحات -1=5 ====> (اخذنا الــ K من 3 الى 5) Select Case x Case "Excursion": col = 8 Case "Shopping": col = 4 Case "Bonus": col = 3 End Select

جرب هذا الماكرو تم التعديل على الملف قليلاً لتصغير حجمه Option Explicit Sub Get_data() If ActiveSheet.Name <> "Total" Then Exit Sub Dim last_row% Dim k%, r Dim mY_sh As Worksheet last_row = Sheets("Total").Cells(Rows.Count, 2).End(3).Row Sheets("Total").Range("c3", Range("c4").End(4)).Resize(, 3).ClearContents Dim i%: i = 3 Dim x$ Dim col% Do Until Sheets("Total").Range("b" & i) = vbNullString For k = 3 To 5 x = Sheets("Total").Cells(2, k) Set mY_sh = Sheets(x) r = mY_sh.Range("b:b").Find(Sheets("Total").Range("b" & i)).Row Select Case x Case "Excursion": col = 8 Case "Shopping": col = 4 Case "Bonus": col = 3 End Select Sheets("Total").Cells(i, k) = mY_sh.Cells(r, col) Next i = i + 1 Loop Sheets("Total").Range("c3", Range("c4") _ .End(4)).Resize(, 4).NumberFormat = "0.00" End Sub الملف مرفق Total Salim.xlsm

السلام عليكم إن شاء الله أكون قد وفقت في تلبية ما تريده.... بن علية حاجي كرت دوام 17-6-2019.rar

ممكن بعد إذن أستاذنا الكبير زيزو سوف أرسل لك الملف ثانية بعد وضع الكود به ولكنه لا يعمل أرجو عمل اللازم من فضلك-بارك الله فيك ورعاك وأشكرك على سرعة الرد transfer.rar

تفضل أخى العزيز معادلة تنقل مبلغ السلفة على اساس شرطين ( التاريخ + الرقم ).rar

من فضلك ارسل الملف

جرب هذا لعله المطلوب ظ„ظ„ط±ظپط¹ ظ…ظ† ظپط¶ظ„ظƒظ….rar

تفضل وهذا برنامج أخر برنامج شئون الطلاب الإصدار النهائى.rar وهذا أخر برنامج شئون الطلبة.rar

وعليكم السلام ورحمة الله جرب هذا لعله المطلوب برنامج الشؤون 2.rar

ممكن تجرب هذا ربط القوائم المنسدلة.rar

هناك العديد من البرامج سأرسل لك الأن مجموعة منهم وكلمة السر هى :123 برنامج شئون الموظفين.rar وهذا برنامج أخربرنامج شؤون الموظفين.rar

وعليكم السلام ورحمة الله وبركاته هل بالنسبة للصفوف المخفية مهمة بالنسبة لك أم يمكن تجاهلها أو إلغائها ؟

تفضل أخى أسامة لعل هذا هو المطلوب ترحيل البيانات.rar

كلمة السر هى Secret

تفضل كلمة السر هى 123

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

وعليكم السلام تفضل ربما يكون هذا هو المطلوب calender1.rar

أريد استكمال هذه البيانات فى هذا الملف فليس هناك أسماء للموظفين أو حتى الرقم الوظيفى لهم

السلام عليكم أخى محمد هناك مشكلة فى تحميل هذا الملف

من فضلك ارسل الملف ؟

السلام عليكم أيها الزملاء الكرام-أرجو المساعدة فى حل هذه المشكلة أريد معادلة تقوم بنقل وترحيل البيانات من صفحة Copy إلى الصفحة الأخرى بناءاً على رأس الجدول وذلك بصرف النظر عن تغيير ترتيب مكان الأعمدة فى صفحة Copy transfer.rar

السلام عليكم أيها الزملاء الكرام أرجو التكرم على المساعدة وأخص بالشكر للزميل الكريم أستاذنا العزيز بن علية حاجى فأرجو منه متابعة هذا التصحيح على نفس المعادلة بزيادة شرط أخر وهو الرجاء عمل اللازم فى هذه المعادلة وهو عندما يكون البند فى العمود E=البنود فى العمود F من صفحة Sources ,والموجود فى العمود O =البنود فى العمود G من ورقة Sources يكون الناتج فى هذه الحالة= صفر أما عندما يكون البيانات فى العمود E لا تساوى الموجود فى العمود F من ورقة Sources والبيانات فى العمود O تساوى الموجود فى العمود Gمن ورقة Sources يكون الناتج فى هذه الحالة H 1*5+i1*3 from 01.12 till 15.12.2017.rar

السلام عليكم ورحمة الله موضح أيضا المطلوب فى الشيت from 01.12 till 15.12.2017_2.rar

جزاك الله كل خير على سرعة الرد ولكن هناك خطأ بسيط وهو عندما يظهر فى الخانة كلمة El Gouna لابد أن يكون الناتج حاصل ضرب القيمة فى الخانة (H*5+I*3) وذلك فى حالة عدم تساوى القيمة الموجودة فى العمود E مع الموجود فى العمود F من ورقة Sources ولكم جزيل الشكر

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

السلام عليكم أيها الزملاء الكرام أرجو التكرم على المساعدة الرجاء عمل اللازم فى هذه المعادلة وهو عندما يكون البند فى العمود E=البنود فى العمود B من صفحة Sources ,والموجود فى العمود O =البنود فى العمود C من ورقة Sources يكون الناتج فى هذه الحالة= صفر أما عندما يكون البيانات فى العمود E لا تساوى الموجود فى العمود B من ورقة Sources والبيانات فى العمود O تساوى الموجود فى العمود C من ورقة Sources يكون الناتج فى هذه الحالة H 1*5+i1*3 from 01.12 till 15.12.2017.rar

تفضل أخى جرب هذا جدولة الموظفين.rar

تفضل أخى هذا الملف عدم التكرار.rar

ممكن تبعت الملف تانى لأنى مش قادر أحمله كى أساعدك

الأستاذ / أبو علي السلام عليكم ورحمة الله وبركاته بالنسبة للعلاوة كل سنتين 9% عندما يكون الموظف حصل على 9% سنة 2010 ثم يأخذ سنة 2011 علاوة 25% بعد ذلك يحسب له سنتين على 2010 أو 2011 وعندمل يصل راتب الموظف لسنة 2013 المفروض يكون راتبه الفعلي الان. عموماً شاهد الملف وعَقّب عليه لتكملته إن شاء الله. 000001.rar