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

السلام عليكم و رحمة الله استخدم المعادلة التالية =IF($V$1="الصف الرابع";INDEX($C$5:$K$19;ROW($A1);MATCH($V$2;$C$4:$K$4;0));INDEX($L$5:$T$19;ROW($A1);MATCH($V$2;$L$4:$T$4;0)))

وعليكم السلام ورحمة الله 🙂 أول شي تكتب أمر الزر الأول بكود VBA بدل الماكرو .. وبعدين تكتب أوامر الزر الثاني بهذي الطريقة :

تم التعديل ، ويفترض أن أرجع لكم قبل هذا الوقت ولكن اليوم حصل خطأ ما وفقدت جزءا كبيرا من التعديلات واضطررت إلى إعادته مرة أخرى. لم أدقق على النتائج بشكل كاف والكرة الآن في مرماكم 🙂 . توزيع القرار لمدارس العراق_07.xlsm

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

هناك العديد من المواقع التي توفر لك العشرات من الأيكونات .. ولكن المعتمد لدي وهو أسهلها برنامج صغير اسمه ICONS8 .. ويعمل بنظام السحب والإفلات .. يعني الأيكونة اللي تعجبك تسحبها بالماوس من البرنامج وتحطها في المجلد المطلوب 🙂 وكذلك ميزة التحكم بحجم الأيكونات .. وألوانها .. و .. و .. و .. و .. وغيرها مع إمكانية البحث .. لتحميل آخر إصدارة من البرنامج من هنا : https://icons8.com/app/windows

السلام عليكم ورحمة الله تعالى وبركاته اجندة مواعيد الكترونية حتى يأخذ كل ذى حق حقه المرفق مثال أجنبى تم التعديل عليه وتم استخدام افكار وأكواد من المنتدى تخص الاستاذ @أبو آدم جزاه الله خيرا وتم اضافة بعد التعديلات من العبد الفقير الى الله والتى كانت تناسبنى وقت التعديل على المرفق وتم اضافة وتطوير المرور بين الاشهر والسنوات ملاحظة هامة : تم تحديث التكويد الخاص بدوال الـ API ليدعم العمل على النواتان 32x , 64x ولكن لن استطيع التجربة فى الوقت الحالى للنواة 32x برجاء من يقوم بتجربة المرفق يذكر أصدار نواة الأوفيس الخاص بجهازه وبالأخص من يملك النواة 32x Outlook Style Calendar.mdb

حياك الله أستاذ سعد باين عليك بخيل أستاذ سعد 🙂 ، تعطيني طلباتك بالقطارة. على كل تم التعديل ولكن في كل الأحوال غ م غياب مجاز أو أي حروف أخرى وفارغ أيضا سيعتبرها البرنامج غياب وسيظهر الناتج "راسب". توزيع القرار لمدارس العراق_08.xlsm

طيب جرب <><><><><<><> rep_1.rar

Dim x1, x2 As Date x1 = Format(Date, "m") x2 = Format(Date, "yy") rx="RD" &""& me.حقل رقم تقرير الاستلام&""& x1 &""& x2

هذا أحد التطويرات للملف .. للفائدة الموظفين في جدول منفصل .. ويتم تحضيرهم شهريا .. 🙂 مع إمكانية طباعته كتقرير 👍 والتقرير تفاعلي أيضا لعدد الأيام في الشهر حضور وغياب.accdb

أخي @طاهر الوليدي كل ما فعلته أنا في الصورة السابقة هو تعديل التصميم .. والأكواد وقفتها أساسا بسبب بعض الأخطاء اللي ظهرت .. فقط صلحت كود For وجملة Next فقط .. وأحس أن الأخ @Altimas100 عنده أفكار في الموضوع فننتظر إبداعاته 🙂

شكرا جزيلا اخوي قاسم ، هو كما قلت انت ، مع تغيير اسماء الحقول ، وتغيير الفاصلة الى فاصلة منقوطة 🙂

بالاضافة لماتفضل به الاساتذة..تستطيع استخدام جملة السكوال في الاستعلام SELECT Count(Table1.case) AS CountOfcase FROM Table1 HAVING ((((Table1.case))="يعمل"));

السلام عليكم تم عمل المطلوب باستعمال المعادلات والتنسيقات الشرطية... أرجو أن تفي الغرض المطلوب. asb2023.xlsx

استخدم كود استاذ جعفر هكذا =IIf(Len([N1] & "")=0,0,1)+IIf(Len([N2] & "")=0,0,1)+IIf(Len([N3] & "")=0,0,1)+IIf(Len([N4] & "")=0,0,1)

السلام عليكم اخي العزيز استخدم دالة DCOUNT سواء من الاستعلام او من النموذج بشرط يعمل مثال =DCount("[الحالة]";"TABLE";"[الحالة]='يعمل'") تحياتي

