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

بحث بالفورم فى سبع عواميد بالاكسل الفيديو الصور بحث بالمسلسل تكبير الصورة معاينة الأبعاد الأصلية. بحث بالاسم تكبير الصورة معاينة الأبعاد الأصلية. بحث بتاريخ الميلاد تكبير الصورة معاينة الأبعاد الأصلية. باقى البحث فى الفيديو بحث بالكود وبحث فى المحافظة وبحث فى الديانة وبحث فى النوع ملف البحث ب7 طرق http://www.mediafire.com/file/b88sbcnad9bs8g1/فورم+بحث++فى+7+عواميدبيانات+الطلاب.rar

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

السلام عليكم ورحمة الله تعالى وبركاته اسعد الله اوقاتكم بكل الخير كما هو الحال نعرف الجواب من العوان Identity Database.accdb

السادة الاعضاء والمشرفين والخبراء / السلام عليكم لم اعرف هل فكرة مربع التحرير والسرد هذه تهم احد منكم ام لا علي اي حال ارفقها لكم لعل وعسي تنفع لاحد منكم الفكرة ان المعروف عن مربع التحرير ان يكتب فيه كلمة واحدة تختارها بعد الضغط عليه ولكن هنا تقدر تختار اكثر من كلمة بحيث مربع التحرير يكون به اختيارين بجانب بعضهما list box.accdb

عندنا قائمة (في العامود الاول ) لمجموعة اسماء لاشخاص ممكن ان تكون مكررة المطلوب اختيار عدد معين منها (تختاره بنفسك) ودون تكرار بطريقة عشوائية الكود 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

السلام عليكم ورحمة الله الكود الاول للوارد : Sub ImpData() Dim ws As Worksheet, Sh As Worksheet Dim Arr As Variant, Tmp As Variant Dim LR As Long, i As Long, j As Long, p As Long, x As Integer Set ws = Sheets("وارد") For Each Sh In Sheets(Array("غيار رولة دهان كبيره ", "يد رولة دهان كبيره")) Arr = Sh.Range("A10:Q100").Value ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 2) <> "" Then p = p + 1 For j = 1 To 5 Tmp(p, j) = Arr(i, Choose(j, 2, 1, 17, 3, 13)) Next End If Next LR = ws.Range("C" & Rows.Count).End(xlUp).Row If p > 0 Then ws.Range("A" & LR + 1).Resize(p, 5).Value = Tmp p = 0 Next End Sub والكود الثانى للمنصرف : Sub ExpData() Range("A5:E1000").ClearContents Dim ws As Worksheet, Sh As Worksheet Dim Arr As Variant, Tmp As Variant Dim LR As Long, i As Long, j As Long, p As Long, x As Integer Set ws = Sheets("منصرف") For Each Sh In Sheets(Array("غيار رولة دهان كبيره ", "يد رولة دهان كبيره")) Arr = Sh.Range("A10:Q100").Value ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 6) <> "" Then p = p + 1 For j = 1 To 5 Tmp(p, j) = Arr(i, Choose(j, 6, 5, 17, 9, 13)) Next End If Next LR = ws.Range("C" & Rows.Count).End(xlUp).Row If p > 0 Then ws.Range("A" & LR + 1).Resize(p, 5).Value = Tmp p = 0 Next End Sub

بعد إذن الأستاذ سليم قد يكون الحل في المرفقات والطريقة شرحتها في هذا الفيديو https://a.top4top.net/m_11809iwk01.mp4 حساب الوقت2.xlsx

السلام عليكم جرب هذا لعله يوافق مرادك Worker.accdb

اتفضل اتمنى يكون المطلوب ProgV7.rar

وعليكم السلام تفضل Officena1.xlsx

أخى الكريم / سليم حاصبيا بارك الله فيكم و زادكم من علمة و لا أملك الا الدعاء لكم بظهر الغيب

ماشاء الله استاذ سليم كما عودتنا مبدع دائما وجزاكم الله خير الجزاء

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

الف مليون شكر ربنا يبارك في عمرك جزاك الله كل خير هو ده اللي انا محتاجه بالضبط الف شكر استاذي انا عندي سؤال اخر لو حبيت عدد الاقساط تقل بحلول كل شهر اعملها ازاي

اعتقد انه يحب ادراج الجدول بهذا الشكل دون معادلات كبيرة makhzan_2019.xlsx

افكار ممتازة

احسنتم جزاكم الله خيرا

بارك الله فيكم

ممكن هذا الملف هو المطلوب False_V LOOK UP.xlsx

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

أحسنت أستاذ سليم عمل ممتاز جعله الله في ميزان حسناتك

وعليكم السلام تفضل -يمكن ذلك بمعادلة Vlookup مع بمعادلة Sumif V LOOKUP & Sumif.xlsx

سلمت يمينك وجزاكم الله خير الجزاء ماشاء عمل فى قمة الروعة استاذ طارق محمود ادامكم الله فى طاعته وعلى مساعدة الاخرين

صور الغاء الرسالة في المرفقات sg.rar

جذاك الله خير الفيديو على المنتدى

السلام عليكم هي مجرد فكرة خطرت ببالي اردت تطبيقها وقد نجحة في دالك بفضل الله ارجو ان تعجبكم حركة لطيفة.rar حركة لطيفة 2003.rar

السلام اليكم اخواني في المنتدى ارجو ابداء الرأي في الملف التالي حيث يقوم الكود باضافة صفحة تحتوي عل تفاصيل كل المعادلات مع احتساب التعديل اذا حصل list formula.rar

يا جمالة ياجمالة يا جمالة على رأى معلقين الكورة

استاذ شوقي دائما مبدع

ملك الحركات الرائع شوقي ربيع مااجمل من حركاتك وابدعاتك اللهم لا يحرمنا من ابداعتك الجميلة ومشاركتك الاجمل تقبل تحياتي