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

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

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

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

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

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

اخي شاهد المرفق لاحظ الاتي : 1 - قم بترتيب اعمدة الورقتين Prep3 and Secondary كما تشاء بشرط ان للورقتين نس الترتيب 2 - دبل كليك علي صندوق البحث بالاسم لتفريغ الصناديق و اللست بوكس 3 - دبل كليك علي صندوق الرقم للاستعداد لإدخال بيان جديد شئون الطلاب 2.xlsm

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

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

اعتقد ان هذا الموضوع شبيه لما تريده

تفضل .... 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

الحمدلله الذى بنعمته تتم الصالحات بالتوفيق

وعليكم السلام-يمكنك استخدام هذه المعادلة اذا كانت القيمة المراد البحث عنها بالخلية N4 مثلاً =IFERROR(IF($N$4=VLOOKUP(N4,$A$5:$A$95,1,0),"موجود"),"غير موجود") ثوابت الميزان الجانب الغربي .xlsx

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

كل عام وانتم بخير وعيد سعيد عليكم

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

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

@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

السلام عليكم جرّب أخي الكريم وأخبرني النتيجة تم التعديل على لون التيكست فورم.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) مثل ما تريد

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

وعليكم السلام ... كان عليك استخدام خاصية البحث بالمنتدى تفضل هديتى برنامج مخزنى و دليل حسابات_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

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

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

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