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

راديو احترافى لن تجده الا بمنتديات اوفيسنا الاصدار الاول : 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

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

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

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

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

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

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

بسم الله ماشاء الله منتج رائع بيد أستاذ

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

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

وعليكم السلام-بعد اذن الأستاذ محمد فؤاد لك ما طلبت بدون عمود مساعد حساب كميات الأسفلت لكل شهر.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

هذه صحيحة ولا يوجد بها اخطاء جواب نهائي اوفسنا تلقائي (1).rar

الخيار الذي وضعته مستعملاً الدالة Ran في كل مرة تغير اي شيء في اي خلية (او مجموعة خلايا) تتبدل الارقام في عامود الارقام العشوائية مما يرهق البرنامج

الحمد لله ,, على فضله ,, وشكرا لدعواتك

جرب هذا وبعد هذه العملية يمكن نقل أى أسماء مباشرة من الإكسيل إلى التليفون مهما كان عددها نقل اسماء من الاكسل الى الهاتف.rar

تفضل أخى لعله المطلوب تجربة.rar

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

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

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

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

كلمة السر هى Secret

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

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

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

هناك مشكلة فى تحميل هذا الملف -ربما يحتوى على فيروس

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

=IF(IF(OR(A1*80%<150,A1*80%>150),A1*80%,150)>150,150,IF(OR(A1*80%<150,A1*80%>150),A1*80%,150)) تفضل ربما يكون هذا هو المطلوب لو افترضنا أن الرقم موجود فى الخلية A1 فتكون المعادلة كالتالى

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

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

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

تسلم ايديك بس أنا مش عارف ليك حضرتك كنت بادىء نطاق المعادلة من هنا ليه =INDEX(Copy!$U$2:$AZ$100,ROWS(C$1:C1),MATCH(C$2,Copy!$A$1:$AF$1,0)) قمت بتغيره إلى بداية النطاق فأصبح كالتالى لكى تقوم المعادلة بأداء المهمة صح =INDEX(Copy!$A$2:$AZ$100,ROWS(C$1:C1),MATCH(C$2,Copy!$A$1:$AF$1,0)) وشكرا جزيلا لك أستاذى الغالى وبارك الله فيك وفى أولادك

شكرا لك تم رفع الملف فى المشاركة الأولى

السلام عليكم أيها الزملاء الكرام أرجو التكرم على المساعدة وأخص بالشكر للزميل الكريم أستاذنا العزيز بن علية حاجى فأرجو منه متابعة هذا التصحيح على نفس المعادلة بزيادة شرط أخر وهو الرجاء عمل اللازم فى هذه المعادلة وهو عندما يكون البند فى العمود 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 ولكم جزيل الشكر

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

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