كل الانشطه

شكر وتقدير واحترام من اخيك

شكرا لحضرتك أنا حاولت اطبق علي ملف حضرتك في الكود الذي به تغييرات الحروف ولكن عند التطبيق يعطيني خطأ

طلع عندي هيك ما في اوقات للصلوات ؟؟

لا اعتقد ذلك .

هل يمكن ايقاف عمل زر التصغير فى نافذة اكسس او تغييره سلوكه ليصبح windowrestor مثل الزر المجاور له لا اقصد النماذج انما نافذة تطبيق اكسس ارجوكم هذا مهم بالنسبة لي حاولت عن طريق api لكن بدون نتيجة فعالة

استبدل (عبد ) بـ (عبد) اى عبد بعدها مسافة ب عبد بدون مسافة وبامكانك فعل زلك فى ابو ابو علي مثلا استبدل (ابو ) بـ (ابو)

كيف لو كانت بهذه الصورة ؟؟؟؟؟؟

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) كنت قد بحثت في المنتدى 🔍 (هنا) عن برامج لعرض مواقيت الصلاة ، وقد وجدت الكثير من المواضيع الجميلة والأفكار النيرة في المنتدى لأساتذة وأخوة بذلوا جهداً لا يوصف في مشاركاتهم بهذا الموضوع ، وإلى حد ما أكثرهم قرباً لضبط الأوقات كانت هذه المشاركة . اليوم الفكرة مختلفة قليلاً في هذا المشروع المتواضع والذي لا يحتوي تعقيدات يصعب قراءتها أو التعامل معها في الأكواد . حيث اعتمدت وتوجهت إلى البساطة من حيث عند النقل والدمج ( إلى / في ) أي مشروع . الآن شرح بسيط لبعض تفاصيل المشروع التي سيتم الإعتماد عليها :- سي سيتم الإعتماد على خطوط الطول والعرض بعد إجراء بعض التعديلات على طريقة احتساب الأوقات . وقد تمت المقارنة مع موقع ( مواقيت الصلاة ) للوصول إلى أقل فارق - إن وُجِد - في المواقيت . سيتم الإعتماد على تقويم أم القرى في أحدى مشاركات أستاذنا @ابوخليل . سيتم اعتماد إظهار الوقت المتبقي لكل موعد صلاة في الشاشة الرئيسية أو المصغرة ( ستضاف لاحقاً ) . سيتم منح الحرية للمستخدم بنوع التذكير لوقت الصلاة ( إشعار برسالة تنبيه داخل البرنامج ، إشعار فوق شريط Taskbar ) . سيتم أيضاً منح الحرية للمستخدم باختيار صوت التنبيه ( أذان كامل ، تكبير ، .... إلخ ) . المزيد من الأمور ستأتي لاحقاً تباعاً في تطويرات وتحديثات جديدة إن شاء الله . صورة لواجهة البرنامج حالياً مع الملف المرفق ، والذي أسميته في الوقت الحالي " صلوات " 🤗 ، ما لم يتم اختيار اسم آخر Salawat.accdb

اذا كنت مصر على طريقتك تفضل التعديل .... Function Export_Excel_officena_by_aba_judy(sXlsFile As String, sQuery As String, WrSht As Integer) Dim oExcel As Object Dim oExcelWrkBk As Object Dim oExcelWrSht As Object Dim bExcelOpened As Boolean Dim db As DAO.Database Dim rs As DAO.Recordset Dim iCols As Integer Const xlCenter = -4108 On Error Resume Next Set oExcel = GetObject(, "Excel.Application") If Err.Number <> 0 Then Err.Clear On Error GoTo Error_Handler Set oExcel = CreateObject("excel.application") bExcelOpened = False Else bExcelOpened = True End If On Error GoTo Error_Handler oExcel.ScreenUpdating = False oExcel.Visible = True Set oExcelWrkBk = oExcel.Workbooks.Open(sXlsFile) DoEvents Set oExcelWrSht = oExcelWrkBk.Sheets(WrSht) oExcelWrSht.Activate Set db = CurrentDb Set rs = db.OpenRecordset(sQuery, dbOpenSnapshot) With rs If .RecordCount <> 0 Then .MoveFirst oExcelWrSht.Range("f2").Value = "List Of New Monthly subscription( K4 )" oExcelWrSht.Range("j2").Value = Format(Date, "mmmm\.yyyy") oExcelWrSht.Range("f6").CopyFromRecordset rs oExcelWrSht.Range("f6").Select oExcelWrSht.Range("f1").Select Else MsgBox "There are no records returned by the specified queries/SQL statement.", vbCritical + vbOKOnly, "No data to generate an Excel spreadsheet with" GoTo Error_Handler_Exit End If End With Error_Handler_Exit: On Error Resume Next oExcel.Visible = True rs.Close Set rs = Nothing Set db = Nothing Set oExcelWrSht = Nothing Set oExcelWrkBk = Nothing oExcel.ScreenUpdating = True Set oExcel = Nothing Exit Function Error_Handler: MsgBox "The following error has occured" & vbCrLf & vbCrLf & _ "Error Number: " & Err.Number & vbCrLf & _ "Error Source: Export_Excel_officena_by_aba_judy" & vbCrLf & _ "Error Description: " & Err.Description _ , vbOKOnly + vbCritical, "An Error has Occured!" Resume Error_Handler_Exit End Function استدعيها بهذا الشكل في النموذج مع تعديل الرقم حسب رقم الشيت لديك ... Dim sXlsFile As String sXlsFile = CurrentProject.Path & "\K6_Ded.xlsx" Call Export_Excel_officena_by_aba_judy(sXlsFile, "SELECT * FROM qry_Ded_K4_New_Excel", 1) قم بتعديل الرقم 1 الى ارقام الشيت لديك