عليكم السلام ربما Private Sub CommandButton3_Click() Dim c&, i& For i = 0 To ListBox1.ListCount - 1 With Sheets("ورقة1") .Range("g6").Offset(c).Value = ListBox1.List(i, 0) .Range("h6").Offset(c).Value = ListBox1.List(i, 1) .Range("i6").Offset(c).Value = ListBox1.List(i, 2) c = c + 1 End With Next i End Sub

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

Peace be upon you. You have to be more organized and specific in your explanation to the problem Create a new workbook with `xlsm` extension in the same path of your files and name it `MAIN.xlsm`, then open the workbook Press Alt + F11 to login VBE then insert a new module, put the following code Sub Get_Data_From_Closed_Workbooks() Dim a, wb As Workbook, ws As Worksheet, sFile As String, sPath As String, lr As Long, m As Long Application.ScreenUpdating = False sPath = ThisWorkbook.Path & "\" sFile = Dir(sPath & "*.xlsx") m = 2 With shSales.Range("B1").CurrentRegion.Offset(1) .ClearContents: .Borders.Value = 0 End With Do While sFile <> "" Set wb = Workbooks.Open(sPath & sFile, ReadOnly:=True) Set ws = wb.Sheets(2) With ws lr = .Cells(Rows.Count, "E").End(xlUp).Row a = .Range("B2:H" & lr).Value .Parent.Close False End With shSales.Range("B" & m).Resize(UBound(a, 1), UBound(a, 2)).Value = a m = m + UBound(a, 1) sFile = Dir() Loop With shSales.Range("B2:H" & m - 1) .Borders.Value = 1 End With With shSales.Range("D2:D" & m - 1) .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" .Value = .Value End With Application.ScreenUpdating = True MsgBox "Done", 64 End Sub I will attach the file just for you. Click on the icon in the quick access bar MAIN.xlsm

وعليكم السلام 🙂 نعم سرعة الكود تعتمد على سرعة الجهاز ، ولكن تعتمد على طريقة عمل الكود كذلك ، وبالخصوص عمل الفهرسة لحقول الجدول التي بها فرز/تصفية ، وقد يكون هذا اهم من سرعة الحاسبة 🙂 اذا تسمحوا لي بإفضاء هذا السر: عندي لابتوب صنع سنة 2004 ، وندوز XP ، معالج celeron ، و 2 جيجا رام ، و اكسس 2010 ، ولازلت اعمل بعض برامجي عليه ، وبدون مشاكل 😁 جعفر

اعتقد اضافة مكتبتين Vba microsft windows image acquishtion library v2.0 microsft office 16.0 object library تأكد من تثبيت برنامج الخاص لجهاز سحب الاسكنر وبرامج الادوبي اذا كنت تستعمل PDF

شكرا جزيلا لحضرتك وربنا يجعله في ميزان حسناتك

السلام عليكم و رحمة الله استخدم المعادلة التالية ="("&" "&INDEX($C$5:$D$9;MATCH($B$12;$D$5:$D$9;0);1)&" "&")"

بعد اذنك استاذي الغالي @kanory يمكن اختصار العدد الكبير من هذه الاكواد بهذه الصورة ...... Database1.mdb

للاسف يمكن اظهار المجلد .... اذهب امكان المجلد ثم ابدأ من اليسار (View - Option- Change Folder and and search Options- View) وأكمل مع الصورة ثم ظهور المجلد بلون أصفر باهت . الحل !!!!!!!!!!!!!! برنامج كما بمشاركتي الأولى والله ولي التوفيق PhoXo1.bmp

تفضل أخي افتح القاعدة (DA111) ثم اختار القاعدة المنسوخ اليها ولتكن (DA112) المرفقة كمثال ثم جرب نسخ أي من جدول أواستعلام ................... وشوف النتيجة من الزر (فتح القاعدة المُرسَل إليها) ولو حابب تنقل هذا الى قاعد بياناتك 1- الفورم (Form1) 2-الجدول (tbl_DbContents) عدل به اسماء كل محتويات برنامجك ونوعها . 3- أذ كان هذا ماتريد اضغط أفضل اجابة واليك المرفق ووافني بالرد Copy table-report- model Programmatic module.rar

جميل جداً استمر ........ ولاتنسى الضغط على أفضل اجابة

اخي علي بن علي كما ذكر..... اخي حسونة ... الكود الاول والثاني يعملان بكفائة ومع ذالك تفضل نسخة من طباعة اعمده محدده (1).xlsm تم شرح الكود لتسهيل فهمه لك ...... وتم تغير بسيط بالكود ليتناسب معك...ولم يترك اي عمود مخفي بعد المعاينة و الطباعة اتمني ان يكون المطلوب

هذا هو الملف الأصلي أخي .. @طاهر الوليدي 🙂 عدل فيه كما تشاء 😊 TimeSheet Project.accdb