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

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

الأمر بسيط جدا يمكنك استعمال هذا الكود Sub export2pdf() For r = 3 To Sheet1.Cells(Rows.Count, 1).End(3).Row Sheet2.Range("b4") = Sheet1.Range("a" & r) Sheet2.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Sheet2.Range("b4") & ".pdf" Next r MsgBox "Done by mr-mas.com" End Sub بالتوفيق

Sub Test() Dim ws As Worksheet, c As Range, myDir As String, fn As String, shName As String, s As String, t As String, m As Long, n As Long Application.ScreenUpdating = False Set ws = ThisWorkbook.Worksheets(1) myDir = ThisWorkbook.Path & "\" With ws.Range("B4:B" & ws.Cells(Rows.Count, "B").End(xlUp).Row) .Offset(, 1).Resize(.Rows.Count, 4).ClearContents For Each c In .Cells fn = Dir(myDir & "\" & c.Value & ".xlsx") If fn = Empty Then GoTo NXT With GetObject(myDir & fn).Worksheets.Item(1) shName = .Name m = .Cells(Rows.Count, "B").End(xlUp).Row End With For n = 1 To 4 s = "'" & myDir & "[" & fn & "]" & shName & "'!" & Range("B6:B" & m).Address(True, True, -4150) t = Replace(s, Split(s, "!")(1), Range("C6:C" & m).Address(True, True, -4150)) c.Offset(, n).Value = Application.ExecuteExcel4Macro("SUMPRODUCT((" & s & "='" & ws.Name & "'!" & c.Offset(3 - c.Row, n).Address(True, True, -4150) & ")*(" & t & "))") Next n NXT: Next c End With Application.ScreenUpdating = True End Sub

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

قرار صائب من إدارة حكيمة @lionheartمنذ مشاركاته الأولى وأنا أشعر أنه أحد عمالقة هذا الصرح مليون مليار مبارك وأقترح عليه استعمال osk الموجودة في جميع إصدارات الويندوز أو touch keyboard الموجودة في ويندوز 10 فهما يدعمان اللغة العربية حتى وإن كانت لوحة المفاتيح hardware لا تدعمها خالص دعواتي بالتوفيق للجميع

رغم أن المطلوب غير واضح لي بصورة كافية إلا أنه * مشكلة ملفك هي أن عمود التاريخ E وعمود الوقت F تم تخزينهم وتنسيقهم كنص وحتى بعد تغيير التنسيق إلى وقت أو تاريخ لا تكون قيمته تاريخ ولا وقت لذا تم استخدام عمود G & H للحصول على قيم الوقت والتاريخ وتنسيقهم بصورة صحيحة واستعمالهم في المعادلات ويمكن إخفاؤهما * وتم تغيير قيمة وتنسيق خلايا الوقت في العمودين I & M ربما يكون هذا هو المطلوب بالتوفيق TQ.xlsx

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم if text=123 then me.form.filteron = true else me.form.filteron = false endif تحياتي

إن شاء اللّه يكون هذا هو المطلوب في حالة زيادة أسماء المصنفات يتم نسخ المعادلة لأسفل وتغيير اسم المصنف يدويا في اول خلية فقط ثم النسخ أفقيا بالتوفيق sumif in closed workbooks.rar

وعليكم السلام -يمكنك استخدام هذه المعادلة لإيجاد عدد العمليات =COUNTIFS(C:C,$K$2,D:D,$J$2,E:E,$I$2,F:F,$I5) ولإيجاد اجمالى المبلغ ... يمكنك استخدام هذه المعادلة =SUMIFS(B:B,C:C,$K$2,D:D,$J$2,E:E,$I$2,F:F,$I5) TQ1.xlsx

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

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

تمام جزاك الله كل خير

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

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

أعتقد انك يمكنك استيراد شيت اكسل وانت في الأكسس

