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

خيارات الاكسس ---------> اعدادات العميل ---------> التقويم الهجري

اكبر خطأ ربط ارقام تلقائية مع بعض ....... راجع الربط في حقول ID واضح أن الارقام غير متشابهة فلذلك لن يظهر بيانات لعدم توفرها

لاحظ المرفق وعليك بتنسيق التقرير ...... moh.accdb

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

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

للفائدة يمكن تحميل قاعدة بيانات القرآن كاملا من موقع qurandatabase باكثر من صيغة http://qurandatabase.org وهنا قاعدة بيانات القرآن كاملا من موقع تنزيل tanzil يمكن تحميل الملف بصيغة txt ثم نسخه الى ملف اكسيل ثم نسخه الى اكسيس ان شاء الله بكل سهولة http://tanzil.net/download تحياتي

من خصائص زر الامر

السلام عليكم اخي ابو عبد الرحمن 🙂 رجاء لا ترفق مرفق فيه بيانات خاصة وحساسة ، لذلك فقد قمت بحذف المرفق (شكرا لأحد اخوتنا على الاشارة الى محتويات المرفق 🙂 ) ، واذا اردت ان ترفق شيء ، فرجاء حذف البيانات الحساسة واستبدالها ببيانات وهمية 🙂 جعفر

السلام عليكم من المفترض أنني وضعت درس التعامل الأنترنت باستخدام FTP و لكن بعض الظروف منعتني من ذلك إن كنت مستعجلا فسوف أقوم بالتعديل على ملفك و إن كنت غير ذلك فسوف أضع الدرس غدا بإذن الله

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

اهلا وسهلا اخي الفاضل محمد سلامة النسخة البيتا الاخيرة بعد اختبارها في بيئة عمل حقيقية تبين وجود بعض الملاحظات البسيطة و لم اقم باصلاحها ربما اطرح اصدار بخصائص محدودة بعد انهاء الملاحظات تحياتي 🌹

بارك الله فيك استاذ محمد وزادك الله من فضله

abo jood أين الضغط على الإعجاب لهذه الإجابة الممتازة ؟!!💙

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

بعد اذن الاستاذ عبدالفتاح في بي اكسيل واثراء للموضوع جرب هذه الطريقة اليك هذا الماكرو Sub pastespcolwid() ' Keyboard Shortcut: Ctrl+q ActiveCell.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ActiveSheet.Paste End Sub ضعه في مديول ثم اهب الى Macro ثم Options ثم ادخل حرف Q لاختصار الماكرو انظر الصورة الماكرو ينفذ عملية اللصق عن طريق لوحة المفاتيح والطريقة هي : حدد النطاق الذي تريد ثم نسخ ثم اذهب الى مكان اللصق ثم على لوحة المفاتيح اضغط زر CTRL+Q وهذا المرفق Book1.xlsm

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

وعليكم السلام-لك ما طلبت جمع يوم + مورد1.xlsx

تفضل تم المطلوب بمعادلات المصفوفة خلاصه1.xlsx

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

الطريقة الثانية هنا الاستبدال بالاختيار ، عن طريق بلوكات يتم حفظها و تستدعي يدويا او كما يسمي Building Block و الطريقة كالتالي لنفرض أنك تريد توفير وقت كتابة جملة السلام عليكم و رحمة الله وبركاته اكتبها فى الملف لاول مرة ثم اخترها و اضغط ALT+F3 سيظهر لك المربع التالي و سنحفظها باسم السلام ضمن العبارات المحفوظة Building Block و هكذا تم حفظها و لاستدعاءها من قائمة Insert اختار Quick Parts Building Blocks organizers ثم اختار الجملة التي تريد ادراجها و سيتم ادراج الجملة المحفوظة المطلوبة و طبعا يمكنك اختصار الخطوات عن طريق اضافة ال quick Parts الى قائمة الاختصارات السريعة فتظهر كايقونة يمكن الوصول اليها سريعا و اختصار الخطوات السابقة كما هو مبين فى الصورة التالية ثانياً : من ناحية اخرى ستجد الوورد يقترح عليك الاستبدالات المسجلة عندما تكتب بعض الجروف دون الحاجة لادراج المكونات يدويا مثلما هو مبين فى الصورة التالىة و كل ما عليك هو ضغط Enter ليتم ادراج الجملة بالكامل 😄 ثالثاً: أيضا هناك حل آخر اذا لم يظهر لديك الاقتراح كما سبق ان تكتب كلمة السلام ثم تختارها دون زيادة مسافات فى النهاية ثم تضغط F3 و سيتم الاستبدال مباشرة من القائمة المخزنة

