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

🎈عيد سعيد🎈

🎈عيد سعيد🎈 هديــــة العيد : تحويل التاريخ يحتوى المرفق على بعض الاكواد المجمعة فى موديولات لا غنى عنها تحويل التاريخ.zip

اذا اردت التوزبع عشوائي هذا الماكرو Option Explicit Sub choose_rnd() '============================================= Rem this Macro distributs all numbers bettween Two given Ones _ In Columns with fixed lenght(by Choise) _ without repetition _ ========>> Created by_salim hasbaya On 6/6/2019 '============================================= If ActiveSheet.Name <> "SALIM" Then Exit Sub Dim i% Dim myStart%: myStart = Application.Min([c2:c3]) Dim myEnd%: myEnd = Application.Max([c2:c3]) Range("c2").CurrentRegion.Offset(2, 1).ClearContents If Not IsNumeric([a2]) Or [a2] < 1 _ Or Int([a2]) <> [a2] Then [a2] = 50 Dim Max_ro%: Max_ro = [a2] + 2 If Max_ro > 102 Then Max_ro = 52 Dim r%, c% r = 3: c = 4 With CreateObject("System.Collections.SortedList") For i = myStart To myEnd .Item(Rnd) = i Next i i = 0 Do Until i > .Count - 1 Cells(r, c) = .GetByIndex(i) r = r + 1 If r = Max_ro + 1 Then r = 3: c = c + 1 i = i + 1 Loop End With End Sub الملف مرفق Rnd _Distribution.xlsm

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

بعد اذن الاستاذ عادل زيادة في اثراء الموضوع هذا الكود Private Sub CommandButton1_Click() Dim My_min#: My_min = Application.Min([b2:b3]) Dim My_max#: My_max = Application.Max([b2:b3]) Dim i#, c%, r%, Max_ro% c = 4: r = 3: Max_ro = 52 Range("b2").CurrentRegion.Offset(1, 2) = vbNullString For i = My_min To My_max Cells(r, c) = i r = r + 1 If r = Max_ro + 1 Then: r = 3: c = c + 1 Next End Sub

الأخ العزيز خالد عبد الغفار هل هذا هو المطلوب؟ كل عام أنتم بخير bb1.zip

السلام عليكم و رحمة الله تعالى و بركاته: لقد وعدت أخي و أستاذي @jjafferr بهدية تعجبه إن شاء الله. أولا: أنا شغوف بعمل الإضافات التي تنقص برنامج الأكسس فبعد عمل إضافة شريط الطباعة للتقرير أداة إضافة شريط القوائم لنماذج ها أنا اليوم أقدم لكم برنامجا آخر و هو "برنامج التحزيم" ثانيا: شرح البرنامج 1- نقوم بتسجيل اسم ملف التثبيت 2-نقوم بتسجيل اسم البرنامج 3- تسجيل رقم السريال 4- نضغط على الزر و نقوم بإضافة ملف البرنامج 5- نضغط على الزر و نختار أيقونة البرنامج 6- نضغط على الزر و نختار مرفقات البرنامج ثم نضغط على موافق يقوم البرنامج بإنشاء ملف التنصيب بصيغة accde ملاحظة: ملأ جميع البيانات إجباري فقط المرفقات ليس إجباري شرح طريقة التنصيب: و هذا هو البرنامج: برنامج التحزيم exe.rar

السلام عليكم تقبل الله طاعاتكم إن شاء الله لقد لاحظ وجود نماذج و تقارير خاصة بالويب في الأكسس و عندما قمت بالبحث عن دورها وجدت هذا الرابط فيه فديو يشرح طريقة فتح هذه النماذج من خلال مستعرض ويب خارجي و ذلك بنشرها في Access Services https://support.office.com/ar-sa/article/النشر-إلى-access-services-146eb4a0-9507-46ef-bb58-52423c6730cb?ocmsassetID=HA101862691&CorrelationId=19ebe75f-56fc-492c-aa32-bdbb115c691b&ui=ar-SA&rs=ar-SA&ad=SA سؤالي هو كيف يمكن إنشاء حساب في Access Services و ما هي طريقة إنشاء موقع عليه مثل الذي هو مستخدم في الفديو

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

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

لم افهم ما تقصده تشرفت بمروركم الكريم استاذ عادل

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

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

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

اخي ضع في الخلية B2 بداية الارقام وفي الخليةة B3 ضع الرقم الذي ستنتهي عنده الارقام ثم اضغط علي زر توزيع ارجو ان يكون المطلوب مصفوفة.xlsm

الملف بصيغة 2003 اذا كان الكومبوبوكس في الصفحة T فارغاً اخرج من الصفحة ثم عد اليها DALIM.xls

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

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

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

الان فهمت ماتريده تقريبا وقد تذكرت دالة كان عاملها القدير ابو تامر اسمها VLOOK2ALL ولكن يشترط نقل العامود الذي تضع فيه 1 للعد قبل عامود رقم الجلوس والدالة مرقفة في الملف في مديول جرب كده اعتقد انها ستحل المشكلة دليل التظريف.xlsm

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

