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

جزاك الله خيرا استاذى العزيز @AlwaZeeR حاولت استدعاء الوحده النمطيمه لكن لم افلح باستدعائها ولكن قمت بوضعها فى حدث قبل التحديث لحقل الاسم واشتغلت Private Sub Names_BeforeUpdate(Cancel As Integer) Dim SallomN As String AutoNum = Me.ID.Value Select Case AutoNum Case 1 To 1000 SallomN = "A" & AutoNum Case 1001 To 2000 SallomN = "B" & AutoNum Case 2001 To 3000 SallomN = "C" & AutoNum Case Else SallomN = "No Number" End Select Me.auto = SallomN End Sub وقمت باستدعئها كما اشار استاذى العزيز بنجاح تقبل تحياتى طبتم واهتديتم ex.mdb

غير خصائص مربع القائمة كما في الصورة .....

بعد اذن الاخ احمد استبدل اسماء الصفحات الى Clas و Repport انا افضل دائماً ان تكون اسماء الصفحات باللغة الاجنبية (لحسن عمل الكود وعدم ظهور احرف غريبة في الكود) ضع في الخلية T1 الرقم تريده ونفذ هدا الكود Option Explicit Sub get_Repport() Dim i%, k, T%: T = 1 Dim CL As Worksheet, Rp As Worksheet Set CL = Sheets("Clas"): Set Rp = Sheets("Repport") Dim start_num%: start_num% = Rp.Range("T1") Dim arr(1 To 10, 1 To 2) For k = 1 To 2 For i = 5 To 45 Step 10 arr(T, 1) = i arr(T, 2) = IIf(T > 5, 9, 2) T = T + 1 Next i Next k k = 0 For i = LBound(arr) To UBound(arr) With Rp.Cells(arr(i, 1), arr(i, 2)) .Value = CL.Cells(start_num + k + 1, 3) .Offset(1) = CL.Cells(start_num + k + 1, 5) .Offset(2) = CL.Cells(start_num + k + 1, 2) .Offset(3) = CL.Cells(start_num + k + 1, 4) .Offset(4) = CL.Cells(start_num + k + 1, 6) .Offset(5) = CL.Cells(start_num + k + 1, 7) End With k = k + 1 Next End Sub الملف مرفق Joulous_2019.xlsm

هكذا يتم الامر AlPhaNumber(Nz(DMax("CountField", "YourTable"), 0) + 1) ويفضل وضع الترقيم في حدث قبل الادراج للنموذج وان صعب الامر عليك ارفق ملف صغير للتطبيق

وعليكم السلام ورحمة الله وبركاته جرب هذه محاولة ضع الكود في وحدة نمطية واستدعها ضمن الحقل الذي تريد ان يظهر فيه الرقم Public Function AlPhaNumber(AutoNum As Integer) As String Dim SallomN As String Select Case AutoNum Case 1 To 1000 SallomN = "A" & AutoNum Case 1001 To 2000 SallomN = "B" & AutoNum Case 2001 To 3000 SallomN = "C" & AutoNum Case Else SallomN = "No Number" End Select AlPhaNumber = SallomN End Function

من باب الاختصار في كتابة الأوامر وعدم تكرارها مثال: لو اردت تطبيق امر من النموذج الرئيسي للفرعي يكتب بدونها هكذا: Forms!MainForm!SubFormName.Form.AllowEdits = Not Forms!MainForm!SubFormName.Form.AllowEdits.AllowEdits Forms!MainForm!SubFormName.Form.AllowEdits.Requery Forms!MainForm!SubFormName.Form.AllowEdits.SetFocus Forms!MainForm!SubFormName.Form.AllowEdits.cmdName.Caption = "Test" Forms!MainForm!SubFormName.Form.AllowEdits.cmdName.Enabled = False ويكتب باستخدامها هكذا ولك حرية الاختيار انا عن نفسي استخدمها With SubFormName.Form .AllowEdits = Not .AllowEdits .Requery .SetFocus .cmdName.Caption = "Test" .cmdName.Enabled = False End With المثال السابق 1- لتحرير نموذج فرعي 2- عمل تحديث للنموذج الفرعي 3- نقل التركيز الى النموذج الفرعي 3- تغيير اسم زر امر الى تست في النموذج الفرعي 4- الغاء التمكين للزر السابق في النموذج الفرعي ويتم الاستخدام بالطريقة السابقة حسب الحاجة التي تريدها ولا يتم التطرق لها لان الاغلب يستخدمها في صمت ولا تشكل مشكلة ::

