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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

هل تقصد تحديد وحذف السجلات في النموذج الفرعي فقط للعميل الحالي مع بقاء بقية السجلات للعملاء الاخرين اذا كان هذا المطلوب جرب المرفق Database11.accdb

جرب هذا الماكرو تم التعديل على الملف قليلاً لتصغير حجمه 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

Dim f As String Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount f = rst!Delchk For i = 1 To RC If f = "true" Then rst.Edit rst!Delchk = False rst.Update Else rst.Edit rst!Delchk = True rst.Update End If rst.MoveNext Next i rst.Close: Set rst = Nothing غير فقط Delchk= الحقل في الجدول هذا مسمى الحقل في الكود واترك الباقي كما هو طبقه على القاعدة كما هو ولن يحدث معك خطأ بإذن الله هذا في كود التحديد أما كود الإلغاء أعمل العكس true أجعلها false

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

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

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

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

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

شاكر لك أستاذنا الكبير زيزو وكل تقديرى للأستاذ العزيز سليم حاصبيا بارك الله لكما وهذا هو الملف بعد الإصلاح لتعم الإفادة للأخرين ويعمل الكود الأن بكل بساطة transfer.rar

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

هناك مشكلة فى هذا الملف من فضلك ارسله مرة أخرى

تفضل أخى تحويل التاريخ الى اسم الشهر.rar

بعد إذن أخى صديق هذا حل بمعادلة أخرى بسيطة وصغيرة طلب معادلة جلب بيانات.rar

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

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

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

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

كلمة السر هى Secret

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

وعليكم السلام تفضل ربما يكون هذا هو المطلوب 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)) وشكرا جزيلا لك أستاذى الغالى وبارك الله فيك وفى أولادك

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

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

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

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

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