السلام عليكم ورحمة الله وبركاته🌹 هذا الاصدار شبهه الاخير ان شاء الله تقريبا من وجهة نظرى البسيطة والضئيلة واطرحه بين اياديكم للاطلاع والتجربة والرد بما ترونه مناسبا من تعديلات واضافات المميزات الاضافية امكانية وضع مجلد القارئ داخل مجلد الصوت بمسار القاعدة فقط والباقى على البرنامج ، ملاحظة يتم مسح اى مجلدات فارغة من مسار مجلد الصوت اليا كنا يتم اضافة اسم القارئ والرابط اليا الى الجدول دون تدخل من المستخدم الاصدار السابق كان لابد من ان تكون ملفات الصوت mp3 بفضل الله تم التحايل بالكود حتى يتم تشغيل ال wav يوجد مجلد منافع يتم إدراجه اليا بمجرد فتح القاعدة تجدون فيه برنامج تغيير اسماء ملفات الصوت للمصحف دفعة واحدة طبعا لابد من الحرص قبل اضافة المجلدات ان تكون اسماء الملفات الصوتية مثل المرفق السابق والمثال الموجود بالمرفق الحالي كما تم اضافة امكانية تعديل الوان التطبيق ارضاء لجميع الاذواق وبذلك اكون بفضل الله تعالي اضفت كل ما تم تناوله وطرحه فى الموضوع السابق استاذى الجليل ومعلمى القدير ووالدى الحبيب استاذ @ابوخليل يعلم الله لم انم منذ ردكم بان المرفق لا يعمل عند حضرتك تاكدت من الاكواد جميعا بالسطر والكلمة والحرف اسال الله ان لا تواجه مشكلة هذه المرة لا يوجد كود بلا داع ولا توجد كلمات عربية داخل المحرر وتم التصميم على النواة ٣٢ بايت استاذى الجليل ومعلمى القدير الاستاذ @Gamal.Saad 🙏 لكم جزيل الشكر والعرفان بالجميل جزاكم الله خيرا 🌹 وضعت بهذا التطبيق عصارة ما لدى من افكار على طريقة كل من اساتذتى الافاضل الاجلاء الاستاذ @ابوخليل والاستاذ @jjafferr والاستاذ @رمهان وكل من تعلمت منهم وعلى ايديهم حتى لا اخطئ بنكران فضل لاحد فى هذا الصرح الرائع اتمنى ان شاء الله ان تنال رضاكم الذكر_الحكيم_V.__3.0.1.zip

دائما سباق على الخير اخي خالد باركك الرحمن تعالى

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الافاضل لاحظت الكثير من الاخطاء عند العمل على المصاحف الرقمية وبفضل من الله تحصلت على ملف ورد من مجمع الملك فهد لطباعة المصحف الشريف اريد كل ايه فى سجل هل يمكن عمل ذلك برمجيا المصحف الرقمى - مجمع الملك فهد.mdb UthmanicHafs1 Ver13.doc

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

اخي هذه محاولة مني بالكود عن نفسي افضل الاكواد ديناميكية وسريعة من غير سحب المعادلات اذا زادت البيانات ملاحظة اكتب البيانات في العمود a فقط وسيجلب البيانات الكود Sub tr() Dim lr As Integer Application.ScreenUpdating = False lr = Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To lr Cells(i, 3) = Cells(i, 1) Next Range("c:c").Copy Destination:=Range("E1") Application.ScreenUpdating = True End Sub المصنف1.xlsm

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

جزاك الله خيرا استاذ @أبو إبراهيم الغامدي

إقتراح جميل استاذ أبو إبراهيم الغامدي بارك الله فيك

أهلا بكم.. أقترح عليكم استخدام الشفرة التالية بدلا من السطر الأول Public Sub ExportToTextFile(ReportName) Dim RS As DAO.Recordset Dim TextFile As Integer Set RS = CurrentDb.OpenRecordset("استعلام4") TextFile = FreeFile Open CurrentProject.Path & "\" & ReportName & ".txt" For Output As #TextFile Do Until RS.EOF Print #TextFile, RS![LIGNECD] RS.MoveNext Loop Close #TextFile MsgBox "Done" End Sub Trans CD.mdb

بعد اذن استاد علي واثراء للموضوع هذا ملف يوجد به دوال لعد وجمع الالوان count and sum color1‬.xls

هذه احدى البرامج من المنتدى .... انظر .....

السلام عليكم ورحمة الله فى محاولة يائسة جرب هذه ="TickerChart|Live!'QO."&A2&".TAD$lasttradeprice'" ثم اسحب نزولا للصف الذى تريد

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا تم ازاله الصف الاول بالتتغير الى false لم اجد فالتعليمات للامر خاصيه الفتح فقمت باستدعائه بالشل ارجو ان يكون ما تريد وان شاء الله اخواننا واساتذتنا يساعدون بحلول افضل DoCmd.TransferText acExportDelim, "qry", "استعلام4", strPathAndfile & xx & ".txt", False Shell ("C:\Windows\system32\notepad.exe" & " " & strPathAndfile & xx & ".txt"), vbNormalFocus بالتوفيق اخى Trans CD.mdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بامكانك حذف هذه الاسطر اخى @radwan1991 MsgBox "جميع مربعات النص بها قيم " On Error GoTo Erra Dim stDocName As String stDocName = "t1" DoCmd.OpenReport stDocName, acNormal Exit_Erra: Exit Sub Erra: MsgBox Err.Description Resume Exit_Erra بالتوفيق ان شاء الله