بعد تغيير اسماء الصفحات الى Source و Target نفذ هذا الكود Option Explicit Sub get_data() Dim S As Worksheet, T As Worksheet Dim Rg_T As Range, Cel_T As Range Dim Cel_S As Range, Rg_S As Range Dim Dc As Object, K Dim m%: m = 5 Set S = Sheets("Source") Set T = Sheets("Target") Set Rg_T = T.Range("W5", Range("W4").End(4)) Set Rg_S = S.Range("C9", S.Range("C8").End(4)) Set Dc = CreateObject("Scripting.Dictionary") T.Range("AA4").CurrentRegion.Offset(1).ClearContents For Each Cel_T In Rg_T K = Cel_T & Cel_T.Offset(, 1) For Each Cel_S In Rg_S If Cel_S & Cel_S.Offset(, 1) = K Then _ Dc(Cel_S.Offset(, -1).Value) = "" Next Cel_S T.Cells(m, "AA").Resize(Dc.Count) = _ Application.Transpose(Dc.keys) m = m + Dc.Count: Dc.RemoveAll Next Cel_T Set Dc = Nothing End Sub الملف مرفق Fousoul_stds.xlsm

السلام عليكم عملت لك نموذج بسيط لقتح وحفظ مسار pdf ضمن الاكسس اعلمنا النتائج image+pdf.rar

جرب هذا الملف Cond_format.xls

أخى الكريم فوزى يجب عليك الإنتباه جيدا عند رفع المشاركة ,فقبل رفع المشاركة لتجنب اهدار وقت الأساتذة فعليك اولا استخدام خاصية البحث بالمنتدى هل ما اطلبه موجود وتم نقاشه بالفعل سابقا ام لا ؟!!! كما انه عند عمل قوائم للفصول من صفحة البيانات لابد من اختيار فصل واحد وليس اكثر من فصل , فلما اذن قمنا بعمل هذه القوائم من الأساس اذا كان هناك اكثر من فصل فلا يمكن ان يكون هذا طبيعى ومنطقى فى العمل فهناك مئات المشاركات التى تناولت طلبك , فعليك اختيار منها ما يناسبك : برنامج لعمل قوائم الفصول 2018 عمل قوائم للفصول تلقائية قوائم فصول زيادة عدد الطلبة فى قائمة الفصول اسماء الفصول

تفضل تم التعديل واضافة كل الشهور كما انه يمكنك اضافة أو حذف صفحات او شهور من خلال هذه المعادلة فى تعريف النطاق المبينة والموضحة بالصورة ={"1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31"} يومية.xlsm

ولما الكود -الأمر اسهل بكثير ان يحتاج الى كود ,فقط عليك استخدام هذه المعادلة =IFERROR(VLOOKUP($A6,data!$A$2:$AF$500,MATCH(B$5,data!$A$1:$AF$1,0),0),"") 1نمودج.xlsm

عليك السلام ورحمة الله وبركاته تفضل جلوس 2019.xls

فورم بحث واظهار النتيجة فى الليست مع جمع البيانات فى TextBox الفيديو

شيت كنترول تجاري إيهاب حسن 2020 صف أول - صف ثاني جميع الشعب شيت بسيط سريع للغاية بدون أخطاء وبه كل ماتحتاج إليه حتى إظهار النتيحة 3_الإصدار_الثالث.rar

تم التعديل وعمل كل المطلوب عدا طباعة كشف محدد بمجموعة أرقام هوية لأن الطلب غير مفهوم تجربة عمل برنامج لعقد النظافة.xlsm

السلام عليكم تم التعديل على الملف وتلبية المطلوب... بن علية حاجي خاص.xlsm

السلام عليكم هل هناك طريقة لجعل الترقيم التلقائي يبدأ مثلا a1 a2 لغاية a1000 ثم بعدها يبدأ b1 b2 وهكذا

وهذه محاولة ضع هذا الكود في حدث بعد التحديث في النموذج من a1 لحرف واحد AutoNum = "a" & Replace(Nz(DMax("AutoNum", "tbl", "AutoNum like 'a" & "*'"), "a" & "000"), "a", "") + 1 باقي نضع الشرط أنا حالياً مشغول لعل الأخوة يكملون

