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

برنامج للحضور والانصراف للعاملين انا كنت نزلته قبل كده فى قسم الاكسس النسخه دى بعد اضافات جديده وشرح لطريقه الاستخدام وانا ضفته فى هذا القسم خوفا ان يكون مخالف انى انزل البرنامج مرتين وهترك المجال لإدارة المنتدي تتولى نقله من عدمه لقسم الاكسس صور البرنامج https://drive.google.com/open?id=1j5MJeQdaqHGL351Me9wD4x5hKcna0gPq https://drive.google.com/open?id=1y6qL4x8khyedccBXY-VSxZqhrdJPMT3W https://drive.google.com/open?id=1GB7gVZcAxfuocr_lU9YsbIHzRMafhUMm https://drive.google.com/open?id=1vcKj26_EoFJ57jrymPCdetXE9QOIHuVY https://drive.google.com/open?id=1XGykpvyh3YTWwLFf0Wyu1MZHObwO7uVa فيديو استخدام البرنامج رابط التحميل https://drive.google.com/open?id=1nrhgmtBR3iuhVwSoEUyS9AWebO2As1Rj وهرفق نسخه فى الموضوع

بعد اذن الاستاذ نزار هذا الكود Option Explicit Sub Fil_Ijasat() Dim Dic As Object, KY Dim I%, lr%, m%, K% Dim txt Dim EE#, FF#, HH#, JJ#, GG#, II#, KK# Dim Source_Sheet As Worksheet Dim Target_Sheet As Worksheet Dim Cur_Value Set Source_Sheet = Sheets("Sheet1") Set Target_Sheet = Sheets("Sheet2") Set Dic = CreateObject("Scripting.Dictionary") lr = Source_Sheet.Cells(Rows.Count, 2).End(3).Row Target_Sheet.Range("a3:k100").ClearContents If lr < 4 Then Exit Sub For I = 4 To lr txt = Source_Sheet.Cells(I, 2).Resize(, 3) txt = Application.Transpose(txt) txt = Application.Transpose(txt) txt = Join(txt, "*") Dic(txt) = Dic(txt) + Val(Source_Sheet.Cells(I, 7)) Next I If Dic.Count Then m = 3 For Each KY In Dic Target_Sheet.Cells(m, 1) = m - 2 Target_Sheet.Cells(m, 2).Resize(, 3).Value = _ Split(KY, "*") m = m + 1 Next KY End If Set Dic = Nothing If m > 3 Then For I = 3 To m - 1 For K = 4 To lr If Target_Sheet.Cells(I, 2) = Source_Sheet.Cells(K, 2) Then Cur_Value = Val(Source_Sheet.Cells(K, 7)) Select Case Trim(Source_Sheet.Cells(K, 8)) Case "اعتيادي": EE = EE + Cur_Value Case "عارضة": FF = FF + Cur_Value Case "اذن": HH = HH + Cur_Value Case "تناوب": JJ = JJ + Cur_Value Case "انقطاع": GG = GG + Cur_Value Case "راحة": II = II + Cur_Value Case "مرضي": KK = KK + Cur_Value End Select End If Next K With Target_Sheet.Cells(I, 5) .Value = IIf(EE = 0, "", EE) .Offset(, 1) = IIf(FF = 0, "", FF) .Offset(, 2) = IIf(GG = 0, "", GG) .Offset(, 3) = IIf(HH = 0, "", HH) .Offset(, 4) = IIf(II = 0, "", II) .Offset(, 5) = IIf(JJ = 0, "", JJ) .Offset(, 6) = IIf(KK = 0, "", KK) End With EE = 0: FF = 0: GG = 0: HH = 0 II = 0: JJ = 0: KK = 0 Next I End If End Sub الملف مرفق Ijasat.xlsm

مثال لكتابة الاسم الكامل ، ثم تقسيمه الي أجزاء بالنقر المزدوج عليه Splitnames.rar

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

تفضل التعديل DATA20008.zip

يمكنك استخدام هذا البرنامج الموجود بهذا الرابط وذلك بما انك قمت برفع الملف محمى بكلمة سر كما انك قمت برفع الملفات فارغة بدون اى بيانات: برنامج دمج ملفات الإكسيل فى ملف واحد Excel Merger أو يمكنك استخدام هذا الكود Sub MergeExcelFiles() Dim fnameList, fnameCurFile As Variant Dim countFiles, countSheets As Integer Dim wksCurSheet As Worksheet Dim wbkCurBook, wbkSrcBook As Workbook fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True) If (vbBoolean <> VarType(fnameList)) Then If (UBound(fnameList) > 0) Then countFiles = 0 countSheets = 0 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set wbkCurBook = ActiveWorkbook For Each fnameCurFile In fnameList countFiles = countFiles + 1 Set wbkSrcBook = Workbooks.Open(FileName:=fnameCurFile) For Each wksCurSheet In wbkSrcBook.Sheets countSheets = countSheets + 1 wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count) Next wbkSrcBook.Close SaveChanges:=False Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic MsgBox "Processed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files" End If Else MsgBox "No files selected", Title:="Merge Excel files" End If End Sub

تفضل ربما يكون المرفق ما تريد الاكواد اظنها للاستاد ياسر ابو البراء جزاه الله خير الجزاء قمت بتعديلها حسب طلبك قوائم مترابطة (2).xlsm

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

