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

وعليكم السلام 🙂 1. اختار جميع الحقول اللي تريد لونها يتغير ، ثم انقر على زر التنسيق الشرطي من القائمة اعلاه . 2. اعطي نفس التنسيق الذي ذكرت لجميع حقول الموظف . شكرا اخوي ناقل ، استفدت من كلماتك 🙂 جعفر

ارجوا ان تقبلوا تحياتي في اول مشاركة لي علي المنتدي العظيم ده فيه حاجات كتير جدا جدا عايز انزلها بس مش عارف ازاي اقدر انزل فيديو شرح لو حد يقدر يحط لي لينكات شرح هكون شاكر لان فيه طريقة انا بشتغل بيها وحابب اشاركها معاكم بس النهاردة حابب اشارك معاكم الكود بتاعي الي من خلاله بقدر انشئ اي عدد من الفولدرات وده بينفعني جدا في شغلي هتاخد الكود تحطه في ميديول جديد و في الشييت تحت العمود A من رقم 1 الي اي رقم انت عايزة يعني 1 ,2 ,3 ........10 وتعمل عليهم سليكت وبعد كدة ctrl+f11 وتدوس رن للكود هتلاقي الفولدرات كلها جاهزة للاستخدام شكرا جدا علي وقتكم وانتظروني في دورة بأسم "التحكم الكامل بالكمبيوتر من خلال الاكسيل "انا مجهزها يوتيوب بس هحاول اصيغها شرح علشان اقدر انزلها هنا بدون مشاكل ربنا يوفقكم جميعا Sub MakeFolders() Dim Rng As Range Dim maxRows, maxCols, r, c As Integer Set Rng = Selection maxRows = Rng.Rows.Count maxCols = Rng.Columns.Count For c = 1 To maxCols r = 1 Do While r <= maxRows If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then MkDir (ActiveWorkbook.Path & "\" & Rng(r, c)) On Error Resume Next End If r = r + 1 Loop Next c End Sub

وعليكم السلام-فقط استخدم هذه المعادلة وشكراً =SUMIF(البيانات!$A$3:$A$140,$A2,البيانات!$D$3:$D$140) العملاء.xlsm

مشاركة مع أخي واستاذي @احمد الفلاحجي جزاه الله خيرا فكرة خارج الصندوق قليلا - الفلترة من داخل الاستعلام مباشرة تصفية.accdb

لا تنسى عند تغيير اسم العمود في الورقة 1 لابد من تغييره في الورقة 2 Copie de TRANSFER-COLONE_Marcel32-v12.xlsx

لا يمكن استخدام معادلة subtotoal لعد النصوص بدون فراغات الا بهذه الطريقة =SUBTOTAL(3,$E$1:$E$12)-COUNTBLANK($E$1:$E$12) أو بهذه المعادلة =SUMPRODUCT(SUBTOTAL(3,OFFSET($E$1:$E$12,ROW($E$1:$E$12)-MIN(ROW($E$1:$E$12)),,1))*($E$1:$E$12<>"")) او استخدام هذه المعادلة مباشرة وشكراً وبكده يجب غلق المشاركة =SUMPRODUCT(--(LEN($E$1:$E$12)>0)) خلايا فارغة1.xlsx

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

لم تجبني عن هذه الجزئية سأقوم بطرح السؤال بشكل آخر سامحني فقد ذكرت لك سابقا ان فهمي تقيل حبتين لو فرضنا ان لدينا عميل 1 له رصيد سابق اجل 50 وعميل 2 له رصيد سابق اجل ايضا 50 هل تريد التقرير يعرض هكذا العميل نوع الحساب الرصيد السابق 1 اجل 50 2 اجل 50 ام تريد التقرير يعرض هكذا نوع الحساب الرصيد السابق آجل 100

اعتقد لان option value تتعامل مع الارقام وليس مع النص ...فرقم 1 يجلب رقم 1 الذي يمثل العميل فلو حذفت الارقام من value list لحقل النوع فلن يجلب لك شيئا

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

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

هذا الكلام يوحي بعلوم جديدة .. 😁

وعليكم السلام 🙂 1. اذا تم مناداة الدالة (من الاستعلام مثلا) ، فعادة يتم ارسال قيم اليها ، حتى تقوم الدالة بحساب المطلوب ، وعليه ، الاكسس لا يسمح لك بإرسال بيانات من نوع مختلف ، 2. ولكن الدالة تحتاج الى متغيرات اخرى لتقوم بعملها ، لذا نعرّف هذه المتغيرات داخل الدالة 🙂 كما انك تستطيع ان لا تُعرّف المتغيرات كما في رقم #1 ، بل تقوم بتعريفها داخل الدالة ، ولكن حينها تقع عليك مسؤولية التأكد من ان نوع البيانات صحيحة 🙂 فدع الاكسس يقوم بعمله ، وهي الطريقة الصحيحة 🙂 جعفر

اعطي نفس التنسيق الذي ذكرت لجميع حقول الموظف بنفس الطريقة ... او ارفق ملف للتعديل عليه

أهلاً وسهلاً بحضرتك فى المنتدى نورتنا وسعداء جداً بوجودك معنا شكراً لكم ونتمنى المزيد من النجاح والتفوق , وياريت رفع مع المشاركة دائما ملف يدعمها لتسهيل الفهم والإستيعاب لجميع الأعضاء

الحمدلله الذى بنعمته تتم الصالحات ثم انت عارف يادكتور انى طالب علم ولست باستاذ واياكم يادكتور محمد @الحلبي واتفضل تعديل علشان خاطر عيونك هناخد اسم المورد او العميل من الاوبشن نفسه ولكن بتعديل بسيط عدل الاسم البرمجى لليبل الى label+ قيمه الخيار لانى اعتمدت عليهم يعنى مثلا اوبشن المورد ذو قيمه الاختيار 1 سيكون Label1 Private Sub list1_AfterUpdate() Dim strSql As String Dim strWhere As String Dim str As String str = "label" & Me.list1.Value strSql = "SELECT suppliers.suppliername, suppliers.kind FROM suppliers " strWhere = "WHERE suppliers.kind='" & Me(str).Caption & "'" If Me.list1.Value = 3 Then Me.x.RowSource = strSql ElseIf Me.list1.Value = 1 Or Me.list1.Value = 2 Then Me.x.RowSource = strSql & strWhere End If End Sub بالتوفيق يادكتور محمد تصفية_1.accdb

وهذه تجربتي مع أخي المهندس قاسم @Eng.Qassim ومستندا على ملفه 🙂 طبعا سوف نحتاج لجدول خاص بقائمة الأسماء فيه عمودين 1 - الاسم أو القبيلة(اسم العائلة) و 2- النوع وهو حقل رقمي أن كان اسم فالنوع 1 وإن كانت قبيلة فالنوع 2 نحتاجه للفصل بين الأسماء . بعدها قمت بتطوير دالة تقوم بفحص كلمات الفقرة كلمة كلمة وتقارنها بالأسماء الموجودة في الجدول ، فإن عثرت على الاسم في الجدول تختزله من الفقرة وتضيفه إلى المصفوفة ثم تنتقل للكلمة التالية وهكذا .. 🙂 وهذه هي الدالة : Public Function LoopThroughText(TXT As String) As String Dim LookInHere As String Dim Counter As Integer Dim SplitCatcher As Variant Dim Finaltxt As String LookInHere = TXT SplitCatcher = Split(LookInHere, " ") For Counter = 0 To UBound(SplitCatcher) If SplitCatcher(Counter) = DLookup("[PerName]", "[NamesT]", "[PerName] Like '*" & SplitCatcher(Counter) & "*'") Then If DLookup("[Type]", "[NamesT]", "[PerName] Like '*" & SplitCatcher(Counter) & "*'") = 1 Then Finaltxt = Finaltxt & " " & SplitCatcher(Counter) Else Finaltxt = Finaltxt & " " & SplitCatcher(Counter) & "،" End If End If Next LoopThroughText = Finaltxt End Function بعدها تنادي على الدالة في استعلام أو نموذج كما تشاء هكذا : LoopThroughText(TXT) AAA.accdb

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

ههههههههه ولقد وقعت فى فخ المسؤليه دون وعى اخى ناقل بنقلك المعلومات ببساطه لاخوانك 😀 فمرحبا بك وسط اخوانك 💐 وسلامه رقبتك اخى وكيف تنكسر وانت وسط اخوانك يقول النبي ﷺ: المؤمن للمؤمن كالبنيان يشد بعضه بعضًا وانت كذلك اخى ومهندسنا العزيز وبعض الاخوان الاخرين الذى اشرت بكلامى عليهم وجزاك الله خيرا تسلم اخى واعتز بشهادتك رغم انى طالب علم اتعلم منكم ومعكم بارك الله فيكم وجزاكم الله خيرا

السلام عليكم استاذى الكريم .. هل هذا هو المقصود ؟! الشرح الكامل التفصيلي المصور لمعرفة نسخة الأكسيس وتخفيض الأمان برمجيا

فيديوووووو جديددددد كيفية فصل بيانات عمود إلى عدة أعمدة باي محدد بالبوركويري في الفيديو دة هانتعلم ازاي نفصل بيانات عمود إلى اعمدة بواسطة اي محدد زي النجمة والكوما والاسلاش وسامحوني بكتب بالعربي وكمان هانعملها اتوماتيك يعني لو البيانات في اكثر من محدد مختلف هايتم التعامل معهم بحرفية جميلة وشقية https://youtu.be/0-bYhqLbf6E

الامر سيحتاج تعديل ايضا في الفنكشن تغير في معيار التجميع علي اساس النوع بدلا من كود العميل في هذا السطر 'here Change Customer_ID with Account Dpt = Nz(DSum("Debit", "Financial_Records", "Customer_ID=" & Cno & " And [Registration_Date] Between " & DateFormat(Strtyer) & " AND " & DateFormat(Crntdat)), 0) 'And here also change customer_ID With Account Crdt = Nz(DSum("Creditor", "Financial_Records", "Customer_ID=" & Cno & " And [Registration_Date] Between " & DateFormat(Strtyer) & " AND " & DateFormat(Crntdat)), 0) ولكن استفسار قبل هذا التعديل هل تريد التجميع حسب نوع الحساب فقط لكل العملاء ام نوع الحساب لكل عميل!

يا جماعة انا مجرد ناقل .... على اسمي .... وارجو ان ابقى كذلك .... لأني من النوع الذي لا يحب المسؤليات ..... اتركوني ناقل للمعلومة وانا كده مبسوط .... اما حكاية مسؤلية فلا ..... واشكركم على حسن الظن بشخص لا يستحق اكثر من كونه ناقل للمعلومة .... وانا كذلك فعلا ..... فلا ارفع لمكانة اسقط منها وتنكسر رقبتي .... بارك الله فيكم ....

اممممممم شامم ريحه خبر حلو لاخى ناقل ان شاء الله نسمعه قريب وعقبال اخوانى وانا كذلك اشهد بالتوفيق اخوانى

اهلا بك اخى ومعلمى العزيز محمد وجزاك الله خيرا 🌹 جميل منك استخدام TempVars ولكن لماذا تم اظهار رقم العميل او المورد بدلا من اسمه بالكمبو ؟

وأنا أشهد 👍🏼😂

لا تغير السالفة ، الرجال كما قال: هذا دليل اني احيانا اقول اشياء مفيدة 😁 جعفر

اعتذر فانا غير منتظم بمتابعة الموقع، فضلا عن كون الموقع لا يعمل معي احيانا الحمد لله الذي تتم بنعمته الصالحات لم افهم هذه الجزئية جيدا نعم اما هذا فلا فلم اقم بتعديل شيء به - اما ان كنت تقصد نموذج عرض التقرير فلا حاجة لتعديله فقط قم بالتعديل في مصدر البيانات وهو الاستعلام. هل تقصد تجميع الرصيد السابق حسب نوع الحساب تحصيل - صرف - آجل بدلا من كود العميل؟!

صدقني ، انا قلت نفس الشيء امس لأحد الاعضاء 😂 بس الخبير ما يجي منه إلا كلام خبرة 😉 جعفر

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

معقول .... استاذنا الكبير يستفيد مني .... هذا شرف كبير لي انه احد في المنتدى يستفيد مني .. هذا دليل اني احيانا اقول اشياء مفيدة 😁

بارك الله فيك استاذ حسين عمل رائع -أما بالنسبة للطلب الثانى بخصوص التنسيق الشرطى -فيمكنك استخدام هذه المعادلة =AND($E1<>"",COUNTIF($E$1:E1,E1)>1) خلايا فارغة1.xlsx

دالة الوقت والتاريخ.rar

اتفضل قم بمشاهدة هذا الموضوع برنامج انتظار الدور

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

بارك الله فيك استاذى الكريم

شكراً لك يمكنك استخدام هذه المعادلة =IFERROR(1/(1/LOOKUP(9^9,$A$4:$A$10150/($C$4:$C$10150=$K7))),VLOOKUP($K7,$A$4:$C$10150,3,0)) calcul irg 2022 OFISNA1.xlsx

@mra63 لا ادري لماذا اصرارك على عدم ادراج ملف وانشاء يوزرفورم حتى يستطيع الاخرين مساعدتك . عالعموم انشأ يوزفورم به اثنان تيكست بوكس وقم بالنقر مرتين على اليوزفورم والصق هذه الاكواد كاملة . عند تشغيل اليوزرفورم سيتم تلوين textbox1,2 باللون الاصفر و اذا كتبت في احدهم سيتلون بالابيض . Private Sub TextBox1_Change() If TextBox1.Text <> "" Then TextBox1.BackColor = RGB(255, 255, 255) Else TextBox1.BackColor = RGB(255, 255, 0) End If End Sub Private Sub TextBox2_Change() If TextBox2.Text <> "" Then TextBox2.BackColor = RGB(255, 255, 255) Else TextBox2.BackColor = RGB(255, 255, 0) End If End Sub Private Sub UserForm_Initialize() TextBox1.BackColor = RGB(255, 255, 0) TextBox2.BackColor = RGB(255, 255, 0) End Sub

أخي: 1- لماذا لا تستعمل Conditional formatting ؟ 2- هل وضعت معادلات بال text box أو لا اذا كنت مصراً عالكود فتفضّل: Sub Color_blank_cells() 'declare variables Dim ws As Worksheet Dim ColorRng As Range Set ws = Worksheets("Analysis") Set ColorRng = ws.Range("B3:C9") 'color blank cells ColorRng.SpecialCells(xlCellTypeBlanks).Interior.Color = RGB(220, 230, 241) End Sub طبعا تغيّر اللون من RGB(220, 230, 241) مثل ما تريد

الماكرو لا يعمل بسبب اعدادات اللغة العربية على جهازك الحل الاول : هو تغير اسم شيت قاعدة بيانات الدرجات الى اسم اخر باللغة الانجليزية و كذلك تغير الاسم فى الكود بنفس اسم الشيت الحل الثانى : هو تغير اعدادات جهازك الى اللغة العربية عن طريق 1- Settings 2- Time & Language 3- regional Formatting 4- regional Setting 5- Change date , time or number formats 6- Administrative 7-Change System Local 8- اختيار اللغة العربية و البلد 9- اعادة تشغيل جهاز الكمبيوتر قمت برفع الملف بعد تعديل اسم الشيت باللغة الانجليزية درجات الطلاب.xlsm

تفضل أخي الكريم. 0.0_3rEd.0_3rEd!attachment!0_مواد دراسية (1).xlsx

تفضل المخزن.xlsm

جميعا بإذن الله

وعليكم السلام ... كان عليك استخدام خاصية البحث بالمنتدى تفضل هديتى برنامج مخزنى و دليل حسابات_ECO2_DuClick_store_ بفورم بحث و اضافه 1.0.0 وهذا برنامج اخر برنامج مخازن وكارت صنف2012 من تصميمي.xls

جرب هذا وهذا برنامج اخر برنامج عيادة بيطرية ارشفة وادخال وفاتورة

وعليكم السلام-يمكنك جلب الإسم بدون تكرار بهذه المعادلة أما الباقى فمعادلة Sumif =IFERROR(INDEX(بيانات!$I$2:$I$240,MATCH(0,INDEX(COUNTIF($B$1:B1,بيانات!$I$2:$I$240),),0)),"") tagg1.xlsm

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

وعليكم السلام اخى الملف يعمل بكل كفاءة كما ترى ولكن المشكلة لديك انه لا يوجد اى تاريخ قريب لتلوينه قم انت بتغيير اى تاريخ الى تاريخ جديد فليكن بشهر ابريل أو مايو 2021 بأى خلية يدوياً وستجد ان الخلية سيتم تلوينها تلقائياً وشكراً

تفضل هذه المعادلة لكود المندوب =IFERROR(INDEX(المناديب2!$A:$A,MATCH($A2,المناديب2!$B:$B,0)),"") وهذه المعادلة لكود السيارة =IFERROR(INDEX(' السيارات3'!$A:$A,MATCH($C2,' السيارات3'!$C:$C,0)),"") حركه السيارات.xlsx

بارك الله فيك استاذنا الكريم وكل عام وانتم جميعاً بخير