جميعا بإذن الله نفس الكود السابق لي مع تغيير سطر export إلى سطر printout من الإجراء الثاني وإذا كنت تريد تنفيذ الأمرين بضغطة واحدة أضف سطر printout قبل أو بعد سطر export بالتوفيق

سبحان الله تعالى ما توقعته بهذه البساطة! .. رفع الله قدرك أستاذنا ويسر أمورك كما يسرت علينا. ... وبالنسبة لكود الطباعة: Sub Print_All() Dim saveLocation As String For I = 1 To Application.CountA([Rng]) [B4] = Application.Index([Rng], I) ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next [B4] = Application.Index([Rng], 1) [B4].Select End Sub أحتاج أعدله على ملفي لو تكرمت.

تفضل التعديل حساب عدد الورديات والساعات حسب التاريخ.zip

دائما مبدع استاذي محمد صالح، جزيل الشكر والإمتنان. بارك الله فيك.

جرب المرفق واعلمنا بالنتيجة ...... nabilemployer_kan2.rar

اعمل تجميع .. وتحت حقل اجمالي البيع (جمع)

تفضل التعديل استعلام.rar استعلام.accdb

To get the last row in specific column using formulas you can use these formulas =SUMPRODUCT((MAX(IFERROR(((A:A)<>""),TRUE)*ROW(A:A)))) =LOOKUP(2,1/(NOT(ISBLANK(A:A))),ROW(A:A)) To get the data in the last row in specific column, you can use this formula =LOOKUP(2,1/(B:B<>""),B:B) But if you seek to get the last row in any column in the active sheet, you have to use VBA instead Sub Test() Dim r As Range, m As Long Set r = ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues) If Not r Is Nothing Then MsgBox "Last Row In The Active Worksheet: " & r.Row & vbCrLf & "The Last Row Is In Column: " & r.Column End If End Sub

Thank you very much Mr. Mohamed for your kind words and it is a great honor to be among you

سأحاول بإذن الله جزاكم الله خيرا

عليكم السلام و رحمة الله وبركاته علي افتراض أن العمود المطلوب هو B يمكنك استعمال هذه المعادلة وهي أحد الحلول وليست الحل الوحيد =INDEX(B:B,COUNTA(B:B)) فجميع دوال البحث تجدي في هذه الحالة ويمكن سحب المعادلة أفقيا للتطبيق على أكثر من عمود بالتوفيق

Thank you very much for this trust. I am not expert, I am just a learner

وعليكم السلام ورحمة الله وبركاته في قاعدة البيانات لديك مكتبات غير متوفرة في الجهاز الجديد يمكن تحميلهم من الانترنت او نسخهم من الجهاز الاول الى الجهاز الجديد ستجدهم في المسار التالي windows 32 bit C:\Windows\System32 windows 64 bit C:\Windows\SysWOW64 والمكتبات المطلوبة هي Aec32BitAppServer57.tlb accessibility.api تحياتي

يمكنك استعمال برامج كثيرة لهذا الغرض منها aopr advanced office password recovery بالتوفيق

بارك الله فيك وربي يوفقك

غير ما لون بالاصفر بهذا myCheckUser = Nz(rst!Check_User)

هذه من المشكلات التي تواجه المبرمج ،، لما يغير سطر في كود يكون له تبعات في اماكن اخرى لا تظهر الا عند التجربة تفضل تم التعديل جرب ووافني بالنتيجة DATA1041-5.rar

احيانا الموظف ياخذ اجازة زمنية قبل الحظور واحيانا يأخذها عند الانصراف .. في تلك الحالة سيظهر بانه غائب ولهذا اشترطت في حالة عدم الحضور وعدم الانصراف يكون غائب اليك المرفق بالاشتراك مع معلمي استاذ @kanory رعاه الله YasEnEx2021.accdb