ربما تنفع مجموع الأكواد هذه بجيث تختار المادة التي تريد اذا كان الكومبوبوكس في الصفحة T فارغاً اخرج من الصفحة ثم عد اليها Private Sub My_Combo_Change() Rem ======>> Created By Salim Hasbaya On 5/6/2019 Tajriba End Sub Rem ==================================== Private Sub Worksheet_Activate() Rem ======>> Created By Salim Hasbaya On 5/6/2019 fil_comBo End Sub Option Explicit Rem ======>> Created By Salim Hasbaya On 5/6/2019 Sub Tajriba() Dim tt As Worksheet: Set tt = Sheets("T") Dim M As Worksheet: Set M = Sheets("Matharive") Dim Madda$: Madda = tt.Range("B2") Dim col%, My_count Dim x_ro%: x_ro = 5 Dim Y_col%: Y_col = 4 Dim Max_ro%, Frst_ad$, Act_ad$ Dim find_what As Range Dim Searh_rg As Range Dim t% Dim Ro% tt.Range("d5:v" & Rows.Count).ClearContents Max_ro = M.Range("t1").CurrentRegion.Rows.Count col = Sheets("MaTharive").Range("T1:ba1").Find(Madda).Column Set Searh_rg = Sheets("MaTharive").Cells(1, col).Resize(Max_ro) My_count = Application.CountIf(Searh_rg, Madda) - 1 Set find_what = Searh_rg.Find(Madda) If find_what Is Nothing Then Exit Sub Act_ad = Searh_rg.Find(Madda).Address Frst_ad = Act_ad Ro = find_what.Row Do t = t + 1 If t > My_count Then Exit Do tt.Cells(x_ro, Y_col) = M.Cells(Ro, "T") x_ro = x_ro + 1 If x_ro = 55 Then x_ro = 5: Y_col = Y_col + 1 Set find_what = Searh_rg.FindNext(find_what) Act_ad = find_what.Address Ro = find_what.Row If Act_ad = Frst_ad Then Exit Do Loop End Sub Rem================================== Sub fil_comBo() Dim MY_Array(1 To 18) Dim i MY_Array(1) = 21: MY_Array(2) = 25: MY_Array(3) = 27 MY_Array(4) = 29: MY_Array(5) = 31: MY_Array(6) = 33 MY_Array(7) = 35: MY_Array(8) = 37: MY_Array(9) = 38 MY_Array(10) = 40: MY_Array(11) = 42: MY_Array(12) = 43 MY_Array(13) = 45: MY_Array(14) = 46: MY_Array(15) = 47 MY_Array(16) = 49: MY_Array(17) = 50: MY_Array(18) = 51 For i = 1 To 18 MY_Array(i) = _ Sheets("MaTharive").Cells(1, MY_Array(i)) Next Sheets("t").My_Combo.List = Application.Transpose(MY_Array) Erase MY_Array End Sub الملف مرفق Dalil.xlsm

عيدكم مبارك وكل عام وانتم بخير

يا سلام يا سلام يا سلام ايون كده الله ينور عليك

جيران الهنا يا اهل الاكسل الكرام 🎈عيد سعيد🎈 🎈عيد سعيد🎈 🎉🎊🎁🎈أخوانكم وجيرانكم من قسم الأكسس يهنئكونكم بحلول عيد الفطر المبارك 🎉🎊🎁🎈 اعاده الله عليكم وعلى امتنا الاسلامية بكل الخير والصلاح والفلاح والرشاد 💐💐💐💐💐💐 كل عام وانت بخير 🥀☺😘😍🥀 💐💐💐💐💐💐 🎈عيد سعيد🎈 🎉🎊🎉🎊🎉🎊 🎁🥀🎁🥀🎁🥀 تقبل الله صيامكم وقيامكم

ما يغلى عليك تدلل

كل عام وانتم والاسرة الكريمة بكل خير استاذنا الفاضل

وحضرتك والاسرة الكريمة وكل احبابك بخير وسعادة يارب

كل عام وأنت بصحة وعافية

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

السلام عليكم اخي يوسف انا حاولت في ملفك علي حسب درجة فهمي للموضوع ووجدت حلا لا ادري اذا كان هذا الحل يفيد ام لا ارجو تجربة الملف واخبرني بملاحظاتك تحياتي دليل التظريف.xlsm

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

نظرا لكبر حجم الملف وبعد إذن أخى العزيز ابا جودى جرب أن تكرر إستعلام SearchQuery مع تغيير إسمه الى SearchQuery2 وتغير المعيار التالى Like "*" & [Forms]![FullSearch]![Text0].[Text] & "*" الى Like "*" & [Forms]![FullSearch]![Text0] & "*" وتجعله مصدر للتقرير SearchQuery بالتوفيق وكل عام أنتم بخير

السلام عليكم 🙂 للعلم 🙂 جعفر

السلام عليكم اتمني أن تستفيدو من هذا الموضوع والمناقشات التي دارت فيه @qathi @حلبي تحياتي

لديك خطأ في Form_Main  احذف منه End Function واستبدلها بـ End Sub ع لا ادرى ماذا تقصد استاذى العزيز ------------------------------------------- اما بخصوص get ip اليا اعرفها ولكم طريقتى تعتمد على عمل بينج على جهاز اخر على الشبكة وليس هذا الجهاز للتاكد دائما من اتصال هذا الجهاز لان بيانانت الوقت والتاريخ يتم احضارها منه هو ومذلم سوف تكون عليه القاعجة الخاصة بالجداول