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

وعليكم السلام 🙂 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

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

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

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

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

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

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

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

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

جرب التعديل ...بصراحة اللجان داخلة على بعضها 😄 مركز الاصلاح1.rar

الاخ حسين مأمون زادك الله علما وجزاك خيرا لم انتبة الى الفقرة الاخيرة Range("b3:h" & lr).Value = Range("b3:h" & lr).Value وهو المطلوب

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

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

تفضل .... docmd.print او docmd.printout

ياسلام على الابداع استاذ موسى ...كلك ذوق يافنان

لست ادري ان كان الامر مرتبط بالموضوع السابق ام لا ولكن انظر الي هذه المشاركة

تفضل هناك العديد من الأكواد لتنفيذ طلبك منها : Sub PDF_Show() ActiveWorkbook.FollowHyperlink "C:\Users\Ali\Downloads\ÚÞÏ ÇáÊÃÓíÓ-ãÍæá.pdf" 'يجب عليك تغيير وتعديل عنوان ومكان ملف البى دى اف بما يتوافق عندك بين علامتين التنصيص End Sub وهذا كود ثانى Sub OpenPDF() Dim pdf As String On Error Resume Next pdf = "C:\Users\Ali\Downloads\عقد التأسيس-محول.pdf" 'يجب عليك تغيير وتعديل عنوان ومكان ملف البى دى اف بما يتوافق عندك بين علامتين التنصيص ActiveWorkbook.FollowHyperlink pdf End Sub واليك الملف اوراق الشركة.xlsm

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

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

رائع استاذ مجدى وكل عام وانتم بخير

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

شاهد المرفق TEST10-2022.xlsm

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

شكراً لك يمكنك استخدام هذه المعادلة =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

معادلة ترحيل يعمل مع أي اصدار test001.xlsm

السلام عليكم جرّب أخي الكريم وأخبرني النتيجة تم التعديل على لون التيكست فورم.xlsm

السلام عليكم أخي الكريم أخي الكريم ضع شرطاً للتكست بوكس إن كان فارغاً لونه بالأصفر وإلا باللون الأبيض Private Sub TextBox1_Change() If TextBox1.Value = "" Then TextBox1.BackColor = vbYellow Else TextBox1.BackColor = vbWhite End If 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) مثل ما تريد

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

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

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

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

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

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