اذهب الي المحتوي
أوفيسنا

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

  1. Ahmed_J

    Ahmed_J

    الخبراء


    • نقاط

      7

    • Posts

      725


  2. حسين مامون

    حسين مامون

    الخبراء


    • نقاط

      4

    • Posts

      1,280


  3. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      3

    • Posts

      9,724


  4. عبدالله الصاري

    • نقاط

      2

    • Posts

      602


Popular Content

Showing content with the highest reputation on 22 ماي, 2021 in all areas

  1. السلام عليكم 1- تم الاخذ بملاحظات الاستاذ @jjafferr وتم تغيير مكان الكود (اصبح بعد التحديث) 2- قائمة الحساب هي منسدله ؟؟؟ المفروض تختار منها ملف مرفق انظر له بعد التعديل تحياتي DATA2000-3.mdb.rar
    2 points
  2. عليكم السلام انظر الصورة يمكنك ترتيب الانتقال بواسطة اعطاء الرقم للحقل حسب الترتيب الذي تحب علما ان البداية من رقم صفر
    2 points
  3. 2 points
  4. السلام عليكم تفضل اخي العزيز اتمنى يكون هو المطلوب مشكلة الكسور فى التفقيط.accdb
    2 points
  5. حرب هذا الملف لا ضرورة لادراج اكثر من 700 صف لان المكرو الذي يعمل على صف واجد يستطيع العمل على الألوف منها يكفي ادراج نموذح بسيط لما تريد (50 صف كحد أقصى) كما اني لم أفهم ما هي الحاجة الى اليوزر فورم؟؟؟ Option Explicit Sub Get_data() Dim H As Worksheet Dim T As Worksheet Dim LrH%, LrT%, i%, Sd#, _ k%, Se#, My_val#, n% Dim Date1 As Date, Date2 As Date Dim M_date As Date, X_date As Date Dim Fr As Range, Wat As Range, Ro1%, Ro2% Dim x As Boolean, y As Boolean Set H = Sheets("Haraka") Set T = Sheets("Takrir") LrH = H.Cells(Rows.Count, 1).End(3).Row LrT = 20 T.Range("D5").Resize(LrT, 3).ClearContents Date1 = Application.Min(H.Range("C4:C" & LrH)) Date2 = Application.Max(H.Range("C4:C" & LrH)) If Not IsDate(T.Range("D2")) Or Not IsDate(T.Range("E2")) Then MsgBox "Please Type Dates in D2 and E2" Exit Sub End If M_date = T.Range("D2"): X_date = T.Range("E2") If Not IsDate(T.Range("D2")) Or Not IsDate(T.Range("E2")) Then MsgBox "Wrong Dates" Exit Sub End If T.Range("D2") = Application.Min(M_date, X_date) T.Range("E2") = Application.Max(M_date, X_date) M_date = T.Range("D2"): X_date = T.Range("E2") Set Wat = H.Range("A3:A" & LrH) For i = 5 To LrT Set Fr = Wat.Find(T.Range("B" & i), lookat:=1) If Fr Is Nothing Then GoTo Again Ro1 = Fr.Row: Ro2 = Ro1 Do x = H.Range("C" & Ro2) >= M_date y = H.Range("C" & Ro2) <= X_date If x And y Then Sd = Sd + Val(H.Range("D" & Ro2)) Se = Se + Val(H.Range("E" & Ro2)) n = n + 1 End If Set Fr = Wat.FindNext(Fr) Ro2 = Fr.Row If Ro2 = Ro1 Then Exit Do Loop T.Range("D" & i) = IIf(Sd = 0, "", Sd) T.Range("E" & i) = IIf(Se = 0, "", Se) My_val = Val(T.Range("C" & i)) + Val(T.Range("D" & i)) _ - Val(T.Range("E" & i)) T.Range("F" & i) = IIf(My_val = 0, "", My_val) T.Range("G" & i) = IIf(n = 0, "", n) Again: Sd = 0: Se = 0: n = 0 Next i End Sub T_Mansour.xlsm
    2 points
  6. برنامج كنترول مصغر لصفوف النقل الاعدادى لرصد الدرجات وطباعة النتيجة والشهادات عفوا تم تعديل خطأ فى معادلات صفحة الرصد إسم المستخدم محمد فتحى كلمة المرور ١٩٧٠ محرر الاكواد. ٦١٠١٩٧٠ كنترول شيت.xlsb
    1 point
  7. السلام عليكم، أحياناً تواجهنا مشكلة في الأكسس وهي تحول الارقام الى العربية خصوصاً اذا كان بجانب الرقم حروف عربية لذلك دعونا نختصر الوقت على العميل ونقوم بتعديل تنسيقات التاريخ والارقام..الخ برمجياً بدون الطلب من العميل تعديلها يدوياً اقدم لكم فنكشن للتعديل، يمكنكم التعديل والإضافة بحسب ماتجدوه مناسباً. Public Sub EditControlPanelInternational() 'Define a key registry path Dim strComputer Dim objRegistry Dim strKeyPath Dim strValueName Dim getValue Dim regKeyPath Dim strLocaleName, strCountry, strshortDateValue, strlongDateValue, strshortTimeValue, strlongTimeValue, strfirstDayOfWeekValue Const HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") regKeyPath = "Control Panel\International" strLocaleName = "en-US" strCountry = "United States" strshortDateValue = "yyyy-MM-dd" strlongDateValue = "dddd, MMMM d, yyyy" strshortTimeValue = "h:mm tt" strlongTimeValue = "h:mm:ss tt" strfirstDayOfWeekValue = "6" srtnativedigits = "0123456789" objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "LocaleName", strLocaleName objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sCountry", strCountry objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sShortDate", strshortDateValue objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sLongDate", strlongDateValue objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sShortTime", strshortTimeValue objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sTimeFormat", strlongTimeValue objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "iFirstDayOfWeek", strfirstDayOfWeekValue objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sNativeDigits", srtnativedigits Debug.Print "Successfully changed system regional settings." End Sub للأمانة الفنكشن من كتابة saf لذلك انا قمت بإضافة السطر srtnativedigits = "0123456789" objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sNativeDigits", srtnativedigits لتغيير تنسيق الأرقام من عربي إلى انجليزي ومن ثم قمت بنقله لكم.
    1 point
  8. كلام اخوي ابوخليل عن اذا كان النموذج به قسم واحد ، مثل الصورة اللي ارفقها (كل الكائنات في قسم التفصيل) ، بينما النموذج المرفق فيه قسم "رأس الموضوع" Form Header ، وقسم "التفصيل" Detail ، لذا ، فكل قسم له ترقيم خاص به 🙂 . جعفر
    1 point
  9. تسلم ايدك استاذى Ahmed_J حفظك المولى ورعاك هذا بالضبط ما كنت اتمناه ربنا يرضى عنك اللهم امين يارب
    1 point
  10. تقضل اخي الكريم الملف بعد التعديل اتمنى يكون المطلوب DATA2000-3.mdb.rar
    1 point
  11. يجب ان يوضع الكود في حدث "بعد التحديث" AfterUpdate او حدث "عند فقد التركيز" On Lost Focus للحقل مخزن
    1 point
  12. تفضل بنفس الطريقة مع فتح سجل جديد وينتقل الى حقل المبلغ وهكذا اتمنى يكون المطلوب DATA2000-2.mdb.rar
    1 point
  13. اخي العزيز تستطيع نقل التركيز الى سجل المبلغ عن طريق وضع الكود عند التغيير في حقل المخزن تحياتي لك Me.iAmount.SetFocus DATA2000.mdb.rar
    1 point
  14. أحسنت أستاذ محمد بارك الله فيك وزادك الله من فضله
    1 point
  15. السلام عليكم جرب المرفق في بعض من الطلبات التي ذكرتها ولحل كامل المتطلبات ارسال ملف به كل الامثلة التي تتوقعها وسيتم عمل المعادلات ان شاء الله ايهاب.xlsx
    1 point
  16. السلام عليكم ورحمة الله غير العبارة Dim ahmed As Range الى Dim ahmed As long و سيعمل معك الكود
    1 point
  17. يتم ذلك بطريقتين أولهما :وبما انك لم تقم برفع ملف فسيتم الرد أيضاً بدون ملف 1. انقر قم بتقديم > الخيارات في Excel 2010/2013 ، أو انقر فوق زر المكتب > خيارات إكسيل في Excel 2007. 2. في خيارات إكسيل مربع الحوار، انقر فوق المتقدم من الجزء الأيمن ، وقم بإلغاء تحديد تفعيل مقبض التعبئة وسحب الخلية وإفلاتها الخيار تحت خيارات التحرير قسم في الجزء الأيسر ، انظر لقطة الشاشة أو بهذا الكود Sub Disable_Cell_Drag_Drop() Application.CellDragAndDrop = False End Sub
    1 point
  18. حياك الله 🙂 وانصحك انك دائما تستعمل البرنامج المرفق ، كل مرة تعدل على برنامجك ، وكل مرة تصادف مشكلة : جعفر
    1 point
  19. بكيل الشوكي المشكلة لديك انت فكما ترى بالصورة ملف الأستاذ كريم الحسينى يفتح ويعمل بكل كفاءة ... بارك الله فيك وفى جهودك استاذ كريم يجب عليك تحديث ملف فك الضغط لديك وشكراً
    1 point
  20. أخي العزيز / عبد العزيز المدني هذا الملف الخاص بنتيجة الصف الثامن كمثال ولكنه لصف واحد فقط بحيث أن كل صف بجميع شعبه له ملف مستقل من الأول إلى الثامن ما عليك إلا أن تعمل نسخ منه لكل صف ومن ثم تقوم بوضع البيانات إن شاء الله عندي نية لعمل ملف شامل لجميع الصوف ولكن مشكلة الوقت مرفق معه شرح التعامل معه وإذا في أي إشكالية أو أي شي غير مفهوم متواصلون إن شاء الله تقبل تحياتي وتقديري نتيجة الصف.rar
    1 point
  21. أستاذي الكبير عبد الباري ممكن أقولك حاجة بس توعدني متزعلش .. أقول وأتوكل على الله .. حقيقة الأمر برامج الكنترول برنامج هاااااااام جدا جدا جدا ، وبالتالي يراعى فيه ان يكون حجمه خفيف شغله خفيف وعملي إلى حد كبير .. بالتالي أرجح دائما البعد عن كل ما يسبب ثقل للملف أو يجعل حجمه يكبر ..!!! أنا من فترة من حوالي سنيتن عملت برنامج للصف السادس طلب مني وكان البرنامج يسع التعامل مع أكثر من ألف مدرسة ومرن جدا وبصراحة أنا مش عارف عملته إزاي .. كله بعون الله وتوفيقه ، والبرنامج وفيه بيانات أكثر من 3000 طالب كان حجمه لا يتعدى 2 ميجا كان 1.3 تقريبا لا أتذكر صراحة ... المقصد من كلامي أن يكون البرنامج خفيف بقدر الإمكان .. لأن معظم اللي بيستخدموا البرامج دول شغالين في أجهزة المدارس (اللي هفا عليها الزمن) ، ويهمهم دايما المخرجات بقدر ما يهمهم شكل البرنامج ، ومش معنى كلامي إننا هنتغاضى عن الشكل ، هذا ليس مقصدي ، إنما هدفي الأول أن يكون البرنامج عملي من الدرجة الأولى ... نشوف ايه اللي الناس محتاجاه ، ونركز عليه ، وفقط وبالنسبة للناس اللي بتطلب كشوف المنادة وأرقام الجلوس وخلافه من أعمال الكنترول ، لما لا تكون منفصلة عن برنامج الكنترول الأصلي حتى لا نسبب ثقل للملف هذا رأيي الشخصي ( وأنتم لكم حرية التعامل مع البرامج بالشكل الذي يحلو لكم) فأنا لست حكرا على رأي أحد وأكرر هذا رأي شخصي (ولا يعني رأيي أني أفرض رأيي على أحد والعياذ بالله ..هذا مجرد رأي ، وقد أكون أخطأت فيه) والله من وراء القصد وهو يهدي السبيل .. أعتذر للإطالة .تقبلوا تحياتي
    1 point
×
×
  • اضف...

Important Information