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

السلام عليكم 1- تم الاخذ بملاحظات الاستاذ @jjafferr وتم تغيير مكان الكود (اصبح بعد التحديث) 2- قائمة الحساب هي منسدله ؟؟؟ المفروض تختار منها ملف مرفق انظر له بعد التعديل تحياتي DATA2000-3.mdb.rar

عليكم السلام انظر الصورة يمكنك ترتيب الانتقال بواسطة اعطاء الرقم للحقل حسب الترتيب الذي تحب علما ان البداية من رقم صفر

جرب هذا المرفق وهو من كنوز المنتدى للسيد عبدالله باقشير البرقيات.xls

ربما تقصد ما في هذا المرفق طباعة.xlsm

السلام عليكم تفضل اخي العزيز اتمنى يكون هو المطلوب مشكلة الكسور فى التفقيط.accdb

حرب هذا الملف لا ضرورة لادراج اكثر من 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

برنامج كنترول مصغر لصفوف النقل الاعدادى لرصد الدرجات وطباعة النتيجة والشهادات عفوا تم تعديل خطأ فى معادلات صفحة الرصد إسم المستخدم محمد فتحى كلمة المرور ١٩٧٠ محرر الاكواد. ٦١٠١٩٧٠ كنترول شيت.xlsb

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

كلام اخوي ابوخليل عن اذا كان النموذج به قسم واحد ، مثل الصورة اللي ارفقها (كل الكائنات في قسم التفصيل) ، بينما النموذج المرفق فيه قسم "رأس الموضوع" Form Header ، وقسم "التفصيل" Detail ، لذا ، فكل قسم له ترقيم خاص به 🙂 . جعفر

تسلم ايدك استاذى Ahmed_J حفظك المولى ورعاك هذا بالضبط ما كنت اتمناه ربنا يرضى عنك اللهم امين يارب

تقضل اخي الكريم الملف بعد التعديل اتمنى يكون المطلوب DATA2000-3.mdb.rar

يجب ان يوضع الكود في حدث "بعد التحديث" AfterUpdate او حدث "عند فقد التركيز" On Lost Focus للحقل مخزن

موفق إن شاء الله

تفضل بنفس الطريقة مع فتح سجل جديد وينتقل الى حقل المبلغ وهكذا اتمنى يكون المطلوب DATA2000-2.mdb.rar

اخي العزيز تستطيع نقل التركيز الى سجل المبلغ عن طريق وضع الكود عند التغيير في حقل المخزن تحياتي لك Me.iAmount.SetFocus DATA2000.mdb.rar

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

فعلا هو المطلوب . بارك الله فيك اوخى

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

السلام عليكم ورحمة الله غير العبارة Dim ahmed As Range الى Dim ahmed As long و سيعمل معك الكود

يتم ذلك بطريقتين أولهما :وبما انك لم تقم برفع ملف فسيتم الرد أيضاً بدون ملف 1. انقر قم بتقديم > الخيارات في Excel 2010/2013 ، أو انقر فوق زر المكتب > خيارات إكسيل في Excel 2007. 2. في خيارات إكسيل مربع الحوار، انقر فوق المتقدم من الجزء الأيمن ، وقم بإلغاء تحديد تفعيل مقبض التعبئة وسحب الخلية وإفلاتها الخيار تحت خيارات التحرير قسم في الجزء الأيسر ، انظر لقطة الشاشة أو بهذا الكود Sub Disable_Cell_Drag_Drop() Application.CellDragAndDrop = False End Sub

حياك الله 🙂 وانصحك انك دائما تستعمل البرنامج المرفق ، كل مرة تعدل على برنامجك ، وكل مرة تصادف مشكلة : جعفر

بكيل الشوكي المشكلة لديك انت فكما ترى بالصورة ملف الأستاذ كريم الحسينى يفتح ويعمل بكل كفاءة ... بارك الله فيك وفى جهودك استاذ كريم يجب عليك تحديث ملف فك الضغط لديك وشكراً

هذه محاولة

تفضل جرب المرفق hg.xlsm

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

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