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

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

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

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

الامر سيحتاج تعديل ايضا في الفنكشن تغير في معيار التجميع علي اساس النوع بدلا من كود العميل في هذا السطر '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 ولكن لماذا تم اظهار رقم العميل او المورد بدلا من اسمه بالكمبو ؟

وأنا أشهد 👍🏼😂

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

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

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

الرد قيد التجربة الله يحفظك ويوفقك اخي ونشكر تواضعك

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

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

بعد اذن الاستاد هشام واثراء للموضوع هذا حل اخر بالاكواد Option Explicit Sub test() Dim ws As Worksheet: Set ws = Sheets("Feuil2") Dim lr1, r Dim x1, x2 r = 2 Application.ScreenUpdating = False ws.Range("g2:j1000").ClearContents With Sheets("Feuil1") lr1 = .Cells(Rows.Count, 1).End(3).Row For x1 = 1 To 4 For x2 = 7 To 11 If .Cells(1, x1).Text = ws.Cells(1, x2).Text Then .Cells(2, x1).Resize(lr1).Copy ws.Cells(2, x2).Resize(lr1) GoTo 1 End If Next x2 1: Next x1 End With Application.ScreenUpdating = True End Sub Copie de TRANSFER-COLONE_Marcel32-v12.xlsm

print.accdb

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

اضافة لما تفضل به استاذ ناقل .. يمكن استخدام الكود Dim PageNo As Integer PageNo = Me.CurrentRecord DoCmd.SelectObject acForm, "MyForm", True DoCmd.PrintOut acPages, PageNo, PageNo, , 1 ولطباعة الصفحة الحالية فقط ..اتبع الخطوات التالية

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

وعليكم السلام-فقط عليك استخداك هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("E5:AB80")) Is Nothing Then Range("A" & Target.Row) = Date End If End Sub Ech1.xlsm

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

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

وعليكم السلام-بسيطة كان عليك رفع الملف لتجربته ..فعموماً مخزى هذه الرسالة ان لديك معادلات طويلة جداً فعليك بتغيير حفظ امتداد ملف الإكسيل الى Xlsb

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

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

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

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

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

وعليكم السلام-ويتم ذلك بإستخدام هذه المعادلة =VLOOKUP($C8,INDIRECT("'"&$C$3&"'!"&"I9:U700"),13,0) 1العمال.rar

معادلة ترحيل يعمل مع أي اصدار test001.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

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

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

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