اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

  1. AlwaZeeR

    AlwaZeeR

    الخبراء


    • نقاط

      10

    • Posts

      734


  2. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      8

    • Posts

      8,723


  3. Ali Mohamed Ali

    Ali Mohamed Ali

    المشرفين السابقين


    • نقاط

      6

    • Posts

      11,621


  4. أبوبسمله

    أبوبسمله

    الخبراء


    • نقاط

      6

    • Posts

      3,240


Popular Content

Showing content with the highest reputation on 12 ديس, 2019 in all areas

  1. جزاك الله خيرا استاذى العزيز @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
    4 points
  2. غير خصائص مربع القائمة كما في الصورة .....
    4 points
  3. بعد اذن الاخ احمد استبدل اسماء الصفحات الى 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
    4 points
  4. هكذا يتم الامر AlPhaNumber(Nz(DMax("CountField", "YourTable"), 0) + 1) ويفضل وضع الترقيم في حدث قبل الادراج للنموذج وان صعب الامر عليك ارفق ملف صغير للتطبيق
    3 points
  5. وعليكم السلام ورحمة الله وبركاته جرب هذه محاولة ضع الكود في وحدة نمطية واستدعها ضمن الحقل الذي تريد ان يظهر فيه الرقم 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
    3 points
  6. من باب الاختصار في كتابة الأوامر وعدم تكرارها مثال: لو اردت تطبيق امر من النموذج الرئيسي للفرعي يكتب بدونها هكذا: 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- الغاء التمكين للزر السابق في النموذج الفرعي ويتم الاستخدام بالطريقة السابقة حسب الحاجة التي تريدها ولا يتم التطرق لها لان الاغلب يستخدمها في صمت ولا تشكل مشكلة ::
    3 points
  7. بعد تغيير اسماء الصفحات الى 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
    2 points
  8. السلام عليكم عملت لك نموذج بسيط لقتح وحفظ مسار pdf ضمن الاكسس اعلمنا النتائج image+pdf.rar
    2 points
  9. أخى الكريم فوزى يجب عليك الإنتباه جيدا عند رفع المشاركة ,فقبل رفع المشاركة لتجنب اهدار وقت الأساتذة فعليك اولا استخدام خاصية البحث بالمنتدى هل ما اطلبه موجود وتم نقاشه بالفعل سابقا ام لا ؟!!! كما انه عند عمل قوائم للفصول من صفحة البيانات لابد من اختيار فصل واحد وليس اكثر من فصل , فلما اذن قمنا بعمل هذه القوائم من الأساس اذا كان هناك اكثر من فصل فلا يمكن ان يكون هذا طبيعى ومنطقى فى العمل فهناك مئات المشاركات التى تناولت طلبك , فعليك اختيار منها ما يناسبك : برنامج لعمل قوائم الفصول 2018 عمل قوائم للفصول تلقائية قوائم فصول زيادة عدد الطلبة فى قائمة الفصول اسماء الفصول
    2 points
  10. تفضل تم التعديل واضافة كل الشهور كما انه يمكنك اضافة أو حذف صفحات او شهور من خلال هذه المعادلة فى تعريف النطاق المبينة والموضحة بالصورة ={"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
    2 points
  11. ولما الكود -الأمر اسهل بكثير ان يحتاج الى كود ,فقط عليك استخدام هذه المعادلة =IFERROR(VLOOKUP($A6,data!$A$2:$AF$500,MATCH(B$5,data!$A$1:$AF$1,0),0),"") 1نمودج.xlsm
    2 points
  12. عليك السلام ورحمة الله وبركاته تفضل جلوس 2019.xls
    2 points
  13. فورم بحث واظهار النتيجة فى الليست مع جمع البيانات فى TextBox الفيديو
    1 point
  14. شيت كنترول تجاري إيهاب حسن 2020 صف أول - صف ثاني جميع الشعب شيت بسيط سريع للغاية بدون أخطاء وبه كل ماتحتاج إليه حتى إظهار النتيحة 3_الإصدار_الثالث.rar
    1 point
  15. تم التعديل وعمل كل المطلوب عدا طباعة كشف محدد بمجموعة أرقام هوية لأن الطلب غير مفهوم تجربة عمل برنامج لعقد النظافة.xlsm
    1 point
  16. السلام عليكم تم التعديل على الملف وتلبية المطلوب... بن علية حاجي خاص.xlsm
    1 point
  17. السلام عليكم هل هناك طريقة لجعل الترقيم التلقائي يبدأ مثلا a1 a2 لغاية a1000 ثم بعدها يبدأ b1 b2 وهكذا
    1 point
  18. وهذه محاولة ضع هذا الكود في حدث بعد التحديث في النموذج من a1 لحرف واحد AutoNum = "a" & Replace(Nz(DMax("AutoNum", "tbl", "AutoNum like 'a" & "*'"), "a" & "000"), "a", "") + 1 باقي نضع الشرط أنا حالياً مشغول لعل الأخوة يكملون
    1 point
  19. 1 point
  20. تفضل تم عمل المطلوب الباقي في المخزن1.xlsx
    1 point
  21. ربما هذا الكود يفي بالغرض 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
    1 point
  22. السلام عليكم تم عمل المطلوب (ما عدا تلوين كلمات البحث) بالتعديل على الكود المرفق في مشاركتك الأولى وإلغاء كود التغيير في حدث ورقة (شيت) Base... في العمود A من شيت Résultat وضعت كلمة البحث حسب عدد الصفوف التي وُجدت فيها... أرجو أن يفي الغرض المطلوب... ملاحظة: عمل الملف يكون بطيئا أكثر كلما زادت كلمات البحث... لم أستطع تلبية كل ما تطلبه... وأعتذر لذلك.. بن علية حاجي Dindin__Recherche_mots_4.xlsm
    1 point
  23. السلام عليكم المشكلة أن الملفين ليسا من النوع نفسه أحدهما من النوع .xlsm (الذي ورقته تحوي 1048576 صف و 16384 عمود) والآخر من النوع .xls (الذي ورقته تحوي 65536 صف و 256 عمود) وإذا كنت تريد أن تنقل من الأول إلى الثاني تحدث هذه المشكلة... والله أعلم بن علية حاجي
    1 point
  24. همممم هل ramy145236 هو نفسه mohamed elalfy ؟؟ اذا كان الامر كذلك ، حتى نطلب من الاداردة دمج الاسمين ، فهذا مخالف للقوانين 🙂 جعفر
    1 point
  25. السلام عليكم جزاكم الله خير الجزاء علي ما قدمتوه من مساعده لي في عمل هذا الشيت اللهم اجعل دعائي لكم بظهر الغيب في ميزان حسناتكم ويزيد في احسانكم
    1 point
  26. اخي الفاضل مدحت اشكر اهتمام ومرورك على الموضوع
    1 point
  27. الزميل الفاضل السبب انك فى ملف كشف العلامات فيه دمج اعمدة والثانى اتجاه ورقة العمل من الشمال الى اليمين قم بالغاء دمج الاعمدة وكذلك اجعل اتجاه ورقة العمل من اليمين الى الشمال وبفضل الله ستحل المشكلة كشف العلامات.xlsx
    1 point
  28. السلام عليكم ورحمه الله السادة الأعضاء المحترمين لقد قمت بشرح طريقة بحث وتصفية وفرز وفلترة السجلات بطريقة جديدة بدون اكواد طريقة بسيطة حتي يقدر يستفيد منه أي عضو الموقع غني بمواضيع مشبها ولكن لكل شيخ طريقة اترككم مع الفيديو رابط تحميل الملف https://drive.google.com/file/d/19PeZ77AKZ7Ki56ZiOpJaGcsqIjKv3wEZ/view?usp=drivesdk
    1 point
  29. السلام عليكم استاذ محمد ده تطبيق للشرح للتعلم والاستفاده وقمت باستبدال الماكرو لكود محاوله منى للاستفاده والتعلم على كتابه الكود جزاك الله خيرا تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم DBw.accdb
    1 point
  30. اخي الفاضل نبراس 🙂 انت عملت رد في موضوع انتهى في سنة 2006 !! جعفر
    1 point
  31. اخي الفاضل ، كيف يمكنني ان اساعدك ، و ردك مافيه اي تفاصيل !! جعفر
    1 point
  32. وعليكم السلام-لك ما طلبت شيكات1 2019.xls
    1 point
  33. وعليكم السلام اخى عبداللطيف ارفق لك مثال لاحد الاخوه جزاه الله خير ان شاء الله تنتفع به بالتوفيق طبتم واهتديتم واجهة النموذج اختيارية عربي - انجليزي معدل.rar
    1 point
  34. وعليكم السلام اخي عبد اللطيف حسب علمي القاصر اذا كانت الكائنات بالعربية يجب تسميتها بالانكليزية او العكس وتغيير الاسماء في جميع الاكواد والاستعلام وما الى ذالك هذا ما انا عملته في احد برامجي وجعلتة بنسختين انكليزي وعربي لاكن ياخذ منك وقت وجهد والله اعلم
    1 point
  35. وعليكم السلام ورحمة الله وبركاته تستطيع انشاء حقل جديد في الاستعلام يحول البيانات في مربع النص الى رقم بهذا الشكل Expr1: IIf([TextField] Is Null, 0, Val([TextField]))
    1 point
  36. اشكر الاخ ali mohamed ali على هذا العمل و اقول له جزاك الله خيرا و حفظك و رعاك
    1 point
  37. استأذن اخى جعفر فى التعليق دعنى اسال اخر الكريم ما الداعى من التحديث كل ثانية اذا لم يكن هناك بيانات جديدة هذا يدعنا نتطرق الى اتجاه اخر دعنا نجعل البرنامج يتم عملية اذا تم اذافة بيانات جديدة مثلا عندى جدول مستخدمين ونموذج مصدر بياناته هذا الجدول وانا اقوم بتحديث البيانات كل ثانية للتاكد من اضافة مستخدمين جدد ام لا ماذا لو قمنا بعمل الاتى مربع نص مخفى نضعه فى النموذج به عدد السجلات فى جدول المستخدمين عمل دالة تقوم بجمع اعداد السجلات فى جدول المستخدمين كل ثانية اذا اختلف العدد بين الدالة ومربع النص يقوم البرنامج بعمل التحديث اما اذا كان الرقم فى الدالة مساو للرقم فى النموذج لا نقوم بالتحديث
    1 point
  38. تفضل اخي الكريم مثال(1).rar تحياتي
    1 point
  39. السلام عليكم ورحمة الله جرب المرفق بعد إضافة عمود المعدلات الفصلية... بن علية حاجي ن-الفصل الأول.xls
    1 point
  40. وهذه فكرة أخرى بالاضافة لمرفق أساذنا أبو جودى FindAsUType-update.rar
    1 point
  41. اتفضل FindAsUType-update (2).rar
    1 point
×
×
  • اضف...

Important Information