من العمود a الى العمود m هناك 13 عامود اي أعمده تريد منها

فى انتظار اعمال جديدة

https://www.officena.net/ib/topic/61529-كود-إخفاء-وإظهار-الإستعلامات/ انظر الى هذا الرابط http://arabteam2000-forum.com/index.php?/topic/271876-طلب-كود-اخفاء-الاستعلام-او-التقرير-او-الماكرو-او-وحدة-نمطية-داخل-النموذج/

المصحف الرقمى - مجمع الملك فهد 2.zip

طيب انا عملت نصف المهمه والحمد لله انظر الى ترتيب ايات سورة الفاتحة tblAyaat Aya سُورَةُ الفَاتِحَةِ بِسۡمِ ٱللَّهِ ٱلرَّحۡمَٰنِ ٱلرَّحِيمِ ۝ ٱلۡحَمۡدُ لِلَّهِ رَبِّ ٱلۡعَٰلَمِينَ ۝ ٱلرَّحۡمَٰنِ ٱلرَّحِيمِ ۝ مَٰلِكِ يَوۡمِ ٱلدِّينِ ۝ إِيَّاكَ نَعۡبُدُ وَإِيَّاكَ نَسۡتَعِينُ ۝ ٱهۡدِنَا ٱلصِّرَٰطَ ٱلۡمُسۡتَقِيمَ ۝ صِرَٰطَ ٱلَّذِينَ أَنۡعَمۡتَ عَلَيۡهِمۡ غَيۡرِ ٱلۡمَغۡضُوبِ عَلَيۡهِمۡ وَلَا ٱلضَّآلِّينَ ۝ انظر الى باقى الايات تجد الاية قد تكون مقسمة فى اكثر من سجل المطلوب تجميع كل اية فى سجل خاص بها كما فى سورة الفاتحة المصحف الرقمى - مجمع الملك فهد.mdb

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

لك ما تريد الكود Option Explicit Sub get_data() Dim w As Worksheet, K As Worksheet Dim mot Dim RwB As Range, RwG As Range Dim F_rgB As Range, F_rgG As Range Dim first_ro%, act_row%, m% Set w = Sheets("Wakil"): Set K = Sheets("Khoulasa") mot = K.Range("G2") Set RwB = w.Range("A8").CurrentRegion.Columns(2) Set RwG = w.Range("G8").CurrentRegion.Columns(1) Union(K.Range("C6:E100"), K.Range("I6:K100")).ClearContents m = 6 Set F_rgB = RwB.Find(mot, lookat:=1) If Not F_rgB Is Nothing Then first_ro = F_rgB.Row: act_row = first_ro Do K.Cells(m, 3) = w.Cells(act_row, 4) K.Cells(m, 4) = w.Cells(act_row, 3) K.Cells(m, 5) = w.Cells(act_row, 5) Set F_rgB = RwB.FindNext(F_rgB) act_row = F_rgB.Row m = m + 1 Loop Until act_row = first_ro End If m = 6 '======================================== Set F_rgG = RwG.Find(mot, lookat:=1) If Not F_rgG Is Nothing Then first_ro = F_rgG.Row: act_row = first_ro Do K.Cells(m, 9) = w.Cells(act_row, "I") K.Cells(m, 10) = w.Cells(act_row, "H") K.Cells(m, 11) = w.Cells(act_row, "J") Set F_rgG = RwG.FindNext(F_rgG) act_row = F_rgG.Row m = m + 1 Loop Until act_row = first_ro End If '======================================== End Sub الملف مرفق (مجرد ما تغير شيئاً ما في الخلية G2 الماكرو يقوم بعمله) Khoulassa_by_Code.xlsm

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

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

تفضل يمكنك جعل المعادلة هكذا =IF(C1=1,RIGHT(A1)+LEFT(A1),"") 1.xlsx

بارك الله فيك استاذ محمد وزادك الله من فضله

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

عليك بإستخدام هذه المعادلة =IFERROR(IF(INDEX($A$2:$A$7,MATCH(E2,$B$2:$B$7,0))<>"",1,""),"") نسخة 1من الوقت الحالى.xlsm

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

انقر على التبويب (مراجعة) ثم اختر زر تلميح شاشة الترجمة.....أضف الكمات الغير موجودة في قاموس word والسلام عليكم

صباح الخير اليك شرح احد المعادلات على صفحة "شرح" في نفس الملف و المعادلات الباقية نفس الشرح و لكن بشروط اخرى بالنسبة للنتيجة (ناجح ،راسب ،غائب )لماذا لا تدع اكسل وحده ينفذها بواسطةمعادلة IF للمساعدة في الفرز ارفق لك ملفاً ثانياً لعله يساعدك ترحيل ناجح وراسب وغ.rar علامات الامتحان 1.rar