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

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

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

برنامج بيع بالاكسيل vba مجاني اسم المستخدم :مدير الرقم السري:5555 برنامج الافق __.rar

برنامج مجاني من اعداد مايكروسوفت اوفيس اكيد رح نستفيد منه نتعرف على بعض الاكواد مشاريع.accdb

انظر المرفق الاتى Archive-Scan multiple files v11.rar الموضوع قتل بحثا هنا

السلام عليكم ورحمة الله تعالى وبركاته قم بتجربة المرفق الاتى fix Property sheet.zip

::بالتوفق::

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

من فضلك اتبع الخطوات التي في الصورة الشكل رقم 1 في الملف القديم وباقي الأشكال تتبع في الملف الجديد مع خالص تحياتي

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

ما شاء الله تبارك الله ... نقل موفق اخي الكريم

وعليكم السلام ورحمة الله وبركاته أولا : لو رفت لنا مثالا حتى يتم التطبيق عليه ثانيا : نقول اصنع استعلام واتسخدم Between [forms]![f4]![1] And [forms]![f4]![2] بالتوفيق ...

بارك الله فيك استاذ سليم دائما تعين المحتاج الى مساعدتك جزاك الله كل خير وجعله الله فى ميزان حسناتك-معادلة رائعة,أحسنت وأكيد هو ده المطلوب

اليك هذه المعادلة لهذا الامر =SUMPRODUCT(--($D$3:$O$3=P$3)*ISNUMBER($D4:$O4)) تكتبها في الخلية P4 وتسحب يساراً عامود واحد ثم نزولاًاُ

تم تعديل الكود ليتناسب مع كل الأعمدة ابتداءًا من العمودM إلى العمودCV كل ما عليك هو وضع رقم الدرجة للنهاية الصغرى في الصف رقم 9 للأعمدة المطلوب وضع دوائر لها الشرط الثاني لوضع الدوائر هو أن يكون نطاق خلايا العمود c في الصفوف غير فارغ -1استبدال التظليل بدوائر حمراء.xlsm

الحمد لله

جرب هذا الملف Data_Val.xlsm

بارك الله فيك -أحسنت

جزاك الله خيرا

يمكنك استخدام هذا الكود Sub printter() Dim myrange Dim Rng, cell As Range Set myrange = Range("A600").End(xlUp) Set Rng = Range("A1:" & myrange.Address) For Each cell In Rng If cell = "" Then myrange = cell.Address MsgBox cell.Address ActiveSheet.PageSetup.PrintArea = "$A$1:P" & cell.Row ActiveSheet.PrintOut Exit Sub End If Next End Sub

تفضل عملت لك مثل ما قلت dbx3.mdb

الموضوع مكرر وهذا مخالف وايضا اعتقد القاعدة تخص شخص اخر وهذا مخالف لقواعد وقوانين المنتدى

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

تفضل الملف وبعد إذن الأستاذ علي لإثراء الموضوع تم عمل كود إضافة الدوائر وكود حذف الدوائر بزر أمر واحد فعندما تضغط على زر حذف الدوائر يتم حذفها ويظهر الزر باسم إضافة الدوائر والعكس صحيح ولإثراء الموضوع أيضًا تم تعديل آخر في الكود وهو جعل الماكرو يعمل بأي صفحة عمل تكون نشطة -1استبدال التظليل بدوائر حمراء.xlsm

هناك شرح داخلى لكود وضع الدوائر يمكنك تغيير واختيار العمدة التى تريد وضع الدوائر بها وهذا هو الكود مع شرح بسيط له Option Explicit Option Base 1 Sub DrawRedCircles() Dim myArray As Variant Dim Rng As Range Dim Cel As Range Dim Cell As Range Dim L As Long Dim T As Long Dim W As Long Dim H As Long Dim X As Long Dim rRow As Long Dim startRow As Long 'مصفوفة بأسماء الأعمدة المراد وضع دوائر حمراء بها myArray = Array("Q", "U", "Z", "AD", "AI", "AM", "AS", "AT", "AU", "AY", "BE", "BF", "BG", "BK", "BN", "BQ", "BR", "BW", "CA", "CG", "CH", "CI", "CM", "CR", "CV") 'رقم الصف الذى يحتوى على الدرجات النهائية الصغرى rRow = 9 'صف البداية أى أول صف به درجات الطلاب startRow = 10 Application.ScreenUpdating = False Call RemoveCircles With Sheets("Sheet1") For X = LBound(myArray) To UBound(myArray) Set Cel = .Range(myArray(X) & rRow) Set Rng = .Range(myArray(X) & startRow, .Range(myArray(X) & startRow).End(xlDown)) For Each Cell In Rng If Cell.Value < Cel Or Cell.Value = "Û" Then L = Cell.Left: T = Cell.Top W = Cell.Width: H = Cell.Height With .Shapes.AddShape(msoShapeOval, L, T, W, H) .Fill.Visible = msoFalse .Line.ForeColor.RGB = RGB(255, 0, 0) .Line.Transparency = 0 .Line.Weight = 1.5 End With End If Next Cell Next X End With Application.ScreenUpdating = True End Sub

وهذا كود اخر لإثراء الموضوع -بعد اذن اخى أحمد -1استبدال التظليل بدوائر حمراء.xlsm

تفضل المرفق وكود لإضافة سطر فارغ في الملف استبدال التظليل بدوائر حمراء.xlsx

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

السلام عليكم ورحمة الله وبركانه أخي الكريم مثالك بعد التعديل طبعا قمنا بانشاء وحدة نمطية فيها التأثيرالمطلوب وبامكانك التعديل في الالوان حسب ماتراه مناسب لك ثم يتم استدعائه من أي نموذج تريدعن طريق حدث عند فتح النموذج ... بالتوفيق اتمنى اني وفقت في الاجابة Ka_test.accdb

اتفضل مدة زمنية بالكلمات 2 .accdb

أخي أبا فتحي . قد اكون وفقت في طلبك شريط_متحرك.rar

وعليكم السلام-أهلا وسهلا بك بين اخوانك فى منتدانا الكريم وكل عام وانتم بخير ..تفضل استاذى الكريم لك ما طلبت بطريقتين-اختر منهما ما تريد my work-1.xlsx