وعليكم السلام تم عمل المطلوب حسب الصورة ادناه وتمت اضافة طريقة اخرى اسفل الجدول عن طريق القوائم المنسدلة جرب واي استفسار اعلمني تجميع ب sumif.xls

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

عليكم السلام، قمت بشرح هذا الدرس منذ 5 سنوات وذلك بإستخدام الدالة Like في الإستعلام، شاهد الدرس وأخبرني النتيجة

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

in the Cell I3 this formula,and drag 3 columns to right,Until Row 121 =VLOOKUP($H3,'Data base'!$B$4:$E$69,COLUMNS($A$1:B1),0) File Included mr7mix.xlsx

وعليكم السلام-يمكنك استخدام هذا الكود لطلبك Sub Combine() Dim j As Integer Dim s As Worksheet On Error Resume Next Sheets(1).Select Worksheets.Add ' add a sheet in first place Sheets(1).Name = "Year 2020" ' copy headings Sheets(1).Activate With ActiveSheet v = 1 Range("a2").Resize(v + 1, 10) = arr Range("b" & v + 1).FormulaR1C1 = "Total" Range("c" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C3:R[-2]C)" Range("d" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C4:R[-2]C)" Range("e" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C5:R[-2]C)" Range("f" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C6:R[-2]C)" Range("g" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C7:R[-2]C)" Range("h" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C8:R[-2]C)" Range("i" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C9:R[-2]C)" End With Sheet1.Range("b4:k4").Copy Sheets("Year 2020").Range("a3:K3") Columns("A:C").ColumnWidth = 10 Columns("D:I").ColumnWidth = 8 Columns("J").ColumnWidth = 16 Range("b4").EntireRow.Select Range("b2:i2").Interior.ColorIndex = 5 Range("a2:j2").Font.ColorIndex = 2 Range("b2:i2").Font.Bold = True Range("b2:i2").Font.Size = 16 Range("b2:i2").Font.Name = "Times New Roman" Range("b2:i2").HorizontalAlignment = xlCenter Cells.Rows(4).Font.Bold = True Selection.Copy Destination:=Sheets(1).Range("b4") For Each s In ActiveWorkbook.Sheets If s.Name <> "Year 2020" Then Application.Goto Sheets(s.Name).[b4] Selection.CurrentRegion.Select ' Don't copy the headings Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sheets("Year 2020"). _ Cells(Rows.Count, 1).End(xlUp)(2) End If Next End Sub Book4 .xlsm

هذا مثال بسيط عن استخدام الدالة dmax لعمل ترقيم مسلسل ، و نلجأ لهذه الطريقة عندما نريد السماح لنا بتعديل ترقيم المسلسل بسهولة و لأنه يمكن فى حالة تعدد المستخدمين أن يتم حجز رقم و اظهاره فى النموذج من قبل مستخدم بناء علي القيمة فى الجدول ، بينما يحجز مستخدم آخر نفس الرقم ، لذا يتم اعادة اختباره قبل التسجيل

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

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

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

الاخوة الاكارم السلام عليكم ورحمتة وبركاتة اما بعد ... ماهي المعادلة التي يمكن ان تعمل التالي: فالنفرض مثلا لدي هذه الارقام 22.44 او 25.70 او 37.84 او 15.23 مااحتاجة هو معادلة تشاهد بعد الفاصلة وتحسب التالي مابين 1 الى 25(ضع 25) ومن 26 الى 50 (ضع 50) ومن 56 الى 75 (ضع 75) ومن 76 الى 100 يعمل الرقم Rounding اي مثلا : 15.23==>> 15.25 22.44 ==>> 22.50 25.70 ==>> 25.75 37.84 ==>> 38.00 ارجوا الا يكون سؤالي صعب مع الشكر لكم .

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

اخوي محمد فكرت في الطريقة وقررت اسويها احم احم :pp: بس في مربع combo box اللى فوق كيف اخليه يحتوي على الحقول مو السجلات زي ما انت مسوي بالضبط والف شكر

كيف يمكنني رؤية رقم مسلسل لتقرير نفترض أن يكون تقرير عن طلبة دورة أريد أن يظهر لي الرقم المسلسل 1،2،3،4،5،6 ..... أرجو منكم الرد وجزاكم الله خيراً

السلام عليكم النموذج عند التصميم بعض الـ controls لها labels تتبعها ، فلو قمنا بتحريكها سوف يتحرك معها الـ label حيثما تذهب . السؤال : ما هو الرابط بينهما ، وكيف يتم التعرف عليه ، وهل يمكن ربط label منفصل مع كنترول تم حذف الـ label الأصل التابع له . اسمحوا لي لاستخدام الأسماء الإنجليزية حيث لا أعرف المسميات بالعربي وكثيرا أترجمها بنفسي لأسهل على القراء ولكني في آخر مشاركة لي أخطأت في الترجمة ولا أحب أن أكرر الخطأ ، كما أني الآن بالذات لم أستطع أن أترجم كلمة label ولا أدري ماذا حصل بذاكرتي :) فعذرا . تحياتي .

السلام عليكم مثال لمعرفة كل المستخدمين لجميع قواعد بيانات أكسس المرتبطة ببرنامجك . المطلوب : تصدير جميع محتويات هذا المثال إلى برنامجك ثم افتح النموذج الرئيس . المحتويات : جدولان ونموذجان وموديول واحد . جربوا واخبرونا . تحياتي . LinksCurrentUsers.zip