وعليكم السلام-يمكنك استخدام هذا الكود Sub RmDupsU() Dim U As Range, N As Long, i As Long, wf As WorksheetFunction Dim rUP As Range Set U = Range("A:A") Set wf = Application.WorksheetFunction N = Cells(Rows.Count, "A").End(xlUp).Row For i = N To 2 Step -1 Set rUP = Range(Cells(i - 1, "A"), Cells(1, "A")) If wf.CountIf(rUP, Cells(i, "A").Value) > 0 Then Cells(i, "A").Clear Next i End Sub Duplicate Clear Contents.xlsm

حبيبي ابو حسان جرب اول مرفق في مشاركتك الأولى الخلل موجود من الأول وليس من تعديلي الأخير على كل حال سوف انظر في الخلل

الشكر لله وفقنا الله جميعا لكل خير

تحية طيبة للاخوة فضلا جرب المرفق وان شاء الله اكون وفقت لطلبك حيث تم استخدام معادلة تقريب الكسر واصبحت المعادلة على الشكل ادناه =$C$133/ROUND(IF(TODAY()-$V$5+1<DATE(YEAR($V$5);12;31)-DATE(YEAR($V$5)-1;12;31);TODAY()-$V$5+1;DATE(YEAR($V$5);12;31)-DATE(YEAR($V$5)-1;12;31))/(365/12);0) مع الشكر Cash at Banks (2021) (1).xlsm

بسم الله الرحمن الرحيم من خلال الواقع عملية وضع الجدول المدرسي عملية مرهقة وتحتاج لكثير من التركيز من حيث عدد الحصص لكل مدرس أو سقوط فصل من الجدول ( ليس موكلا إلى أحد الأساتذة) أو تضارب الحصص ( وجود الفصل الواحد عند أكثر من مدرس) وبعد الانتهاء من الجدول نأتي لعمليات الاستخلاص استخلاص جدول مدرس أو استخلاص جدول فصل أو استخلاص جدول مشرف في يوم معين أو مشرف لدور معين وبفضل الله تم الانتهاء من تصميم برنامج بسيط يوفر كل ماسبق ملاحظة: البرنامج لا يقوم بوضع جدول من الألف إلى الياء وإنما يساعد مسئول الجدول في إنجاز مهمته البرنامج يعمل على أوفيس 2007 وبانتظار اقتراحات المهتمين بالمجال لتطويره ولا تنسوني من صالح دعائكم mas-school-timetable.rar

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

أخي الكريم أنا من أنصار الحديث دائما لأن شركة برمجية كبرى مثل مايكرو سوفت لن تخرج علينا ببرنامج تشك ول لحظة أنه أقل من سابقه ومن هذا المنطلق أدعوك وأدعو جميع الإخوة إلى الانتقال إلى الإصدار الأحدث حاليا وهو 2007 يوجد 2010 ولكنه نسخة تجريبية ولم تصدر النسخة النهائية حتى الآن للعلم لمن يملك أوفيس 2007 ويريد تحويل البرنامج لصيغة 97-2003 فلن يعمل البرنامج بعد تغيير الصيغة لأن يوجد بعض الأكواد خاصة بإكسل 2007 أو أحدث سعيد بمروركم جميعا وبانتظار الملاحظات

سعيد بمرورك أخي نادر سلمك الله من كل سوء

مشكور على مرورك الكريم أخي طارق وبانتظار ملاحظات واقتراحات المهتمين بالمجال التعليمي والقائمين عليها

أخي الكريم برجاء استعمال البحث قبل كتابة موضوع جديد ولعل هذا الرابط يفيدك http://www.officena.net/ib/index.php?showtopic=29911

كود رائع وبسيط في نفس الوقت لاحرمنا الله منك يا مشرفنا الرائع وفقك الله

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

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

شريط آخر المشاركات الذي يظهر أعلى المنتدى توقف ابتداء من اليوم 28/10/2009 وجربت فتح الموقع في أكثر من متصفح ونفس المشكلة