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

تفضل طباعة.xlsm

هذا برنامج الملاحظة1 وهو يرنامج صمم خصيصا لمساعدة الإدارات المدرسية في عمل حصص المراقبة على الامتحانات , والمساواة بين المعلمين بقدر الأمكان في حصص المراقبة التعليمات والشرح داخل الملف برنامج الملاحظة1.rar

عندنا قائمة (في العامود الاول ) لمجموعة اسماء لاشخاص ممكن ان تكون مكررة المطلوب اختيار عدد معين منها (تختاره بنفسك) ودون تكرار بطريقة عشوائية الكود Option Explicit '+++++++++++++++++++++++++++++ Sub choos_randomly() Dim i%, rd%, x%, _ k%, y%, Lr% Dim My_list As Object If ActiveSheet.Name <> "Salim" Then Exit Sub Set My_list = CreateObject("System.Collections.ArrayList") Lr = Cells(Rows.Count, 1).End(3).Row If Lr < 2 Then Exit Sub Range("c2", Range("c1").End(4)).ClearContents '=============================== If [g2] <= 0 Or Not IsNumeric([g2]) Then MsgBox "You Choose a NEGATIVE Number ,Or ZER0 or Empty CELL" & Chr(10) & _ "I Can't Help You", 1048640 Exit Sub Else [g2] = Int([g2]) End If '===================== With My_list For i = 2 To Lr If Not .Contains(Range("a" & i).Value) Then .Add Range("a" & i).Value End If Next y = .Count .Clear End With If [g2] > y Then MsgBox "You Choose an Impossible number" & Chr(10) & _ " Please Enter a Number <= than " & y, 1048640 [g2] = vbNullString Exit Sub End If '====================== k = 0 With My_list Do Until k = [g2] If k = y Then Exit Do x = (Lr) * Rnd: If x < 2 Then x = 2 If Not .Contains(Range("a" & x).Value) Then .Add Range("a" & x).Value k = k + 1 End If Loop Range("c2").Resize(.Count) _ = Application.Transpose(.toarray) .Clear End With End Sub الملف مرفق Choose N_Presons from _M.xlsm

السلام عليكم تم الرد فى هذا الموضوع

العفو اختي ام ناصر وبارك الله فيك

اذا كان نص بيكون هكذا Set rs2 = CurrentDb.OpenRecordset("select * from skills where id='" & rs1(0) & "'")

مشاركة مكررة يجب حذفها فقد تم الرد على المشاركة الأخرى على هذا الرابط https://www.officena.net/ib/topic/89961-مساعدة-بمعادلة/

يا سلام انت تأمر إتفضل LargeCheckBox ☺2.mdb

السلام عليكم تفضل الملف به اضافة للكود تمنع اعطاء المراقب فترتان فى وقت واحد توزيع الارقام بطريقة عشوائية2.xlsm

تفضل اخى الكريم المطلوب ان شاء الله كرت دوام 2نهائى.xls

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

أخى الفاضل / تـــــامر السلام عليكم ألم تلاحظ أن عدد العمدة كان قليلا .. ألم تلاحظ أن عناوين العمدة غير مناسبة تم عمل الملاحظات السابقة تحت أمركم .. نحن معا .. أخبرنى project 1000.rar

أخى الفاضل / تـــــامر السلام عليكم تفضل أخى الفاضل تم عمل اللازم .. يارب ندخل فى موضوع جديد تحت أمركم .. نحن معا .. أخبرنى project 10.rar

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

أخى الفاضل / تـــــامر السلام عليكم تفضل أخى الفاضل تم نقل فورم الأخ الفاضل / خبور كما هو كما طلبتم نحن معا project4.rar

أخى الفاضل / تـــــامر السلام عليكم تحية لكل اهلنا فى فلسطين الحرة تفضل أخى الكريم ولكن .. يجب على عامل البحث أن يكون فريدا لا يتكرر مثل المسلسل او كود القطعة أما المالك يتكرر .. مجرد ملحوظة نحن معا project 3.rar