جرب هذا Timer & Stopwatch.xlsm

تفضل تم عمل المطلوب الباقي في المخزن1.xlsx

متميز اخي @خالد سيسكو

ربما هذا الكود يفي بالغرض Sub test() Dim lr Dim x lr = Range("a" & Rows.Count).End(xlUp).Row Range("i3:i" & lr).Formula = "=SUMIF($B:$B,$A:$A,H:H)" Range("i3:i" & lr).Value = Range("i3:i" & lr).Value Range("k3:k" & lr).Formula = "=SUMIF($B:$B,$A:$A,J:J)" Range("k3:k" & lr).Value = Range("k3:k" & lr).Value Range("m3:m" & lr).Formula = "=SUMIF($B:$B,$A:$A,L:L)" Range("m3:m" & lr).Value = Range("m3:m" & lr).Value End Sub

السلام عليكم تم عمل المطلوب (ما عدا تلوين كلمات البحث) بالتعديل على الكود المرفق في مشاركتك الأولى وإلغاء كود التغيير في حدث ورقة (شيت) Base... في العمود A من شيت Résultat وضعت كلمة البحث حسب عدد الصفوف التي وُجدت فيها... أرجو أن يفي الغرض المطلوب... ملاحظة: عمل الملف يكون بطيئا أكثر كلما زادت كلمات البحث... لم أستطع تلبية كل ما تطلبه... وأعتذر لذلك.. بن علية حاجي Dindin__Recherche_mots_4.xlsm

السلام عليكم المشكلة أن الملفين ليسا من النوع نفسه أحدهما من النوع .xlsm (الذي ورقته تحوي 1048576 صف و 16384 عمود) والآخر من النوع .xls (الذي ورقته تحوي 65536 صف و 256 عمود) وإذا كنت تريد أن تنقل من الأول إلى الثاني تحدث هذه المشكلة... والله أعلم بن علية حاجي

همممم هل ramy145236 هو نفسه mohamed elalfy ؟؟ اذا كان الامر كذلك ، حتى نطلب من الاداردة دمج الاسمين ، فهذا مخالف للقوانين 🙂 جعفر

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

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

الزميل الفاضل السبب انك فى ملف كشف العلامات فيه دمج اعمدة والثانى اتجاه ورقة العمل من الشمال الى اليمين قم بالغاء دمج الاعمدة وكذلك اجعل اتجاه ورقة العمل من اليمين الى الشمال وبفضل الله ستحل المشكلة كشف العلامات.xlsx

السلام عليكم ورحمه الله السادة الأعضاء المحترمين لقد قمت بشرح طريقة بحث وتصفية وفرز وفلترة السجلات بطريقة جديدة بدون اكواد طريقة بسيطة حتي يقدر يستفيد منه أي عضو الموقع غني بمواضيع مشبها ولكن لكل شيخ طريقة اترككم مع الفيديو رابط تحميل الملف https://drive.google.com/file/d/19PeZ77AKZ7Ki56ZiOpJaGcsqIjKv3wEZ/view?usp=drivesdk

السلام عليكم استاذ محمد ده تطبيق للشرح للتعلم والاستفاده وقمت باستبدال الماكرو لكود محاوله منى للاستفاده والتعلم على كتابه الكود جزاك الله خيرا تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم DBw.accdb

اخي الفاضل نبراس 🙂 انت عملت رد في موضوع انتهى في سنة 2006 !! جعفر

اخي الفاضل ، كيف يمكنني ان اساعدك ، و ردك مافيه اي تفاصيل !! جعفر

وعليكم السلام-لك ما طلبت شيكات1 2019.xls

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

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

وعليكم السلام ورحمة الله وبركاته تستطيع انشاء حقل جديد في الاستعلام يحول البيانات في مربع النص الى رقم بهذا الشكل Expr1: IIf([TextField] Is Null, 0, Val([TextField]))

اشكر الاخ ali mohamed ali على هذا العمل و اقول له جزاك الله خيرا و حفظك و رعاك

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

تفضل اخي الكريم مثال(1).rar تحياتي

السلام عليكم ورحمة الله جرب المرفق بعد إضافة عمود المعدلات الفصلية... بن علية حاجي ن-الفصل الأول.xls

وهذه فكرة أخرى بالاضافة لمرفق أساذنا أبو جودى FindAsUType-update.rar

اتفضل FindAsUType-update (2).rar