تفضل أخي @الباحث الباحث Scanner.accdb

السلام عليكم ورحمة الله وبركاته لدي قاعدة بيانات لاحد الاخوة الافاضل للاسف لم تسفعني ذاكرتي في ذكره ( بارك الله فيه وجزاه خيرا ) وهي مخصصة لتصدير استعلام الى ملف اكسل معد مسبقا وقد احتجت ان اعدلها لتقوم بتصدير عدة استعلامات لملف اكسل واحد بحيث يكون كل استعلام مصدر الى ورقة عمل معينة في نفس هذا الملف فهل يمكن تحقيق ذلك حاولت ان اقوم بالتعديل ولكن قدر الله وماشاء فعل . مرفق القاعدة مع ملف الاكسل المذكور تحياتي التصدير الى ملف اكسل معد مسبقا.rar

194 قراءة و 18 تحميل ولا يوجد رد كأن الموضوع غير موجود للرفع للرفع للأهمية

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

لو سمحت لو عايز ازيل المسافات بين الأسماء المركبة مثل ( عبد الصبور ) تبقي ( عبدالصبور ) بدون مسافات زي الاكسيل ماذا اضيف للبرنامج وشكرا جزيلا علي مجهودك

شكرا جزيلا اخي الفاضل وزادك الله من علمه

بعد إذن حضرتك ينفع طباعة القوائم دفعة واحدة وكذلك الصفوف ( مع الاحتفاظ بزر برنت بريفيو ) معلش انا بتعب حضرتك معاي

بارك الله فيك وأكثر الله من أمثالك وزادك الله علما

السلام عليكم ورحمة الله وبركاته اذا تكرمتم محتاج شيت اكسل لمتابعة رصيد اجازات الموظفين مع العمل يوضح فيه كامل الاجازات للموظفين ( شكرا

الموضوع قديم يغلق ،،،

الموضوع قديم جدا يرجى فتح موضوع بعنوان جديد بطلبك يغلق ،،،

أخي الكريم حتى لا يتم إهمال الموضوع والمتابعة له ، أنصحك بفتح موضوع جديد والإشارة الى هذا الموضوع إن كان له أي دور في حل مشكلتك. ثم حاول استخدام الزر <> في محرر المشاركة لإضافة الأكواد . ليسهل عليك وعلى المتابعين تمييز وقراءة الأكواد 🤗 . وإن شاء الله ستجد حلوووول كثيرة تعجبك.

وعليكم السلام ورحمه الله وبركاته تفضل Option Explicit Sub Sucess_Fail() Dim WSData As Worksheet, WSSucess As Worksheet, WSFail As Worksheet, arr As Variant Dim i As Long, J As Long, P As Long, PP As Long, LR As Long, StateRng As Range, State1 As Long, State2 As Long Set WSData = ThisWorkbook.Worksheets("شيت") Set WSSucess = ThisWorkbook.Worksheets("ناجح") Set WSFail = ThisWorkbook.Worksheets("دور ثان") LR = Application.Max(3, WSData.Cells(Rows.Count, "B").End(xlUp).Row) arr = WSData.Range("A3:P" & LR).Value Set StateRng = WSData.Range("P2" & ":P" & LR) WSSucess.Range("A5:O" & Application.Max(5, WSSucess.Cells(Rows.Count, "B").End(xlUp).Row)).ClearContents WSFail.Range("A5:O" & Application.Max(5, WSFail.Cells(Rows.Count, "B").End(xlUp).Row)).ClearContents State1 = WorksheetFunction.CountIf(StateRng, "ناجح") State2 = WorksheetFunction.CountIf(StateRng, "دور ثان") P = 1 PP = 1 ReDim Sucess(1 To State1, 1 To UBound(arr, 2) - 1) ReDim Fail(1 To State2, 1 To UBound(arr, 2) - 1) For i = 1 To UBound(arr, 1) For J = 2 To UBound(arr, 2) - 1 If arr(i, 16) = "ناجح" Then Sucess(P, 1) = P Sucess(P, J) = arr(i, J) If J = 15 Then P = P + 1 ElseIf arr(i, 16) = "دور ثان" Then Fail(PP, 1) = PP Fail(PP, J) = arr(i, J) If J = 15 Then PP = PP + 1 End If Next J Next i If P > 0 Then WSSucess.Range("A5").Resize(P - 1, UBound(Sucess, 2)).Value = Sucess If PP > 0 Then WSFail.Range("A5").Resize(PP - 1, UBound(Fail, 2)).Value = Fail End Sub Sucess_Fail.xlsm

وعليكم السلام ورحمة الله وبركاته تفضل اخى جرب الملف book9.xlsm

السلام عليكم ورحمة الله وبركاته مرفق ملف اكسيل به عدد 2 شيت الشيت A به درجات الطلاب وأريد بالشيت B تحليل لنتائج الطلاب كالتالي وكما هو معروض بالمرفق أولا اختيار الصف المطلوب وعرض أسماء الطلاب حسب نتائجهم 1 المواد التي بها تدني في مستوى درجات بين 60 - 70 2 المواد التي لم يجتز فيها الطالب الحد الأدنى اقل من 60 3 المواد التي تم تعديل النتيجة الدرجة 60 وكما تعودنا دائما من خبراء الاكسيل بالمنتدى نتمنى الحصول على معادلات تفي بالمطلوب وجزاكم الله خيرا new.xlsx